X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.h;h=09964717bb174486e4206882674d6cf47a08b439;hb=3f222e05452e95e48ad49e9b2e75fe7e16cff813;hp=c4145f2d3bc52bd965c7a1bff8938ab9160079e8;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git diff --git a/src/runtime/interrupt.h b/src/runtime/interrupt.h index c4145f2..0996471 100644 --- a/src/runtime/interrupt.h +++ b/src/runtime/interrupt.h @@ -18,28 +18,42 @@ * * 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 interrupt_install_low_level_handler (int signal, - void handler(int, - siginfo_t*, - void*)); +extern void undoably_install_low_level_interrupt_handler (int signal, + void + handler(int, + siginfo_t*, + void*)); extern unsigned long install_handler(int signal, void handler(int, siginfo_t*, void*));