X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fcell.lisp;h=87c5e9c12a03529d119fba92c62b539556ea94dc;hb=883b33b092472473b0dd559d64351b9436916af3;hp=a6290c83bff5286a1a6d8bc35c9751cf7bb4e961;hpb=4ebdc81b1a9c6dbed6e98b112afc8dd32b17a2dd;p=sbcl.git

diff --git a/src/compiler/x86-64/cell.lisp b/src/compiler/x86-64/cell.lisp
index a6290c8..87c5e9c 100644
--- a/src/compiler/x86-64/cell.lisp
+++ b/src/compiler/x86-64/cell.lisp
@@ -24,31 +24,28 @@
 (define-vop (set-slot)
   (:args (object :scs (descriptor-reg))
 	 (value :scs (descriptor-reg any-reg immediate)))
+  (:temporary (:sc descriptor-reg) temp)
   (:info name offset lowtag)
   (:ignore name)
   (:results)
   (:generator 1
-     (if (sc-is value immediate)
+    (if (sc-is value immediate)
 	(let ((val (tn-value value)))
-	   (etypecase val
-	      (integer
-	       (inst mov
-		     (make-ea :dword :base object
-			      :disp (- (* offset n-word-bytes) lowtag))
-		     (fixnumize val)))
-	      (symbol
-	       (inst mov
-		     (make-ea :dword :base object
-			      :disp (- (* offset n-word-bytes) lowtag))
-		     (+ nil-value (static-symbol-offset val))))
-	      (character
-	       (inst mov
-		     (make-ea :dword :base object
-			      :disp (- (* offset n-word-bytes) lowtag))
-		     (logior (ash (char-code val) n-widetag-bits)
-			     base-char-widetag)))))
-       ;; Else, value not immediate.
-       (storew value object offset lowtag))))
+	  (move-immediate (make-ea :qword
+				   :base object
+				   :disp (- (* 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 offset lowtag))))