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

Emit branches in the same order they're written in code

db4
Slava Pestov 2008-11-13 03:52:01 -06:00
parent ef6206d4bb
commit b1aa3697cb
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/linearization/linearization.factor
View File

@ -43,8 +43,8 @@ M: ##branch linearize-insn
: binary-conditional ( basic-block insn -- basic-block successor label2 src1 src2 cc ) : binary-conditional ( basic-block insn -- basic-block successor label2 src1 src2 cc )
[ (binary-conditional) ] [ (binary-conditional) ]
[ drop dup successors>> first useless-branch? ] 2bi [ drop dup successors>> second useless-branch? ] 2bi
[ [ number>> ] 3dip negate-cc ] [ [ swap number>> ] 3dip ] if ; [ [ swap number>> ] 3dip ] [ [ number>> ] 3dip negate-cc ] if ;
M: ##compare-branch linearize-insn M: ##compare-branch linearize-insn
binary-conditional _compare-branch emit-branch ; binary-conditional _compare-branch emit-branch ;

5
basis/compiler/cfg/rpo/rpo.factor
View File

@ -9,7 +9,10 @@ SYMBOL: visited
: post-order-traversal ( bb -- ) : post-order-traversal ( bb -- )
dup id>> visited get key? [ drop ] [ dup id>> visited get key? [ drop ] [
dup id>> visited get conjoin dup id>> visited get conjoin
[ successors>> [ post-order-traversal ] each ] [ , ] bi [
successors>> <reversed>
[ post-order-traversal ] each
] [ , ] bi
] if ; ] if ;
: post-order ( bb -- blocks ) : post-order ( bb -- blocks )