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