1.0.23.27: Less magic constants in the MIPS backend.
authorThiemo Seufer <ths@networkno.de>
Wed, 10 Dec 2008 22:01:07 +0000 (22:01 +0000)
committerThiemo Seufer <ths@networkno.de>
Wed, 10 Dec 2008 22:01:07 +0000 (22:01 +0000)
src/compiler/mips/call.lisp
src/compiler/mips/values.lisp
version.lisp-expr

index af2d65d..efba661 100644 (file)
@@ -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)
index e86882f..e753372 100644 (file)
     (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))
index a03a8a4..0548086 100644 (file)
@@ -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"