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