]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - gas/testsuite/gas/hppa/parse/badfmpyadd.s
* config/sh/tm-sh.h (BELIEVE_PCC_PROMOTION): Define, so that
[thirdparty/binutils-gdb.git] / gas / testsuite / gas / hppa / parse / badfmpyadd.s
1 .SPACE $PRIVATE$
2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
4 .SPACE $TEXT$
5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
7 .IMPORT $global$,DATA
8 .IMPORT $$dyncall,MILLICODE
9 ; gcc_compiled.:
10 .SPACE $TEXT$
11 .SUBSPA $CODE$
12
13 .align 4
14 .EXPORT foobar,ENTRY,PRIV_LEV=3,ARGW0=FR,ARGW1=FU,ARGW2=FR,ARGW3=FU,RTNVAL=FR
15 foobar
16 .PROC
17 .CALLINFO FRAME=0,NO_CALLS
18 .ENTRY
19 ldo -64(%r30),%r20
20 addil LR'x-$global$,%r27
21 fldds 8(0,%r20),%fr4
22 fldds 0(0,%r20),%fr22
23 ldo RR'x-$global$(%r1),%r19
24 fmpysub,sgl %fr5L,%fr7L,%fr5L,%fr22L,%fr4L
25 bv 0(%r2)
26 fstds %fr5,0(0,%r19)
27 .EXIT
28 .PROCEND
29 .SPACE $PRIVATE$
30 .SUBSPA $BSS$
31
32 x .comm 8
33 y .comm 8