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

Merge branch 'master' of git://factorcode.org/git/factor into dcn

db4
Slava Pestov 2009-07-22 00:14:53 -05:00
parent e49de006c4 1aa6c9a0d5
commit 86df665f78
3 changed files with 10 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/dominance/dominance-tests.factor
View File

@ -36,8 +36,8 @@ V{ } 5 test-bb
[ { 4 } ] [ 1 get dom-frontier [ number>> ] map ] unit-test [ { 4 } ] [ 1 get dom-frontier [ number>> ] map ] unit-test
[ { 4 } ] [ 2 get dom-frontier [ number>> ] map ] unit-test [ { 4 } ] [ 2 get dom-frontier [ number>> ] map ] unit-test
[ f ] [ 0 get dom-frontier ] unit-test [ { } ] [ 0 get dom-frontier ] unit-test
[ f ] [ 4 get dom-frontier ] unit-test [ { } ] [ 4 get dom-frontier ] unit-test
! Example from the paper ! Example from the paper
V{ } 0 test-bb V{ } 0 test-bb

23
basis/compiler/cfg/phi-elimination/phi-elimination-tests.factor
View File

@ -36,27 +36,20 @@ V{
test-diamond test-diamond
3 vreg-counter set-global
[ ] [ cfg new 0 get >>entry eliminate-phis drop ] unit-test [ ] [ cfg new 0 get >>entry eliminate-phis drop ] unit-test
[let | n! [ f ] | [ T{ ##copy f V int-regs 4 V int-regs 1 } ] [
2 get successors>> first instructions>> first
[ ] [ 2 get successors>> first instructions>> first dst>> n>> n! ] unit-test
[ t ] [
T{ ##copy f V int-regs n V int-regs 1 }
2 get successors>> first instructions>> first =
] unit-test ] unit-test
[ t ] [ [ T{ ##copy f V int-regs 4 V int-regs 2 } ] [
T{ ##copy f V int-regs n V int-regs 2 } 3 get successors>> first instructions>> first
3 get successors>> first instructions>> first =
] unit-test ] unit-test
[ t ] [ [ T{ ##copy f V int-regs 3 V int-regs 4 } ] [
T{ ##copy f V int-regs 3 V int-regs n } 4 get instructions>> first
4 get instructions>> first =
] unit-test ] unit-test
]
[ 3 ] [ 4 get instructions>> length ] unit-test [ 3 ] [ 4 get instructions>> length ] unit-test

11
basis/compiler/cfg/value-numbering/value-numbering-tests.factor
View File

@ -1218,17 +1218,6 @@ test-diamond
[ t ] [ 1 get successors>> first 3 get eq? ] unit-test [ t ] [ 1 get successors>> first 3 get eq? ] unit-test
[let | n! [ f ] |
[ ] [ 2 get successors>> first instructions>> first src>> n>> n! ] unit-test
[ t ] [
T{ ##copy f V int-regs n V int-regs 2 }
3 get successors>> first instructions>> first =
] unit-test
]
[ 3 ] [ 4 get instructions>> length ] unit-test [ 3 ] [ 4 get instructions>> length ] unit-test
V{ V{