Email Archive: sbcl-commits (read-only)
|
[Sbcl-commits] CVS: sbcl/src/compiler srctran.lisp,1.172,1.173
From: Paul Khuong <pkhuong@us...> - 2010-01-30 16:16
|
Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv25579/src/compiler
Modified Files:
srctran.lisp
Log Message:
1.0.34.15: Fix DERIVE-TYPE optimizer for %UNARY-ROUND
Handle exclusive bounds conservatively by treating them as inclusive
(instead of dying).
Index: srctran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/srctran.lisp,v
retrieving revision 1.172
retrieving revision 1.173
diff -u -d -r1.172 -r1.173
--- srctran.lisp 27 Jan 2010 01:57:12 -0000 1.172
+++ srctran.lisp 30 Jan 2010 16:16:13 -0000 1.173
@@ -1815,6 +1815,10 @@
(let* ((interval (numeric-type->interval n))
(low (interval-low interval))
(high (interval-high interval)))
+ (when (consp low)
+ (setf low (car low)))
+ (when (consp high)
+ (setf high (car high)))
(specifier-type
`(integer ,(if low
(round low)
|
Thread View
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/compiler srctran.lisp,1.172,1.173 | Paul Khuong <pkhuong@us...> |