asm_vm_call_method_long:
asm_vm_call_method_float:
asm_vm_call_method_double:
+
+#if defined(ENABLE_SOFTFLOAT)
addal #(-11*4),%sp /* create stackframe to save registers */
moveml %d2/%d3/%d4/%d5/%d6/%d7/%a2/%a3/%a4/%a5/%fp,%sp@ /* save registers */
movel %sp@(11*4+1*4),%a2 /* methodinfo argument in atmp1 */
movel %sp@(11*4+3*4),%a3 /* args block */
movel %sp@(11*4+2*4),%d2 /* arg count */
+#else
+ addal #(-11*4-6*8), %sp
+ moveml %d2/%d3/%d4/%d5/%d6/%d7/%a2/%a3/%a4/%a5/%fp,%sp@ /* save registers */
+ fmovemd %fp2/%fp3/%fp4/%fp5/%fp6/%fp7,%sp@(11*4) /* save registers */
+
+ /* fetch arguments from vmargs data structure */
+ movel %sp@(11*4+6*8+1*4),%a2 /* methodinfo argument in atmp1 */
+ movel %sp@(11*4+6*8+3*4),%a3 /* args block */
+ movel %sp@(11*4+6*8+2*4),%d2 /* arg count */
+#endif
+
moveal %sp, %a5 /* memorize stack */
- tst %d2 /* do we have arguments ? */
+ tstl %d2 /* do we have arguments ? */
beq L_asm_vm_call_method_copy_done
subql #1,%d2 /* simplifies offset calulation */
addql #1, %d2
L_asm_vm_call_copy_arg:
- subql #1, %d2 /* why wasn't that here */
+ subql #1, %d2 /* decrement argument counter */
+ movel %a0@(offvmargtype+4), %d1 /* %d1 contains type of arg, vmargtype is u8 */
+
+ cmpil #2, %d1 /* float type ? */
+ bne L_asm_vm_call_copy_int
+
+ movel %a0@(offvmargdata), %d0 /* float has different endianess as int */
+ movel %d0, %sp@-
+ bra L_asm_vm_call_copy_1_word_type
+L_asm_vm_call_copy_int:
movel %a0@(offvmargdata+4), %d0
movel %d0,%sp@- /* push argument onto stack */
- movel %a0@(offvmargtype), %d0 /* %d0 contains type of arg */
- btstl #0, %d0 /* test if 2 word type */
+ btstl #0, %d1 /* test if 2 word type */
beq L_asm_vm_call_copy_1_word_type
- movel %a0@(offvmargdata), %d0 /* push second word onto stack */
+ movel %a0@(offvmargdata), %d0 /* push second word onto stack */
movel %d0,%sp@-
L_asm_vm_call_copy_1_word_type:
subl #(sizevmarg),%a0
- tst %d2 /* arguments left ? */
+ tstl %d2 /* arguments left ? */
bne L_asm_vm_call_copy_arg
L_asm_vm_call_method_copy_done:
leal asm_call_jit_compiler,%a4 /* we need to fake a invocation as it would happen from jit code */
- movel %a4, call_jit_dummy /* we need a writeable memory location */
- moveal call_jit_dummy, %a4 /* XXX do we have a race condition here ? */
+ movel %a4, call_jit_dummy /* we need a writeable memory location */
+ moveal call_jit_dummy, %a4 /* XXX do we have a race condition here ? */
jsr %a4@
L_asm_vm_call_method_return:
movel %a5, %sp /* pop arguments off stack */
+
+#if defined(ENABLE_SOFTFLOAT)
moveml %sp@, %d2/%d3/%d4/%d5/%d6/%d7/%a2/%a3/%a4/%a5/%fp /* restore registers */
addal #(11*4),%sp /* restore stack */
- rts /* return to c code */
- jsr 0 /* never come back ? */
+#else
+ fmovemd %sp@(11*4), %fp2/%fp3/%fp4/%fp5/%fp6/%fp7 /* restore registers */
+ moveml %sp@, %d2/%d3/%d4/%d5/%d6/%d7/%a2/%a3/%a4/%a5/%fp /* restore registers */
+ addal #(11*4+6*8),%sp /* restore stack */
+#endif
+ moveal %d0, %a0 /* XXX return value in %a0, too, gcc sometimes expects addresses in %a0, wired */
+asm_vm_call_method_end: /* symbol needed to insert method into avl tree */
+ rts /* return to c code */
-/* asm_vm_call_method_exception_handler
+/* asm_vm_call_method_exception_handler ********************************************************************
*
* calls void *builtin_throw_exception(java_objectheader *xptr) when no other handler is appropiate
- * this functions gets called indirectly from asm_handle_exception, which back then moved xptr to %a3
+ * this functions gets called indirectly from asm_handle_exception, which back then moved xptr to %a2
* clear software design is in the eye of the beholder.
- */
+ ************************************************************************************************************/
asm_vm_call_method_exception_handler:
- movel %a3, %sp@- /* push xptr argument */
+ movel %a2, %sp@- /* push xptr argument */
jsr builtin_throw_exception
lea %sp@(4), %sp /* pop arg off stack */
- bra L_asm_vm_call_method_return
+ jmp L_asm_vm_call_method_return
-asm_vm_call_method_end: /* symbol needed to insert method into avl tree */
- rts
-/*
+/* asm_call_jit_compiler ************************************************************************************
* Invokes compiler for untranslated java methods.
* C prototype: void asm_call_jit_compiler(void);
* BUT: this does not match reality, arguments _ARE_ passed via createcompilerstub and asm_vm_call_method...
* arguments passed via %a2(methodinfo) == REG_ATMP1
- * %a3(mptr) == REG_ATMP2
- */
+ * %a3(mptr) == REG_ATMP2
+ ************************************************************************************************************/
asm_call_jit_compiler:
addal #(-4*4),%sp /* create stackframe to save registers */
- moveml %a0/%a1/%d0/%d1,%sp@ /* save volatile registers */
-
- movel %sp@(4*4),%sp@- /* push arguments onto stack (ra)*/
- pea %sp@(4*4+4) /* the old stack pointer */
+ moveml %a0/%a1/%d0/%d1,%sp@ /* save volatile registers */
+#if !defined(ENABLE_SOFTFLOAT)
+ addal #-8*2, %sp
+ fmovemd %fp0/%fp1, %sp@
+ movel %sp@(8*4), %sp@-
+ pea %sp@(8*4+8)
+#else
+ movel %sp@(4*4), %sp@- /* push arguments onto stack (ra)*/
+ pea %sp@(4*4+8) /* the old stack pointer*/
+#endif
movel %a3,%sp@- /* mptr */
movel %a2,%sp@- /* methodinfo */
/* C prototype: u1 *jit_asm_compile(methodinfo *m, u1 *mptr, u1 *sp, u1 *ra); */
jsr jit_asm_compile /* invoke compiler */
- lea %sp@(4*4),%sp /* pop arguments off stack */
+ addal #(4*4),%sp /* pop arguments off stack */
moveal %d0, %a2 /* to tmp register */
- moveml %sp@,%a0/%a1/%d0/%d1 /* restore volatile registers */
+#if !defined(ENABLE_SOFTFLOAT)
+ fmovemd %sp@, %fp0/%fp1
+ addal #8*2, %sp
+#endif
+
+ moveml %sp@,%a0/%a1/%d0/%d1 /* restore volatile registers */
addal #(4*4),%sp /* remove stackframe */
- tstl %a2 /* check for exception */
+ tstl %a2 /* check for exception */
beq L_asm_call_jit_compiler_exception
- jmp %a2@ /* invoke java method */
- jsr 0 /* we should not ever return here */
+ jmp %a2@ /* invoke java method */
+ jsr 0 /* we should not ever return here */
L_asm_call_jit_compiler_exception:
- jsr 0 /* TODO */
+ jsr exceptions_get_and_clear_exception /* exception object in %d0 now */
+ moveal %d0, %a2 /* move exception object into sptr register */
+ moveal %sp@+, %a3 /* pop return address into exception address reg */
+ jmp asm_handle_exception /* handle exception */
- moveml %fp@(-4*4), %a0/%a1/%d0/%d1 /* restore registers */
- unlk %fp /* FIXME: this is wrong */
- rts
/* asm_patcher_wrapper ********************************************************
*******************************************************************************/
asm_patcher_wrapper:
- movel %sp, %d0
/* save scratch registers */
movel %a0, %sp@-
movel %a1, %sp@-
movel %d0, %sp@-
movel %d1, %sp@-
-#if !defined(ENABLE_SOFTFLOAT)
- movel %f0, %sp@-
- movel %f1, %sp@-
+
+#if defined(ENABLE_SOFTFLOAT)
+ /* calculate original value of sp */
+ movel %sp, %d0
+ addil #4*4, %d0
+#else
+ addal #-8*2, %sp
+ fmovemd %fp0/%fp1, %sp@
+
+ movel %sp, %d0
+ addil #8*4, %d0
#endif
clrl %sp@- /* pass ra */
clrl %sp@- /* pass pv, if null use findmethod */
movel %d0, %sp@- /* pass sp of patcher stub */
- jsr patcher_wrapper /* return value in %d0 */
-
- lea %sp@(3*4), %sp /* pop arguments off stack */
+ jsr patcher_wrapper /* return value in %d0 */
- tst %d0 /* test if exception occured */
+ lea %sp@(3*4), %sp /* pop arguments off stack */
+ tst %d0 /* test if exception occured */
bne L_asm_patcher_wrapper_exception
#if !defined(ENABLE_SOFTFLOAT)
- movel %sp@+, %f0
- movel %sp@+, %f1
+ fmovemd %sp@, %fp0/%fp1
+ addal #8*2, %sp
#endif
movel %sp@+, %d1
movel %sp@+, %d0
movel %sp@+, %a0
lea %sp@(6*4), %sp /* restore stack and remove patcher stub*/
- rts /* back to jit code */
+ rts /* back to jit code */
L_asm_patcher_wrapper_exception:
/* WARNING: the stack is still disturbed, look at asm_patcher_wrapper for details */
- jsr 0 /* TODO */
+ /* we do not need to restore the content of the registers, I hope */
+#if !defined(ENABLE_SOFTFLOAT)
+ lea %sp@(8*4), %sp
+#else
+ lea %sp@(4*4), %sp
+#endif
+
+ lea %sp@(5*4), %sp /* restore stack and remove patcher stub*/
+ movel %sp@+, %d4 /* restore REG_ITMP3, stored in emit_patcher_stubs */
+ moveal %d0, %a2 /* xptr, pointer to exception object */
+ moveal %sp@+, %a3 /* pop return address into exception address register */
+ jmp asm_handle_exception /* handle exception */
+ illegal /* XXX: we never come back */
/********************************************************************************
Reads a few values atomically.
lea %sp@(4), %sp
asm_handle_exception:
L_asm_handle_exception_stack_loop:
-
+ /* save temporary registers */
+ movel %d0, %sp@-
+ movel %d1, %sp@-
+ movel %a0, %sp@-
+ movel %a1, %sp@-
+#if !defined(ENABLE_SOFTFLOAT)
+ addal #-8*2, %sp
+ fmovemd %fp0, %sp@(0)
+ fmovemd %fp1, %sp@(8)
+#endif
+
/* we need the dseg, figure it out */
movel %a3, %sp@- /* push ra argument */
- jsr md_codegen_get_pv_from_pc /* pv in %d0 now */
+ jsr md_codegen_get_pv_from_pc /* pv in %d0 now */
movel %d0, %d2 /* move to safe register */
lea %sp@(4), %sp /* pop args off stack */
/* now call the following c function */
/* u1 *exceptions_handle_exception(java_objectheader *xptr, u1 *xpc, u1 *pv, u1 *sp) */
- movel %sp,%sp@-
+#if !defined(ENABLE_SOFTFLOAT)
+ pea %sp@(4*4 + 8*2)
+#else
+ pea %sp@(4*4)
+#endif
movel %d2,%sp@-
movel %a3,%sp@-
movel %a2,%sp@-
beq L_asm_handle_exception_not_catched
/* %d0 contains address of exception handler */
- moveal %d0, %a0
- jmp %a0@
+ moveal %d0, %a3
+
+ /* restore temporary registers */
+ moveal %sp@+, %a1
+ moveal %sp@+, %a0
+ movel %sp@+, %d1
+ movel %sp@+, %d0
+#if !defined(ENABLE_SOFTFLOAT)
+ fmovemd %fp0, %sp@(0)
+ fmovemd %fp1, %sp@(8)
+ addal #8*2, %sp
+#endif
+
+ jmp %a3@
L_asm_handle_exception_not_catched:
/* we did not find an exception handler in this stackframe */
/* remove this frame and search in the one above */
/* %a2 containts exception object ptr, %d2 the actual pv */
+
+ /* remove temporary registers stored */
+#if !defined(ENABLE_SOFTFLOAT)
+ addal #4*4 + 8*2, %sp
+#else
+ addal #4*4, %sp
+#endif
+
moveal %d2, %a3
movel %a3@(FrameSize), %d2
andil #0x0000ffff, %d0 /* this is IntSave */
cmpb #0,%d0
beq L_asm_handle_ex_int_done
- movel (%a0)+, %d7
+ movel -(%a0), %d7
cmpb #1,%d0
beq L_asm_handle_ex_int_done
- movel (%a0)+, %d6
+ movel -(%a0), %d6
cmpb #2,%d0
beq L_asm_handle_ex_int_done
- movel (%a0)+, %d5
+ movel -(%a0), %d5
L_asm_handle_ex_int_done:
movel %a3@(IntSave), %d0
andil #0xffff0000, %d0 /* this is AdrSave */
- tstl %d0
- beq L_handle_exception_nat_catched_no_adr
- moveal (%a0)+, %a5
-L_handle_exception_nat_catched_no_adr:
+ lsrl #8, %d0
+ lsrl #8, %d0
+
+ cmpb #0, %d0
+ beq L_asm_handle_ex_adr_done
+ moveal -(%a0), %fp
+
+ cmpb #1,%d0
+ beq L_asm_handle_ex_adr_done
+ moveal -(%a0), %a5
+
+L_asm_handle_ex_adr_done:
#if !defined(ENABLE_SOFTFLOAT)
- FIXME
+ movel %a3@(FltSave), %d0
+ cmpb #0,%d0
+ beq L_asm_handle_ex_flt_done
+ fmovemd %a0@(-8), %fp7
+
+ cmpb #1,%d0
+ beq L_asm_handle_ex_flt_done
+ fdmoved %a0@(-16), %fp6
+
+ cmpb #2,%d0
+ beq L_asm_handle_ex_flt_done
+ fdmoved %a0@(-24), %fp5
+
+L_asm_handle_ex_flt_done:
#else
/* nothing to do */
#endif
addal %d2, %sp /* remove old stackframe */
- moveal %sp@(0), %a3 /* make return address, new exception rasing address */
- addal #4,%sp /* remove return address fromstack */
+ moveal %sp@+, %a3 /* make return address, new exception rasing address */
subal #2, %a3 /* it was a jsr %aX, which is 4 bytes long */
jmp L_asm_handle_exception_stack_loop
illegal
.long 0x23234242
+
+
+/*
+ * These are local overrides for various environment variables in Emacs.
+ * Please do not remove this and leave it at the end of the file, where
+ * Emacs will automagically detect them.
+ * ---------------------------------------------------------------------
+ * Local variables:
+ * mode: c
+ * indent-tabs-mode: t
+ * c-basic-offset: 4
+ * tab-width: 4
+ * End:
+ * vim:noexpandtab:sw=4:ts=4:
+ */
projects / cacao.git / blobdiff