compiler.cfg: move back-edge? word from stack-analysis to top-level vocab
parent
d02854b04e
commit
6810b922ee
|
@ -48,6 +48,9 @@ SYMBOL: visited
|
|||
building get push
|
||||
] with-variable ; inline
|
||||
|
||||
: back-edge? ( from to -- ? )
|
||||
[ number>> ] bi@ > ;
|
||||
|
||||
TUPLE: cfg { entry basic-block } word label spill-counts post-order ;
|
||||
|
||||
: <cfg> ( entry word label -- cfg ) f f cfg boa ;
|
||||
|
|
|
@ -60,9 +60,6 @@ UNION: sync-if-back-edge
|
|||
##dispatch
|
||||
##loop-entry ;
|
||||
|
||||
: back-edge? ( from to -- ? )
|
||||
[ number>> ] bi@ > ;
|
||||
|
||||
: sync-state? ( -- ? )
|
||||
basic-block get successors>>
|
||||
[ [ predecessors>> ] keep '[ _ back-edge? ] any? ] any? ;
|
||||
|
|
Loading…
Reference in New Issue