0.9.5.6:

[sbcl.git] / src / compiler / mips / nlx.lisp

diff --git a/src/compiler/mips/nlx.lisp b/src/compiler/mips/nlx.lisp
index b59518f..ed25b12 100644 (file)
--- 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)