From 1aa9e339f18339eb8d0bc6b82a243c3f016d5336 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 23 Apr 1990 16:20:59 +0000 Subject: [PATCH] Use ir2-block-count to determine the number of ir2-blocks, 'cause it has to ignore blocks with NIL for their number. --- compiler/debug.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/debug.lisp b/compiler/debug.lisp index 2c1280e11..efc82a226 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.lisp @@ -759,8 +759,7 @@ "~%TNs: ~D local, ~D temps, ~D constant, ~D env, ~D comp, ~D global.~@ Wired: ~D, Unused: ~D. ~D block~:P, ~D global conflict~:P.~%" local temps const environment comp global wired unused - (1+ (ir2-block-number - (block-info (block-next (component-head component))))) + (ir2-block-count component) confs)) (undefined-value)) -- GitLab