steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/cfg/cfg.factor
View File

@ -48,6 +48,9 @@ SYMBOL: visited
building get push building get push
] with-variable ; inline ] with-variable ; inline
: back-edge? ( from to -- ? )
[ number>> ] bi@ > ;
TUPLE: cfg { entry basic-block } word label spill-counts post-order ; TUPLE: cfg { entry basic-block } word label spill-counts post-order ;
: <cfg> ( entry word label -- cfg ) f f cfg boa ; : <cfg> ( entry word label -- cfg ) f f cfg boa ;

3
basis/compiler/cfg/stack-analysis/stack-analysis.factor
View File

@ -60,9 +60,6 @@ UNION: sync-if-back-edge
##dispatch ##dispatch
##loop-entry ; ##loop-entry ;
: back-edge? ( from to -- ? )
[ number>> ] bi@ > ;
: sync-state? ( -- ? ) : sync-state? ( -- ? )
basic-block get successors>> basic-block get successors>>
[ [ predecessors>> ] keep '[ _ back-edge? ] any? ] any? ; [ [ predecessors>> ] keep '[ _ back-edge? ] any? ] any? ;