projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.2.31:
[sbcl.git]
/
src
/
runtime
/
hppa-arch.c
diff --git
a/src/runtime/hppa-arch.c
b/src/runtime/hppa-arch.c
index
9e8abb6
..
aadb9a0
100644
(file)
--- a/
src/runtime/hppa-arch.c
+++ b/
src/runtime/hppa-arch.c
@@
-11,9
+11,9
@@
#include <stdio.h>
/* Copied from sparc-arch.c. Not all of these are necessary, probably */
#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 "runtime.h"
#include "arch.h"
-#include "sbcl.h"
#include "globals.h"
#include "validate.h"
#include "os.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;
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));
#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);
}
undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler);
}
+
lispobj funcall0(lispobj function)
{
lispobj *args = current_control_stack_pointer;
lispobj funcall0(lispobj function)
{
lispobj *args = current_control_stack_pointer;