X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fnlx.lisp;h=76174caa0785a83b58448afebcecdf1700f222ad;hb=3fe0010d2777b41e01ea9b4a0f894cfa40f7df1b;hp=cb58be03a115b3af2638b6a23c5bd62c6d1b212d;hpb=40bf78b47ea89b15698adb9c550efa4cbacafeb7;p=sbcl.git

diff --git a/src/compiler/mips/nlx.lisp b/src/compiler/mips/nlx.lisp
index cb58be0..76174ca 100644
--- a/src/compiler/mips/nlx.lisp
+++ b/src/compiler/mips/nlx.lisp
@@ -156,7 +156,7 @@
 	  ((= nvals 1)
 	   (let ((no-values (gen-label)))
 	     (inst beq count zero-tn no-values)
-	     (move (tn-ref-tn values) null-tn)
+	     (move (tn-ref-tn values) null-tn t)
 	     (loadw (tn-ref-tn values) start)
 	     (emit-label no-values)))
 	  (t
@@ -223,8 +223,9 @@
 	(any-reg (move new-start dst))
 	(control-stack (store-stack-tn new-start dst)))
       (inst beq num zero-tn done)
+      (inst nop)
       (sc-case new-count
-	(any-reg (inst move new-count num))
+	(any-reg (move new-count num))
 	(control-stack (store-stack-tn new-count num)))
 
       ;; Copy stuff on stack.
@@ -237,7 +238,7 @@
       (inst addu dst dst n-word-bytes)
 
       (emit-label done)
-      (inst move csp-tn dst))))
+      (move csp-tn dst))))
 
 
 ;;; This VOP is just to force the TNs used in the cleanup onto the stack.