Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1:/tmp/cvs-serv2041/src/compiler/generic
Modified Files:
vm-tran.lisp
Log Message:
0.8.3.44:
"Oops"
... as reported on #lisp IRC by pfdietz, FILL would on occasion
consume all available CPU and RAM...
... unbreak the new vectorized transform by returning the
sequence argument rather than NIL.
Index: vm-tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-tran.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- vm-tran.lisp 4 Sep 2003 16:52:07 -0000 1.36
+++ vm-tran.lisp 8 Sep 2003 09:00:17 -0000 1.37
@@ -383,7 +383,7 @@
((= index end)
(let ((place (* times 4)))
(declare (fixnum place))
- (dotimes (j rem)
+ (dotimes (j rem sequence)
(declare (index j))
(setf (schar sequence (the index (+ place j))) item))))
(declare (optimize (speed 3) (safety 0))
|