Changes: Edwin Steiner
- $Id: asmpart.S 7323 2007-02-11 17:52:12Z pm $
+ $Id: asmpart.S 7486 2007-03-08 13:50:07Z twisti $
*/
.globl asm_vm_call_method_float
.globl asm_vm_call_method_double
.globl asm_vm_call_method_exception_handler
+ .globl asm_vm_call_method_end
.globl asm_call_jit_compiler
.globl asm_getclassvalues_atomic
-#if 0
-asm_vm_call_method:
-asm_vm_call_method_int:
-asm_vm_call_method_long:
-asm_vm_call_method_float:
-asm_vm_call_method_double:
-#endif
-asm_vm_call_method_exception_handler:
-#if 0
-asm_call_jit_compiler:
-#endif
-asm_handle_exception:
-asm_handle_nat_exception:
asm_abstractmethoderror:
+ .long 0
asm_replacement_out:
+ .long 0
asm_replacement_in:
+ .long 0
asm_builtin_f2i:
+ .long 0
asm_builtin_f2l:
+ .long 0
asm_builtin_d2i:
+ .long 0
asm_builtin_d2l:
-asm_criticalsections:
-asm_getclassvalues_atomic:
.long 0
/********************* function asm_calljavafunction ***************************
* *
*******************************************************************************/
- .long 0 /* catch type all */
- .long 0 /* handler pc */
- .long 0 /* end pc */
- .long 0 /* start pc */
- .long 1 /* extable size */
- .long 0 /* ALIGNMENT PADDING */
- .long 0 /* line number table start */
- .long 0 /* line number table size */
- .long 0 /* ALIGNMENT PADDING */
- .long 0 /* fltsave */
- .long 0 /* intsave */
- .long 0 /* isleaf */
- .long 0 /* IsSync */
- .long 0 /* frame size */
- .long 0 /* codeinfo pointer */
-
+ .long 0 /* catch type all */
+ .long 0 /* exception handler pc */
+ .long 0 /* end pc */
+ .long 0 /* start pc */
+ .long 1 /* extable size */
+ .long 0 /* line number table start */
+ .long 0 /* line number table size */
+ .long 0 /* fltsave */
+ .long 0 /* intsave */
+ .long 0 /* IsLeaf */
+ .long 0 /* IsSync */
+ .long 0 /* frame size */
+ .long 0 /* codeinfo pointer */
asm_vm_call_method:
asm_vm_call_method_int:
96 ... on stack parameters (none)
0 - 96 register save area
-------------------------------------------------- <- SP on asm_vm_... entry
+ local variables
+ saved return address (important to be at 0(sp) because of md_stacktrace_get_returnaddress)
+----------------------------------------- <- SP after stack frame allocation
arguments on stack
---------------------------------------------------- <- SP on JIT code entry
saved return address (callee saved)
stm %r6, %r15, 24(sp) /* save callers regiters */
stm a0, a2, 8(sp) /* save arguments */
- ahi sp, -4 /* allocate stack space for local variables */
+ ahi sp, -8 /* allocate stack space for local variables */
+ st %r14, 0(sp) /* store RA once more at bottom of stack frame */
ltr a1, a1 /* maybe we have no args... */
je L_no_args
basr mptr, 0 /* store PC */
L_basr:
la mptr, L_asm_call_jit_compiler-L_basr(mptr) /* add offset to PC */
- st mptr, 0(s3) /* store on stack */
+ st mptr, 4(s3) /* store on stack */
- l itmp1, 4+8(s3) /* load methodinfo for compiler */
- la mptr, 0(s3) /* store **function in mptr for compiler */
+ l itmp1, 8+8(s3) /* load methodinfo for compiler */
+ la mptr, 4(s3) /* store **function in mptr for compiler */
/* call L_asm_call_jit_compiler like JIT code would do */
L_asm_vm_call_method_return:
- ahi sp, 4 /* remove stack space for local variables */
+ ahi sp, 8 /* remove stack space for local variables */
lm %r6, %r15, 24(sp) /* restore callers registers */
br %r14 /* return */
+asm_vm_call_method_exception_handler:
+ lr a0, xptr
+
+ bras %r14, L_avcmeh_bras
+ .long builtin_throw_exception
+L_avcmeh_bras:
+ l %r14, 0(%r14)
+ ahi sp, -96
+ basr %r14, %r14
+ ahi sp, 96
+
+ j L_asm_vm_call_method_return
+
/* .... */
L_no_args:
lr s3, sp
+ lhi s4, 0
j L_copy_done
L_handle_i0:
ld fa1, offvmargdata(itmp1)
j L_register_copy
+asm_vm_call_method_end:
+ nop
/****************** function asm_call_jit_compiler *****************************
* *
lm %r2,%r5,96(sp) /* restore volatile int arg regs */
ld %f0,96+16(sp) /* restore volatile float arg regs */
ld %f2,96+24(sp) /* restore volatile float arg regs */
- l %r14,96+32(sp) /* restore return address */
- ahi sp, ACJC_STACKFRAME /* remove stack frame */
-#if 0
- ltr v0,v0
+ ltr pv,pv
je L_asm_call_jit_compiler_exception
-#endif
+
+ l %r14,96+32(sp) /* restore return address */
+ ahi sp, ACJC_STACKFRAME /* remove stack frame */
jit_code_entry: /* label to set breakpoint on */
br pv /* call the method, it will return to the caller */
L_asm_call_jit_compiler_exception:
-#if 0
- call exceptions_get_and_clear_exception@PLT
- pop xpc /* delete return address */
- sub $3,xpc /* faulting address is ra - 3 */
- jmp L_asm_handle_exception
-#endif
- .long 0
+ bras itmp2, L_bras_acjce
+ .long exceptions_get_and_clear_exception
+L_bras_acjce:
+ l itmp2, 0(itmp2)
+ basr %r14, itmp2
+ lr xptr, %r2
+ l xpc,96+32(sp) /* restore return address */
+ ahi sp, ACJC_STACKFRAME /* remove stack frame */
+ j L_asm_handle_nat_exception
#if 0
* *
*******************************************************************************/
+#endif
+
asm_handle_nat_exception:
- add $8,sp /* clear return address of native stub*/
-
+L_asm_handle_nat_exception:
+ /* TODO really nothing here ? */
asm_handle_exception:
L_asm_handle_exception: /* required for PIC code */
- sub $((ARG_CNT+TMP_CNT)*8),sp /* create maybe-leaf stackframe */
- SAVE_ARGUMENT_REGISTERS(0) /* we save arg and temp registers in */
- SAVE_TEMPORARY_REGISTERS(ARG_CNT) /* case this is a leaf method */
+ ahi sp, -(ARGUMENT_REGISTERS_SIZE + TEMPORARY_REGISTERS_SIZE) /* create maybe-leaf stackframe */
+ STORE_ARGUMENT_REGISTERS(0)
+ STORE_TEMPORARY_REGISTERS(ARGUMENT_REGISTERS_SIZE)
+ lhi a3, (ARGUMENT_REGISTERS_SIZE + TEMPORARY_REGISTERS_SIZE) /* prepare a3 for handle_exception */
- mov $((ARG_CNT+TMP_CNT)*8),a3 /* prepare a3 for handle_exception */
- mov $1,t0 /* set maybe-leaf flag */
+ lhi %r0, 1 /* set maybe-leaf flag */
L_asm_handle_exception_stack_loop:
- sub $(6*8),sp
- mov xptr,0*8(sp) /* save exception pointer */
- mov xpc,1*8(sp) /* save exception pc */
- add sp,a3 /* calculate Java sp into a3... */
- add $(6*8),a3
- mov a3,3*8(sp) /* ...and save it */
- mov t0,4*8(sp) /* save maybe-leaf flag */
-
- mov xpc,a0 /* exception pc */
- call codegen_get_pv_from_pc@PLT
- mov v0,2*8(sp) /* save data segment pointer */
-
- mov 0*8(sp),a0 /* pass exception pointer */
- mov 1*8(sp),a1 /* pass exception pc */
- mov v0,a2 /* pass data segment pointer */
- mov 3*8(sp),a3 /* pass Java stack pointer */
- call exceptions_handle_exception@PLT
-
- test v0,v0
+ ahi sp,-(6*4)
+ st xptr,0*4(sp) /* save exception pointer */
+ st xpc,1*4(sp) /* save exception pc */
+ la a3,(6*4)(a3,sp) /* calculate Java sp into a3... */
+ st a3,3*4(sp) /* ...and save it */
+ st %r0,4*4(sp) /* save maybe-leaf flag */
+
+ lr a0,xpc /* exception pc */
+
+ ahi sp,-96 /* add register save area for C code */
+
+ bras %r14,L_ahe_bras /* call codegen_get_pv_from_pc */
+ .long codegen_get_pv_from_pc
+L_ahe_bras:
+ l %r14,0(%r14)
+ basr %r14,%r14
+ st v0,2*4+96(sp) /* save data segment pointer */
+
+ lr a2,v0 /* pass data segment pointer */
+ l a0,0*4+96(sp) /* pass exception pointer */
+ l a1,1*4+96(sp) /* pass exception pc */
+ l a3,3*4+96(sp) /* pass Java stack pointer */
+
+ bras %r14,L_ahe_bras2 /* call exceptions_handle_exception */
+ .long exceptions_handle_exception
+L_ahe_bras2:
+ l %r14,0(%r14)
+ basr %r14,%r14
+
+ ahi sp,96 /* remove regiser save area for C code */
+
+ ltr v0,v0
jz L_asm_handle_exception_not_catched
- mov v0,xpc /* move handlerpc into xpc */
- mov 0*8(sp),xptr /* restore exception pointer */
- mov 4*8(sp),t0 /* get maybe-leaf flag */
- add $(6*8),sp /* free stack frame */
+ lr xpc,v0 /* move handlerpc into xpc */
+ l xptr,0*4(sp) /* restore exception pointer */
+ l %r0,4*4(sp) /* get maybe-leaf flag */
+ ahi sp,(6*4) /* free stack frame */
- test t0,t0 /* test for maybe-leaf flag */
+ ltr %r0, %r0
jz L_asm_handle_exception_no_leaf
- RESTORE_ARGUMENT_REGISTERS(0) /* if this is a leaf method, we have */
- RESTORE_TEMPORARY_REGISTERS(ARG_CNT)/* to restore arg and temp registers */
+ LOAD_ARGUMENT_REGISTERS(0)
+ LOAD_TEMPORARY_REGISTERS(ARGUMENT_REGISTERS_SIZE)
- add $((ARG_CNT+TMP_CNT)*8),sp /* remove maybe-leaf stackframe */
+ ahi sp, (ARGUMENT_REGISTERS_SIZE + TEMPORARY_REGISTERS_SIZE) /* Remove maybe-leaf stackframe */
L_asm_handle_exception_no_leaf:
- jmp *xpc /* jump to the handler */
+ br xpc /* jump to the handler */
L_asm_handle_exception_not_catched:
- mov 0*8(sp),xptr /* restore exception pointer */
- mov 2*8(sp),itmp3 /* restore data segment pointer */
- mov 4*8(sp),t0 /* get maybe-leaf flag */
- add $(6*8),sp
+ l xptr,0*4(sp) /* restore exception pointer */
+ l itmp3,2*4(sp) /* restore data segment pointer */
+ ahi itmp3,-0xfff /* for negative displacements */
+ l %r0,4*4(sp) /* get maybe-leaf flag */
+ ahi sp,(6*4)
- test t0,t0
+ ltr %r0,%r0
jz L_asm_handle_exception_no_leaf_stack
- add $((ARG_CNT+TMP_CNT)*8),sp /* remove maybe-leaf stackframe */
- xor t0,t0 /* clear the isleaf flags */
+ ahi sp, (ARGUMENT_REGISTERS_SIZE + TEMPORARY_REGISTERS_SIZE) /* Remove maybe-leaf stackframe */
+ lhi %r0,0 /* clear the isleaf flags */
+
+ /*
+ +-----------------+-----------+---------+----+
+ | Memuse | Float Sav | Int Sav | RA |
+ | | 0 ... n | 0 ... n | |
+ +-----------------+-----------+---------+----+
+ ^ ^ ^
+ SP F I
+ */
L_asm_handle_exception_no_leaf_stack:
- mov FrameSize(itmp3),itmp2l /* get frame size */
- add sp,itmp2 /* pointer to save area */
-
- mov IntSave(itmp3),a0l /* a0l = saved int register count */
- test a0l,a0l
+
+ l itmp2,0xfff+FrameSize(itmp3)/* get frame size */
+ la itmp2,0(itmp2,sp) /* pointer to save area */
+ ahi itmp2,-4 /* skip RA */
+
+ l a0,0xfff+IntSave(itmp3) /* a0 = saved int register count */
+
+ ltr a0,a0
je noint
-
- cmp $1,a0l
+
+ sll a0,2 /* a0 = saved int register count * 4 */
+ sr itmp2, a0 /* skip Int Sav */
+
+ chi a0,1*4
je int1
- cmp $2,a0l
+ chi a0,2*4
je int2
- cmp $3,a0l
+ chi a0,3*4
je int3
- cmp $4,a0l
+ chi a0,4*4
je int4
- mov -5*8(itmp2),s0
+ l s0,0*4(itmp2)
int4:
- mov -4*8(itmp2),s1
+ l s1,1*4(itmp2)
int3:
- mov -3*8(itmp2),s2
+ l s2,2*4(itmp2)
int2:
- mov -2*8(itmp2),s3
+ l s3,3*4(itmp2)
int1:
- mov -1*8(itmp2),s4
+ l s4,4*4(itmp2)
- shl $3,a0l /* multiply by 8 bytes */
- sub a0,itmp2
-
noint:
-#if 0
- mov FltSave(itmp3),a0l /* a0l = saved flt register count */
- test a0l,a0l
+
+ l a0,0xfff+FltSave(itmp3)
+ ltr a0,a0 /* Number of saved floating point registers */
je noflt
+
+ sll a0,3 /* Number of saved floating point registers * 8 */
+ sr itmp2,a0
- cmpl $1,a0l
+ chi a0,1*8
je flt1
- cmpl $2,a0l
+ chi a0,2*8
je flt2
- cmpl $3,a0l
- je flt3
- cmpl $4,a0l
- je flt4
-
- movq -5*8(itmp2),%xmm11
-flt4:
- movq -4*8(itmp2),%xmm12
-flt3:
- movq -3*8(itmp2),%xmm13
+
flt2:
- movq -2*8(itmp2),%xmm14
+ ld %f6,1*8(itmp2)
flt1:
- movq -1*8(itmp2),%xmm15
+ ld %f4,0*8(itmp2)
noflt:
-#endif
- mov FrameSize(itmp3),itmp2l /* get frame size */
- add itmp2,sp /* unwind stack */
+
+ l itmp3,0xfff+FrameSize(itmp3)/* get frame size (at least 4 - RA) */
+ ahi itmp3,-4 /* substract 4 */
+ l xpc,0(itmp3,sp) /* load the new xpc - return address */
+ la sp, 4(itmp3,sp) /* unwind stack */
/* exception pointer is still set */
- pop xpc /* the new xpc is return address */
+#if 0
sub $3,xpc /* subtract 3 bytes for call */
+#endif
- xor a3,a3 /* prepare a3 for handle_exception */
+ lhi a3,0 /* prepare a3 for handle_exception */
- jmp L_asm_handle_exception_stack_loop
+ j L_asm_handle_exception_stack_loop
+
+#if 0
/* asm_abstractmethoderror *****************************************************
la a0, apw_sfs(sp) /* pass SP of patcher stub */
lr a1, pv /* pass PV (if NULL, use findmethod) */
- lhi a2, 0 /* pass RA (it's on the stack) */
+ lhi a2, 0 /* pass RA */
/* call patcher_wrapper */
l itmp3, 0(sp) /* restore return value */
ltr itmp3, itmp3 /* exception thrown ? */
jne L_asm_patcher_wrapper_exception /* handle exception */
- ahi sp, apw_sfs /* remove stack frame */
- l itmp3, 20(sp) /* load return address to JIT from stack */
+ l itmp3, apw_sfs + (5 * 4)(sp) /* load return address to JIT from stack */
+ ahi sp, apw_sfs + (6 * 4) /* remove stack frame, and stack frame by patcher stub */
br itmp3 /* return */
L_asm_patcher_wrapper_exception:
- .long 0
-#if 0
- mov itmp3,xptr /* get exception */
- pop xpc /* get and remove return address */
- jmp L_asm_handle_exception
-#endif
+ lr xptr,itmp3 /* get exception */
+ l xpc, apw_sfs + (5 * 4)(sp) /* load return address to JIT from stack */
+ ahi sp, apw_sfs + (6 * 4) /* remove stack frame, and stack frame by patcher stub */
+ j L_asm_handle_exception
#if 0
add $(ARG_CNT*8),sp
ret
+#endif /* if 0 */
+
+/* TODO use move here ? */
asm_getclassvalues_atomic:
_crit_restart:
_crit_begin:
- movl offbaseval(a0),itmp1l
- movl offdiffval(a0),itmp2l
- movl offbaseval(a1),itmp3l
+ l %r0,offbaseval(a0)
+ l %r1,offdiffval(a0)
+ l a3,offbaseval(a1)
_crit_end:
- movl itmp1l,offcast_super_baseval(a2)
- movl itmp2l,offcast_super_diffval(a2)
- movl itmp3l,offcast_sub_baseval(a2)
- ret
+ st %r0,offcast_super_baseval(a2)
+ st %r1,offcast_super_diffval(a2)
+ st a3,offcast_sub_baseval(a2)
+ br %r14
.data
asm_criticalsections:
#if defined(ENABLE_THREADS)
- .quad _crit_begin
- .quad _crit_end
- .quad _crit_restart
+ .long _crit_begin
+ .long _crit_end
+ .long _crit_restart
#endif
- .quad 0
+ .long 0
/* Disable exec-stacks, required for Gentoo ***********************************/
+#if 0
+
#if defined(__GCC__) && defined(__ELF__)
.section .note.GNU-stack,"",@progbits
#endif
projects / cacao.git / blobdiff