diff --git a/compiler/vop.lisp b/compiler/vop.lisp index 29571db2c7d7ffb2958ff9d7533c6ec7f6aeb045..b199cda31207eadeb26a403a35996c83b0fdcb11 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