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