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

compiler.cfg.stack-analysis: enable global optimization

db4
Slava Pestov 2009-06-30 18:11:45 -05:00
parent 4db44cd23f
commit 3355fa4809
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,17 +59,12 @@ UNION: sync-if-back-edge
##dispatch ##dispatch
##loop-entry ; ##loop-entry ;
SYMBOL: local-only?
t local-only? set-global
: back-edge? ( from to -- ? ) : back-edge? ( from to -- ? )
[ number>> ] bi@ > ; [ 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? ;
local-only? get or ;
M: sync-if-back-edge visit M: sync-if-back-edge visit
sync-state? [ sync-state ] when , ; sync-state? [ sync-state ] when , ;