29 lines
769 B
Factor
29 lines
769 B
Factor
USING: accessors arrays assocs compiler.cfg
|
|
compiler.cfg.dataflow-analysis.private compiler.cfg.instructions
|
|
compiler.cfg.linearization compiler.cfg.registers
|
|
compiler.cfg.utilities compiler.cfg.stacks.vacant kernel math sequences sorting
|
|
tools.test vectors ;
|
|
IN: compiler.cfg.stacks.vacant.tests
|
|
|
|
! state>gc-data
|
|
{
|
|
{ { } { } }
|
|
} [
|
|
{ { 3 { } } { 3 { } } } state>gc-data
|
|
] unit-test
|
|
|
|
{
|
|
{ { 0 1 0 } { } }
|
|
{ { 1 0 0 } { 0 } }
|
|
} [
|
|
{ { 3 { 0 2 } } { 3 { } } } state>gc-data
|
|
{ { 3 { 1 2 } } { 3 { 0 } } } state>gc-data
|
|
] unit-test
|
|
|
|
! visit-insn should set the gc info.
|
|
{ { 0 0 } { } } [
|
|
{ { 2 { 0 1 } } { 0 { } } }
|
|
T{ ##alien-invoke { gc-map T{ gc-map } } }
|
|
[ gc-map>> set-gc-map ] keep gc-map>> [ scrub-d>> ] [ scrub-r>> ] bi
|
|
] unit-test
|