This is the mail archive of the
binutils@sources.redhat.com
mailing list for the binutils project.
yet more hppa testsuite stuff
- To: binutils at sourceware dot cygnus dot com
- Subject: yet more hppa testsuite stuff
- From: Alan Modra <alan at linuxcare dot com dot au>
- Date: Tue, 11 Jul 2000 01:25:08 +1000 (EST)
hppa-linux wants colons on labels, so give it a few. There remains one
hppa test to check that the other varieties of hppa assemblers accept
labels without colons. Committed.
Alan Modra
--
Linuxcare. Support for the Revolution.
gas/testsuite/ChangeLog
* gas/vtable/vtable.exp: Disable test for hppa.
* gas/hppa/reloc/reloc.exp (do_relocation_reduction_tests): Don't
run test for any elf target.
(applybug): Don't run test for linux.
* gas/hppa/unsorted/unsorted.exp (do_common_text): Likewise.
* gas/hppa/parse/parse.exp (linesepbug): Remove xfail
(labelbug): xfail for hppa-linux.
* gas/hppa/basic/{coprmem.s, fmemLRbug.s}: Add colons to labels.
* gas/hppa/parse/{callinfobug.s, regpopbug.s}: Likewise.
* gas/hppa/reloc/{applybug.s, funcrelocbug.s, longcall.s,
r_no_reloc.s, reduce3.s}: Likewise.
* gas/hppa/unsorted/common.s: Likewise.
Index: gas/testsuite/gas/hppa/basic/coprmem.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/basic/coprmem.s,v
retrieving revision 1.2
diff -u -p -r1.2 coprmem.s
--- coprmem.s 1999/08/30 18:20:18 1.2
+++ coprmem.s 2000/07/10 13:25:31
@@ -7,7 +7,7 @@
; immediate fields. We should also check the assorted field
; selectors to make sure they're handled correctly.
;
-copr_indexing_load
+copr_indexing_load:
cldwx,4 %r5(%sr0,%r4),%r26
cldwx,4,s %r5(%sr0,%r4),%r26
@@ -18,7 +18,7 @@ copr_indexing_load
clddx,4,m %r5(%sr0,%r4),%r26
clddx,4,sm %r5(%sr0,%r4),%r26
-copr_indexing_store
+copr_indexing_store:
cstwx,4 %r26,%r5(%sr0,%r4)
cstwx,4,s %r26,%r5(%sr0,%r4)
cstwx,4,m %r26,%r5(%sr0,%r4)
@@ -28,7 +28,7 @@ copr_indexing_store
cstdx,4,m %r26,%r5(%sr0,%r4)
cstdx,4,sm %r26,%r5(%sr0,%r4)
-copr_short_memory
+copr_short_memory:
cldws,4 0(%sr0,%r4),%r26
cldws,4,mb 0(%sr0,%r4),%r26
cldws,4,ma 0(%sr0,%r4),%r26
Index: gas/testsuite/gas/hppa/basic/fmemLRbug.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/basic/fmemLRbug.s,v
retrieving revision 1.1.1.1
diff -u -p -r1.1.1.1 fmemLRbug.s
--- fmemLRbug.s 1999/05/03 07:28:50 1.1.1.1
+++ fmemLRbug.s 2000/07/10 13:25:31
@@ -1,6 +1,6 @@
.code
.export f
-f
+f:
.proc
.callinfo frame=0,no_calls
.entry
Index: gas/testsuite/gas/hppa/parse/callinfobug.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/parse/callinfobug.s,v
retrieving revision 1.2
diff -u -p -r1.2 callinfobug.s
--- callinfobug.s 1999/08/30 20:08:59 1.2
+++ callinfobug.s 2000/07/10 13:25:31
@@ -3,5 +3,5 @@
.export divu,millicode
.proc
.callinfo millicode
-divu
+divu:
.procend
Index: gas/testsuite/gas/hppa/parse/parse.exp
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/parse/parse.exp,v
retrieving revision 1.3
diff -u -p -r1.3 parse.exp
--- parse.exp 2000/05/01 23:56:49 1.3
+++ parse.exp 2000/07/10 13:25:31
@@ -120,7 +120,6 @@ proc do_valid_align_tests {} {
if [istarget hppa*-*-*] then {
# GAS-2.0 does not always parse ! as a line separator when it should.
- setup_xfail hppa*-*-*
gas_test "linesepbug.s" "" "" "line separator bug"
# Make sure GAS accepts syntax for accessing static data.
@@ -200,6 +199,7 @@ if [istarget hppa*-*-*] then {
gas_test "stdreg.s" "" "" "Test standard predefined registers"
# Make sure GAS will accept a label without a colon.
+ setup_xfail "hppa*-*-linux*"
gas_test "labelbug.s" "" "" "Test label without colon"
# Make sure we grok # line directives.
Index: gas/testsuite/gas/hppa/parse/regpopbug.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/parse/regpopbug.s,v
retrieving revision 1.2
diff -u -p -r1.2 regpopbug.s
--- regpopbug.s 1999/08/30 20:09:00 1.2
+++ regpopbug.s 2000/07/10 13:25:31
@@ -1,9 +1,9 @@
.code
-r0 .reg %r0
-shift .reg %sar
-fpreg10 .reg %fr10
-shift2 .reg shift
+r0: .reg %r0
+shift: .reg %sar
+fpreg10: .reg %fr10
+shift2: .reg shift
; Make sure we didn't botch .equ...
-yabba .equ r0 + shift
+yabba: .equ r0 + shift
Index: gas/testsuite/gas/hppa/reloc/applybug.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/reloc/applybug.s,v
retrieving revision 1.2
diff -u -p -r1.2 applybug.s
--- applybug.s 1999/08/30 21:00:58 1.2
+++ applybug.s 2000/07/10 13:25:32
@@ -4,7 +4,7 @@
.data
.align 4
-tab___2
+tab___2:
.word L$0002
.word L$0003
.word L$0004
@@ -13,7 +13,7 @@ tab___2
.align 4
.EXPORT execute,CODE
.EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
-execute
+execute:
.PROC
.CALLINFO FRAME=0,NO_CALLS
.ENTRY
@@ -27,7 +27,7 @@ execute
ldo R'tab___2-$global$(%r1),%r23
addil L'optab-$global$,%r27
ldo R'optab-$global$(%r1),%r20
-L$0009
+L$0009:
sh2add %r21,%r23,%r19
ldh 2(%r19),%r19
ldo 1(%r21),%r21
@@ -35,19 +35,19 @@ L$0009
comib,>= 2,%r21,L$0009
sths,ma %r19,2(%r20)
bv,n %r0(%r2)
-L$0002
+L$0002:
ldi 120,%r19
stbs,ma %r19,1(%r20)
ldhs,ma 2(%r26),%r19
add %r22,%r19,%r19
bv,n %r0(%r19)
-L$0003
+L$0003:
ldi 121,%r19
stbs,ma %r19,1(%r20)
ldhs,ma 2(%r26),%r19
add %r22,%r19,%r19
bv,n %r0(%r19)
-L$0004
+L$0004:
ldi 122,%r19
stb %r19,0(%r20)
bv %r0(%r2)
@@ -58,7 +58,7 @@ L$0004
.IMPORT strcmp,CODE
.align 4
-L$C0000
+L$C0000:
.STRING "xyxyz\x00"
.IMPORT abort,CODE
.IMPORT exit,CODE
@@ -67,7 +67,7 @@ L$C0000
.align 4
.EXPORT main,CODE
.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
-main
+main:
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP
.ENTRY
@@ -104,7 +104,7 @@ main
.CALL
bl abort,%r2
nop
-L$0011
+L$0011:
.CALL ARGW0=GR
bl exit,%r2
copy %r0,%r26
@@ -113,6 +113,6 @@ L$0011
.PROCEND
.data
-optab .comm 10
-buf .comm 10
-p .comm 10
+optab: .comm 10
+buf: .comm 10
+p: .comm 10
Index: gas/testsuite/gas/hppa/reloc/funcrelocbug.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/reloc/funcrelocbug.s,v
retrieving revision 1.2
diff -u -p -r1.2 funcrelocbug.s
--- funcrelocbug.s 1999/08/30 21:00:59 1.2
+++ funcrelocbug.s 2000/07/10 13:25:32
@@ -2,7 +2,7 @@
.align 4
.EXPORT g,CODE
.EXPORT g,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR
-g
+g:
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3
.ENTRY
@@ -26,11 +26,11 @@ g
ldw -36(%r3),%r28
bl,n L$0001,%r0
bl,n L$0003,%r0
-L$0002
+L$0002:
ldw -40(%r3),%r28
bl,n L$0001,%r0
-L$0003
-L$0001
+L$0003:
+L$0001:
ldw -20(%r3),%r2
ldo 64(%r3),%r30
ldwm -64(%r30),%r3
@@ -38,7 +38,7 @@ L$0001
.EXIT
.PROCEND
.align 4
-f2___4
+f2___4:
.PROC
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
.ENTRY
@@ -54,7 +54,7 @@ f2___4
ldi 1,%r19
copy %r19,%r28
bl,n L$0005,%r0
-L$0005
+L$0005:
ldo 64(%r3),%r30
ldwm -64(%r30),%r3
bv,n %r0(%r2)
@@ -64,7 +64,7 @@ L$0005
.data
.align 4
-L$TRAMP0000
+L$TRAMP0000:
ldw 36(%r22),%r21
bb,>=,n %r21,30,.+16
depi 0,31,2,%r21
@@ -81,7 +81,7 @@ L$TRAMP0000
.align 4
.EXPORT f,CODE
.EXPORT f,ENTRY,PRIV_LEV=3,RTNVAL=GR
-f
+f:
.PROC
.CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3
.ENTRY
@@ -133,8 +133,8 @@ f
.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
bl abort,%r2
nop
-L$0006
-L$0004
+L$0006:
+L$0004:
ldw -20(%r3),%r2
ldo 64(%r3),%r30
ldwm -64(%r30),%r3
@@ -146,7 +146,7 @@ L$0004
.align 4
.EXPORT main,CODE
.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
-main
+main:
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3
.ENTRY
@@ -164,7 +164,7 @@ main
.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
bl exit,%r2
nop
-L$0007
+L$0007:
ldw -20(%r3),%r2
ldo 64(%r3),%r30
ldwm -64(%r30),%r3
Index: gas/testsuite/gas/hppa/reloc/longcall.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/reloc/longcall.s,v
retrieving revision 1.2
diff -u -p -r1.2 longcall.s
--- longcall.s 1999/08/30 21:00:59 1.2
+++ longcall.s 2000/07/10 13:25:32
@@ -2,7 +2,7 @@
.align 4
.EXPORT foo,CODE
.EXPORT foo,ENTRY,PRIV_LEV=3,RTNVAL=GR
-foo
+foo:
.PROC
.CALLINFO FRAME=64,CALLS,SAVE_RP
.ENTRY
@@ -19,7 +19,7 @@ foo
.align 4
.EXPORT bar,CODE
.EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR
-bar
+bar:
.PROC
.CALLINFO FRAME=0,NO_CALLS
.ENTRY
Index: gas/testsuite/gas/hppa/reloc/r_no_reloc.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/reloc/r_no_reloc.s,v
retrieving revision 1.2
diff -u -p -r1.2 r_no_reloc.s
--- r_no_reloc.s 1999/08/30 21:00:59 1.2
+++ r_no_reloc.s 2000/07/10 13:25:32
@@ -3,17 +3,17 @@
.data
.ALIGN 8
-$L00DATA
+$L00DATA:
.ALIGN 8
.EXPORT s
-s
+s:
.WORD 0x0
.BLOCKZ 786425
.BLOCKZ 7
.code
-L$001.3
-g .PROC
+L$001.3:
+g: .PROC
.CALLINFO FRAME=0,NO_CALLS
.ENTRY
;ldo 120(%r0),%r28 --> to delay slot
@@ -26,10 +26,9 @@ g .PROC
.data
.ALIGN 4
.EXPORT l
-l
+l:
.WORD P'g
.IMPORT common,DATA ; common section, size=0
.IMPORT $global$,DATA
.EXPORT g,ENTRY,PRIV_LEV=3,RTNVAL=GR
.END
-
Index: gas/testsuite/gas/hppa/reloc/reduce3.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/reloc/reduce3.s,v
retrieving revision 1.2
diff -u -p -r1.2 reduce3.s
--- reduce3.s 1999/08/30 21:00:59 1.2
+++ reduce3.s 2000/07/10 13:25:32
@@ -1,25 +1,25 @@
.data
.align 8
-blah
+blah:
; .double 0e+00
.word 0 ; = 0x0
.word 0 ; = 0x0
.EXPORT foo,DATA
.align 8
-foo
+foo:
; .double 0e+00
.word 0 ; = 0x0
.word 0 ; = 0x0
.EXPORT yabba,DATA
.align 4
-yabba
+yabba:
.word 1
.code
.align 4
.EXPORT bar,CODE
.EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR
-bar
+bar:
.PROC
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
.ENTRY
@@ -30,7 +30,7 @@ bar
ldo R'yabba-$global$(%r1),%r19
ldi 2,%r20
stw %r20,0(%r19)
-L$0001
+L$0001:
ldo 64(%r3),%r30
ldwm -64(%r30),%r3
bv,n %r0(%r2)
Index: gas/testsuite/gas/hppa/reloc/reloc.exp
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/reloc/reloc.exp,v
retrieving revision 1.3
diff -u -p -r1.3 reloc.exp
--- reloc.exp 2000/05/01 23:56:49 1.3
+++ reloc.exp 2000/07/10 13:25:33
@@ -65,7 +65,8 @@ proc do_relocation_reduction_tests {} {
set testname "reduce.s: Test relocation reductions (part 2)"
set x 0
- if [istarget hppa*w-*-*] then {
+ if {[istarget hppa*w-*-*]
+ || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
return;
}
@@ -98,8 +99,6 @@ 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"
@@ -128,7 +127,6 @@ 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
@@ -615,7 +613,7 @@ proc do_apply_test {} {
set x 0
# ELF (osf) doesn't really handle extra sections too well...
- if [istarget hppa*-*-*elf*] then {
+ if {[istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
return;
}
Index: gas/testsuite/gas/hppa/unsorted/common.s
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/unsorted/common.s,v
retrieving revision 1.2
diff -u -p -r1.2 common.s
--- common.s 1999/08/30 21:15:01 1.2
+++ common.s 2000/07/10 13:25:33
@@ -5,4 +5,4 @@ text_symbol:
.data
data_symbol:
.long 2
-common_symbol .comm 4
+common_symbol: .comm 4
Index: gas/testsuite/gas/hppa/unsorted/unsorted.exp
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/hppa/unsorted/unsorted.exp,v
retrieving revision 1.3
diff -u -p -r1.3 unsorted.exp
--- unsorted.exp 2000/05/01 23:56:49 1.3
+++ unsorted.exp 2000/07/10 13:25:33
@@ -192,6 +192,11 @@ proc do_import_test {} {
}
proc do_common_test {} {
+ # linux has a different .comm syntax
+ if [istarget hppa*-*-linux*] then {
+ return;
+ }
+
set testname "common.s: Test for bug in .comm handling (part2)"
set x 0
Index: gas/testsuite/gas/vtable/vtable.exp
===================================================================
RCS file: /cvs/src/src/gas/testsuite/gas/vtable/vtable.exp,v
retrieving revision 1.6
diff -u -p -r1.6 vtable.exp
--- vtable.exp 2000/04/21 20:22:22 1.6
+++ vtable.exp 2000/07/10 13:25:35
@@ -24,6 +24,10 @@ if { ([istarget "*-*-elf*"]
return
}
+ if {[istarget "hppa*-*-*"]} then {
+ return
+ }
+
# not supported by D30V
if {[istarget "d30v-*-*"]} {
return