Commit 04429a5b authored by dtc's avatar dtc
Browse files

Don't access the array CURRENTLY-VALID with an invalid index in

FIND-VALID-STORAGE-LOCATION; from Raymond Toy.
parent 6672d99f
......@@ -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/compiler/disassem.lisp,v 1.27 1997/02/14 18:01:21 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.28 1999/08/13 16:03:52 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -2777,16 +2777,18 @@
(let ((debug-var-num
(typecase used-by
(fixnum
(and (not
(and (< used-by (length currently-valid))
(not
(zerop (bit currently-valid used-by)))
used-by))
(list
(some #'(lambda (num)
(and (not
(zerop
(bit currently-valid num)))
num))
used-by)))))
(some
#'(lambda (num)
(and (< num (length currently-valid))
(not
(zerop (bit currently-valid num)))
num))
used-by)))))
(and debug-var-num
(progn
;; Found a valid storage reference!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment