1 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
3 * Create trampolines to invoke arbitrary functions.
5 * Copyright (C) Ximian Inc.
7 * Authors: Paolo Molaro (lupus@ximian.com)
8 * Jeffrey Stedfast <fejj@ximian.com>
9 * Mark Crichton <crichton@gimp.org>
16 #include "sparc-codegen.h"
17 #include "mono/metadata/class.h"
18 #include "mono/metadata/tabledefs.h"
19 #include "mono/interpreter/interp.h"
20 #include "mono/metadata/appdomain.h"
21 #include "mono/metadata/debug-helpers.h"
22 #include "mono/metadata/marshal.h"
25 #define ARG_SIZE sizeof (stackval)
27 #define CALL_INS 3 /* Max 3. 1 for the jmpl and 1 for the nop and 1 for the possible unimp */
32 #define SLOT_SIZE sizeof(gpointer)
34 #define MINIMAL_STACK_SIZE 22
36 #define FRAME_ALIGN 16
38 #define MINIMAL_STACK_SIZE 23
43 #define NOT_IMPL(x) g_error("FIXME: %s", x);
44 /*#define DEBUG(a) a*/
47 /* Some assembly... */
49 #define flushi(addr) __asm__ __volatile__ ("flush %0"::"r"(addr):"memory")
51 static void flushi(void *addr)
58 sig_to_name (MonoMethodSignature *sig, const char *prefix)
62 GString *res = g_string_new ("");
66 g_string_append (res, prefix);
67 g_string_append_c (res, '_');
70 mono_type_get_desc (res, sig->ret, TRUE);
72 for (i = 0; i < sig->param_count; ++i) {
73 g_string_append_c (res, '_');
74 mono_type_get_desc (res, sig->params [i], TRUE);
78 /* remove chars Sun's asssembler doesn't like */
80 if (*p == '.' || *p == '/')
84 else if (*p == '[' || *p == ']')
88 g_string_free (res, FALSE);
93 sparc_disassemble_code (guint32 *code_buffer, guint32 *p, const char *id)
98 if (!(ofd = fopen ("/tmp/test.s", "w")))
99 g_assert_not_reached();
101 fprintf (ofd, "%s:\n", id);
103 for (cp = (guchar *)code_buffer; cp < (guchar *)p; cp++)
104 fprintf (ofd, ".byte %d\n", *cp);
109 system ("as /tmp/test.s -o /tmp/test.o;objdump -d /tmp/test.o");
111 /* this assumes we are using Sun tools as we aren't GCC */
113 system ("as -xarch=v9 /tmp/test.s -o /tmp/test.o;dis /tmp/test.o");
115 system ("as /tmp/test.s -o /tmp/test.o;dis /tmp/test.o");
122 add_general (guint *gr, guint *stack_size, guint *code_size, gboolean simple)
125 if (*gr >= OUT_REGS) {
126 *stack_size += SLOT_SIZE;
132 if (*gr >= OUT_REGS - 1) {
133 *stack_size += 8 + (*stack_size % 8); /* ???64 */
144 calculate_sizes (MonoMethodSignature *sig, guint *stack_size, guint *code_size,
145 gboolean string_ctor, gboolean *use_memcpy)
151 *stack_size = MINIMAL_STACK_SIZE * SLOT_SIZE;
152 *code_size = (PROLOG_INS + CALL_INS + EPILOG_INS) * 4;
154 /* function arguments */
156 add_general (&gr, stack_size, code_size, TRUE);
158 for (i = 0; i < sig->param_count; i++) {
159 if (sig->params[i]->byref) {
160 add_general (&gr, stack_size, code_size, TRUE);
163 simpletype = sig->params[i]->type;
165 switch (simpletype) {
168 (*code_size) += 4; /* for the fdtos */
173 case MONO_TYPE_BOOLEAN:
184 case MONO_TYPE_CLASS:
185 case MONO_TYPE_OBJECT:
186 case MONO_TYPE_STRING:
187 case MONO_TYPE_SZARRAY:
188 add_general (&gr, stack_size, code_size, TRUE);
190 case MONO_TYPE_VALUETYPE: {
193 if (sig->params[i]->data.klass->enumtype) {
194 simpletype = sig->params[i]->data.klass->enum_basetype->type;
197 size = mono_class_native_size (sig->params[i]->data.klass, &align);
203 DEBUG(fprintf(stderr, "copy %d byte struct on stack\n", size));
207 *stack_size = (*stack_size + (align - 1)) & (~(align -1));
208 *stack_size += (size + 3) & (~3);
214 add_general (&gr, stack_size, code_size, TRUE);
225 add_general (&gr, stack_size, code_size, FALSE);
228 g_error ("Can't trampoline 0x%x", sig->params[i]->type);
232 /* function return value */
233 if (sig->ret->byref || string_ctor) {
236 simpletype = sig->ret->type;
238 switch (simpletype) {
239 case MONO_TYPE_BOOLEAN:
249 case MONO_TYPE_CLASS:
250 case MONO_TYPE_OBJECT:
252 case MONO_TYPE_STRING:
255 case MONO_TYPE_SZARRAY:
256 case MONO_TYPE_ARRAY:
262 case MONO_TYPE_VALUETYPE: {
264 if (sig->ret->data.klass->enumtype) {
265 simpletype = sig->ret->data.klass->enum_basetype->type;
268 size = mono_class_native_size (sig->ret->data.klass, NULL);
271 *code_size += 8 + (size + 7) / 2;
282 g_error ("Can't handle as return value 0x%x", sig->ret->type);
290 *stack_size += SLOT_SIZE;
295 *stack_size = (*stack_size + (FRAME_ALIGN - 1)) & (~(FRAME_ALIGN -1));
298 static inline guint32 *
299 emit_epilog (guint32 *p, MonoMethodSignature *sig, guint stack_size)
305 * 8 may be 12 when returning structures (to skip unimp opcode).
308 if (sig != NULL && !sig->ret->byref && sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->data.klass->enumtype)
311 sparc_jmpl_imm (p, sparc_i7, ret_offset, sparc_zero);
312 sparc_restore (p, sparc_zero, sparc_zero, sparc_zero);
317 static inline guint32 *
318 emit_prolog (guint32 *p, MonoMethodSignature *sig, guint stack_size)
320 /* yes kids, it is this simple! */
321 sparc_save_imm (p, sparc_sp, -stack_size, sparc_sp);
326 #define sparc_st_ptr(a,b,c,d) sparc_stx(a,b,c,d)
327 #define sparc_st_imm_ptr(a,b,c,d) sparc_stx_imm(a,b,c,d)
328 #define sparc_ld_ptr(a,b,c,d) sparc_ldx(a,b,c,d)
329 #define sparc_ld_imm_ptr(a,b,c,d) sparc_ldx_imm(a,b,c,d)
331 #define sparc_st_ptr(a,b,c,d) sparc_st(a,b,c,d)
332 #define sparc_st_imm_ptr(a,b,c,d) sparc_st_imm(a,b,c,d)
333 #define sparc_ld_ptr(a,b,c,d) sparc_ld(a,b,c,d)
334 #define sparc_ld_imm_ptr(a,b,c,d) sparc_ld_imm(a,b,c,d)
337 /* synonyms for when values are really widened scalar values */
338 #define sparc_st_imm_word sparc_st_imm_ptr
340 #define ARG_BASE sparc_i3 /* pointer to args in i3 */
341 #define SAVE_PTR_IN_GENERIC_REGISTER \
342 if (gr < OUT_REGS) { \
343 sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr); \
346 sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0); \
347 sparc_st_imm_ptr (p, sparc_l0, sparc_sp, stack_par_pos); \
348 stack_par_pos += SLOT_SIZE; \
352 /* This is a half hearted attempt at coping with structs by value - the
353 actual convention is complicated when floats & doubles are involved as
354 you end up with fields in different registers on/off the stack.
355 It will take more time to get right... */
357 v9_struct_arg(guint32 *p, int arg_index, MonoClass *klass, int size, guint *p_gr)
359 MonoMarshalType *info = mono_marshal_load_type_info (klass);
363 sparc_ld_imm_ptr (p, ARG_BASE, arg_index*ARG_SIZE, sparc_l0);
365 if (info->fields [index].field->type->type == MONO_TYPE_R8) {
366 sparc_lddf_imm (p, sparc_l0, 0, sparc_f0 + 2 * gr);
370 sparc_ldx_imm (p, sparc_l0, 0, sparc_o0 + gr);
371 index++; /* FIXME could be multiple fields in one register */
378 if (info->fields [index].field->type->type == MONO_TYPE_R8) {
379 sparc_lddf_imm (p, sparc_l0, off, sparc_f0 + 2 * gr);
383 /* will load extra garbage off end of short structs ... */
384 sparc_ldx_imm (p, sparc_l0, off, sparc_o0 + gr);
393 static inline guint32*
394 emit_save_parameters (guint32 *p, MonoMethodSignature *sig, guint stack_size,
397 guint i, fr, gr, stack_par_pos, struct_pos, cur_struct_pos;
401 stack_par_pos = MINIMAL_STACK_SIZE * SLOT_SIZE + BIAS;
405 /* we don't need to save a thing. */
407 sparc_mov_reg_reg (p, sparc_i2, sparc_o0);
412 cur_struct_pos = struct_pos = stack_par_pos;
413 for (i = 0; i < sig->param_count; i++) {
414 if (sig->params[i]->byref)
416 if (sig->params[i]->type == MONO_TYPE_VALUETYPE &&
417 !sig->params[i]->data.klass->enumtype) {
421 size = mono_class_native_size (sig->params[i]->data.klass, &align);
428 stack_par_pos = (stack_par_pos + (align - 1)) & (~(align - 1));
429 /* need to call memcpy here */
430 sparc_add_imm (p, 0, sparc_sp, stack_par_pos, sparc_o0);
431 sparc_ld_imm_ptr (p, sparc_i3, i*16, sparc_o1);
432 sparc_set (p, (guint32)size, sparc_o2);
433 sparc_set_ptr (p, (void *)memmove, sparc_l0);
434 sparc_jmpl_imm (p, sparc_l0, 0, sparc_callsite);
436 stack_par_pos += (size + (SLOT_SIZE - 1)) & (~(SLOT_SIZE - 1));
442 if (sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->byref) {
443 MonoClass *klass = sig->ret->data.klass;
444 if (!klass->enumtype) {
445 gint size = mono_class_native_size (klass, NULL);
447 DEBUG(fprintf(stderr, "retval value type size: %d\n", size));
453 /* pass on buffer in interp.c to called function */
454 sparc_ld_imm_ptr (p, sparc_i1, 0, sparc_l0);
455 sparc_st_imm_ptr (p, sparc_l0, sparc_sp, 64);
460 DEBUG(fprintf(stderr, "%s\n", sig_to_name(sig, FALSE)));
462 for (i = 0; i < sig->param_count; i++) {
463 if (sig->params[i]->byref) {
464 SAVE_PTR_IN_GENERIC_REGISTER;
467 simpletype = sig->params[i]->type;
469 switch (simpletype) {
470 case MONO_TYPE_BOOLEAN:
479 sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
482 sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
483 sparc_st_imm_word (p, sparc_l0, sparc_sp, stack_par_pos);
484 stack_par_pos += SLOT_SIZE;
490 sparc_lddf_imm (p, ARG_BASE, i*ARG_SIZE, sparc_f30); /* fix using this fixed reg */
491 sparc_fdtos(p, sparc_f30, sparc_f0 + 2 * gr + 1);
495 /* Convert from double to single */
496 sparc_lddf_imm (p, ARG_BASE, i*ARG_SIZE, sparc_f0);
497 sparc_fdtos (p, sparc_f0, sparc_f0);
500 * FIXME: Is there an easier way to do an
503 sparc_stf_imm (p, sparc_f0, sparc_sp, stack_par_pos);
506 sparc_ld_imm (p, sparc_sp, stack_par_pos, sparc_o0 + gr);
509 sparc_ldf_imm (p, sparc_sp, stack_par_pos, sparc_f0);
510 sparc_stf_imm (p, sparc_f0, sparc_sp, stack_par_pos);
511 stack_par_pos += SLOT_SIZE;
519 case MONO_TYPE_CLASS:
520 case MONO_TYPE_OBJECT:
521 case MONO_TYPE_STRING:
522 case MONO_TYPE_SZARRAY:
523 SAVE_PTR_IN_GENERIC_REGISTER;
525 case MONO_TYPE_VALUETYPE: {
528 MonoClass *klass = sig->params[i]->data.klass;
529 if (klass->enumtype) {
530 simpletype = klass->enum_basetype->type;
533 size = mono_class_native_size (klass, &align);
537 p = v9_struct_arg(p, i, klass, size, &gr);
539 sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
540 sparc_ld_imm (p, sparc_l0, 0, sparc_l0);
541 sparc_st_imm_word (p, sparc_l0, sparc_sp, stack_par_pos);
542 stack_par_pos += SLOT_SIZE;
548 * FIXME: The 32bit ABI docs do not mention that small
549 * structures are passed in registers.
555 sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
556 sparc_ld_imm (p, sparc_l0, 0, sparc_o0 + gr);
559 sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
560 sparc_ld_imm (p, sparc_l0, 0, sparc_l0);
561 sparc_st_imm_word (p, sparc_l0, sparc_sp, stack_par_pos);
562 stack_par_pos += SLOT_SIZE;
569 cur_struct_pos = (cur_struct_pos + (align - 1)) & (~(align - 1));
571 sparc_add_imm (p, 0, sparc_sp,
572 cur_struct_pos, sparc_o0 + gr);
575 sparc_ld_imm_ptr (p, sparc_sp,
578 sparc_st_imm_ptr (p, sparc_l1,
582 cur_struct_pos += (size + (SLOT_SIZE - 1)) & (~(SLOT_SIZE - 1));
589 sparc_ldx_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
592 sparc_ldx_imm (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
593 sparc_stx_imm (p, sparc_l0, sparc_sp, stack_par_pos);
594 stack_par_pos += SLOT_SIZE;
598 sparc_lddf_imm (p, ARG_BASE, i*ARG_SIZE, sparc_f0 + 2 * i);
603 if (gr < (OUT_REGS - 1)) {
604 sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
607 sparc_ld_imm (p, ARG_BASE,
611 } else if (gr == (OUT_REGS - 1)) {
612 /* Split register/stack */
613 sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
616 sparc_ld_imm (p, ARG_BASE, (i*ARG_SIZE) + 4, sparc_l0);
617 sparc_st_imm (p, sparc_l0, sparc_sp, stack_par_pos);
618 stack_par_pos += SLOT_SIZE;
620 sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
621 sparc_st_imm (p, sparc_l0, sparc_sp, stack_par_pos);
622 stack_par_pos += SLOT_SIZE;
624 sparc_ld_imm (p, ARG_BASE, (i*ARG_SIZE) + 4, sparc_l0);
625 sparc_st_imm (p, sparc_l0, sparc_sp, stack_par_pos);
626 stack_par_pos += SLOT_SIZE;
631 g_error ("Can't trampoline 0x%x", sig->params[i]->type);
635 g_assert ((stack_par_pos - BIAS) <= stack_size);
640 static inline guint32 *
641 alloc_code_memory (guint code_size)
645 p = g_malloc(code_size);
650 static inline guint32 *
651 emit_call_and_store_retval (guint32 *p, MonoMethodSignature *sig,
652 guint stack_size, gboolean string_ctor)
657 sparc_jmpl_imm (p, sparc_i0, 0, sparc_callsite);
660 if (sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->data.klass->enumtype) {
661 int size = mono_class_native_size (sig->ret->data.klass, NULL);
662 sparc_unimp (p, size & 4095);
666 /* get return value */
667 if (sig->ret->byref || string_ctor) {
668 sparc_st_ptr (p, sparc_o0, sparc_i1, 0);
670 simpletype = sig->ret->type;
672 switch (simpletype) {
673 case MONO_TYPE_BOOLEAN:
676 sparc_stb (p, sparc_o0, sparc_i1, 0);
681 sparc_sth (p, sparc_o0, sparc_i1, 0);
685 sparc_st (p, sparc_o0, sparc_i1, 0);
689 case MONO_TYPE_CLASS:
690 case MONO_TYPE_OBJECT:
691 case MONO_TYPE_SZARRAY:
692 case MONO_TYPE_ARRAY:
693 case MONO_TYPE_STRING:
695 sparc_st_ptr (p, sparc_o0, sparc_i1, 0);
698 sparc_stf (p, sparc_f0, sparc_i1, 0);
701 sparc_stdf (p, sparc_f0, sparc_i1, 0);
705 sparc_stx (p, sparc_o0, sparc_i1, 0);
707 sparc_std (p, sparc_o0, sparc_i1, 0);
710 case MONO_TYPE_VALUETYPE: {
712 if (sig->ret->data.klass->enumtype) {
713 simpletype = sig->ret->data.klass->enum_basetype->type;
717 size = mono_class_native_size (sig->ret->data.klass, NULL);
719 int n_regs = size / 8;
721 sparc_ldx_imm (p, sparc_i1, 0, sparc_i1);
722 /* wrong if there are floating values in the struct... */
723 for (j = 0; j < n_regs; j++) {
724 sparc_stx_imm (p, sparc_o0 + j, sparc_i1, j * 8);
728 int last_reg = sparc_o0 + n_regs;
729 /* get value right aligned in register */
730 sparc_srlx_imm(p, last_reg, 64 - 8 * size, last_reg);
731 if ((size & 1) != 0) {
732 sparc_stb_imm (p, last_reg, sparc_i1, n_regs * 8 + size - 1);
735 sparc_srlx_imm(p, last_reg, 8, last_reg);
737 if ((size & 2) != 0) {
738 sparc_sth_imm (p, last_reg, sparc_i1, n_regs * 8 + size - 2);
741 sparc_srlx_imm(p, last_reg, 16, last_reg);
744 sparc_st_imm (p, last_reg, sparc_i1, n_regs * 8);
752 g_error ("Can't handle as return value 0x%x", sig->ret->type);
759 mono_arch_create_trampoline (MonoMethodSignature *sig, gboolean string_ctor)
761 guint32 *p, *code_buffer;
762 guint stack_size, code_size, i;
763 gboolean use_memcpy = FALSE;
764 static GHashTable *cache = NULL;
768 cache = g_hash_table_new ((GHashFunc)mono_signature_hash,
769 (GCompareFunc)mono_metadata_signature_equal);
771 if ((res = (MonoPIFunc)g_hash_table_lookup(cache, sig)))
774 calculate_sizes (sig, &stack_size, &code_size,
775 string_ctor, &use_memcpy);
777 p = code_buffer = alloc_code_memory (code_size);
778 p = emit_prolog (p, sig, stack_size);
779 p = emit_save_parameters (p, sig, stack_size, use_memcpy);
780 p = emit_call_and_store_retval (p, sig, stack_size, string_ctor);
781 /* we don't return structs here so pass in NULL as signature */
782 p = emit_epilog (p, NULL, stack_size);
784 g_assert(p <= code_buffer + (code_size / 4));
786 DEBUG(sparc_disassemble_code (code_buffer, p, sig_to_name(sig, NULL)));
788 /* So here's the deal...
789 * UltraSPARC will flush a whole cache line at a time
790 * BUT, older SPARCs won't.
791 * So, be compatable and flush dwords at a time...
794 for (i = 0; i < ((p - code_buffer)/2); i++)
795 flushi((code_buffer + (i*8)));
797 g_hash_table_insert(cache, sig, code_buffer);
799 return (MonoPIFunc)code_buffer;
802 #define MINV_POS (MINIMAL_STACK_SIZE * SLOT_SIZE + BIAS)
805 mono_arch_create_method_pointer (MonoMethod *method)
807 MonoMethodSignature *sig;
809 guint stack_size, code_size, stackval_arg_pos, local_pos;
810 guint i, local_start, reg_param = 0, stack_param, cpos, vt_cur;
812 guint32 *p, *code_buffer;
816 code_size = 1024; /* these should be calculated... */
820 sig = method->signature;
822 p = code_buffer = g_malloc (code_size);
824 DEBUG(fprintf(stderr, "Delegate [start emiting] %s\n", method->name));
825 DEBUG(fprintf(stderr, "%s\n", sig_to_name(sig, FALSE)));
827 p = emit_prolog (p, sig, stack_size);
829 /* fill MonoInvocation */
830 sparc_st_imm_ptr (p, sparc_g0, sparc_sp,
831 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, ex)));
832 sparc_st_imm_ptr (p, sparc_g0, sparc_sp,
833 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, ex_handler)));
834 sparc_st_imm_ptr (p, sparc_g0, sparc_sp,
835 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, parent)));
837 sparc_set_ptr (p, (void *)method, sparc_l0);
838 sparc_st_imm_ptr (p, sparc_l0, sparc_sp,
839 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, method)));
841 stackval_arg_pos = MINV_POS + sizeof (MonoInvocation);
842 local_start = local_pos = stackval_arg_pos + (sig->param_count + 1) * sizeof (stackval);
845 sparc_st_imm_ptr (p, sparc_i0, sparc_sp,
846 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, obj)));
850 if (sig->param_count) {
851 gint save_count = MIN (OUT_REGS, sig->param_count + sig->hasthis);
852 for (i = reg_param; i < save_count; i++) {
853 sparc_st_imm_ptr (p, sparc_i0 + i, sparc_sp, local_pos);
854 local_pos += SLOT_SIZE;
858 /* prepare space for valuetypes */
860 vtbuf = alloca (sizeof(int)*sig->param_count);
862 for (i = 0; i < sig->param_count; i++) {
863 MonoType *type = sig->params [i];
865 if (!sig->params[i]->byref && type->type == MONO_TYPE_VALUETYPE) {
866 MonoClass *klass = type->data.klass;
871 size = mono_class_native_size (klass, &align);
873 cpos &= ~(align - 1);
878 cpos += SLOT_SIZE - 1;
879 cpos &= ~(SLOT_SIZE - 1);
883 /* set MonoInvocation::stack_args */
884 sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos, sparc_l0);
885 sparc_st_imm_ptr (p, sparc_l0, sparc_sp,
886 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, stack_args)));
888 /* add stackval arguments */
889 for (i=0; i < sig->param_count; i++) {
892 if (reg_param < OUT_REGS) {
893 stack_offset = local_start + i * SLOT_SIZE;
896 stack_offset = stack_size + 8 + stack_param;
900 if (!sig->params[i]->byref) {
901 type = sig->params[i]->type;
908 case MONO_TYPE_STRING:
909 case MONO_TYPE_OBJECT:
910 case MONO_TYPE_CLASS:
911 case MONO_TYPE_SZARRAY:
917 stack_offset += SLOT_SIZE - 4;
922 stack_offset += SLOT_SIZE - 2;
926 case MONO_TYPE_BOOLEAN:
927 stack_offset += SLOT_SIZE - 1;
929 case MONO_TYPE_VALUETYPE:
930 if (sig->params[i]->data.klass->enumtype) {
931 type = sig->params[i]->data.klass->enum_basetype->type;
934 g_assert(vtbuf[i] >= 0);
937 g_error ("can not cope with delegate arg type %d", type);
941 sparc_add_imm (p, 0, sparc_sp, stack_offset, sparc_o2);
944 sparc_add_imm (p, 0, sparc_sp, vt_cur, sparc_o1);
945 sparc_st_imm_ptr (p, sparc_o1, sparc_sp, stackval_arg_pos);
946 sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos,
948 sparc_ld_imm_ptr (p, sparc_o2, 0, sparc_o2);
951 sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos,
955 sparc_set_ptr (p, (void *)sig->params[i], sparc_o0);
956 sparc_set (p, (guint32)sig->pinvoke, sparc_o3);
958 /* YOU make the CALL! */
959 sparc_set_ptr (p, (void *)stackval_from_data, sparc_l0);
960 sparc_jmpl_imm (p, sparc_l0, 0, sparc_callsite);
962 stackval_arg_pos += sizeof(stackval);
965 /* return value storage */
967 stackval_arg_pos = (stackval_arg_pos + (8 - 1)) & (~(8 -1));
968 if (sig->param_count) {
969 sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos, sparc_l0);
971 if (!sig->ret->byref && sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->data.klass->enumtype) {
973 /* pass on callers buffer */
974 sparc_ld_imm_ptr (p, sparc_fp, 64, sparc_l1);
975 sparc_st_imm_ptr (p, sparc_l1, sparc_l0, 0);
977 sparc_add_imm (p, 0, sparc_l0, sizeof(stackval), sparc_l1);
978 sparc_st_imm_ptr (p, sparc_l1, sparc_l0, 0);
982 sparc_st_imm_ptr (p, sparc_l0, sparc_sp,
983 (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, retval)));
985 /* call ves_exec_method */
986 sparc_add_imm (p, 0, sparc_sp, MINV_POS, sparc_o0);
987 sparc_set_ptr (p, (void *)ves_exec_method, sparc_l0);
988 sparc_jmpl_imm (p, sparc_l0, 0, sparc_callsite);
991 /* move retval from stackval to proper place (r3/r4/...) */
992 if (sig->ret->byref) {
993 sparc_ld_imm_ptr (p, sparc_sp, stackval_arg_pos, sparc_i0 );
996 switch (sig->ret->type) {
999 case MONO_TYPE_BOOLEAN:
1006 sparc_ld_imm (p, sparc_sp, stackval_arg_pos, sparc_i0);
1010 case MONO_TYPE_OBJECT:
1011 case MONO_TYPE_STRING:
1012 case MONO_TYPE_CLASS:
1013 sparc_ld_imm_ptr (p, sparc_sp, stackval_arg_pos, sparc_i0);
1018 sparc_ldx_imm (p, sparc_sp, stackval_arg_pos, sparc_i0);
1020 sparc_ld_imm (p, sparc_sp, stackval_arg_pos, sparc_i0);
1021 sparc_ld_imm (p, sparc_sp, stackval_arg_pos + 4, sparc_i1);
1025 sparc_lddf_imm (p, sparc_sp, stackval_arg_pos, sparc_f0);
1026 sparc_fdtos(p, sparc_f0, sparc_f0);
1029 sparc_lddf_imm (p, sparc_sp, stackval_arg_pos, sparc_f0);
1031 case MONO_TYPE_VALUETYPE: {
1033 gint reg = sparc_i0;
1034 if (sig->ret->data.klass->enumtype) {
1035 simpletype = sig->ret->data.klass->enum_basetype->type;
1039 size = mono_class_native_size (sig->ret->data.klass, NULL);
1040 sparc_ldx_imm (p, sparc_sp, stackval_arg_pos, sparc_l0);
1044 sparc_ldx_imm (p, sparc_l0, 0, reg);
1050 sparc_ldx_imm (p, sparc_l0, off, reg);
1052 NOT_IMPL("value type as ret val from delegate");
1057 g_error ("Type 0x%x not handled yet in thunk creation",
1063 p = emit_epilog (p, sig, stack_size);
1065 for (i = 0; i < ((p - code_buffer)/2); i++)
1066 flushi((code_buffer + (i*8)));
1068 ji = g_new0 (MonoJitInfo, 1);
1069 ji->method = method;
1070 ji->code_size = p - code_buffer;
1071 ji->code_start = code_buffer;
1073 mono_jit_info_table_add (mono_get_root_domain (), ji);
1075 DEBUG(sparc_disassemble_code (code_buffer, p, method->name));
1077 DEBUG(fprintf(stderr, "Delegate [end emiting] %s\n", method->name));
1079 return ji->code_start;