X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-arch.c;h=fbe318bc7aa8efaceb24c7be8c7804f477ae127e;hb=01044af1b8d69fc3899dc0417064c1512223223d;hp=24adeca9bf1f0441c0ccff8b0a89ed1a9a2cf40c;hpb=19f5c616889ef98c8479489a70633a822c998ab1;p=sbcl.git diff --git a/src/runtime/x86-arch.c b/src/runtime/x86-arch.c index 24adeca..fbe318b 100644 --- a/src/runtime/x86-arch.c +++ b/src/runtime/x86-arch.c @@ -55,8 +55,10 @@ context_eflags_addr(os_context_t *context) return &context->uc_mcontext.gregs[16]; #elif defined __FreeBSD__ return &context->uc_mcontext.mc_eflags; -#elif defined __OpenBSD__ +#elif defined __OpenBSD__ || defined __NetBSD__ return &context->sc_eflags; +#elif defined __NetBSD__ + return &(context->uc_mcontext.__gregs[_REG_EFL]); #else #error unsupported OS #endif @@ -72,8 +74,7 @@ void arch_skip_instruction(os_context_t *context) int vlen; int code; - FSHOW((stderr, "/[arch_skip_inst at %x]\n", *os_context_pc_addr(context))); - + /* Get and skip the Lisp interrupt code. */ code = *(char*)(*os_context_pc_addr(context))++; switch (code) @@ -141,19 +142,6 @@ arch_install_breakpoint(void *pc) return result; } -void -get_spinlock(lispobj *word,int value) -{ - u32 eax=0; - do { - asm ("xor %0,%0\n\ - lock cmpxchg %1,%2" - : "=a" (eax) - : "r" (value), "m" (*word) - : "memory", "cc"); - } while(eax!=0); -} - void arch_remove_breakpoint(void *pc, unsigned long orig_inst) { @@ -205,6 +193,7 @@ sigtrap_handler(int signal, siginfo_t *info, void *void_context) int code = info->si_code; os_context_t *context = (os_context_t*)void_context; unsigned int trap; + sigset_t ss; if (single_stepping && (signal==SIGTRAP)) { @@ -255,6 +244,9 @@ sigtrap_handler(int signal, siginfo_t *info, void *void_context) case trap_PendingInterrupt: FSHOW((stderr, "/\n")); arch_skip_instruction(context); + sigemptyset(&ss); + sigaddset(&ss,SIGTRAP); + sigprocmask(SIG_UNBLOCK,&ss,0); interrupt_handle_pending(context); break;