projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.75
[sbcl.git]
/
src
/
runtime
/
x86-arch.c
diff --git
a/src/runtime/x86-arch.c
b/src/runtime/x86-arch.c
index
d2213d5
..
e080615
100644
(file)
--- a/
src/runtime/x86-arch.c
+++ b/
src/runtime/x86-arch.c
@@
-24,6
+24,7
@@
#include "interr.h"
#include "breakpoint.h"
#include "monitor.h"
#include "interr.h"
#include "breakpoint.h"
#include "monitor.h"
+#include "thread.h"
#include "genesis/static-symbols.h"
#include "genesis/symbol.h"
#include "genesis/static-symbols.h"
#include "genesis/symbol.h"
@@
-115,13
+116,14
@@
arch_internal_error_arguments(os_context_t *context)
boolean
arch_pseudo_atomic_atomic(os_context_t *context)
{
boolean
arch_pseudo_atomic_atomic(os_context_t *context)
{
- return SymbolValue(PSEUDO_ATOMIC_ATOMIC);
+ return SymbolValue(PSEUDO_ATOMIC_ATOMIC,arch_os_get_current_thread());
}
void
arch_set_pseudo_atomic_interrupted(os_context_t *context)
{
}
void
arch_set_pseudo_atomic_interrupted(os_context_t *context)
{
- SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(1));
+ SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, make_fixnum(1),
+ arch_os_get_current_thread());
}
\f
/*
}
\f
/*
@@
-139,6
+141,18
@@
arch_install_breakpoint(void *pc)
return result;
}
return result;
}
+void
+get_spinlock(lispobj *word,int value)
+{
+ u32 eax=0;
+ do {
+ asm ("xor %0,%0;lock 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)
{
@@
-316,6
+330,7
@@
call_into_lisp(lispobj fun, lispobj *args, int nargs);
* could be in registers depending on what the compiler likes. So we
* copy the args into a portable vector and let the assembly language
* call-in function figure it out. */
* could be in registers depending on what the compiler likes. So we
* copy the args into a portable vector and let the assembly language
* call-in function figure it out. */
+
lispobj
funcall0(lispobj function)
{
lispobj
funcall0(lispobj function)
{