Duplicate hppa*-*-*elf* behaviour for hppa*-*-linux*.

Fix elf tests for targets that define LABELS_WITHOUT_COLONS.

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  <alan@linuxcare.com.au>
+
+	* 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  <nickc@cygnus.com>
 
 	* 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