projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.6.28:
[sbcl.git]
/
src
/
runtime
/
x86-arch.c
diff --git
a/src/runtime/x86-arch.c
b/src/runtime/x86-arch.c
index
2b03d7a
..
543c7e0
100644
(file)
--- a/
src/runtime/x86-arch.c
+++ b/
src/runtime/x86-arch.c
@@
-72,8
+72,7
@@
void arch_skip_instruction(os_context_t *context)
int vlen;
int code;
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)
/* Get and skip the Lisp interrupt code. */
code = *(char*)(*os_context_pc_addr(context))++;
switch (code)
@@
-141,18
+140,6
@@
arch_install_breakpoint(void *pc)
return result;
}
return result;
}
-void
-get_spinlock(lispobj *word,int value)
-{
- u32 eax=0;
- do {
- asm ("xor %0,%0;cmpxchg %1,%2"
- : "=a" (eax)
- : "r" (value), "m" (*word)
- : "memory", "cc");
- } while(eax!=0);
-}
-
void
arch_remove_breakpoint(void *pc, unsigned long orig_inst)
{
void
arch_remove_breakpoint(void *pc, unsigned long orig_inst)
{
@@
-204,6
+191,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;
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))
{
if (single_stepping && (signal==SIGTRAP))
{
@@
-254,6
+242,9
@@
sigtrap_handler(int signal, siginfo_t *info, void *void_context)
case trap_PendingInterrupt:
FSHOW((stderr, "/<trap pending interrupt>\n"));
arch_skip_instruction(context);
case trap_PendingInterrupt:
FSHOW((stderr, "/<trap pending interrupt>\n"));
arch_skip_instruction(context);
+ sigemptyset(&ss);
+ sigaddset(&ss,SIGTRAP);
+ sigprocmask(SIG_UNBLOCK,&ss,0);
interrupt_handle_pending(context);
break;
interrupt_handle_pending(context);
break;