[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	integers.lisp 
Log Message:
Use %make-bignum rather than malloc-non-pointer-words.

Date: Wed Sep 22 19:40:47 2004
Author: ffjeld

Index: movitz/losp/muerte/integers.lisp
diff -u movitz/losp/muerte/integers.lisp:1.96 movitz/losp/muerte/integers.lisp:1.97
--- movitz/losp/muerte/integers.lisp:1.96	Tue Sep 21 15:06:20 2004
+++ movitz/losp/muerte/integers.lisp	Wed Sep 22 19:40:47 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: integers.lisp,v 1.96 2004/09/21 13:06:20 ffjeld Exp $
+;;;; $Id: integers.lisp,v 1.97 2004/09/22 17:40:47 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1020,8 +1020,7 @@
 		     (:cld)
 		     (:store-lexical (:lexical-binding d0) :eax :type fixnum)
 		     (:store-lexical (:lexical-binding d1) :edx :type fixnum)
-		     (:compile-form (:result-mode :eax)
-				    (malloc-non-pointer-words 3))
+		     (:compile-form (:result-mode :eax) (%make-bignum 2))
 		     (:movl ,(dpb (* 2 movitz:+movitz-fixnum-factor+)
 				  (byte 16 16) (movitz:tag :bignum 0))
 			    (:eax ,movitz:+other-type-offset+))