[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv18785

Modified Files:
	compiler.lisp 
Log Message:
Starting to add some bignum support.

Date: Mon May 24 10:58:01 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.59 movitz/compiler.lisp:1.60
--- movitz/compiler.lisp:1.59	Fri Apr 23 10:58:52 2004
+++ movitz/compiler.lisp	Mon May 24 10:58:00 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.59 2004/04/23 14:58:52 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.60 2004/05/24 14:58:00 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -4786,12 +4786,9 @@
 					 :provider provider))
 	  (:untagged-fixnum-ecx
 	   (case (result-mode-type desired-result)
-	     ((:eax :ebx :ecx :edx)
-	      (values (append code `((:cmpl ,+movitz-most-positive-fixnum+ :ecx)
-				     (:ja '(:sub-program ()
-					    (:int 4)))
-				     (:leal ((:ecx ,+movitz-fixnum-factor+) :edi ,(edi-offset))
-					    ,desired-result)))
+	     ((:eax :single-value)
+	      (values (append code
+			      `((:call (:edi ,(global-constant-offset 'normalize-u32-ecx)))))
 		      desired-result))
 	     (t (make-result-and-returns-glue desired-result :eax
 					      (make-result-and-returns-glue :eax :untagged-fixnum-ecx code