X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Fmini%2Fexceptions-s390.c;h=1aad39a1b33a70247bf2eb456682d3e336cc4cb0;hb=6644c191b8292d9a07227f182be9ce689c1848e2;hp=20d7d78e96bb6905b73df0801a082985ead042ff;hpb=67d9fa67a27deb6083ca5cc55ea7b48bb26c4122;p=mono.git diff --git a/mono/mini/exceptions-s390.c b/mono/mini/exceptions-s390.c index 20d7d78e96b..1aad39a1b33 100644 --- a/mono/mini/exceptions-s390.c +++ b/mono/mini/exceptions-s390.c @@ -20,21 +20,6 @@ /* D e f i n e s */ /*------------------------------------------------------------------*/ -#define MONO_CONTEXT_SET_IP(ctx,ip) \ - do { \ - (ctx)->uc_mcontext.gregs[14] = (unsigned long)ip; \ - (ctx)->uc_mcontext.psw.addr = (unsigned long)ip; \ - } while (0); - -#define MONO_CONTEXT_SET_BP(ctx,bp) \ - do { \ - (ctx)->uc_mcontext.gregs[15] = (unsigned long)bp; \ - (ctx)->uc_stack.ss_sp = (unsigned long)bp; \ - } while (0); - -#define MONO_CONTEXT_GET_IP(ctx) context_get_ip ((ctx)) -#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->uc_mcontext.gregs[15])) - #define S390_CALLFILTER_INTREGS S390_MINIMAL_STACK_SIZE #define S390_CALLFILTER_FLTREGS S390_CALLFILTER_INTREGS+(16*sizeof(gulong)) #define S390_CALLFILTER_ACCREGS S390_CALLFILTER_FLTREGS+(16*sizeof(gdouble)) @@ -48,6 +33,8 @@ #define S390_THROWSTACK_ACCREGS S390_THROWSTACK_FLTREGS+(16*sizeof(gdouble)) #define S390_THROWSTACK_SIZE (S390_THROWSTACK_ACCREGS+(16*sizeof(gulong))) +#define SZ_THROW 384 + /*========================= End of Defines =========================*/ /*------------------------------------------------------------------*/ @@ -73,20 +60,6 @@ /*========================= End of Includes ========================*/ -/*------------------------------------------------------------------*/ -/* T y p e d e f s */ -/*------------------------------------------------------------------*/ - -typedef struct -{ - void *prev; - void *unused[5]; - void *regs[8]; - void *return_address; -} MonoS390StackFrame; - -/*========================= End of Typedefs ========================*/ - /*------------------------------------------------------------------*/ /* P r o t o t y p e s */ /*------------------------------------------------------------------*/ @@ -103,26 +76,6 @@ gboolean mono_arch_handle_exception (void *ctx, /*====================== End of Global Variables ===================*/ -/*------------------------------------------------------------------*/ -/* */ -/* Name - context_get_ip */ -/* */ -/* Function - Extract the current instruction address from the */ -/* context. */ -/* */ -/*------------------------------------------------------------------*/ - -static inline gpointer -context_get_ip (MonoContext *ctx) -{ - gpointer ip; - - ip = (gpointer) ((gint32) (ctx->uc_mcontext.psw.addr) & 0x7fffffff); - return ip; -} - -/*========================= End of Function ========================*/ - /*------------------------------------------------------------------*/ /* */ /* Name - mono_arch_has_unwind_info */ @@ -142,7 +95,7 @@ mono_arch_has_unwind_info (gconstpointer addr) /*------------------------------------------------------------------*/ /* */ -/* Name - arch_get_call_filter */ +/* Name - mono_arch_get_call_filter */ /* */ /* Function - Return a pointer to a method which calls an */ /* exception filter. We also use this function to */ @@ -151,10 +104,10 @@ mono_arch_has_unwind_info (gconstpointer addr) /* */ /*------------------------------------------------------------------*/ -static gpointer -arch_get_call_filter (void) +gpointer +mono_arch_get_call_filter (void) { - static guint8 start [512]; + static guint8 *start; static int inited = 0; guint8 *code; int alloc_size, pos, i; @@ -164,7 +117,7 @@ arch_get_call_filter (void) inited = 1; /* call_filter (MonoContext *ctx, unsigned long eip, gpointer exc) */ - code = start; + code = start = mono_global_codeman_reserve (512); s390_stm (code, s390_r6, s390_r14, STK_BASE, S390_REG_SAVE_OFFSET); s390_lr (code, s390_r14, STK_BASE); @@ -209,7 +162,8 @@ arch_get_call_filter (void) /*------------------------------------------------------*/ /* Load all registers with values from the context */ /*------------------------------------------------------*/ - s390_lm (code, s390_r3, s390_r12, s390_r13, G_STRUCT_OFFSET(MonoContext, uc_mcontext.gregs[3])); + s390_lm (code, s390_r3, s390_r12, s390_r13, + G_STRUCT_OFFSET(MonoContext, uc_mcontext.gregs[3])); pos = G_STRUCT_OFFSET(MonoContext, uc_mcontext.fpregs.fprs[0]); for (i = 0; i < 16; ++i) { s390_ld (code, i, 0, s390_r13, pos); @@ -243,7 +197,7 @@ arch_get_call_filter (void) s390_lm (code, s390_r6, s390_r14, STK_BASE, S390_REG_SAVE_OFFSET); s390_br (code, s390_r14); - g_assert ((code - start) < sizeof(start)); + g_assert ((code - start) < SZ_THROW); return start; } @@ -262,7 +216,6 @@ throw_exception (MonoObject *exc, unsigned long ip, unsigned long sp, gulong *int_regs, gdouble *fp_regs, gulong *acc_regs, guint fpc, gboolean rethrow) { - static void (*restore_context) (MonoContext *); MonoContext ctx; int iReg; @@ -397,12 +350,13 @@ get_throw_exception_generic (guint8 *start, int size, gpointer mono_arch_get_throw_exception (void) { - static guint8 start [384]; + static guint8 *start; static int inited = 0; if (inited) return start; - get_throw_exception_generic (start, sizeof (start), FALSE, FALSE); + start = mono_global_codeman_reserve (SZ_THROW); + get_throw_exception_generic (start, SZ_THROW, FALSE, FALSE); inited = 1; return start; } @@ -423,12 +377,13 @@ mono_arch_get_throw_exception (void) gpointer mono_arch_get_rethrow_exception (void) { - static guint8 start [384]; + static guint8 *start; static int inited = 0; if (inited) return start; - get_throw_exception_generic (start, sizeof (start), FALSE, TRUE); + start = mono_global_codeman_reserve (SZ_THROW); + get_throw_exception_generic (start, SZ_THROW, FALSE, TRUE); inited = 1; return start; } @@ -449,47 +404,19 @@ mono_arch_get_rethrow_exception (void) gpointer mono_arch_get_throw_exception_by_name (void) { - static guint8 start [384]; + static guint8 *start; static int inited = 0; if (inited) return start; - get_throw_exception_generic (start, sizeof (start), TRUE, FALSE); + start = mono_global_codeman_reserve (SZ_THROW); + get_throw_exception_generic (start, SZ_THROW, TRUE, FALSE); inited = 1; return start; } /*========================= End of Function ========================*/ -/*------------------------------------------------------------------*/ -/* */ -/* Name - glist_to_array */ -/* */ -/* Function - Convert a list to a mono array. */ -/* */ -/*------------------------------------------------------------------*/ - -static MonoArray * -glist_to_array (GList *list) -{ - MonoDomain *domain = mono_domain_get (); - MonoArray *res; - int len, i; - - if (!list) - return NULL; - - len = g_list_length (list); - res = mono_array_new (domain, mono_defaults.int_class, len); - - for (i = 0; list; list = list->next, i++) - mono_array_set (res, gpointer, i, list->data); - - return res; -} - -/*========================= End of Function ========================*/ - /*------------------------------------------------------------------*/ /* */ /* Name - mono_arch_find_jit_info */ @@ -514,13 +441,11 @@ mono_arch_find_jit_info (MonoDomain *domain, MonoJitTlsData *jit_tls, { MonoJitInfo *ji; gpointer ip = MONO_CONTEXT_GET_IP (ctx); - unsigned long *ptr; - char *p; MonoS390StackFrame *sframe; if (prev_ji && - (ip > prev_ji->code_start && - ((guint8 *) ip < ((guint8 *) prev_ji->code_start) + prev_ji->code_size))) + (ip >= prev_ji->code_start && + ((guint8 *) ip <= ((guint8 *) prev_ji->code_start) + prev_ji->code_size))) ji = prev_ji; else ji = mono_jit_info_table_find (domain, ip); @@ -535,13 +460,11 @@ mono_arch_find_jit_info (MonoDomain *domain, MonoJitTlsData *jit_tls, *managed = FALSE; if (ji != NULL) { - char *source_location, *tmpaddr, *fname; - gint32 address, iloffset; - int offset; + gint32 address; *new_ctx = *ctx; - if (*lmf && (MONO_CONTEXT_GET_BP (ctx) >= (gpointer)(*lmf)->ebp)) { + if (*lmf && (MONO_CONTEXT_GET_SP (ctx) >= (gpointer)(*lmf)->ebp)) { /* remove any unused lmf */ *lmf = (*lmf)->previous_lmf; } @@ -555,33 +478,12 @@ mono_arch_find_jit_info (MonoDomain *domain, MonoJitTlsData *jit_tls, if (!ji->method->wrapper_type) *managed = TRUE; - if (trace) { - source_location = mono_debug_source_location_from_address (ji->method, address, NULL, domain); - iloffset = mono_debug_il_offset_from_address (ji->method, address, domain); - - if (iloffset < 0) - tmpaddr = g_strdup_printf ("<0x%08x>", address); - else - tmpaddr = g_strdup_printf ("[0x%08x]", iloffset); - - fname = mono_method_full_name (ji->method, TRUE); - - if (source_location) - *trace = g_strdup_printf ("in %s (at %s) %s", tmpaddr, source_location, fname); - else - *trace = g_strdup_printf ("in %s %s", tmpaddr, fname); - - g_free (fname); - g_free (source_location); - g_free (tmpaddr); - } - sframe = (MonoS390StackFrame *) MONO_CONTEXT_GET_BP (ctx); + sframe = (MonoS390StackFrame *) MONO_CONTEXT_GET_SP (ctx); MONO_CONTEXT_SET_BP (new_ctx, sframe->prev); sframe = (MonoS390StackFrame *) sframe->prev; MONO_CONTEXT_SET_IP (new_ctx, sframe->return_address); memcpy (&new_ctx->uc_mcontext.gregs[6], sframe->regs, (8*sizeof(gint32))); - *res = *ji; - return res; + return ji; } else if (*lmf) { *new_ctx = *ctx; @@ -589,11 +491,7 @@ mono_arch_find_jit_info (MonoDomain *domain, MonoJitTlsData *jit_tls, if (!(*lmf)->method) return (gpointer)-1; - if (trace) - *trace = g_strdup_printf ("in (unmanaged) %s", mono_method_full_name ((*lmf)->method, TRUE)); - if ((ji = mono_jit_info_table_find (domain, (gpointer)(*lmf)->eip))) { - *res = *ji; } else { memset (res, 0, sizeof (MonoJitInfo)); res->method = (*lmf)->method; @@ -606,8 +504,7 @@ mono_arch_find_jit_info (MonoDomain *domain, MonoJitTlsData *jit_tls, MONO_CONTEXT_SET_IP (new_ctx, (*lmf)->eip); *lmf = (*lmf)->previous_lmf; - return res; - + return ji ? ji : res; } return NULL; @@ -617,378 +514,122 @@ mono_arch_find_jit_info (MonoDomain *domain, MonoJitTlsData *jit_tls, /*------------------------------------------------------------------*/ /* */ -/* Name - ves_icall_get_trace */ +/* Name - mono_arch_handle_exception */ /* */ -/* Function - */ +/* Function - Handle an exception raised by the JIT code. */ +/* */ +/* Parameters - ctx - Saved processor state */ +/* obj - The exception object */ +/* test_only - Only test if the exception is caught, */ +/* but don't call handlers */ /* */ /*------------------------------------------------------------------*/ -MonoArray * -ves_icall_get_trace (MonoException *exc, gint32 skip, MonoBoolean need_file_info) +gboolean +mono_arch_handle_exception (void *uc, gpointer obj, gboolean test_only) { - MonoDomain *domain = mono_domain_get (); - MonoArray *res; - MonoArray *ta = exc->trace_ips; - int i, len; - - if (ta == NULL) { - return mono_array_new (domain, mono_defaults.stack_frame_class, 0); - } - - len = mono_array_length (ta); - - res = mono_array_new (domain, mono_defaults.stack_frame_class, - len > skip ? len - skip : 0); - - for (i = skip; i < len; i++) { - MonoJitInfo *ji; - MonoStackFrame *sf = (MonoStackFrame *)mono_object_new (domain, mono_defaults.stack_frame_class); - gpointer ip = mono_array_get (ta, gpointer, i); - - ji = mono_jit_info_table_find (domain, ip); - if (ji == NULL) { - mono_array_set (res, gpointer, i, sf); - continue; - } - - sf->method = mono_method_get_object (domain, ji->method, NULL); - sf->native_offset = (char *)ip - (char *)ji->code_start; - - sf->il_offset = mono_debug_il_offset_from_address (ji->method, sf->native_offset, domain); - - if (need_file_info) { - gchar *filename; - - filename = mono_debug_source_location_from_address (ji->method, sf->native_offset, &sf->line, domain); - - sf->filename = filename? mono_string_new (domain, filename): NULL; - sf->column = 0; - - g_free (filename); - } - - mono_array_set (res, gpointer, i, sf); - } - - return res; + return mono_handle_exception (uc, obj, mono_arch_ip_from_context(uc), test_only); } /*========================= End of Function ========================*/ /*------------------------------------------------------------------*/ /* */ -/* Name - mono_jit_walk_stack */ +/* Name - mono_arch_ip_from_context */ +/* */ +/* Function - Return the instruction pointer from the context. */ /* */ -/* Function - */ +/* Parameters - sigctx - Saved processor state */ /* */ /*------------------------------------------------------------------*/ -void -mono_jit_walk_stack (MonoStackWalk func, gboolean do_il_offset, gpointer user_data) { - MonoDomain *domain = mono_domain_get (); - MonoJitTlsData *jit_tls = TlsGetValue (mono_jit_tls_id); - MonoLMF *lmf = jit_tls->lmf; - MonoJitInfo *ji, rji; - gint native_offset, il_offset; - gboolean managed; - MonoContext ctx, new_ctx; - - MONO_CONTEXT_SET_IP (&ctx, __builtin_return_address (0)); - MONO_CONTEXT_SET_BP (&ctx, __builtin_frame_address (1)); - - while (MONO_CONTEXT_GET_BP (&ctx) < jit_tls->end_of_stack) { - - ji = mono_arch_find_jit_info (domain, jit_tls, &rji, NULL, - &ctx, &new_ctx, NULL, &lmf, - &native_offset, &managed); - g_assert (ji); - - if (ji == (gpointer)-1) - return; - - il_offset = do_il_offset ? mono_debug_il_offset_from_address (ji->method, native_offset, domain): -1; - - if (func (ji->method, native_offset, il_offset, managed, user_data)) - return; - - ctx = new_ctx; - } +gpointer +mono_arch_ip_from_context (void *sigctx) +{ + return context_get_ip (sigctx); } + /*========================= End of Function ========================*/ /*------------------------------------------------------------------*/ /* */ -/* Name - ves_icall_get_frame_info */ +/* Name - mono_arch_get_restore_context */ /* */ -/* Function - */ +/* Function - Return the address of the routine that will rest- */ +/* ore the context. */ /* */ /*------------------------------------------------------------------*/ -MonoBoolean -ves_icall_get_frame_info (gint32 skip, MonoBoolean need_file_info, - MonoReflectionMethod **method, - gint32 *iloffset, gint32 *native_offset, - MonoString **file, gint32 *line, gint32 *column) +gpointer +mono_arch_get_restore_context () { - MonoDomain *domain = mono_domain_get (); - MonoJitTlsData *jit_tls = TlsGetValue (mono_jit_tls_id); - MonoLMF *lmf = jit_tls->lmf; - MonoJitInfo *ji, rji; - MonoContext ctx, new_ctx; - - MONO_CONTEXT_SET_IP (&ctx, ves_icall_get_frame_info); - MONO_CONTEXT_SET_BP (&ctx, __builtin_frame_address (0)); - - skip++; - - do { - ji = mono_arch_find_jit_info (domain, jit_tls, &rji, NULL, - &ctx, &new_ctx, NULL, &lmf, - native_offset, NULL); - - ctx = new_ctx; - - if (!ji || ji == (gpointer)-1 || MONO_CONTEXT_GET_BP (&ctx) >= jit_tls->end_of_stack) - return FALSE; - - /* skip all wrappers ??*/ - if (ji->method->wrapper_type == MONO_WRAPPER_RUNTIME_INVOKE || - ji->method->wrapper_type == MONO_WRAPPER_XDOMAIN_INVOKE || - ji->method->wrapper_type == MONO_WRAPPER_XDOMAIN_DISPATCH || - ji->method->wrapper_type == MONO_WRAPPER_REMOTING_INVOKE_WITH_CHECK || - ji->method->wrapper_type == MONO_WRAPPER_REMOTING_INVOKE) - continue; - - skip--; - - } while (skip >= 0); - - *method = mono_method_get_object (domain, ji->method, NULL); - *iloffset = mono_debug_il_offset_from_address (ji->method, *native_offset, domain); - - if (need_file_info) { - gchar *filename; - - filename = mono_debug_source_location_from_address (ji->method, *native_offset, line, domain); - - *file = filename? mono_string_new (domain, filename): NULL; - *column = 0; - - g_free (filename); - } - - return TRUE; + return setcontext; } + /*========================= End of Function ========================*/ /*------------------------------------------------------------------*/ /* */ -/* Name - mono_arch_handle_exception */ -/* */ -/* Function - Handle an exception raised by the JIT code. */ -/* */ -/* Parameters - ctx - Saved processor state */ -/* obj - The exception object */ -/* test_only - Only test if the exception is caught, */ -/* but don't call handlers */ +/* Name - mono_arch_is_int_overflow */ /* */ +/* Function - Inspect the code that raised the SIGFPE signal */ +/* to see if the DivideByZero or Arithmetic exception*/ +/* should be raised. */ +/* */ /*------------------------------------------------------------------*/ gboolean -mono_arch_handle_exception (void *uc, gpointer obj, gboolean test_only) +mono_arch_is_int_overflow (void *uc, void *info) { - MonoContext *ctx = uc; - MonoDomain *domain = mono_domain_get (); - MonoJitInfo *ji, rji; - static int (*call_filter) (MonoContext *, gpointer, gpointer) = NULL; - MonoJitTlsData *jit_tls = TlsGetValue (mono_jit_tls_id); - MonoLMF *lmf = jit_tls->lmf; - GList *trace_ips = NULL; - GString *traceStr = NULL; - MonoException *mono_ex; - MonoString *initialStackTrace = NULL; - int frameCount = 0; - - g_assert (ctx != NULL); - memset(&rji, 0, sizeof(rji)); - if (!obj) { - MonoException *ex = mono_get_exception_null_reference (); - ex->message = mono_string_new (domain, - "Object reference not set to an instance of an object"); - obj = (MonoObject *)ex; - } - - if (mono_object_isinst (obj, mono_defaults.exception_class)) { - mono_ex = (MonoException*)obj; - mono_ex->stack_trace = NULL; - } else { - mono_ex = NULL; - } - - - if (!call_filter) - call_filter = arch_get_call_filter (); - - g_assert (jit_tls->end_of_stack); - g_assert (jit_tls->abort_func); - - if (!test_only) { - MonoContext ctx_cp = *ctx; - if (mono_jit_trace_calls != NULL) - g_print ("EXCEPTION handling: %s\n", mono_object_class (obj)->name); - if (!mono_arch_handle_exception (&ctx_cp, obj, TRUE)) { - if (mono_break_on_exc) - G_BREAKPOINT (); - mono_unhandled_exception (obj); - } - } - - memset (&rji, 0, sizeof(rji)); - - while (1) { - MonoContext new_ctx; - char *trace = NULL; - gboolean needTrace = FALSE; - - if (test_only && (frameCount < 1000)) { - needTrace = TRUE; - if (!traceStr) - traceStr = g_string_new (""); - } - - ji = mono_arch_find_jit_info (domain, jit_tls, &rji, &rji, ctx, &new_ctx, - test_only ? &trace : NULL, &lmf, NULL, NULL); - if (!ji) { - g_warning ("Exception inside function without unwind info"); - g_assert_not_reached (); - } - - if (ji != (gpointer)-1) { - frameCount++; - - if ((test_only) && - (ji->method->wrapper_type != MONO_WRAPPER_RUNTIME_INVOKE) && - (mono_ex)) { - if (!initialStackTrace && (frameCount < 1000)) { - trace_ips = g_list_prepend (trace_ips, MONO_CONTEXT_GET_IP (ctx)); - g_string_append (traceStr, trace); - g_string_append_c (traceStr, '\n'); - } - } - - if (ji->num_clauses) { - int i; - - g_assert (ji->clauses); - - for (i = 0; i < ji->num_clauses; i++) { - MonoJitExceptionInfo *ei = &ji->clauses [i]; - gboolean filtered = FALSE; - - if (ei->try_start < MONO_CONTEXT_GET_IP (ctx) && - MONO_CONTEXT_GET_IP (ctx) <= ei->try_end) { - /* catch block */ - if ((ei->flags == MONO_EXCEPTION_CLAUSE_NONE) || - (ei->flags == MONO_EXCEPTION_CLAUSE_FILTER)) { - g_assert (ji->exvar_offset); - *((gpointer *)((char *)MONO_CONTEXT_GET_BP (ctx) + ji->exvar_offset)) = obj; - if (!initialStackTrace && - traceStr) { - mono_ex->stack_trace = mono_string_new (domain, traceStr->str); - } - } - - if (ei->flags == MONO_EXCEPTION_CLAUSE_FILTER) - filtered = call_filter (ctx, ei->data.filter, obj); - - if ((ei->flags == MONO_EXCEPTION_CLAUSE_NONE) && - (mono_object_isinst (obj, ei->data.catch_class)) || - (filtered)) { - if (test_only) { - if (mono_ex) { - trace_ips = g_list_reverse (trace_ips); - mono_ex->trace_ips = glist_to_array (trace_ips); - } - g_list_free (trace_ips); - g_free (trace); - if (traceStr) - g_string_free (traceStr, TRUE); - - return TRUE; - } - - if (mono_jit_trace_calls != NULL) - g_print ("EXCEPTION: catch found at clause %d of %s - caught at %p with sp %p\n", - i, mono_method_full_name (ji->method, TRUE), - ei->handler_start, - MONO_CONTEXT_GET_BP(ctx)); - MONO_CONTEXT_SET_IP (ctx, ei->handler_start); - jit_tls->lmf = lmf; - g_free (trace); - if (traceStr) - g_string_free (traceStr, TRUE); - return FALSE; - } - - if (!test_only && ei->try_start <= MONO_CONTEXT_GET_IP (ctx) && - MONO_CONTEXT_GET_IP (ctx) < ei->try_end && - (ei->flags & MONO_EXCEPTION_CLAUSE_FINALLY)) { - if (mono_jit_trace_calls != NULL) - g_print ("EXCEPTION: finally clause %d of %s handled at: %p using sp: %p\n", - i, mono_method_full_name (ji->method, TRUE), - ei->handler_start, - MONO_CONTEXT_GET_BP(ctx)); - call_filter (ctx, ei->handler_start, NULL); - } - - } - } + MonoContext *ctx; + guint8 *code; + guint32 *operand; + gboolean arithExc = TRUE; + gint regNo, + offset; + + ctx = (MonoContext *) uc; + code = (guint8 *) ((siginfo_t *)info)->si_addr; + /*----------------------------------------------------------*/ + /* Divide operations are the only ones that will give the */ + /* divide by zero exception so just check for these ops. */ + /*----------------------------------------------------------*/ + switch (code[0]) { + case 0x1d : /* Divide Register */ + regNo = code[1] & 0x0f; + if (ctx->uc_mcontext.gregs[regNo] == 0) + arithExc = FALSE; + break; + case 0x5d : /* Divide */ + regNo = (code[2] & 0xf0 >> 8); + offset = *((guint16 *) code+2) & 0x0fff; + operand = (guint32*)(ctx->uc_mcontext.gregs[regNo] + offset); + if (*operand == 0) + arithExc = FALSE; + break; + case 0xb9 : /* Divide logical Register? */ + if (code[1] == 0x97) { + regNo = (code[2] & 0xf0 >> 8); + if (ctx->uc_mcontext.gregs[regNo] == 0) + arithExc = FALSE; } - } - - g_free (trace); - - *ctx = new_ctx; - - if ((ji == (gpointer)-1) || - (MONO_CONTEXT_GET_BP (ctx) >= jit_tls->end_of_stack)) { - if (!test_only) { - jit_tls->lmf = lmf; - jit_tls->abort_func (obj); - g_assert_not_reached (); - } else { - if (mono_ex) { - trace_ips = g_list_reverse (trace_ips); - mono_ex->trace_ips = glist_to_array (trace_ips); - } - g_list_free (trace_ips); - if (traceStr) - g_string_free (traceStr, TRUE); - return FALSE; + break; + case 0xe3 : /* Divide logical? */ + if (code[1] == 0x97) { + regNo = (code[2] & 0xf0 >> 8); + offset = *((guint32 *) code+1) & 0x000fffff; + operand = (guint32*)(ctx->uc_mcontext.gregs[regNo] + offset); + if (*operand == 0) + arithExc = FALSE; } - } + break; + default: + arithExc = TRUE; } - - g_assert_not_reached (); + ctx->uc_mcontext.psw.addr = (guint32)code; + return (arithExc); } /*========================= End of Function ========================*/ - -/*------------------------------------------------------------------*/ -/* */ -/* Name - mono_arch_ip_from_context */ -/* */ -/* Function - Return the instruction pointer from the context. */ -/* */ -/* Parameters - sigctx - Saved processor state */ -/* */ -/*------------------------------------------------------------------*/ - -gpointer -mono_arch_ip_from_context (void *sigctx) -{ - return context_get_ip (sigctx); -} -