0.pre7.74:

[sbcl.git] / src / compiler / x86 / type-vops.lisp

diff --git a/src/compiler/x86/type-vops.lisp b/src/compiler/x86/type-vops.lisp
index f780568..206cf81 100644 (file)
--- a/src/compiler/x86/type-vops.lisp
+++ b/src/compiler/x86/type-vops.lisp
@@ -118,7 +118,7 @@
                 3))
          ((sc-is value control-stack)
           (inst test (make-ea :byte :base ebp-tn
-                              :disp (- (* (1+ offset) sb!vm:word-bytes)))
+                              :disp (- (* (1+ offset) n-word-bytes)))
                 3))
          (t
           (inst test value 3)))))