From 63da3085e86abca7f5dfd474f8b721ff95132717 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 21 Apr 1992 04:15:26 +0000
Subject: [PATCH] Moved several slots out of the ir2-block struct and into the
 block-annotation struct which is :included by ir2-blocks.  This is so the
 byte-code stuff can use control-analyze also.

---
 compiler/vop.lisp | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/compiler/vop.lisp b/compiler/vop.lisp
index 29571db2c..b199cda31 100644
--- a/compiler/vop.lisp
+++ b/compiler/vop.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/vop.lisp,v 1.32 1992/03/23 14:46:19 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vop.lisp,v 1.33 1992/04/21 04:15:26 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -143,6 +143,7 @@
 ;;; associated block.
 ;;;
 (defstruct (ir2-block
+	    (:include block-annotation)
 	    (:constructor really-make-ir2-block (block))
 	    (:print-function %print-ir2-block))
   ;;
@@ -150,17 +151,6 @@
   ;; blocks are split.  This is assigned by lifetime analysis.
   (number nil :type (or index null))
   ;;
-  ;; The IR1 block that this block is in the Info for.  
-  (block (required-argument) :type cblock)
-  ;;
-  ;; The next and previous block in emission order (not DFO).  This determines
-  ;; which block we drop though to, and also used to chain together overflow
-  ;; blocks that result from splitting of IR2 blocks in lifetime analysis.
-  (next nil :type (or ir2-block null))
-  (prev nil :type (or ir2-block null))
-  ;;
-  unused-slot
-  ;;
   ;; Information about unknown-values continuations that is used by stack
   ;; analysis to do stack simulation.  A unknown-values continuation is Pushed
   ;; if it's Dest is in another block.  Similarly, a continuation is Popped if
-- 
GitLab