Skip to content
Snippets Groups Projects
Commit f172ab27 authored by pw's avatar pw
Browse files

First commit to new cvs server. I hope it works!

From cmucl-imp before server went down. Forgot submitters name, sorry!

Fix fill-pointer-ouch to work on adjustable arrays of zero length.
parent 2bebffcb
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.47 2001/07/08 17:37:55 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.48 2001/09/20 14:23:05 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1249,7 +1249,7 @@
(let ((offset-current (+ start current)))
(declare (fixnum offset-current))
(if (= offset-current end)
(let* ((new-length (* current 2))
(let* ((new-length (if (zerop current) 1 (* current 2)))
(new-workspace (make-string new-length)))
(declare (simple-string new-workspace))
(%primitive byte-blt workspace start new-workspace 0 current)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment