projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't check SUBTYPEP of ELEMENT-TYPE in ADJUST-ARRAY unnecessarily
[sbcl.git]
/
src
/
compiler
/
x86
/
macros.lisp
diff --git
a/src/compiler/x86/macros.lisp
b/src/compiler/x86/macros.lisp
index
f0ed91e
..
d7b6bc2
100644
(file)
--- a/
src/compiler/x86/macros.lisp
+++ b/
src/compiler/x86/macros.lisp
@@
-404,8
+404,7
@@
#!+sb-safepoint
(defun emit-safepoint ()
#!+sb-safepoint
(defun emit-safepoint ()
- (inst test al-tn (make-ea :byte
- :disp (make-fixup "gc_safepoint_page" :foreign))))
+ (inst test eax-tn (make-ea :dword :disp sb!vm::gc-safepoint-page-addr)))
#!+sb-thread
(defmacro pseudo-atomic (&rest forms)
#!+sb-thread
(defmacro pseudo-atomic (&rest forms)