From 04429a5b4a05b5e908ae55eccd715492d1321859 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Fri, 13 Aug 1999 16:03:52 +0000 Subject: [PATCH] Don't access the array CURRENTLY-VALID with an invalid index in FIND-VALID-STORAGE-LOCATION; from Raymond Toy. --- compiler/disassem.lisp | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 7d04dd854..a6f16bb12 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -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! -- GitLab