From 3bee9b2f04223f92f78281abfa618dcd62ff7b0e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 25 Feb 1991 18:12:16 +0000 Subject: [PATCH] Fixed TN-OVERLAPS in LOAD-TN-OFFSET-CONFLICTS-IN-SB to make the upper bound exclusive so that we don't spuriously reject locations. --- compiler/pack.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/pack.lisp b/compiler/pack.lisp index 620109036..21b3b27b9 100644 --- a/compiler/pack.lisp +++ b/compiler/pack.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.31 1991/02/24 19:59:14 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.32 1991/02/25 18:12:16 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1008,10 +1008,10 @@ (let ((sc (tn-sc tn)) (tn-offset (tn-offset tn))) (and (eq (sc-sb sc) sb) - (<= tn-offset - offset - (the index - (+ tn-offset (sc-element-size sc))))))) + (<= tn-offset offset) + (< offset + (the index + (+ tn-offset (sc-element-size sc))))))) (same (ref) (let ((tn (tn-ref-tn ref)) (ltn (tn-ref-load-tn ref))) -- GitLab