2006-07-19 Paolo Bonzini <bonzini@gnu.org>
[binutils.git] / binutils / testsuite / binutils-all / hppa / freg.s
blob501e10f937d8a7caaf70e63a558f31ad5ca8d9a6
1 .LEVEL 2.0
2 .SPACE $PRIVATE$
3 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
4 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
5 .SPACE $TEXT$
6 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
7 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
8 .IMPORT $global$,DATA
9 .IMPORT $$dyncall,MILLICODE
10 ; gcc_compiled.:
11 .SPACE $TEXT$
12 .SUBSPA $CODE$
14 .align 4
15 .NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
16 .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
17 main
18 .PROC
19 .CALLINFO FRAME=64,CALLS,SAVE_RP
20 .ENTRY
21 fmpyfadd,sgl %fr4L,%fr4R,%fr5R,%fr5L
22 .EXIT
23 .PROCEND