+2000-07-10 Alan Modra <alan@linuxcare.com.au>
+
+ * 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.
+
2000-07-05 Nick Clifton <nickc@cygnus.com>
* gas/d30v/inst.d: Fix expected results to match current assembler
* gas/d30v/bittest.l: Fix expected warning messages to match
current assembler output.
-2000-06-29 Kazu Hirata <kazu@hxi.com>=0A=
+2000-06-29 Kazu Hirata <kazu@hxi.com>
* gas/h8300/h8300.exp (do_h8300s_mac): Change the registers used
in ldmac and stmac.
Mon Mar 29 00:00:00 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com)
* Test suite created.
-
; 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
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)
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
.code
.export f
-f
+f:
.proc
.callinfo frame=0,no_calls
.entry
.export divu,millicode
.proc
.callinfo millicode
-divu
+divu:
.procend
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.
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.
.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
.data
.align 4
-tab___2
+tab___2:
.word L$0002
.word L$0003
.word L$0004
.align 4
.EXPORT execute,CODE
.EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
-execute
+execute:
.PROC
.CALLINFO FRAME=0,NO_CALLS
.ENTRY
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
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)
.IMPORT strcmp,CODE
.align 4
-L$C0000
+L$C0000:
.STRING "xyxyz\x00"
.IMPORT abort,CODE
.IMPORT exit,CODE
.align 4
.EXPORT main,CODE
.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
-main
+main:
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP
.ENTRY
.CALL
bl abort,%r2
nop
-L$0011
+L$0011:
.CALL ARGW0=GR
bl exit,%r2
copy %r0,%r26
.PROCEND
.data
-optab .comm 10
-buf .comm 10
-p .comm 10
+optab: .comm 10
+buf: .comm 10
+p: .comm 10
.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
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
.EXIT
.PROCEND
.align 4
-f2___4
+f2___4:
.PROC
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
.ENTRY
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)
.data
.align 4
-L$TRAMP0000
+L$TRAMP0000:
ldw 36(%r22),%r21
bb,>=,n %r21,30,.+16
depi 0,31,2,%r21
.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
.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
.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
.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
.align 4
.EXPORT foo,CODE
.EXPORT foo,ENTRY,PRIV_LEV=3,RTNVAL=GR
-foo
+foo:
.PROC
.CALLINFO FRAME=64,CALLS,SAVE_RP
.ENTRY
.align 4
.EXPORT bar,CODE
.EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR
-bar
+bar:
.PROC
.CALLINFO FRAME=0,NO_CALLS
.ENTRY
.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
.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
-
.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
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)
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;
}
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"
# 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
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;
}
.data
data_symbol:
.long 2
-common_symbol .comm 4
+common_symbol: .comm 4
}
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
return
}
+ if {[istarget "hppa*-*-*"]} then {
+ return
+ }
+
# not supported by D30V
if {[istarget "d30v-*-*"]} {
return