37 lines
964 B
Factor
37 lines
964 B
Factor
|
USING: accessors assocs biassocs combinators compiler.cfg.instructions
|
||
|
|
compiler.cfg.registers compiler.cfg.stacks.local cpu.architecture kernel
|
||
|
|
namespaces sequences tools.test ;
|
||
|
|
IN: compiler.cfg.stacks.local.tests
|
||
|
|
|
||
|
|
{ T{ current-height f 3 0 3 0 } } [
|
||
|
|
current-height new current-height [
|
||
|
|
3 inc-d current-height get
|
||
|
|
] with-variable
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{
|
||
|
|
{ T{ ##inc-d { n 4 } } T{ ##inc-r { n -2 } } }
|
||
|
|
} [
|
||
|
|
T{ current-height { emit-d 4 } { emit-r -2 } } height-changes
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ 30 } [
|
||
|
|
29 vreg-counter set-global <bihash> locs>vregs set D 0 loc>vreg
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{
|
||
|
|
{
|
||
|
|
T{ ##copy { dst 1 } { src 25 } { rep any-rep } }
|
||
|
|
T{ ##copy { dst 2 } { src 26 } { rep any-rep } }
|
||
|
|
}
|
||
|
|
} [
|
||
|
|
0 vreg-counter set-global <bihash> locs>vregs set
|
||
|
|
{ { D 0 25 } { R 0 26 } } stack-changes
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ 80 } [
|
||
|
|
current-height new current-height set
|
||
|
|
H{ } clone replace-mapping set 80
|
||
|
|
D 77 replace-loc D 77 peek-loc
|
||
|
|
] unit-test
|