From: Thiemo Seufer <ths@networkno.de>
Date: Wed, 10 Dec 2008 22:01:07 +0000 (+0000)
Subject: 1.0.23.27: Less magic constants in the MIPS backend.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=94969b68e8f7fdb6edca614ca7c63d99f95221ba;p=sbcl.git

1.0.23.27: Less magic constants in the MIPS backend.
---

diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp
index af2d65d..efba661 100644
--- a/src/compiler/mips/call.lisp
+++ b/src/compiler/mips/call.lisp
@@ -367,9 +367,9 @@ default-value-8
 
     (when lra-label
       (inst compute-code-from-lra code-tn code-tn lra-label temp))
-    (inst addu csp-tn csp-tn 4)
+    (inst addu csp-tn csp-tn n-word-bytes)
     (storew (first *register-arg-tns*) csp-tn -1)
-    (inst addu start csp-tn -4)
+    (inst addu start csp-tn (- n-word-bytes))
     (inst li count (fixnumize 1))
 
     (emit-label done)
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))
diff --git a/version.lisp-expr b/version.lisp-expr
index a03a8a4..0548086 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.23.26"
+"1.0.23.27"