X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fmemory.lisp;h=bd529b2caf7f4e4668a54335ce7e6dce065ea16e;hb=69ef68ba7393e3492c1b4a756d1140f71c2922bc;hp=ca8c2e28b0dc9328a3f117620e6b7c3d206e2640;hpb=4ebdc81b1a9c6dbed6e98b112afc8dd32b17a2dd;p=sbcl.git

diff --git a/src/compiler/x86-64/memory.lisp b/src/compiler/x86-64/memory.lisp
index ca8c2e2..bd529b2 100644
--- a/src/compiler/x86-64/memory.lisp
+++ b/src/compiler/x86-64/memory.lisp
@@ -95,28 +95,24 @@
 (define-vop (slot-set)
   (:args (object :scs (descriptor-reg))
 	 (value :scs (descriptor-reg any-reg immediate)))
+  (:temporary (:sc unsigned-reg) temp)
   (:variant-vars base lowtag)
   (:info offset)
   (:generator 4
      (if (sc-is value immediate)
 	 (let ((val (tn-value value)))
-	   (etypecase val
-	     (integer
-	      (inst mov
-		    (make-ea :dword :base object
-			     :disp (- (* (+ base offset) n-word-bytes) lowtag))
-		    (fixnumize val)))
-	     (symbol
-	      (inst mov
-		    (make-ea :dword :base object
-			     :disp (- (* (+ base offset) n-word-bytes) lowtag))
-		    (+ nil-value (static-symbol-offset val))))
-	     (character
-	      (inst mov
-		    (make-ea :dword :base object
-			     :disp (- (* (+ base offset) n-word-bytes) lowtag))
-		    (logior (ash (char-code val) n-widetag-bits)
-			    base-char-widetag)))))
+	   (move-immediate (make-ea :qword :base object
+				    :disp (- (* (+ base offset)	n-word-bytes)
+					     lowtag))
+			   (etypecase val
+			     (integer
+			      (fixnumize val))
+			     (symbol
+			      (+ nil-value (static-symbol-offset val)))
+			     (character
+			      (logior (ash (char-code val) n-widetag-bits)
+				      character-widetag)))
+			   temp))
 	 ;; Else, value not immediate.
 	 (storew value object (+ base offset) lowtag))))