コード例 #1
0
ファイル: tramp.c プロジェクト: ANahr/mono
MonoPIFunc
mono_arch_create_trampoline (MonoMethodSignature *sig, gboolean string_ctor)
{
	guint32 *p, *code_buffer;
	guint stack_size, code_size, i;
	gboolean use_memcpy = FALSE;
	static GHashTable *cache = NULL;
	MonoPIFunc res;

	if (!cache)
		cache = g_hash_table_new ((GHashFunc)mono_signature_hash,
				 (GCompareFunc)mono_metadata_signature_equal);
	
	if ((res = (MonoPIFunc)g_hash_table_lookup(cache, sig)))
		return res;

	calculate_sizes (sig, &stack_size, &code_size, 
			 string_ctor, &use_memcpy);

	p = code_buffer = alloc_code_memory (code_size);
	p = emit_prolog (p, sig, stack_size);
	p = emit_save_parameters (p, sig, stack_size, use_memcpy);
	p = emit_call_and_store_retval (p, sig, stack_size, string_ctor);
	/* we don't return structs here so pass in NULL as signature */
	p = emit_epilog (p, NULL, stack_size);

	g_assert(p <= code_buffer + (code_size / 4));
	
	DEBUG(sparc_disassemble_code (code_buffer, p, sig_to_name(sig, NULL)));

	/* So here's the deal...
	 * UltraSPARC will flush a whole cache line at a time
	 * BUT, older SPARCs won't.
	 * So, be compatable and flush dwords at a time...
	 */

	for (i = 0; i < ((p - code_buffer)/2); i++)
		flushi((code_buffer + (i*8)));

	g_hash_table_insert(cache, sig, code_buffer);

	return (MonoPIFunc)code_buffer;
}
コード例 #2
0
ファイル: signal.c プロジェクト: beichentianyun/luabuild
static void lua_signal_handler(lua_State* L, lua_Debug* D)
{
    sigset_t sset, oldset;
    int sig;

    lua_sethook(gL, old_hook, old_mask, old_count);

    sigfillset(&sset);
    sigprocmask(SIG_BLOCK, &sset, &oldset);

    while ((sig = dequeue(&q)) != -1) {
        const char* signame;

        signame = sig_to_name(sig);
        lua_getfield(gL, LUA_REGISTRYINDEX, REG_TABLE);
        lua_getfield(gL, -1, signame);
        lua_pushstring(gL, signame);
        sigprocmask(SIG_SETMASK, &oldset, NULL);
        lua_call(gL, 1, 0);
        sigprocmask(SIG_BLOCK, &sset, &oldset);
    }

    sigprocmask(SIG_SETMASK, &oldset, NULL);
}
コード例 #3
0
ファイル: tramp.c プロジェクト: ANahr/mono
void *
mono_arch_create_method_pointer (MonoMethod *method)
{
	MonoMethodSignature *sig;
	MonoJitInfo *ji;
	guint stack_size, code_size, stackval_arg_pos, local_pos;
	guint i, local_start, reg_param = 0, stack_param, cpos, vt_cur;
	guint32 align = 0;
	guint32 *p, *code_buffer;
	gint *vtbuf;
	gint32 simpletype;

	code_size = 1024; /* these should be calculated... */
	stack_size = 1024;
	stack_param = 0;

	sig = method->signature;

	p = code_buffer = g_malloc (code_size);

	DEBUG(fprintf(stderr, "Delegate [start emiting] %s\n", method->name));
	DEBUG(fprintf(stderr, "%s\n", sig_to_name(sig, FALSE)));

	p = emit_prolog (p, sig, stack_size);

	/* fill MonoInvocation */
	sparc_st_imm_ptr (p, sparc_g0, sparc_sp,
		  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, ex)));
	sparc_st_imm_ptr (p, sparc_g0, sparc_sp,
		  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, ex_handler)));
	sparc_st_imm_ptr (p, sparc_g0, sparc_sp,
		  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, parent)));

	sparc_set_ptr (p, (void *)method, sparc_l0);
	sparc_st_imm_ptr (p, sparc_l0, sparc_sp,
		  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, method)));

	stackval_arg_pos = MINV_POS + sizeof (MonoInvocation);
	local_start = local_pos = stackval_arg_pos + (sig->param_count + 1) * sizeof (stackval);

	if (sig->hasthis) {
		sparc_st_imm_ptr (p, sparc_i0, sparc_sp,
			  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, obj)));
		reg_param = 1;
	} 

	if (sig->param_count) {
		gint save_count = MIN (OUT_REGS, sig->param_count + sig->hasthis);
		for (i = reg_param; i < save_count; i++) {
			sparc_st_imm_ptr (p, sparc_i0 + i, sparc_sp, local_pos);
			local_pos += SLOT_SIZE;
		}
	}

	/* prepare space for valuetypes */
        vt_cur = local_pos;
        vtbuf = alloca (sizeof(int)*sig->param_count);
        cpos = 0;
        for (i = 0; i < sig->param_count; i++) {
                MonoType *type = sig->params [i];
                vtbuf [i] = -1;
                if (!sig->params[i]->byref && type->type == MONO_TYPE_VALUETYPE) {
                        MonoClass *klass = type->data.klass;
                        gint size;
			
                        if (klass->enumtype)
                                continue;
                        size = mono_class_native_size (klass, &align);
                        cpos += align - 1;
                        cpos &= ~(align - 1);
                        vtbuf [i] = cpos;
                        cpos += size;
                }
        }
        cpos += SLOT_SIZE - 1;
        cpos &= ~(SLOT_SIZE - 1);
	
	local_pos += cpos;
	
	/* set MonoInvocation::stack_args */
	sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos, sparc_l0);
	sparc_st_imm_ptr (p, sparc_l0, sparc_sp,
		  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, stack_args)));

	/* add stackval arguments */
	for (i=0; i < sig->param_count; i++) {
		int stack_offset;
		int type;
		if (reg_param < OUT_REGS) {
			stack_offset = local_start + i * SLOT_SIZE;
			reg_param++;
		} else {
			stack_offset = stack_size + 8 + stack_param;
			stack_param++;
		}

		if (!sig->params[i]->byref) {
			type = sig->params[i]->type;
		enum_arg:
			switch (type) {
			case MONO_TYPE_I8:
			case MONO_TYPE_U8:
			case MONO_TYPE_I:
			case MONO_TYPE_U:
			case MONO_TYPE_STRING:
			case MONO_TYPE_OBJECT:
			case MONO_TYPE_CLASS:
			case MONO_TYPE_SZARRAY:
			case MONO_TYPE_PTR:
			case MONO_TYPE_R8:
				break;
			case MONO_TYPE_I4:
			case MONO_TYPE_U4:
				stack_offset += SLOT_SIZE - 4;
				break;
			case MONO_TYPE_CHAR:
			case MONO_TYPE_I2:
			case MONO_TYPE_U2:
				stack_offset += SLOT_SIZE - 2;
				break;
			case MONO_TYPE_I1:
			case MONO_TYPE_U1:
			case MONO_TYPE_BOOLEAN:
				stack_offset += SLOT_SIZE - 1;
				break;
	                case MONO_TYPE_VALUETYPE:
	                        if (sig->params[i]->data.klass->enumtype) {
	                                type = sig->params[i]->data.klass->enum_basetype->type;
	                                goto enum_arg;
	                        }
				g_assert(vtbuf[i] >= 0);
	                        break;
			default:
				g_error ("can not cope with delegate arg type %d", type);
			}
		}
	
		sparc_add_imm (p, 0, sparc_sp, stack_offset, sparc_o2);

		if (vtbuf[i] >= 0) {
			sparc_add_imm (p, 0, sparc_sp, vt_cur, sparc_o1);
			sparc_st_imm_ptr (p, sparc_o1, sparc_sp, stackval_arg_pos);
			sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos, 
				       sparc_o1);
			sparc_ld_imm_ptr (p, sparc_o2, 0, sparc_o2);
			vt_cur += vtbuf[i];
		} else {
			sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos, 
				       sparc_o1);
		}

		sparc_set_ptr (p, (void *)sig->params[i], sparc_o0);
		sparc_set (p, (guint32)sig->pinvoke, sparc_o3);

		/* YOU make the CALL! */
		sparc_set_ptr (p, (void *)stackval_from_data, sparc_l0);
		sparc_jmpl_imm (p, sparc_l0, 0, sparc_callsite);
		sparc_nop (p);
                stackval_arg_pos += sizeof(stackval);
	}

	/* return value storage */
	/* Align to dword */
	stackval_arg_pos = (stackval_arg_pos + (8 - 1)) & (~(8 -1));
	if (sig->param_count) {
		sparc_add_imm (p, 0, sparc_sp, stackval_arg_pos, sparc_l0);
	}
	if (!sig->ret->byref && sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->data.klass->enumtype) {
#if !SPARCV9
		/* pass on callers buffer */
		sparc_ld_imm_ptr (p, sparc_fp, 64, sparc_l1);
		sparc_st_imm_ptr (p, sparc_l1, sparc_l0, 0);
#else
		sparc_add_imm (p, 0, sparc_l0, sizeof(stackval), sparc_l1);
		sparc_st_imm_ptr (p, sparc_l1, sparc_l0, 0);
#endif
	}

	sparc_st_imm_ptr (p, sparc_l0, sparc_sp,
		  (MINV_POS + G_STRUCT_OFFSET (MonoInvocation, retval)));

	/* call ves_exec_method */
	sparc_add_imm (p, 0, sparc_sp, MINV_POS, sparc_o0);
	sparc_set_ptr (p, (void *)ves_exec_method, sparc_l0);
	sparc_jmpl_imm (p, sparc_l0, 0, sparc_callsite);
	sparc_nop (p);

	/* move retval from stackval to proper place (r3/r4/...) */
        if (sig->ret->byref) {
		sparc_ld_imm_ptr (p, sparc_sp, stackval_arg_pos, sparc_i0 );
        } else {
        enum_retvalue:
                switch (sig->ret->type) {
                case MONO_TYPE_VOID:
                        break;
                case MONO_TYPE_BOOLEAN:
                case MONO_TYPE_I1:
                case MONO_TYPE_U1:
                case MONO_TYPE_I2:
                case MONO_TYPE_U2:
                case MONO_TYPE_I4:
                case MONO_TYPE_U4:
                        sparc_ld_imm (p, sparc_sp, stackval_arg_pos, sparc_i0);
                        break;
                case MONO_TYPE_I:
                case MONO_TYPE_U:
                case MONO_TYPE_OBJECT:
		case MONO_TYPE_STRING:
                case MONO_TYPE_CLASS:
                        sparc_ld_imm_ptr (p, sparc_sp, stackval_arg_pos, sparc_i0);
                        break;
                case MONO_TYPE_I8:
                case MONO_TYPE_U8:
#if SPARCV9
                        sparc_ldx_imm (p, sparc_sp, stackval_arg_pos, sparc_i0);
#else
                        sparc_ld_imm (p, sparc_sp, stackval_arg_pos, sparc_i0);
                        sparc_ld_imm (p, sparc_sp, stackval_arg_pos + 4, sparc_i1);
#endif
                        break;
                case MONO_TYPE_R4:
                        sparc_lddf_imm (p, sparc_sp, stackval_arg_pos, sparc_f0);
			sparc_fdtos(p, sparc_f0, sparc_f0);
                        break;
                case MONO_TYPE_R8:
                        sparc_lddf_imm (p, sparc_sp, stackval_arg_pos, sparc_f0);
                        break;
                case MONO_TYPE_VALUETYPE: {
			gint size;
			gint reg = sparc_i0;
                        if (sig->ret->data.klass->enumtype) {
                                simpletype = sig->ret->data.klass->enum_basetype->type;
                                goto enum_retvalue;
                        }
#if SPARCV9
                        size = mono_class_native_size (sig->ret->data.klass, NULL);
                        sparc_ldx_imm (p, sparc_sp, stackval_arg_pos, sparc_l0);
			if (size <= 16) {
				gint off = 0;
				if (size >= 8) {
		                        sparc_ldx_imm (p, sparc_l0, 0, reg);
					size -= 8;
					off += 8;
					reg++;
				}
				if (size > 0)
		                        sparc_ldx_imm (p, sparc_l0, off, reg);
			} else
	                        NOT_IMPL("value type as ret val from delegate");
#endif
                        break;
		}
                default: 
			g_error ("Type 0x%x not handled yet in thunk creation",
				 sig->ret->type);
                        break;
                }
        }

	p = emit_epilog (p, sig, stack_size);

	for (i = 0; i < ((p - code_buffer)/2); i++)
		flushi((code_buffer + (i*8)));
	
	ji = g_new0 (MonoJitInfo, 1);
        ji->method = method;
        ji->code_size = p - code_buffer;
	ji->code_start = code_buffer;
	
	mono_jit_info_table_add (mono_get_root_domain (), ji);

	DEBUG(sparc_disassemble_code (code_buffer, p, method->name));

	DEBUG(fprintf(stderr, "Delegate [end emiting] %s\n", method->name));

	return ji->code_start;
}
コード例 #4
0
ファイル: tramp.c プロジェクト: ANahr/mono
static inline guint32*
emit_save_parameters (guint32 *p, MonoMethodSignature *sig, guint stack_size,
		      gboolean use_memcpy)
{
	guint i, fr, gr, stack_par_pos, struct_pos, cur_struct_pos;
	guint32 simpletype;

	fr = gr = 0;
	stack_par_pos = MINIMAL_STACK_SIZE * SLOT_SIZE + BIAS;

	if (sig->hasthis) {
		if (use_memcpy) {
			/* we don't need to save a thing. */
		} else 
			sparc_mov_reg_reg (p, sparc_i2, sparc_o0);
		gr ++;
	}

	if (use_memcpy) {
		cur_struct_pos = struct_pos = stack_par_pos;
		for (i = 0; i < sig->param_count; i++) {
			if (sig->params[i]->byref)
				continue;
			if (sig->params[i]->type == MONO_TYPE_VALUETYPE &&
			    !sig->params[i]->data.klass->enumtype) {
				gint size;
				guint32 align;
				
				size = mono_class_native_size (sig->params[i]->data.klass, &align);
#if SPARCV9
				if (size != 4) {
#else
				if (1) {
#endif
					/* Add alignment */
					stack_par_pos = (stack_par_pos + (align - 1)) & (~(align - 1));
					/* need to call memcpy here */
					sparc_add_imm (p, 0, sparc_sp, stack_par_pos, sparc_o0);
					sparc_ld_imm_ptr (p, sparc_i3, i*16, sparc_o1);
					sparc_set (p, (guint32)size, sparc_o2);
					sparc_set_ptr (p, (void *)memmove, sparc_l0);
					sparc_jmpl_imm (p, sparc_l0, 0, sparc_callsite);
					sparc_nop (p);
					stack_par_pos += (size + (SLOT_SIZE - 1)) & (~(SLOT_SIZE - 1));
				}
			}
		}
	}

	if (sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->byref) {
		MonoClass *klass = sig->ret->data.klass;
		if (!klass->enumtype) {
			gint size = mono_class_native_size (klass, NULL);

			DEBUG(fprintf(stderr, "retval value type size: %d\n", size));
#if SPARCV9
			if (size > 32) {
#else
			{
#endif
				/* pass on buffer in interp.c to called function */
				sparc_ld_imm_ptr (p, sparc_i1, 0, sparc_l0);
				sparc_st_imm_ptr (p, sparc_l0, sparc_sp, 64);
			}
		}
	}

	DEBUG(fprintf(stderr, "%s\n", sig_to_name(sig, FALSE)));

	for (i = 0; i < sig->param_count; i++) {
		if (sig->params[i]->byref) {
			SAVE_PTR_IN_GENERIC_REGISTER;
			continue;
		}
		simpletype = sig->params[i]->type;
	enum_calc_size:
		switch (simpletype) {
		case MONO_TYPE_BOOLEAN:
                case MONO_TYPE_I1:
                case MONO_TYPE_U1:
                case MONO_TYPE_I2:
                case MONO_TYPE_U2:
                case MONO_TYPE_CHAR:
                case MONO_TYPE_I4:
                case MONO_TYPE_U4:
                        if (gr < OUT_REGS) {
                                sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
                                gr++;
                        } else {
                                sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
                                sparc_st_imm_word (p, sparc_l0, sparc_sp, stack_par_pos);
                                stack_par_pos += SLOT_SIZE;
                        }
                        break;

		case MONO_TYPE_R4:
#if SPARCV9
			sparc_lddf_imm (p, ARG_BASE, i*ARG_SIZE, sparc_f30); /* fix using this fixed reg */
			sparc_fdtos(p, sparc_f30, sparc_f0 + 2 * gr + 1);
			gr++;
			break;
#else
			/* Convert from double to single */
			sparc_lddf_imm (p, ARG_BASE, i*ARG_SIZE, sparc_f0);
			sparc_fdtos (p, sparc_f0, sparc_f0);

			/*
			 * FIXME: Is there an easier way to do an
			 * freg->ireg move ?
			 */
			sparc_stf_imm (p, sparc_f0, sparc_sp, stack_par_pos);

			if (gr < OUT_REGS) {
				sparc_ld_imm (p, sparc_sp, stack_par_pos, sparc_o0 + gr);
				gr++;
			} else {
				sparc_ldf_imm (p, sparc_sp, stack_par_pos, sparc_f0);
				sparc_stf_imm (p, sparc_f0, sparc_sp, stack_par_pos);
				stack_par_pos += SLOT_SIZE;
			}
			break;
#endif

                case MONO_TYPE_I:
                case MONO_TYPE_U:
                case MONO_TYPE_PTR:
                case MONO_TYPE_CLASS:
                case MONO_TYPE_OBJECT:
                case MONO_TYPE_STRING:
                case MONO_TYPE_SZARRAY:
			SAVE_PTR_IN_GENERIC_REGISTER;
			break;
		case MONO_TYPE_VALUETYPE: {
			gint size;
			guint32 align;
			MonoClass *klass = sig->params[i]->data.klass;
			if (klass->enumtype) {
				simpletype = klass->enum_basetype->type;
				goto enum_calc_size;
			}
			size = mono_class_native_size (klass, &align);
#if SPARCV9
			if (size <= 16) {
				if (gr < OUT_REGS) {
					p = v9_struct_arg(p, i, klass, size, &gr);
				} else {
					sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
					sparc_ld_imm (p, sparc_l0, 0, sparc_l0);
					sparc_st_imm_word (p, sparc_l0, sparc_sp, stack_par_pos);
					stack_par_pos += SLOT_SIZE;
				}
				break;
			}
#else
			/* 
			 * FIXME: The 32bit ABI docs do not mention that small
			 * structures are passed in registers.
			 */

			/*
			if (size == 4) {
				if (gr < OUT_REGS) {
					sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
					sparc_ld_imm (p, sparc_l0, 0, sparc_o0 + gr);
					gr++;
				} else {
					sparc_ld_imm_ptr (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
					sparc_ld_imm (p, sparc_l0, 0, sparc_l0);
					sparc_st_imm_word (p, sparc_l0, sparc_sp, stack_par_pos);
					stack_par_pos += SLOT_SIZE;
				}
				break;
			}
			*/
#endif

			cur_struct_pos = (cur_struct_pos + (align - 1)) & (~(align - 1));
			if (gr < OUT_REGS) {
				sparc_add_imm (p, 0, sparc_sp,
					       cur_struct_pos, sparc_o0 + gr);
				gr ++;
			} else {
				sparc_ld_imm_ptr (p, sparc_sp,
						  cur_struct_pos,
						  sparc_l1);
				sparc_st_imm_ptr (p, sparc_l1,
						  sparc_sp,
						  stack_par_pos);
			}
			cur_struct_pos += (size + (SLOT_SIZE - 1)) & (~(SLOT_SIZE - 1));
			break;
		}

#if SPARCV9
		case MONO_TYPE_I8:
			if (gr < OUT_REGS) {
				sparc_ldx_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
				gr++;
			} else {
				sparc_ldx_imm (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
				sparc_stx_imm (p, sparc_l0, sparc_sp, stack_par_pos);
				stack_par_pos += SLOT_SIZE;
			}
			break;
		case MONO_TYPE_R8:
			sparc_lddf_imm (p, ARG_BASE, i*ARG_SIZE, sparc_f0 + 2 * i);
			break;
#else
		case MONO_TYPE_I8:
		case MONO_TYPE_R8:
			if (gr < (OUT_REGS - 1)) {
				sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
				gr ++;
				
				sparc_ld_imm (p, ARG_BASE, 
					      (i*ARG_SIZE) + 4,
					      sparc_o0 + gr);
				gr ++;
			} else if (gr == (OUT_REGS - 1)) {
				/* Split register/stack */
				sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_o0 + gr);
				gr ++;

				sparc_ld_imm (p, ARG_BASE, (i*ARG_SIZE) + 4, sparc_l0);
				sparc_st_imm (p, sparc_l0, sparc_sp, stack_par_pos);
				stack_par_pos += SLOT_SIZE;
			} else {
				sparc_ld_imm (p, ARG_BASE, i*ARG_SIZE, sparc_l0);
				sparc_st_imm (p, sparc_l0, sparc_sp, stack_par_pos);
				stack_par_pos += SLOT_SIZE;

				sparc_ld_imm (p, ARG_BASE, (i*ARG_SIZE) + 4, sparc_l0);
				sparc_st_imm (p, sparc_l0, sparc_sp, stack_par_pos);
				stack_par_pos += SLOT_SIZE;
			}
			break;
#endif
		default:
			g_error ("Can't trampoline 0x%x", sig->params[i]->type);
		}
	}

	g_assert ((stack_par_pos - BIAS) <= stack_size);

	return p;
}

static inline guint32 *
alloc_code_memory (guint code_size)
{
	guint32 *p;

	p = g_malloc(code_size);

	return p;
}

static inline guint32 *
emit_call_and_store_retval (guint32 *p, MonoMethodSignature *sig,
			    guint stack_size, gboolean string_ctor)
{
	guint32 simpletype;

	/* call "callme" */
	sparc_jmpl_imm (p, sparc_i0, 0, sparc_callsite);
	sparc_nop (p);
#if !SPARCV9
	if (sig->ret->type == MONO_TYPE_VALUETYPE && !sig->ret->data.klass->enumtype) {
		int size = mono_class_native_size (sig->ret->data.klass, NULL);
		sparc_unimp (p, size & 4095);
	}
#endif

	/* get return value */
	if (sig->ret->byref || string_ctor) {
		sparc_st_ptr (p, sparc_o0, sparc_i1, 0);
	} else {
		simpletype = sig->ret->type;
	enum_retval:
		switch (simpletype) {
		case MONO_TYPE_BOOLEAN:
                case MONO_TYPE_I1:
                case MONO_TYPE_U1:
                        sparc_stb (p, sparc_o0, sparc_i1, 0);
                        break;
                case MONO_TYPE_CHAR:
                case MONO_TYPE_I2:
                case MONO_TYPE_U2:
                        sparc_sth (p, sparc_o0, sparc_i1, 0);
                        break;
                case MONO_TYPE_I4:
                case MONO_TYPE_U4:
                        sparc_st (p, sparc_o0, sparc_i1, 0);
                        break;
                case MONO_TYPE_I:
                case MONO_TYPE_U:
                case MONO_TYPE_CLASS:
                case MONO_TYPE_OBJECT:
                case MONO_TYPE_SZARRAY:
                case MONO_TYPE_ARRAY:
                case MONO_TYPE_STRING:
                case MONO_TYPE_PTR:
                        sparc_st_ptr (p, sparc_o0, sparc_i1, 0);
                        break;
                case MONO_TYPE_R4:
                        sparc_stf (p, sparc_f0, sparc_i1, 0);
                        break;
                case MONO_TYPE_R8:
                        sparc_stdf (p, sparc_f0, sparc_i1, 0);
                        break;
                case MONO_TYPE_I8:
#if SPARCV9
                        sparc_stx (p, sparc_o0, sparc_i1, 0);
#else
                        sparc_std (p, sparc_o0, sparc_i1, 0);
#endif
                        break;
                case MONO_TYPE_VALUETYPE: {
			gint size;
                        if (sig->ret->data.klass->enumtype) {
                                simpletype = sig->ret->data.klass->enum_basetype->type;
                                goto enum_retval;
                        }
#if SPARCV9
			size = mono_class_native_size (sig->ret->data.klass, NULL);
			if (size <= 32) {
				int n_regs = size / 8;
				int j;
				sparc_ldx_imm (p, sparc_i1, 0, sparc_i1);
				/* wrong if there are floating values in the struct... */
				for (j = 0; j < n_regs; j++) {
		                        sparc_stx_imm (p, sparc_o0 + j, sparc_i1, j * 8);
				}
				size -= n_regs * 8;
				if (size > 0) {
					int last_reg = sparc_o0 + n_regs;
					/* get value right aligned in register */
					sparc_srlx_imm(p, last_reg, 64 - 8 * size, last_reg);
					if ((size & 1) != 0) {
			                        sparc_stb_imm (p, last_reg, sparc_i1, n_regs * 8 + size - 1);
			                        size--;
						if (size > 0)
							sparc_srlx_imm(p, last_reg, 8, last_reg);
					}
					if ((size & 2) != 0) {
			                        sparc_sth_imm (p, last_reg, sparc_i1, n_regs * 8 + size - 2);
			                        size -= 2;
						if (size > 0)
							sparc_srlx_imm(p, last_reg, 16, last_reg);
					}
					if ((size & 4) != 0)
			                        sparc_st_imm (p, last_reg, sparc_i1, n_regs * 8);
				}
			}
#endif
		}
                case MONO_TYPE_VOID:
                        break;
                default:
                        g_error ("Can't handle as return value 0x%x", sig->ret->type);
		}
	}
	return p;
}
コード例 #5
0
ファイル: signal.c プロジェクト: DayOperatingSystem/Libraries
void sig_dfl(int val)
{
	printf("Received signal %d (%s) and will terminate!\n", val, sig_to_name(val));
	exit(val);
}