X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.h;h=2a35852c79a0732d6fd1b8d36dbadde758a15db4;hb=93c941d86b264637de20aa1b713757b704d4c1a6;hp=f71a177f6b25fb8cc08dd0d98aebbf525f799d98;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git diff --git a/src/runtime/interrupt.h b/src/runtime/interrupt.h index f71a177..2a35852 100644 --- a/src/runtime/interrupt.h +++ b/src/runtime/interrupt.h @@ -9,10 +9,6 @@ * files for more information. */ -/* - * $Header$ - */ - #if !defined(_INCLUDE_INTERRUPT_H_) #define _INCLUDE_INTERRUPT_H_ @@ -28,8 +24,8 @@ extern os_context_t *lisp_interrupt_contexts[MAX_INTERRUPTS]; union interrupt_handler { - lispobj lisp; - void (*c)(int, siginfo_t*, void*); + lispobj lisp; + void (*c)(int, siginfo_t*, void*); }; extern void interrupt_init(void); @@ -39,11 +35,13 @@ 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*));