Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv8901
Modified Files:
BUGS version.lisp-expr
Log Message:
0.8.3.88:
* Fix bug reported by Paul Dietz 2003-09-22: do not perform
modular function coversion in deleted blocks.
Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.351
retrieving revision 1.352
diff -u -d -r1.351 -r1.352
--- BUGS 17 Sep 2003 17:12:19 -0000 1.351
+++ BUGS 23 Sep 2003 06:51:39 -0000 1.352
@@ -1256,5 +1256,44 @@
the control word; however, this clobbers any change the user might
have made.
-292:
- (fixed in 0.8.3.74)
+293:
+ From Paul Dietz:
+
+ (defparameter *f1*
+ (compile nil '(LAMBDA (C)
+ (TRUNCATE (LOGORC1 -996082 C) -2))))
+
+ (defparameter *f2*
+ (compile nil '(LAMBDA (C) (DECLARE (NOTINLINE TRUNCATE))
+ (TRUNCATE (LOGORC1 -996082 C) -2))))
+
+ (print (funcall *f1* 25337234)) ==> 13099002
+ (print (funcall *f2* 25337234)) ==> -13099001
+
+294:
+ From Paul Dietz:
+
+ * (funcall (compile nil `(lambda (c)
+ (declare (optimize (speed 3))
+ (type (integer 23062188 149459656) c))
+ (mod c (min -2 0))))
+ 95019853)
+
+ debugger invoked on condition of type SB-INT:SIMPLE-PROGRAM-ERROR:
+ invalid number of arguments: 1
+
+ [...]
+
+ * (funcall (compile nil `(lambda (b)
+ (declare (optimize (speed 3))
+ (type (integer 2 152044363) b))
+ (rem b (min -16 0))))
+ 108251912)
+
+ debugger invoked on condition of type SB-INT:SIMPLE-PROGRAM-ERROR:
+ invalid number of arguments: 1
+
+295:
+ From Paul Dietz:
+
+ (ash -1000000000000 -10000000000000000000) ==> 0 ;; should be -1
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1272
retrieving revision 1.1273
diff -u -d -r1.1272 -r1.1273
--- version.lisp-expr 22 Sep 2003 23:01:13 -0000 1.1272
+++ version.lisp-expr 23 Sep 2003 06:51:39 -0000 1.1273
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.3.87"
+"0.8.3.88"
|