2016-08-26 05:06:17 -04:00
|
|
|
USING: accessors compiler.cfg compiler.cfg.instructions
|
|
|
|
|
compiler.cfg.registers compiler.cfg.stacks
|
|
|
|
|
compiler.cfg.stacks.finalize compiler.cfg.stacks.local
|
2015-04-20 15:22:09 -04:00
|
|
|
compiler.cfg.utilities kernel sequences tools.test ;
|
|
|
|
|
IN: compiler.cfg.stacks.finalize.tests
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
T{ ##branch f f }
|
|
|
|
|
T{ ##branch f f }
|
|
|
|
|
} [
|
|
|
|
|
V{ } clone 1 insns>block V{ } clone 2 insns>block
|
|
|
|
|
2dup connect-bbs 2dup visit-edge
|
|
|
|
|
[ successors>> first instructions>> first ]
|
|
|
|
|
[ predecessors>> first instructions>> first ] bi*
|
|
|
|
|
] unit-test
|
2016-08-26 05:06:17 -04:00
|
|
|
|
|
|
|
|
{
|
|
|
|
|
T{ ds-loc f 4 }
|
|
|
|
|
T{ rs-loc f 5 }
|
|
|
|
|
} [
|
|
|
|
|
begin-stack-analysis
|
|
|
|
|
3 4 T{ basic-block }
|
|
|
|
|
[ record-stack-heights ]
|
|
|
|
|
[ D: 1 swap untranslate-loc ]
|
|
|
|
|
[ R: 1 swap untranslate-loc ] tri
|
|
|
|
|
] unit-test
|
