0.pre7.58:

[sbcl.git] / src / assembly / x86 / array.lisp

diff --git a/src/assembly/x86/array.lisp b/src/assembly/x86/array.lisp
index 8ae3e8d..0fdeb41 100644 (file)
--- a/src/assembly/x86/array.lisp
+++ b/src/assembly/x86/array.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
- "$Header$")
 \f
 ;;;; allocation
 
@@ -27,15 +24,15 @@
                          (:arg length any-reg ebx-offset)
                          (:arg words any-reg ecx-offset)
                          (:res result descriptor-reg edx-offset))
-  (inst mov result (+ (1- (ash 1 lowtag-bits))
+  (inst mov result (+ (1- (ash 1 n-lowtag-bits))
                      (* vector-data-offset word-bytes)))
   (inst add result words)
   (inst and result (lognot sb!vm:lowtag-mask))
   (pseudo-atomic
    (allocation result result)
-   (inst lea result (make-ea :byte :base result :disp other-pointer-type))
-   (storew type result 0 other-pointer-type)
-   (storew length result vector-length-slot other-pointer-type))
+   (inst lea result (make-ea :byte :base result :disp other-pointer-lowtag))
+   (storew type result 0 other-pointer-lowtag)
+   (storew length result vector-length-slot other-pointer-lowtag))
   (inst ret))
 \f
 ;;;; Note: CMU CL had assembly language primitives for hashing strings,