* gas/h8300/t03_add.exp: Remove stray semicolons.
* gas/h8300/t04_sub.exp: Likewise. * gas/h8300/t05_cmp.exp: Likewise. * gas/h8300/t08_or.exp: Likewise. * gas/h8300/t09_xor.exp: Likewise. * gas/h8300/t10_and.exp: Likewise. * gas/hppa/reloc/reloc.exp: Likewise. * gas/hppa/unsorted/unsorted.exp: Likewise. * gas/i386/i386.exp: Likewise. * gas/m68hc11/m68hc11.exp: Likewise. * gas/mips/mips.exp: Likewise. * gas/sparc/sparc.exp: Likewise. * lib/gas-defs.exp: Likewise.
This commit is contained in:
Ben Elliston
parent
1a27f959ea
commit
c0b225979e
|
|
@ -1,3 +1,19 @@
|
|||
2004-05-12 Ben Elliston <bje@au.ibm.com>
|
||||
|
||||
* gas/h8300/t03_add.exp: Remove stray semicolons.
|
||||
* gas/h8300/t04_sub.exp: Likewise.
|
||||
* gas/h8300/t05_cmp.exp: Likewise.
|
||||
* gas/h8300/t08_or.exp: Likewise.
|
||||
* gas/h8300/t09_xor.exp: Likewise.
|
||||
* gas/h8300/t10_and.exp: Likewise.
|
||||
* gas/hppa/reloc/reloc.exp: Likewise.
|
||||
* gas/hppa/unsorted/unsorted.exp: Likewise.
|
||||
* gas/i386/i386.exp: Likewise.
|
||||
* gas/m68hc11/m68hc11.exp: Likewise.
|
||||
* gas/mips/mips.exp: Likewise.
|
||||
* gas/sparc/sparc.exp: Likewise.
|
||||
* lib/gas-defs.exp: Likewise.
|
||||
|
||||
2004-05-11 Nick Clifton <nickc@redhat.com>
|
||||
|
||||
* gas/elf/section4.s: New test. Checks label arithmetic when
|
||||
|
|
|
|||
|
|
@ -2940,7 +2940,7 @@ proc do_t03_add_test {} {
|
|||
default { fail "$testname: add.l @0x1234:16, ... ($x)" }
|
||||
}
|
||||
# FIXME return early, expect bombs out on the next group.
|
||||
return;
|
||||
return
|
||||
set x 0
|
||||
expect {
|
||||
-re ".* 960 1f44 01046B2C" { set x [expr $x+1]; exp_continue; }
|
||||
|
|
|
|||
|
|
@ -2939,7 +2939,7 @@ proc do_t04_sub_test {} {
|
|||
default { fail "$testname: sub.l @0x1234:16, ... ($x)" }
|
||||
}
|
||||
# FIXME return early, expect bombs out on the next group.
|
||||
return;
|
||||
return
|
||||
set x 0
|
||||
expect {
|
||||
-re ".* 959 1f42 01046B2C" { set x [expr $x+1]; exp_continue; }
|
||||
|
|
|
|||
|
|
@ -2800,7 +2800,7 @@ proc do_t05_cmp_test {} {
|
|||
default { fail "$testname: cmp.l @0x1234:16, ... ($x)" }
|
||||
}
|
||||
# FIXME return early, expect bombs out on the next group.
|
||||
return;
|
||||
return
|
||||
set x 0
|
||||
expect {
|
||||
-re ".* 903 1e00 01046B2C" { set x [expr $x+1]; exp_continue; }
|
||||
|
|
|
|||
|
|
@ -2921,7 +2921,7 @@ proc do_t08_or_test {} {
|
|||
default { fail "$testname: or.l @0x1234:16, ... ($x)" }
|
||||
}
|
||||
# FIXME return early, expect bombs out on the next group.
|
||||
return;
|
||||
return
|
||||
set x 0
|
||||
expect {
|
||||
-re ".* 954 1f30 01046B2C" { set x [expr $x+1]; exp_continue; }
|
||||
|
|
|
|||
|
|
@ -2921,7 +2921,7 @@ proc do_t09_xor_test {} {
|
|||
default { fail "$testname: xor.l @0x1234:16, ... ($x)" }
|
||||
}
|
||||
# FIXME return early, expect bombs out on the next group.
|
||||
return;
|
||||
return
|
||||
set x 0
|
||||
expect {
|
||||
-re ".* 954 1f30 01046B2C" { set x [expr $x+1]; exp_continue; }
|
||||
|
|
|
|||
|
|
@ -2921,7 +2921,7 @@ proc do_t10_and_test {} {
|
|||
default { fail "$testname: and.l @0x1234:16, ... ($x)" }
|
||||
}
|
||||
# FIXME return early, expect bombs out on the next group.
|
||||
return;
|
||||
return
|
||||
set x 0
|
||||
expect {
|
||||
-re ".* 954 1f30 01046B2C" { set x [expr $x+1]; exp_continue; }
|
||||
|
|
|
|||
|
|
@ -68,7 +68,7 @@ proc do_relocation_reduction_tests {} {
|
|||
|
||||
if {[istarget hppa*64*-*-*]
|
||||
|| [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
if [gas_test_old "reduce.s" "" "Relocation reductions (part1)"] then {
|
||||
|
|
@ -245,7 +245,7 @@ proc do_selector_scope_test {} {
|
|||
set x 0
|
||||
|
||||
if [istarget hppa*64*-*-*] then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
if [gas_test_old "selectorbug.s" "" "Test scope of field selector (part 1)"] {
|
||||
|
|
@ -348,7 +348,7 @@ proc do_exit_relocation_test {} {
|
|||
if {[istarget hppa*64*-*-*]
|
||||
|| [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
|
||||
gas_test_old "exitbug.s" "" "Test for bogus R_EXIT relocation (part 1)"
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
if [gas_test_old "exitbug.s" "" "Test for bogus R_EXIT relocation (part 1)"] {
|
||||
|
|
@ -381,7 +381,7 @@ proc do_cross_space_fixup_test_1 {} {
|
|||
# ELF doesn't really handle extra sections too well...
|
||||
if {[istarget hppa*64*-*-*]
|
||||
|| [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
if [gas_test_old "fixupbug.s" "" "Test cross space jump/call fixup bug (part 1)"] {
|
||||
|
|
@ -415,7 +415,7 @@ proc do_cross_space_fixup_test_2 {} {
|
|||
# ELF doesn't really handle extra sections too well...
|
||||
if {[istarget hppa*64*-*-*]
|
||||
|| [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
gas_start "fixupbug.s" "-al"
|
||||
|
|
@ -600,7 +600,7 @@ proc do_pic_relocation_test {} {
|
|||
# ELF doesn't really handle extra sections too well...
|
||||
if {[istarget hppa*64*-*-*]
|
||||
|| [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
gas_start "picreloc.s" "-al"
|
||||
|
|
@ -629,7 +629,7 @@ proc do_apply_test {} {
|
|||
# ELF doesn't really handle extra sections too well...
|
||||
if {[istarget hppa*64*-*-*]
|
||||
|| [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
gas_start "applybug.s" "-al"
|
||||
|
|
|
|||
|
|
@ -197,7 +197,7 @@ proc do_import_test {} {
|
|||
proc do_common_test {} {
|
||||
# linux has a different .comm syntax
|
||||
if [istarget hppa*-*-linux*] then {
|
||||
return;
|
||||
return
|
||||
}
|
||||
|
||||
set testname "common.s: Test for bug in .comm handling (part2)"
|
||||
|
|
|
|||
|
|
@ -20,7 +20,7 @@ proc gas_64_check { } {
|
|||
global srcdir
|
||||
|
||||
catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help
|
||||
return [regexp "targets:.*x86-64" $nm_help];
|
||||
return [regexp "targets:.*x86-64" $nm_help]
|
||||
}
|
||||
|
||||
proc gas_32_check { } {
|
||||
|
|
@ -29,7 +29,7 @@ proc gas_32_check { } {
|
|||
global srcdir
|
||||
|
||||
catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help
|
||||
return [regexp "targets:.*i386" $nm_help];
|
||||
return [regexp "targets:.*i386" $nm_help]
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@ proc gas_m68hc11_message { kind options line expect } {
|
|||
regsub -all "\n" "$line: $expect" " " title
|
||||
|
||||
# Make a file containing the instructions to assemble.
|
||||
set fd [open "$srcdir/$subdir/tst-m68hc1x.s" "w"];
|
||||
set fd [open "$srcdir/$subdir/tst-m68hc1x.s" "w"]
|
||||
puts -nonewline $fd "$line"
|
||||
close $fd
|
||||
|
||||
|
|
|
|||
|
|
@ -254,7 +254,7 @@ proc mips_arch_list_matching {args} {
|
|||
# properties actually are.
|
||||
if { [string compare $arch default] == 0
|
||||
&& [string length [mips_arch_properties default]] == 0} {
|
||||
continue;
|
||||
continue
|
||||
}
|
||||
if { [mips_arch_matches $arch $args] } {
|
||||
lappend l $arch
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ proc gas_64_check { } {
|
|||
global srcdir
|
||||
|
||||
catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help
|
||||
return [regexp "elf64\[_-\]sparc" $nm_help];
|
||||
return [regexp "elf64\[_-\]sparc" $nm_help]
|
||||
}
|
||||
|
||||
proc sparc_elf_setup { } {
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@ proc gas_run { prog as_opts redir } {
|
|||
catch "exec $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir" comp_output
|
||||
set comp_output [prune_warnings $comp_output]
|
||||
verbose "output was $comp_output"
|
||||
return [list $comp_output ""];
|
||||
return [list $comp_output ""]
|
||||
}
|
||||
|
||||
proc all_ones { args } {
|
||||
|
|
|
|||
Loading…
Reference in New Issue