X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fnlx.lisp;h=8aa7a0c2dda184321675cf793c9cce1e0c37d7fa;hb=0a2d9c98c53cfe7b3874ca96b11dd629a360aa42;hp=b59518f1e1e9a2c61b061677d46202a93ed83a9f;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/mips/nlx.lisp b/src/compiler/mips/nlx.lisp
index b59518f..8aa7a0c 100644
--- a/src/compiler/mips/nlx.lisp
+++ b/src/compiler/mips/nlx.lisp
@@ -155,7 +155,7 @@
     (cond ((zerop nvals))
           ((= nvals 1)
            (let ((no-values (gen-label)))
-             (inst beq count zero-tn no-values)
+             (inst beq count no-values)
              (move (tn-ref-tn values) null-tn t)
              (loadw (tn-ref-tn values) start)
              (emit-label no-values)))
@@ -168,7 +168,7 @@
                      (tn (tn-ref-tn tn-ref)))
                  (defaults (cons default-lab tn))
 
-                 (inst beq count zero-tn default-lab)
+                 (inst beq count default-lab)
                  (inst addu count count (fixnumize -1))
                  (sc-case tn
                           ((descriptor-reg any-reg)
@@ -222,7 +222,7 @@
       (sc-case new-start
         (any-reg (move new-start dst))
         (control-stack (store-stack-tn new-start dst)))
-      (inst beq num zero-tn done)
+      (inst beq num done)
       (inst nop)
       (sc-case new-count
         (any-reg (move new-count num))
@@ -232,9 +232,9 @@
       (emit-label loop)
       (loadw temp src)
       (inst addu src src n-word-bytes)
-      (storew temp dst)
       (inst addu num num (fixnumize -1))
-      (inst bne num zero-tn loop)
+      (storew temp dst)
+      (inst bne num loop)
       (inst addu dst dst n-word-bytes)
 
       (emit-label done)