1 .LEVEL 1.1 2 3curframesz .EQU 128 4; SharedStub has stack size of 128 bytes 5 6lastframesz .EQU 64 7; the StubN C++ function has a small stack size of 64 bytes 8 9 .SPACE $TEXT$,SORT=8 10 .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=0x2c,CODE_ONLY,SORT=24 11SharedStub 12 .PROC 13 .CALLINFO CALLER,FRAME=80,SAVE_RP,ARGS_SAVED 14 15 .ENTRY 16 STW %rp,-20(%sp) 17 LDO 128(%sp),%sp 18 19 STW %r19,-32(%r30) 20 STW %r26,-36-curframesz(%r30) ; save arg0 in previous frame 21 22 LDO -80(%r30),%r28 23 FSTD,MA %fr5,8(%r28) ; save darg0 24 FSTD,MA %fr7,8(%r28) ; save darg1 25 FSTW,MA %fr4L,4(%r28) ; save farg0 26 FSTW,MA %fr5L,4(%r28) ; save farg1 27 FSTW,MA %fr6L,4(%r28) ; save farg2 28 FSTW,MA %fr7L,4(%r28) ; save farg3 29 30 ; Former value of register 26 is already properly saved by StubN, 31 ; but register 25-23 are not because of the arguments mismatch 32 STW %r25,-40-curframesz-lastframesz(%r30) ; save r25 33 STW %r24,-44-curframesz-lastframesz(%r30) ; save r24 34 STW %r23,-48-curframesz-lastframesz(%r30) ; save r23 35 COPY %r26,%r25 ; method index is arg1 36 LDW -36-curframesz-lastframesz(%r30),%r26 ; self is arg0 37 LDO -40-curframesz-lastframesz(%r30),%r24 ; normal args is arg2 38 LDO -80(%r30),%r23 ; floating args is arg3 39 40 BL .+8,%r2 41 ADDIL L'PrepareAndDispatch-$PIC_pcrel$0+4,%r2 42 LDO R'PrepareAndDispatch-$PIC_pcrel$1+8(%r1),%r1 43$PIC_pcrel$0 44 LDSID (%r1),%r31 45$PIC_pcrel$1 46 MTSP %r31,%sr0 47 .CALL ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR 48;in=23-26;out=28; 49 BLE 0(%sr0,%r1) 50 COPY %r31,%r2 51 52 LDW -32(%r30),%r19 53 54 LDW -148(%sp),%rp 55 BVE (%rp) 56 .EXIT 57 LDO -128(%sp),%sp 58 59 60 .PROCEND ;in=26;out=28; 61 62 .ALIGN 8 63 .SPACE $TEXT$ 64 .SUBSPA $CODE$ 65 .IMPORT PrepareAndDispatch,CODE 66 .EXPORT SharedStub,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR,LONG_RETURN 67 .END 68 69