Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1:/tmp/cvs-serv28592/src/compiler/generic
Modified Files:
vm-type.lisp
Log Message:
0.8.2.14:
* DERIVE-TYPE optimizer for AREF does not try to put a type
assertion on its result;
* fix type declaration for INTEGER-DECODE-FLOAT;
* cross-compiler vertions of MAKE-{SINGLE,DOUBLE}-FLOAT now
work with denormalized numbers;
... since this change causes bootstrapping problems under
previous versions of SBCL, replace a reference to
LEAST-POSITIVE-DOUBLE-FLOAT with a code, constructing this
number.
Index: vm-type.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-type.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- vm-type.lisp 16 Jul 2003 08:26:02 -0000 1.16
+++ vm-type.lisp 3 Aug 2003 11:32:29 -0000 1.17
@@ -43,6 +43,9 @@
#!-long-float `(integer 0 ,sb!vm:double-float-digits)
#!+long-float `(integer 0 ,sb!vm:long-float-digits))
(sb!xc:deftype float-radix () '(integer 2 2))
+(sb!xc:deftype float-int-exponent ()
+ #!-long-float 'double-float-int-exponent
+ #!+long-float 'long-float-int-exponent)
;;; a code for BOOLE
(sb!xc:deftype boole-code () '(unsigned-byte 4))
|