2008-08-22 Zoltan Varga <vargaz@gmail.com>

[mono.git] / mono / mini / tramp-sparc.c

diff --git a/mono/mini/tramp-sparc.c b/mono/mini/tramp-sparc.c
index 0dec7187e761040acb00a29fe302920ff4363fa9..ecf8579cc9707eebd9a26537872d02c1a273d3e2 100644 (file)
--- a/mono/mini/tramp-sparc.c
+++ b/mono/mini/tramp-sparc.c
@@ -21,6 +21,7 @@
 
 /*
  * mono_arch_get_unbox_trampoline:
+ * @gsctx: the generic sharing context
  * @m: method pointer
  * @addr: pointer to native code for @m
  *
@@ -29,12 +30,12 @@
  * unboxing before calling the method
  */
 gpointer
-mono_arch_get_unbox_trampoline (MonoMethod *m, gpointer addr)
+mono_arch_get_unbox_trampoline (MonoGenericSharingContext *gsctx, MonoMethod *m, gpointer addr)
 {
        guint8 *code, *start;
        int this_pos = 4, reg;
 
-       if (!mono_method_signature (m)->ret->byref && MONO_TYPE_ISSTRUCT (mono_method_signature (m)->ret))
+       if (MONO_TYPE_ISSTRUCT (mono_method_signature (m)->ret))
                this_pos = 8;
            
        start = code = mono_global_codeman_reserve (36);
@@ -58,7 +59,7 @@ mono_arch_get_unbox_trampoline (MonoMethod *m, gpointer addr)
 }
 
 void
-mono_arch_patch_callsite (guint8 *code, guint8 *addr)
+mono_arch_patch_callsite (guint8 *method_start, guint8 *code, guint8 *addr)
 {
        if (sparc_inst_op (*(guint32*)code) == 0x1) {
                sparc_call_simple (code, (guint8*)addr - (guint8*)code);
@@ -108,6 +109,17 @@ mono_arch_create_trampoline_code (MonoTrampolineType tramp_type)
        method_reg = sparc_g1;
 #endif
 
+       regs_offset = MONO_SPARC_STACK_BIAS + 1000;
+
+       /* Save r1 needed by the IMT code */
+       sparc_sti_imm (code, sparc_g1, sparc_sp, regs_offset + (sparc_g1 * sizeof (gpointer)));
+
+       /* 
+        * sparc_g5 contains the return address, the trampoline argument is stored in the
+        * instruction stream after the call.
+        */
+       sparc_ld_imm (code, sparc_g5, 8, method_reg);
+
 #ifdef SPARCV9
        /* Save fp regs since they are not preserved by calls */
        for (i = 0; i < 16; i ++)
@@ -140,26 +152,19 @@ mono_arch_create_trampoline_code (MonoTrampolineType tramp_type)
 
        code = mono_sparc_emit_save_lmf (code, lmf_offset);
 
-       regs_offset = MONO_SPARC_STACK_BIAS + 1000;
-
        if (has_caller) {
                /* Load all registers of the caller into a table inside this frame */
                /* first the out registers */
                for (i = 0; i < 8; ++i)
-                       sparc_sti_imm (code, sparc_i0 + i, sparc_sp, regs_offset + (i * sizeof (gpointer)));
+                       sparc_sti_imm (code, sparc_i0 + i, sparc_sp, regs_offset + ((sparc_o0 + i) * sizeof (gpointer)));
                /* then the in+local registers */
                for (i = 0; i < 16; i ++) {
                        sparc_ldi_imm (code, sparc_fp, MONO_SPARC_STACK_BIAS + (i * sizeof (gpointer)), sparc_o7);
-                       sparc_sti_imm (code, sparc_o7, sparc_sp, regs_offset + ((i + 8) * sizeof (gpointer)));
+                       sparc_sti_imm (code, sparc_o7, sparc_sp, regs_offset + ((sparc_l0 + i) * sizeof (gpointer)));
                }
        }
 
-       if (tramp_type == MONO_TRAMPOLINE_CLASS_INIT)
-               tramp_addr = &mono_class_init_trampoline;
-       else if (tramp_type == MONO_TRAMPOLINE_AOT)
-               tramp_addr = mono_aot_trampoline;
-       else
-               tramp_addr = &mono_magic_trampoline;
+       tramp_addr = mono_get_trampoline_func (tramp_type);
        sparc_ldi_imm (code, sparc_sp, MONO_SPARC_STACK_BIAS + 200, sparc_o2);
        /* pass address of register table as third argument */
        sparc_add_imm (code, FALSE, sparc_sp, regs_offset, sparc_o0);
@@ -176,6 +181,11 @@ mono_arch_create_trampoline_code (MonoTrampolineType tramp_type)
        /* Save result */
        sparc_sti_imm (code, sparc_o0, sparc_sp, MONO_SPARC_STACK_BIAS + 304);
 
+       /* Check for thread interruption */
+       sparc_set (code, (guint8*)mono_thread_force_interruption_checkpoint, sparc_o7);
+       sparc_jmpl (code, sparc_o7, sparc_g0, sparc_o7);
+       sparc_nop (code);
+
        /* Restore lmf */
        code = mono_sparc_emit_restore_lmf (code, lmf_offset);
 
@@ -224,7 +234,7 @@ mono_arch_create_trampoline_code (MonoTrampolineType tramp_type)
        return buf;
 }
 
-#define TRAMPOLINE_SIZE (((SPARC_SET_MAX_SIZE >> 2) * 2) + 2)
+#define TRAMPOLINE_SIZE (SPARC_SET_MAX_SIZE + 3)
 
 gpointer
 mono_arch_create_specific_trampoline (gpointer arg1, MonoTrampolineType tramp_type, MonoDomain *domain, guint32 *code_len)
@@ -239,13 +249,14 @@ mono_arch_create_specific_trampoline (gpointer arg1, MonoTrampolineType tramp_ty
 
        /* We have to use g5 here because there is no other free register */
        sparc_set (code, tramp, sparc_g5);
+       sparc_jmpl (code, sparc_g5, sparc_g0, sparc_g5);
+       sparc_nop (code);
 #ifdef SPARCV9
-       sparc_set (code, arg1, sparc_g4);
+       g_assert_not_reached ();
 #else
-       sparc_set (code, arg1, sparc_g1);
+       *code = (guint32)arg1;
+       code ++;
 #endif
-       sparc_jmpl (code, sparc_g5, sparc_g0, sparc_g0);
-       sparc_nop (code);
 
        g_assert ((code - buf) <= TRAMPOLINE_SIZE);
 
@@ -254,22 +265,15 @@ mono_arch_create_specific_trampoline (gpointer arg1, MonoTrampolineType tramp_ty
 
        mono_jit_stats.method_trampolines++;
 
-       mono_arch_flush_icache (buf, (code - buf) * 4);
+       mono_arch_flush_icache ((guint8*)buf, (code - buf) * 4);
 
        return buf;
 }      
 
-/*
- * This method is only called when running in the Mono Debugger.
- */
 gpointer
-mono_debugger_create_notification_function (MonoCodeManager *codeman)
+mono_arch_create_rgctx_lazy_fetch_trampoline (guint32 encoded_offset)
 {
-       guint8 *ptr, *buf;
-
-       ptr = buf = mono_code_manager_reserve (codeman, 16);
-
+       /* FIXME: implement! */
        g_assert_not_reached ();
-
-       return ptr;
+       return NULL;
 }