Skip to content
Snippets Groups Projects
Commit 63da3085 authored by wlott's avatar wlott
Browse files

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.
parent acf1ed07
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment