X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Falpha%2Farray.lisp;h=b67466a1307007d983559ce4af071f5551b47920;hb=df679ed627975948b1cee190f4d79c397588c43e;hp=62a44dd0339bce7aaa52b26afc049adaa02005a1;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/assembly/alpha/array.lisp b/src/assembly/alpha/array.lisp
index 62a44dd..b67466a 100644
--- a/src/assembly/alpha/array.lisp
+++ b/src/assembly/alpha/array.lisp
@@ -27,7 +27,7 @@
   ;; This is kinda sleezy, changing words like this.  But we can because
   ;; the vop thinks it is temporary.
   (inst addq words (+ (1- (ash 1 n-lowtag-bits))
-		      (* vector-data-offset word-bytes))
+		      (* vector-data-offset n-word-bytes))
 	words)
   (inst li (lognot lowtag-mask) ndescr)
   (inst and words ndescr words)
@@ -85,7 +85,7 @@
 
   ;; Get a pointer to the data.
   (inst addq string
-	(- (* vector-data-offset word-bytes) other-pointer-lowtag)
+	(- (* vector-data-offset n-word-bytes) other-pointer-lowtag)
 	lip)
   (move zero-tn accum)
   (inst br zero-tn test)