[Sbcl-commits] CVS: sbcl/src/compiler/mips call.lisp, 1.22, 1.23 values.lisp, 1.5, 1.6

[Thiemo S. <th...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv18880/src/compiler/mips

Modified Files:
	call.lisp values.lisp 
Log Message:
1.0.23.27: Less magic constants in the MIPS backend.


Index: call.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/call.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- call.lisp	19 Sep 2008 20:56:21 -0000	1.22
+++ call.lisp	10 Dec 2008 22:01:07 -0000	1.23
@@ -367,9 +367,9 @@
 
     (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: values.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/values.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- values.lisp	14 Jul 2005 18:48:32 -0000	1.5
+++ values.lisp	10 Dec 2008 22:01:07 -0000	1.6
@@ -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))