From: Christophe R. <cr...@us...> - 2003-09-09 05:05:06
|
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)) |