[movitz-cvs] CVS update: movitz/compiler.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

18 Sep 2005

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv14470
Modified Files:
    compiler.lisp 
Log Message:
Teached the compiler to add a constant to :untagged-fixnum-ecx.
Date: Sun Sep 18 18:20:35 2005
Author: ffjeld
Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.164 movitz/compiler.lisp:1.165

--- movitz/compiler.lisp:1.164	Wed Sep  7 00:00:17 2005
+++ movitz/compiler.lisp	Sun Sep 18 18:20:35 2005
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.164 2005/09/06 22:00:17 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.165 2005/09/18 16:20:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -7007,6 +7007,8 @@
    	     ((eq :argument-stack (operator loc1))
    	      `((:addl ,constant0
    		       (:ebp ,(argument-stack-offset (binding-target term1))))))
+		     ((eq :untagged-fixnum-ecx (operator loc1))
+		      `((:addl ,(truncate constant0 +movitz-fixnum-factor+) :ecx)))
    	     (t (error "Don't know how to add this for loc1 ~S" loc1))))
    	   ((and constant0
    		 (integerp destination-location)

    