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+))