1.0.23.27: Less magic constants in the MIPS backend.

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

diff --git a/src/compiler/mips/values.lisp b/src/compiler/mips/values.lisp
index e86882f..e753372 100644 (file)
--- 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))