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 $LIT$ 12 13 .align 8 14L$P0000 15 .word 0x12345678 16 .word 0x0 17 18 .align 8 19L$C0000 20 .word 0x3ff00000 21 .word 0x0 22 .SPACE $TEXT$ 23 .SUBSPA $CODE$ 24 25 .align 4 26 .EXPORT g,ENTRY,PRIV_LEV=3,RTNVAL=FR 27g 28 .PROC 29 .CALLINFO FRAME=0,NO_CALLS 30 .ENTRY 31 stw %r19,-32(%r30) 32 ldw T'L$C0000(%r19),%r20 33 bv %r0(%r2) 34 fldds 0(%r20),%fr4 35 .EXIT 36 .PROCEND 37 .IMPORT abort,CODE 38 .IMPORT exit,CODE 39 .SPACE $TEXT$ 40 .SUBSPA $LIT$ 41 42 .align 8 43L$C0001 44 .word 0x3ff00000 45 .word 0x0 46 .SPACE $TEXT$ 47 .SUBSPA $CODE$ 48 49 .align 4 50 .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR 51main 52 .PROC 53 .CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=3 54 .ENTRY 55 stw %r2,-20(%r30) 56 ldo 128(%r30),%r30 57 stw %r19,-32(%r30) 58 stw %r4,-128(%r30) 59 60 copy %r19,%r4 61 .CALL 62 bl g,%r2 63 copy %r4,%r19 64 copy %r4,%r19 65 ldw T'L$C0001(%r19),%r20 66 fldds 0(%r20),%fr8 67 fcmp,dbl,= %fr4,%fr8 68 ftest 69 add,tr %r0,%r0,%r0 70 b,n L$0003 71 .CALL 72 bl abort,%r2 73 nop 74L$0003 75 .CALL ARGW0=GR 76 bl exit,%r2 77 ldi 0,%r26 78 nop 79 .EXIT 80 .PROCEND 81