| %default { "chaintgt" : ".LinvokeChain" } |
| /* |
| * For monomorphic callsite, setup the Dalvik frame and return to the |
| * Thumb code through the link register to transfer control to the callee |
| * method through a dedicated chaining cell. |
| */ |
| # a0 = methodToCall, a1 = returnCell, rPC = dalvikCallsite |
| # methodToCall is guaranteed to be non-native |
| $chaintgt: |
| lh t7, offMethod_registersSize(a0) # t7<- methodToCall->regsSize |
| lh a2, offMethod_outsSize(a0) # a2<- methodToCall->outsSize |
| lw t9, offThread_interpStackEnd(rSELF) # t9<- interpStackEnd |
| lbu t8, offThread_breakFlags(rSELF) # t8<- breakFlags |
| move a3, a1 # a3<- returnCell |
| SAVEAREA_FROM_FP(a1, rFP) # a1<- stack save area |
| sll t6, t7, 2 # multiply regsSize by 4 (4 bytes per reg) |
| sub a1, a1, t6 # a1<- newFp(old savearea-regsSize) |
| SAVEAREA_FROM_FP(t0, a1) # t0<- stack save area |
| add t2, ra, 8 # setup the punt-to-interp address |
| # 8 bytes skips branch and delay slot |
| sll t6, a2, 2 # multiply outsSize by 4 (4 bytes per reg) |
| sub t0, t0, t6 # t0<- bottom (newsave-outsSize) |
| bgeu t0, t9, 1f # bottom < interpStackEnd? |
| jr t2 # return to raise stack overflow excep. |
| |
| 1: |
| # a1 = newFP, a0 = methodToCall, a3 = returnCell, rPC = dalvikCallsite |
| lw t9, offMethod_clazz(a0) # t9<- methodToCall->clazz |
| sw rPC, (offStackSaveArea_currentPc - sizeofStackSaveArea)(rFP) |
| sw rPC, (offStackSaveArea_savedPc - sizeofStackSaveArea)(a1) |
| lw rPC, offMethod_insns(a0) # rPC<- methodToCall->insns |
| |
| # set up newSaveArea |
| sw rFP, (offStackSaveArea_prevFrame - sizeofStackSaveArea)(a1) |
| sw a3, (offStackSaveArea_returnAddr - sizeofStackSaveArea)(a1) |
| sw a0, (offStackSaveArea_method - sizeofStackSaveArea)(a1) |
| beqz t8, 2f # breakFlags != 0 |
| jr t2 # bail to the interpreter |
| |
| 2: |
| lw a3, offClassObject_pDvmDex(t9) # a3<- methodToCall->clazz->pDvmDex |
| |
| # Update "thread" values for the new method |
| sw a0, offThread_method(rSELF) # self->method = methodToCall |
| sw a3, offThread_methodClassDex(rSELF) # self->methodClassDex = ... |
| move rFP, a1 # fp = newFp |
| sw rFP, offThread_curFrame(rSELF) # self->curFrame = newFp |
| #if defined(TEMPLATE_INLINE_PROFILING) |
| # preserve a0-a2 and ra |
| SCRATCH_STORE(a0, 0) |
| SCRATCH_STORE(a1, 4) |
| SCRATCH_STORE(a2, 8) |
| SCRATCH_STORE(ra, 12) |
| |
| move a1, rSELF |
| # a0=methodToCall, a1=rSELF |
| la t9, dvmFastMethodTraceEnter |
| jalr t9 |
| lw gp, STACK_OFFSET_GP(sp) |
| |
| # restore a0-a2 and ra |
| SCRATCH_LOAD(ra, 12) |
| SCRATCH_LOAD(a2, 8) |
| SCRATCH_LOAD(a1, 4) |
| SCRATCH_LOAD(a0, 0) |
| #endif |
| RETURN # return to the callee-chaining cell |
