| 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 | .EXPORT foo,DATA |
| 11 | .SPACE $PRIVATE$ |
| 12 | .SUBSPA $DATA$ |
| 13 | |
| 14 | .align 4 |
| 15 | foo: |
| 16 | .word 0 |
| 17 | .IMPORT __main,CODE |
| 18 | .SPACE $TEXT$ |
| 19 | .SUBSPA $CODE$ |
| 20 | |
| 21 | .align 4 |
| 22 | .EXPORT main,CODE |
| 23 | .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR |
| 24 | main: |
| 25 | .PROC |
| 26 | .CALLINFO FRAME=64,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3 |
| 27 | .ENTRY |
| 28 | .import foo |
| 29 | stw %r2,-20(0,%r30) |
| 30 | copy %r3,%r1 |
| 31 | copy %r30,%r3 |
| 32 | stwm %r1,64(0,%r30) |
| 33 | .CALL |
| 34 | bl __main,%r2 |
| 35 | nop |
| 36 | L$0001: |
| 37 | ldw -20(0,%r3),%r2 |
| 38 | ldo 64(%r3),%r30 |
| 39 | ldwm -64(0,%r30),%r3 |
| 40 | bv,n 0(%r2) |
| 41 | .EXIT |
| 42 | .PROCEND |