17 lines
517 B
Factor
17 lines
517 B
Factor
USING: accessors compiler.cfg compiler.cfg.builder.blocks compiler.cfg.stacks
|
|
compiler.cfg.utilities kernel namespaces sequences tools.test ;
|
|
IN: compiler.cfg.builder.blocks.tests
|
|
|
|
{
|
|
{ "succ" "succ" "succ" }
|
|
} [
|
|
3 [ <basic-block> ] replicate <basic-block> "succ" >>number
|
|
dupd connect-Nto1-bbs [ successors>> first number>> ] map
|
|
] unit-test
|
|
|
|
{ 33 } [
|
|
begin-stack-analysis <basic-block> 33 >>number basic-block set
|
|
(begin-basic-block)
|
|
basic-block get predecessors>> first number>>
|
|
] unit-test
|