X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fvalues.lisp;h=e753372d7b644e572c4b22554d2ee7779a7397fc;hb=94969b68e8f7fdb6edca614ca7c63d99f95221ba;hp=e86882f55fcd9288b4c5969b24b9ac85d86b3e91;hpb=554303a5217026139af0c1b18632155d70c09eb0;p=sbcl.git

diff --git a/src/compiler/mips/values.lisp b/src/compiler/mips/values.lisp
index e86882f..e753372 100644
--- a/src/compiler/mips/values.lisp
+++ b/src/compiler/mips/values.lisp
@@ -168,8 +168,8 @@
     (inst addu csp-tn count)
     LOOP
     (inst lw temp src)
-    (inst addu src 4)
-    (inst addu dst 4)
+    (inst addu src n-word-bytes)
+    (inst addu dst n-word-bytes)
     (inst bne dst csp-tn loop)
-    (inst sw temp dst -4)
+    (inst sw temp dst (- n-word-bytes))
     DONE))