2015-04-21 16:45:38 -04:00
|
|
|
USING: accessors compiler.cfg.debugger compiler.cfg compiler.cfg.linearization
|
|
|
|
compiler.cfg.linearization.private compiler.cfg.utilities dlists kernel make
|
|
|
|
namespaces sequences tools.test ;
|
2010-05-02 18:48:41 -04:00
|
|
|
IN: compiler.cfg.linearization.tests
|
2009-09-22 04:19:23 -04:00
|
|
|
|
2015-04-21 16:45:38 -04:00
|
|
|
! linearization-order
|
2009-09-22 04:19:23 -04:00
|
|
|
V{ } 0 test-bb
|
|
|
|
|
|
|
|
V{ } 1 test-bb
|
|
|
|
|
|
|
|
V{ } 2 test-bb
|
|
|
|
|
|
|
|
0 { 1 1 } edges
|
|
|
|
1 2 edge
|
|
|
|
|
2015-04-13 17:22:41 -04:00
|
|
|
{ { 0 1 2 } } [
|
|
|
|
0 get block>cfg linearization-order [ number>> ] map
|
|
|
|
] unit-test
|
2015-04-21 16:45:38 -04:00
|
|
|
|
|
|
|
! process-block
|
|
|
|
{ { } V{ 10 } } [
|
|
|
|
HS{ } clone visited set
|
|
|
|
V{ } 10 insns>block [ process-block ] V{ } make
|
|
|
|
[ number>> ] map
|
|
|
|
] unit-test
|