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

compiler.cfg.linearization: change order to fit older unit tests

db4
Slava Pestov 2009-08-08 23:06:57 -05:00
parent 83e0c60573
commit 687454878a
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/cfg/linear-scan/resolve/resolve.factor
View File

@ -9,6 +9,7 @@ compiler.cfg.liveness
compiler.cfg.registers compiler.cfg.registers
compiler.cfg.utilities compiler.cfg.utilities
compiler.cfg.instructions compiler.cfg.instructions
compiler.cfg.predecessors
compiler.cfg.parallel-copy compiler.cfg.parallel-copy
compiler.cfg.linear-scan.assignment compiler.cfg.linear-scan.assignment
compiler.cfg.linear-scan.allocation.state ; compiler.cfg.linear-scan.allocation.state ;
@ -75,5 +76,7 @@ SYMBOL: temp
dup successors>> [ resolve-edge-data-flow ] with each ; dup successors>> [ resolve-edge-data-flow ] with each ;
: resolve-data-flow ( cfg -- ) : resolve-data-flow ( cfg -- )
needs-predecessors
H{ } clone spill-temps set H{ } clone spill-temps set
[ resolve-block-data-flow ] each-basic-block ; [ resolve-block-data-flow ] each-basic-block ;

2
basis/compiler/cfg/linearization/order/order.factor
View File

@ -53,7 +53,7 @@ SYMBOLS: work-list loop-heads visited ;
] [ drop ] if ; ] [ drop ] if ;
: sorted-successors ( bb -- seq ) : sorted-successors ( bb -- seq )
successors>> [ loop-nesting-at ] sort-with ; successors>> <reversed> [ loop-nesting-at ] sort-with ;
: process-block ( bb -- ) : process-block ( bb -- )
[ , ] [ , ]