From: Alexey D. <ade...@us...> - 2004-12-19 07:01:36
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10306/tests Modified Files: compiler.pure.lisp Log Message: 0.8.17.29: * Merged sbcl-0-8-17-28-signed-modular branch. Index: compiler.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v retrieving revision 1.111 retrieving revision 1.112 diff -u -d -r1.111 -r1.112 --- compiler.pure.lisp 2 Dec 2004 15:49:48 -0000 1.111 +++ compiler.pure.lisp 19 Dec 2004 07:01:26 -0000 1.112 @@ -1656,3 +1656,14 @@ (dotimes (i 100) (when (> (funcall fun t) 9) (error "bad RANDOM event")))) + +;;; 0.8.17.28-sma.1 lost derived type information. +(handler-bind ((sb-ext:compiler-note #'error)) + (compile nil + '(lambda (x y v) + (declare (optimize (speed 3) (safety 0))) + (declare (type (integer 0 80) x) + (type (integer 0 11) y) + (type (simple-array (unsigned-byte 32) (*)) v)) + (setf (aref v 0) (* (* x #.(floor (ash 1 32) (* 11 80))) y)) + nil))) |