From 36f89926108f79ebe5480f1a73c3ab07d4367cde Mon Sep 17 00:00:00 2001 From: Alan Modra Date: Mon, 1 May 2000 23:56:49 +0000 Subject: [PATCH] Duplicate hppa*-*-*elf* behaviour for hppa*-*-linux*. Fix elf tests for targets that define LABELS_WITHOUT_COLONS. --- gas/testsuite/ChangeLog | 17 +++++++++++++++ gas/testsuite/gas/elf/section0.s | 16 +++++++------- gas/testsuite/gas/elf/section1.s | 32 ++++++++++++++-------------- gas/testsuite/gas/hppa/parse/parse.exp | 3 +-- gas/testsuite/gas/hppa/reloc/reloc.exp | 17 +++++++++------ gas/testsuite/gas/hppa/unsorted/unsorted.exp | 6 +++--- gas/testsuite/gas/vtable/entry0.s | 4 ++-- gas/testsuite/gas/vtable/entry1.s | 4 ++-- gas/testsuite/gas/vtable/inherit0.s | 14 ++++++------ gas/testsuite/gas/vtable/inherit1.s | 2 +- 10 files changed, 67 insertions(+), 48 deletions(-) diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index c4fdafd..4e0d60b 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,20 @@ +2000-05-02 Alan Modra + + * gas/hppa/unsorted/unsorted.exp: Duplicate hppa*-*-*elf* + behaviour for hppa*-*-linux* throughout file. + * gas/hppa/reloc/reloc.exp: Ditto. + (reduce2.s): Disable test for elf targets. + + * gas/hppa/parse/parse.exp (ssbug.s): setup_xfail hppa*-*-linux*. + + * gas/elf/section0.s: Don't start pseudos on first column so + targets that define LABELS_WITHOUT_COLONS work. + * gas/elf/section1.s: Ditto. + * gas/vtable/inherit0.s: Ditto. + * gas/vtable/inherit1.s: Ditto. + * gas/vtable/entry0.s: Ditto. + * gas/vtable/entry1.s: Ditto. + 2000-05-01 Nick Clifton * gasp/macro.out: Fix label numbers to remove leading zeroes. diff --git a/gas/testsuite/gas/elf/section0.s b/gas/testsuite/gas/elf/section0.s index bdc8f0c..022fbfe 100644 --- a/gas/testsuite/gas/elf/section0.s +++ b/gas/testsuite/gas/elf/section0.s @@ -1,16 +1,16 @@ -.data + .data .byte 0 -.section A + .section A .byte 1 -.pushsection B + .pushsection B .byte 2 -.pushsection C + .pushsection C .byte 3 -.popsection + .popsection .byte 2 -.popsection + .popsection .byte 1 -.previous + .previous .byte 0 -.previous + .previous .byte 1 diff --git a/gas/testsuite/gas/elf/section1.s b/gas/testsuite/gas/elf/section1.s index 1592adf..667e09c 100644 --- a/gas/testsuite/gas/elf/section1.s +++ b/gas/testsuite/gas/elf/section1.s @@ -1,32 +1,32 @@ -.data + .data .byte 0 -.section A + .section A .byte 1 -.previous + .previous .byte 0 -.previous + .previous .byte 1 -.pushsection B + .pushsection B .byte 2 -.previous + .previous .byte 1 -.previous + .previous .byte 2 -.pushsection C + .pushsection C .byte 3 -.previous + .previous .byte 2 -.previous + .previous .byte 3 -.popsection + .popsection .byte 2 -.previous + .previous .byte 1 -.previous + .previous .byte 2 -.popsection + .popsection .byte 1 -.previous + .previous .byte 0 -.previous + .previous .byte 1 diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp index 44d674e..e089d2a 100644 --- a/gas/testsuite/gas/hppa/parse/parse.exp +++ b/gas/testsuite/gas/hppa/parse/parse.exp @@ -188,8 +188,7 @@ if [istarget hppa*-*-*] then { # Bad things happen in the PA ELF backend (others too?) if a non-default # section is created... - setup_xfail hppa*-*-*elf* - setup_xfail hppa*w-*-* + setup_xfail "hppa*-*-*elf*" "hppa*-*-linux*" "hppa*w-*-*" gas_test "ssbug.s" "" "" "Check for acceptance of non-default subspaces" # To be compatable with certain "features" of the HP compiler diff --git a/gas/testsuite/gas/hppa/reloc/reloc.exp b/gas/testsuite/gas/hppa/reloc/reloc.exp index aa81bdd..159cc6c 100644 --- a/gas/testsuite/gas/hppa/reloc/reloc.exp +++ b/gas/testsuite/gas/hppa/reloc/reloc.exp @@ -98,6 +98,8 @@ proc do_relocation_reduction_tests {} { set testname "reduce2.s: More relocation reduction tests (part 2)" set x 0 + if {![istarget hppa*-*-*elf*] && ![istarget hppa*-*-linux*]} then { + if [gas_test_old "reduce2.s" "" "More relocation reductions (part1)"] then { objdump_start_no_subdir "a.out" "-r" @@ -126,6 +128,7 @@ proc do_relocation_reduction_tests {} { # Did we find what we were looking for? If not, flunk it. if [expr $x==2] then { pass $testname } else { fail $testname } + } set testname "reduce3.s: Test even more relocation reductions (part 2)" set x 0 @@ -252,7 +255,7 @@ proc do_selector_scope_test {} { # Check to make sure the relocation entry after the plabel is correct. # If an old field selector was incorrectly "carried" over, then # this test will fail. - if [istarget hppa*-*-*elf*] then { + if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { while 1 { expect { -re "^0+14\[^\n\]*DIR32\[^\n\]*\n" @@ -324,7 +327,7 @@ proc do_exit_relocation_test {} { # Elf (osf) does not use ENTRY/EXIT relocations. # I guess we could look at the unwind subspaces it builds... # Until then, make sure it still assembles. - if [istarget hppa*-*-*elf*] then { + if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { gas_test_old "exitbug.s" "" "Test for bogus R_EXIT relocation (part 1)" return; } @@ -361,7 +364,7 @@ proc do_cross_space_fixup_test_1 {} { } # ELF (osf) doesn't really handle extra sections too well... - if [istarget hppa*-*-*elf*] then { + if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { return; } @@ -398,7 +401,7 @@ proc do_cross_space_fixup_test_2 {} { } # ELF (osf) doesn't really handle extra sections too well... - if [istarget hppa*-*-*elf*] then { + if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { return; } @@ -431,7 +434,7 @@ proc do_round_mode_test {} { # Make sure GAS generated correct relocations to switch rounding modes. # Also make sure (for SOM) that redundant rounding mode relocations # were eliminated. - if { [istarget hppa*-*-*elf*] || [istarget hppa*w-*-*] } then { + if { [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*] || [istarget hppa*w-*-*] } then { while 1 { expect { -re "^0+\[^\n\]*DIR21L\[^\n\]*\n" @@ -484,7 +487,7 @@ proc do_round_mode_test {} { objdump_finish # Did we find what we were looking for? If not, flunk it. - if {[istarget hppa*-*-*elf*] || [istarget hppa*w-*-*] } then { + if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*] || [istarget hppa*w-*-*] } then { if [expr $x==8] then { pass $testname } else { fail $testname } } else { if [expr $x==3] then { pass $testname } else { fail $testname } @@ -584,7 +587,7 @@ proc do_pic_relocation_test {} { } # ELF (osf) doesn't really handle extra sections too well... - if [istarget hppa*-*-*elf*] then { + if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { return; } diff --git a/gas/testsuite/gas/hppa/unsorted/unsorted.exp b/gas/testsuite/gas/hppa/unsorted/unsorted.exp index 5487fd9..02ce4e6 100644 --- a/gas/testsuite/gas/hppa/unsorted/unsorted.exp +++ b/gas/testsuite/gas/hppa/unsorted/unsorted.exp @@ -24,7 +24,7 @@ proc do_subspace_align_test {} { set testname "ss_align.s: Test subspace alignment (part 2)" set x 0 - if { [istarget hppa*-*-*elf*] || [istarget hppa*w-*-*] } then { + if { [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*] || [istarget hppa*w-*-*] } then { return } @@ -107,7 +107,7 @@ proc do_align3_test {} { set testname "align3.s: Test for alignment bug when switching subspaces (part2)" set x 0 - if { [istarget hppa*-*-*elf*] || [istarget hppa*w-*-*] } then { + if { [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*] || [istarget hppa*w-*-*] } then { return } @@ -138,7 +138,7 @@ proc do_align4_test {} { set testname "align4.s: More subspace alignment tests (part2)" set x 0 - if { [istarget hppa*-*-*elf*] || [istarget hppa*w-*-*] } then { + if { [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*] || [istarget hppa*w-*-*] } then { return } diff --git a/gas/testsuite/gas/vtable/entry0.s b/gas/testsuite/gas/vtable/entry0.s index 36f89e3..878c44c 100644 --- a/gas/testsuite/gas/vtable/entry0.s +++ b/gas/testsuite/gas/vtable/entry0.s @@ -1,2 +1,2 @@ -.text -.vtable_entry vtbl_a, 16 + .text + .vtable_entry vtbl_a, 16 diff --git a/gas/testsuite/gas/vtable/entry1.s b/gas/testsuite/gas/vtable/entry1.s index 36f89e3..878c44c 100644 --- a/gas/testsuite/gas/vtable/entry1.s +++ b/gas/testsuite/gas/vtable/entry1.s @@ -1,2 +1,2 @@ -.text -.vtable_entry vtbl_a, 16 + .text + .vtable_entry vtbl_a, 16 diff --git a/gas/testsuite/gas/vtable/inherit0.s b/gas/testsuite/gas/vtable/inherit0.s index d438df6..67fad70 100644 --- a/gas/testsuite/gas/vtable/inherit0.s +++ b/gas/testsuite/gas/vtable/inherit0.s @@ -1,13 +1,13 @@ -.data + .data -.type vtbl_a,object + .type vtbl_a,object vtbl_a: .space 16 -.size vtbl_a,16 -.vtable_inherit vtbl_a, 0 + .size vtbl_a,16 + .vtable_inherit vtbl_a, 0 -.type vtbl_b,object + .type vtbl_b,object vtbl_b: .space 16 -.size vtbl_b,16 -.vtable_inherit vtbl_b, vtbl_a + .size vtbl_b,16 + .vtable_inherit vtbl_b, vtbl_a diff --git a/gas/testsuite/gas/vtable/inherit1.s b/gas/testsuite/gas/vtable/inherit1.s index 7dd1d28..46f2b09 100644 --- a/gas/testsuite/gas/vtable/inherit1.s +++ b/gas/testsuite/gas/vtable/inherit1.s @@ -1 +1 @@ -.vtable_inherit vtbl_a, 0 + .vtable_inherit vtbl_a, 0 -- 2.7.4