projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.13.47: Thread safety miscellania
[sbcl.git]
/
src
/
compiler
/
x86
/
system.lisp
diff --git
a/src/compiler/x86/system.lisp
b/src/compiler/x86/system.lisp
index
e2f7037
..
b9e9c5f
100644
(file)
--- a/
src/compiler/x86/system.lisp
+++ b/
src/compiler/x86/system.lisp
@@
-163,7
+163,7
@@
(:translate binding-stack-pointer-sap)
(:policy :fast-safe)
(:generator 1
(:translate binding-stack-pointer-sap)
(:policy :fast-safe)
(:generator 1
- (load-tl-symbol-value int *binding-stack-pointer*)))
+ (load-binding-stack-pointer int)))
(defknown (setf binding-stack-pointer-sap)
(system-area-pointer) system-area-pointer ())
(defknown (setf binding-stack-pointer-sap)
(system-area-pointer) system-area-pointer ())
@@
-173,11
+173,10
@@
(:arg-types system-area-pointer)
(:results (int :scs (sap-reg)))
(:result-types system-area-pointer)
(:arg-types system-area-pointer)
(:results (int :scs (sap-reg)))
(:result-types system-area-pointer)
- #!+sb-thread (:temporary (:sc any-reg) temp)
(:translate (setf binding-stack-pointer-sap))
(:policy :fast-safe)
(:generator 1
(:translate (setf binding-stack-pointer-sap))
(:policy :fast-safe)
(:generator 1
- (store-tl-symbol-value new-value *binding-stack-pointer* temp)
+ (store-binding-stack-pointer new-value)
(move int new-value)))
(define-vop (control-stack-pointer-sap)
(move int new-value)))
(define-vop (control-stack-pointer-sap)