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

compiler.cfg.critical-edges: reset RPO

db4
Slava Pestov 2009-07-28 01:04:13 -05:00
parent cf90945b4c
commit d2b158c8e4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/cfg/critical-edges/critical-edges.factor
View File

@ -11,9 +11,11 @@ IN: compiler.cfg.critical-edges
f <simple-block> insert-basic-block ; f <simple-block> insert-basic-block ;
: split-critical-edges ( cfg -- ) : split-critical-edges ( cfg -- )
[ dup [
dup successors>> [ dup successors>> [
2dup critical-edge? 2dup critical-edge?
[ split-critical-edge ] [ 2drop ] if [ split-critical-edge ] [ 2drop ] if
] with each ] with each
] each-basic-block ; ] each-basic-block
cfg-changed
drop ;