compiler.cfg: move back-edge? word from stack-analysis to top-level vocab

db4
Slava Pestov 2009-07-09 23:13:30 -05:00
parent d02854b04e
commit 6810b922ee
2 changed files with 3 additions and 3 deletions

View File

@ -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 ;

View File

@ -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? ;