1 .IMPORT $global$,DATA 2 .IMPORT $$dyncall,MILLICODE 3 ; gcc_compiled.: 4 5 .code 6 .align 4 7 .PARAM foo,ARGW0=FR 8 foo: 9 .PROC 10 .CALLINFO FRAME=0,NO_CALLS 11 .ENTRY 12 bv,n %r0(%r2) 13 .EXIT 14 .PROCEND 15 16 .align 4 17 LC$0000: 18 .word P%foo 19 20 .align 4 21 .EXPORT bar,CODE 22 .EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR 23 bar: 24 .PROC 25 .CALLINFO FRAME=128,CALLS,SAVE_RP 26 .ENTRY 27 ldil L'LC$0000,%r19 28 ldw R'LC$0000(%r19),%r26 29 stw %r2,-20(%r30) 30 .CALL ARGW0=GR 31 bl foo,%r2 32 ldo 128(%r30),%r30 33 ldw -148(%r30),%r2 34 bv %r0(%r2) 35 ldo -128(%r30),%r30 36 .EXIT 37 .PROCEND 38