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

diff --git a/src/compiler/mips/nlx.lisp b/src/compiler/mips/nlx.lisp
index b59518f..ed25b12 100644
--- a/src/compiler/mips/nlx.lisp
+++ b/src/compiler/mips/nlx.lisp
@@ -232,8 +232,8 @@
       (emit-label loop)
       (loadw temp src)
       (inst addu src src n-word-bytes)
-      (storew temp dst)
       (inst addu num num (fixnumize -1))
+      (storew temp dst)
       (inst bne num zero-tn loop)
       (inst addu dst dst n-word-bytes)