X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.h;h=a373662ca210825cda8f2f9a71a10c4961c3792a;hb=085501b44cc1cbdd9e260139d30b383372ddd1b8;hp=651668cdb7db56dba200db8a53732ac984aaac04;hpb=d4d6c4b16a3655ce99a87d43f411391363531260;p=sbcl.git diff --git a/src/runtime/interrupt.h b/src/runtime/interrupt.h index 651668c..a373662 100644 --- a/src/runtime/interrupt.h +++ b/src/runtime/interrupt.h @@ -13,6 +13,7 @@ #define _INCLUDE_INTERRUPT_H_ #include +#include /* * This is a workaround for some slightly silly Linux/GNU Libc @@ -63,13 +64,10 @@ 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 arrange_return_to_lisp_function(os_context_t *, lispobj); -extern void interrupt_handle_now(int, siginfo_t*, void*); +extern void interrupt_handle_now(int, siginfo_t*, os_context_t*); extern void interrupt_handle_pending(os_context_t*); -extern void interrupt_internal_error(int, siginfo_t*, os_context_t*, - boolean continuable); +extern void interrupt_internal_error(os_context_t*, boolean continuable); extern boolean handle_guard_page_triggered(os_context_t *,os_vm_address_t); -extern boolean interrupt_maybe_gc(int, siginfo_t*, void*); -extern boolean interrupt_maybe_gc_int(int, siginfo_t *, void *); extern boolean maybe_defer_handler(void *handler, struct interrupt_data *data, int signal, siginfo_t *info, os_context_t *context); @@ -106,4 +104,10 @@ extern void block_blockable_signals(); * "cleanly" with union types is in fact a mess. */ #define ARE_SAME_HANDLER(x, y) ((void*)(x) == (void*)(y)) +extern void handle_trap(os_context_t *context, int trap); + +#ifndef LISP_FEATURE_WIN32 +extern void lisp_memory_fault_error(os_context_t *context, os_vm_address_t addr); +#endif + #endif