X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.h;h=09964717bb174486e4206882674d6cf47a08b439;hb=3f222e05452e95e48ad49e9b2e75fe7e16cff813;hp=73ab2d2c72ffdd4f34c903fd2350cfbda5dc7a5a;hpb=358cad8bdef5c670e1bbe94c430bd27544995433;p=sbcl.git diff --git a/src/runtime/interrupt.h b/src/runtime/interrupt.h index 73ab2d2..0996471 100644 --- a/src/runtime/interrupt.h +++ b/src/runtime/interrupt.h @@ -18,23 +18,36 @@ * * Note: In CMU CL, this was 4096, but there was no explanation given, * and it's hard to see why we'd need that many nested interrupts, so - * I've scaled it back to see what happens. -- WHN 20000730 */ -#define MAX_INTERRUPTS 256 + * I've scaled it back (to 256) to see what happens. -- WHN 20000730 -extern os_context_t *lisp_interrupt_contexts[MAX_INTERRUPTS]; + * Nothing happened, so let's creep it back a bit further -- dan 20030411 */ +#define MAX_INTERRUPTS 32 union interrupt_handler { - lispobj lisp; - void (*c)(int, siginfo_t*, void*); + lispobj lisp; + void (*c)(int, siginfo_t*, void*); }; -extern void interrupt_init(void); +struct interrupt_data { + void (*interrupt_low_level_handlers[NSIG]) (int, siginfo_t*, void*) ; + union interrupt_handler interrupt_handlers[NSIG]; + + /* signal number, siginfo_t, and old mask information for pending + * signal. pending_signal=0 when there is no pending signal. */ + int pending_signal ; + siginfo_t pending_info; + sigset_t pending_mask; +}; + + +extern void interrupt_init(); extern void fake_foreign_function_call(os_context_t* context); extern void undo_fake_foreign_function_call(os_context_t* context); extern void interrupt_handle_now(int, siginfo_t*, void*); extern void interrupt_handle_pending(os_context_t*); extern void interrupt_internal_error(int, siginfo_t*, os_context_t*, boolean continuable); +extern boolean handle_control_stack_guard_triggered(os_context_t *,void *); extern boolean interrupt_maybe_gc(int, siginfo_t*, void*); extern void undoably_install_low_level_interrupt_handler (int signal, void