X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Farray.lisp;h=f06179810e1cd93dbbff6493eac50024587d92bd;hb=e67cc0f952040723f7d0f37ddb88fe895f4b1464;hp=2cd1d081e807cb12adaa348726b1f39d050671a9;hpb=a74b61e0469b5954e48600600c0b7b7fe4ff46f8;p=sbcl.git

diff --git a/src/compiler/x86/array.lisp b/src/compiler/x86/array.lisp
index 2cd1d08..f061798 100644
--- a/src/compiler/x86/array.lisp
+++ b/src/compiler/x86/array.lisp
@@ -260,7 +260,8 @@
 		       (mask ,(1- (ash 1 bits)))
 		       (shift (* extra ,bits)))
 		  (unless (= value mask)
-		    (inst and old (ldb (byte 32 0) (lognot (ash mask shift)))))
+		    (inst and old (ldb (byte n-word-bits 0)
+                                       (lognot (ash mask shift)))))
 		  (unless (zerop value)
 		    (inst or old (ash value shift)))))
 	       (unsigned-reg
@@ -1317,6 +1318,10 @@
   unsigned-num %raw-bits)
 (define-full-setter set-raw-bits * 0 other-pointer-lowtag (unsigned-reg)
   unsigned-num %set-raw-bits)
+(define-full-reffer vector-raw-bits * vector-data-offset other-pointer-lowtag
+  (unsigned-reg) unsigned-num %vector-raw-bits)
+(define-full-setter set-vector-raw-bits * vector-data-offset other-pointer-lowtag
+  (unsigned-reg) unsigned-num %set-vector-raw-bits)
 
 ;;;; miscellaneous array VOPs