X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Farray.lisp;h=eac0f62b0664180f84ade56481a3742d0c8cba43;hb=dea9bd5c1afe23d9e061c60db654b88187ba9a5e;hp=b40e455caebffa117072ed6c6b0aa879705e3745;hpb=ea775867d48327bf1179eb570263427f28083880;p=sbcl.git

diff --git a/src/compiler/sparc/array.lisp b/src/compiler/sparc/array.lisp
index b40e455..eac0f62 100644
--- a/src/compiler/sparc/array.lisp
+++ b/src/compiler/sparc/array.lisp
@@ -189,7 +189,8 @@
 	 (:result-types positive-fixnum)
 	 (:temporary (:scs (non-descriptor-reg)) temp)
 	 (:generator 15
-	   (multiple-value-bind (word extra) (floor index ,elements-per-word)
+	   (multiple-value-bind (word extra) 
+               (floor index ,elements-per-word)
 	     (setf extra (logxor extra (1- ,elements-per-word)))
 	     (let ((offset (- (* (+ word vector-data-offset) n-word-bytes)
 			      other-pointer-lowtag)))
@@ -199,8 +200,7 @@
 		      (inst li temp offset)
 		      (inst ld result object temp))))
 	     (unless (zerop extra)
-	       (inst srl result
-		     (logxor (* extra ,bits) ,(1- elements-per-word))))
+	       (inst srl result (* extra ,bits)))
 	     (unless (= extra ,(1- elements-per-word))
 	       (inst and result ,(1- (ash 1 bits)))))))
        (define-vop (,(symbolicate 'data-vector-set/ type))