#include <stdio.h>
/* 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"
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));
undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler);
}
+
lispobj funcall0(lispobj function)
{
lispobj *args = current_control_stack_pointer;