[Openmcl-cvs-notifications] r13065 - /trunk/source/level-1/l1-streams.lisp

[rme at clozure.com]

Author: rme
Date: Tue Oct 20 23:06:14 2009
New Revision: 13065

Log:
In MAKE-HEAP-IVECTOR, ensure that element-count is not too big.
(fixes ticket:611)

Modified:
    trunk/source/level-1/l1-streams.lisp

Modified: trunk/source/level-1/l1-streams.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-streams.lisp (original)
+++ trunk/source/level-1/l1-streams.lisp Tue Oct 20 23:06:14 2009
@@ -223,6 +223,8 @@
   (dispose-heap-ivector v))
 =

 (defun make-heap-ivector (element-count element-type)
+  (require-type element-count `(unsigned-byte ,(- target::nbits-in-word
+						  target::num-subtag-bits)))
   (let* ((subtag (ccl::element-type-subtype element-type)))
     (unless
         #+ppc32-target