.globl asm_abstractmethoderror
-#if defined(ENABLE_REPLACEMENT)
- .globl asm_replacement_out
- .globl .asm_replacement_in
-#endif
-
.globl asm_cacheflush
b L_asm_handle_nat_exception
-#if defined(ENABLE_REPLACEMENT)
-
-/* asm_replacement_out *********************************************************
-
- This code is jumped to from the replacement-out stubs that are executed
- when a thread reaches an activated replacement point.
-
- The purpose of asm_replacement_out is to read out the parts of the
- execution state that cannot be accessed from C code, store this state,
- and then call the C function replace_me.
-
- Stack layout:
- 16 start of stack inside method to replace
- 0 rplpoint * info on the replacement point that was reached
-
- NOTE: itmp3 has been clobbered by the replacement-out stub!
-
-*******************************************************************************/
-
-/* some room to accomodate changes of the stack frame size during replacement */
- /* XXX we should find a cleaner solution here */
-#define REPLACEMENT_ROOM 512
-
-asm_replacement_out:
- /* create stack frame */
- addi sp,sp,-(sizeexecutionstate + REPLACEMENT_ROOM) /* XXX align */
-
- /* save link register */
- mflr r16
-
- /* save registers in execution state */
- std r0 ,( 0*8+offes_intregs)(sp)
- std r1 ,( 1*8+offes_intregs)(sp)
- std r2 ,( 2*8+offes_intregs)(sp)
- std r3 ,( 3*8+offes_intregs)(sp)
- std r4 ,( 4*8+offes_intregs)(sp)
- std r5 ,( 5*8+offes_intregs)(sp)
- std r6 ,( 6*8+offes_intregs)(sp)
- std r7 ,( 7*8+offes_intregs)(sp)
- std r8 ,( 8*8+offes_intregs)(sp)
- std r9 ,( 9*8+offes_intregs)(sp)
- std r10,(10*8+offes_intregs)(sp)
- std r11,(11*8+offes_intregs)(sp)
- std r12,(12*8+offes_intregs)(sp)
- std r13,(13*8+offes_intregs)(sp)
- std r14,(14*8+offes_intregs)(sp)
- std r15,(15*8+offes_intregs)(sp)
- std r16,(16*8+offes_intregs)(sp) /* link register */
- std r17,(17*8+offes_intregs)(sp)
- std r18,(18*8+offes_intregs)(sp)
- std r19,(19*8+offes_intregs)(sp)
- std r20,(20*8+offes_intregs)(sp)
- std r21,(21*8+offes_intregs)(sp)
- std r22,(22*8+offes_intregs)(sp)
- std r23,(23*8+offes_intregs)(sp)
- std r24,(24*8+offes_intregs)(sp)
- std r25,(25*8+offes_intregs)(sp)
- std r26,(26*8+offes_intregs)(sp)
- std r27,(27*8+offes_intregs)(sp)
- std r28,(28*8+offes_intregs)(sp)
- std r29,(29*8+offes_intregs)(sp)
- std r30,(30*8+offes_intregs)(sp)
- std r31,(31*8+offes_intregs)(sp)
-
- stfd fr0 ,( 0*8+offes_fltregs)(sp)
- stfd fr1 ,( 1*8+offes_fltregs)(sp)
- stfd fr2 ,( 2*8+offes_fltregs)(sp)
- stfd fr3 ,( 3*8+offes_fltregs)(sp)
- stfd fr4 ,( 4*8+offes_fltregs)(sp)
- stfd fr5 ,( 5*8+offes_fltregs)(sp)
- stfd fr6 ,( 6*8+offes_fltregs)(sp)
- stfd fr7 ,( 7*8+offes_fltregs)(sp)
- stfd fr8 ,( 8*8+offes_fltregs)(sp)
- stfd fr9 ,( 9*8+offes_fltregs)(sp)
- stfd fr10,(10*8+offes_fltregs)(sp)
- stfd fr11,(11*8+offes_fltregs)(sp)
- stfd fr12,(12*8+offes_fltregs)(sp)
- stfd fr13,(13*8+offes_fltregs)(sp)
- stfd fr14,(14*8+offes_fltregs)(sp)
- stfd fr15,(15*8+offes_fltregs)(sp)
- stfd fr16,(16*8+offes_fltregs)(sp)
- stfd fr17,(17*8+offes_fltregs)(sp)
- stfd fr18,(18*8+offes_fltregs)(sp)
- stfd fr19,(19*8+offes_fltregs)(sp)
- stfd fr20,(20*8+offes_fltregs)(sp)
- stfd fr21,(21*8+offes_fltregs)(sp)
- stfd fr22,(22*8+offes_fltregs)(sp)
- stfd fr23,(23*8+offes_fltregs)(sp)
- stfd fr24,(24*8+offes_fltregs)(sp)
- stfd fr25,(25*8+offes_fltregs)(sp)
- stfd fr26,(26*8+offes_fltregs)(sp)
- stfd fr27,(27*8+offes_fltregs)(sp)
- stfd fr28,(28*8+offes_fltregs)(sp)
- stfd fr29,(29*8+offes_fltregs)(sp)
- stfd fr30,(30*8+offes_fltregs)(sp)
- stfd fr31,(31*8+offes_fltregs)(sp)
-
- /* calculate sp of method */
- addi itmp1,sp,(sizeexecutionstate + REPLACEMENT_ROOM + 4*4)
- stw itmp1,(offes_sp)(sp)
-
- /* store pv */
- stw pv,(offes_pv)(sp)
-
- /* call replace_me */
- lwz a0,-(4*4)(itmp1) /* arg0: rplpoint * */
- mr a1,sp /* arg1: execution state */
- addi sp,sp,-(LA_SIZE_ALIGNED)
- b replace_me /* call C function replace_me */
-
-/* asm_replacement_in **********************************************************
-
- This code writes the given execution state and jumps to the replacement
- code.
-
- This function never returns!
-
- NOTE: itmp3 is not restored!
-
- C prototype:
- void asm_replacement_in(executionstate *es);
-
-*******************************************************************************/
-
-.asm_replacement_in:
- /* a0 == executionstate *es */
-
- /* set new sp and pv */
- ld sp,(offes_sp)(a0)
- ld pv,(offes_pv)(a0)
-
- /* copy registers from execution state */
- ld r0 ,( 0*8+offes_intregs)(a0)
- /* r1 is sp */
- /* r2 is reserved */
- /* a0 is loaded below */
- ld r4 ,( 4*8+offes_intregs)(a0)
- ld r5 ,( 5*8+offes_intregs)(a0)
- ld r6 ,( 6*8+offes_intregs)(a0)
- ld r7 ,( 7*8+offes_intregs)(a0)
- ld r8 ,( 8*8+offes_intregs)(a0)
- ld r9 ,( 9*8+offes_intregs)(a0)
- ld r10,(10*8+offes_intregs)(a0)
- ld r11,(11*8+offes_intregs)(a0)
- ld r12,(12*8+offes_intregs)(a0)
- /* r13 is pv */
- ld r14,(14*8+offes_intregs)(a0)
- ld r15,(15*8+offes_intregs)(a0)
- ld r16,(16*8+offes_intregs)(a0) /* link register */
- ld r17,(17*8+offes_intregs)(a0)
- ld r18,(18*8+offes_intregs)(a0)
- ld r19,(19*8+offes_intregs)(a0)
- ld r20,(20*8+offes_intregs)(a0)
- ld r21,(21*8+offes_intregs)(a0)
- ld r22,(22*8+offes_intregs)(a0)
- ld r23,(23*8+offes_intregs)(a0)
- ld r24,(24*8+offes_intregs)(a0)
- ld r25,(25*8+offes_intregs)(a0)
- ld r26,(26*8+offes_intregs)(a0)
- ld r27,(27*8+offes_intregs)(a0)
- ld r28,(28*8+offes_intregs)(a0)
- ld r29,(29*8+offes_intregs)(a0)
- ld r30,(30*8+offes_intregs)(a0)
- ld r31,(31*8+offes_intregs)(a0)
-
- lfd fr0 ,( 0*8+offes_fltregs)(a0)
- lfd fr1 ,( 1*8+offes_fltregs)(a0)
- lfd fr2 ,( 2*8+offes_fltregs)(a0)
- lfd fr3 ,( 3*8+offes_fltregs)(a0)
- lfd fr4 ,( 4*8+offes_fltregs)(a0)
- lfd fr5 ,( 5*8+offes_fltregs)(a0)
- lfd fr6 ,( 6*8+offes_fltregs)(a0)
- lfd fr7 ,( 7*8+offes_fltregs)(a0)
- lfd fr8 ,( 8*8+offes_fltregs)(a0)
- lfd fr9 ,( 9*8+offes_fltregs)(a0)
- lfd fr10,(10*8+offes_fltregs)(a0)
- lfd fr11,(11*8+offes_fltregs)(a0)
- lfd fr12,(12*8+offes_fltregs)(a0)
- lfd fr13,(13*8+offes_fltregs)(a0)
- lfd fr14,(14*8+offes_fltregs)(a0)
- lfd fr15,(15*8+offes_fltregs)(a0)
- lfd fr16,(16*8+offes_fltregs)(a0)
- lfd fr17,(17*8+offes_fltregs)(a0)
- lfd fr18,(18*8+offes_fltregs)(a0)
- lfd fr19,(19*8+offes_fltregs)(a0)
- lfd fr20,(20*8+offes_fltregs)(a0)
- lfd fr21,(21*8+offes_fltregs)(a0)
- lfd fr22,(22*8+offes_fltregs)(a0)
- lfd fr23,(23*8+offes_fltregs)(a0)
- lfd fr24,(24*8+offes_fltregs)(a0)
- lfd fr25,(25*8+offes_fltregs)(a0)
- lfd fr26,(26*8+offes_fltregs)(a0)
- lfd fr27,(27*8+offes_fltregs)(a0)
- lfd fr28,(28*8+offes_fltregs)(a0)
- lfd fr29,(29*8+offes_fltregs)(a0)
- lfd fr30,(30*8+offes_fltregs)(a0)
- lfd fr31,(31*8+offes_fltregs)(a0)
-
- /* restore link register */
-
- mtlr r16
-
- /* load new pc */
-
- ld itmp3,offes_pc(a0)
-
- /* load a0 */
-
- ld a0,(3*8+offes_intregs)(a0)
-
- /* jump to new code */
-
- mtctr itmp3
- bctr
-
-#endif /* defined(ENABLE_REPLACEMENT) */
-
/* asm_cacheflush **************************************************************
assumes 128 byte cache line size.
All registers used may be trashed for fun and profit.
projects / cacao.git / blobdiff