X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-arch.c;h=aadb9a08bfe812412029bf76c9232581030f8fa0;hb=3fe0010d2777b41e01ea9b4a0f894cfa40f7df1b;hp=9e8abb6e76e7b316134a95bb3036ca94f2a7fc10;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git diff --git a/src/runtime/hppa-arch.c b/src/runtime/hppa-arch.c index 9e8abb6..aadb9a0 100644 --- a/src/runtime/hppa-arch.c +++ b/src/runtime/hppa-arch.c @@ -11,9 +11,9 @@ #include /* Copied from sparc-arch.c. Not all of these are necessary, probably */ +#include "sbcl.h" #include "runtime.h" #include "arch.h" -#include "sbcl.h" #include "globals.h" #include "validate.h" #include "os.h" @@ -181,7 +181,6 @@ static void sigtrap_handler(int signal, siginfo_t *siginfo, void *void_context) os_context_t *context = arch_os_get_context(&void_context); unsigned long bad_inst; - sigprocmask(SIG_SETMASK, os_context_sigmask_addr(context), 0); #if 0 printf("sigtrap_handler, pc=0x%08x, alloc=0x%08x\n", scp->sc_pcoqh, SC_REG(scp,reg_ALLOC)); @@ -416,6 +415,7 @@ void arch_install_interrupt_handlers(void) undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler); } + lispobj funcall0(lispobj function) { lispobj *args = current_control_stack_pointer;