X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.c;h=159a9aeb81626dc2236399e0d692fb0f35c340ae;hb=68fd2d2dd6f265669a8957accd8a33e62786a97e;hp=4c56a0a39ce9ecbe0b5395e769fd2bb8fab32873;hpb=63cef087068afc157283c0a05ae1f16b962303aa;p=sbcl.git diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c index 4c56a0a..159a9ae 100644 --- a/src/runtime/interrupt.c +++ b/src/runtime/interrupt.c @@ -17,11 +17,6 @@ #include #include -#ifdef mach /* KLUDGE: #ifdef on lowercase symbols? Ick. -- WHN 19990904 */ -#ifdef mips -#include -#endif -#endif #include "runtime.h" #include "arch.h" @@ -295,6 +290,7 @@ interrupt_handle_pending(os_context_t *context) { undo_fake_foreign_function_call(context); } + fprintf(stderr,"interrupt-handle-pending: back from MAYBE_GC\n"); } /* FIXME: This isn't very clear. It would be good to reverse @@ -321,7 +317,10 @@ interrupt_handle_pending(os_context_t *context) * anyway. Why we still need to copy the pending_mask into the * context given that we're now done with the context anyway, I * couldn't say. */ - memcpy(os_context_sigmask_addr(context), &pending_mask, sizeof(sigset_t)); +#if 0 + memcpy(os_context_sigmask_addr(context), &pending_mask, + 4 /* sizeof(sigset_t) */ ); +#endif sigemptyset(&pending_mask); if (pending_signal) { int signal = pending_signal; @@ -369,7 +368,7 @@ interrupt_handle_now(int signal, siginfo_t *info, void *void_context) if (ARE_SAME_HANDLER(handler.c, SIG_IGN)) { return; } - + #ifndef __i386__ were_in_lisp = !foreign_function_call_active; if (were_in_lisp)