/* * Is current execution during rescue? */ EIF_BOOLEAN eif_is_in_rescue(void) { GE_context* context; context = GE_current_context(); return (EIF_TEST(context->in_rescue > 0)); }
/* * Enable/diable printing of the exception trace. * Per thead information. */ void eetrace(char b) { GE_context* context; context = GE_current_context(); context->exception_trace_enabled = b; }
void GE_boehm_dispose(void* C, void* disp) { ((GE_types[((EIF_REFERENCE)C)->id]).dispose)(GE_current_context(), (EIF_REFERENCE) C); }