sigtrap_handler(int signal, siginfo_t *siginfo, os_context_t *context)
{
unsigned int code;
-
+ sigset_t *mask;
#ifdef LISP_FEATURE_LINUX
os_restore_fp_control(context);
#endif
/* Don't disallow recursive breakpoint traps. Otherwise, we can't */
/* use debugger breakpoints anywhere in here. */
- sigset_t *mask=(os_context_sigmask_addr(context));
+ mask=(os_context_sigmask_addr(context));
sigsetmask(mask);
/* this is different from how CMUCL does it. CMUCL used "call_pal
undoably_install_low_level_interrupt_handler(SIGTRAP, sigtrap_handler);
}
+void get_spinlock(lispobj *word, int value) {
+ /* FIXME: dummy definition */
+ *word = value;
+}
+
extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
lispobj funcall0(lispobj function)