27 lines
637 B
Factor
27 lines
637 B
Factor
|
USING: compiler.cfg.height compiler.cfg.instructions
|
||
|
|
compiler.cfg.registers tools.test ;
|
||
|
|
IN: compiler.cfg.height.tests
|
||
|
|
|
||
|
|
[
|
||
|
|
V{
|
||
|
|
T{ ##inc-r f -1 f }
|
||
|
|
T{ ##inc-d f 4 f }
|
||
|
|
T{ ##peek f 0 D 4 f }
|
||
|
|
T{ ##peek f 1 D 0 f }
|
||
|
|
T{ ##replace f 0 R -1 f }
|
||
|
|
T{ ##replace f 1 R 0 f }
|
||
|
|
T{ ##peek f 2 D 0 f }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
V{
|
||
|
|
T{ ##peek f 0 D 0 }
|
||
|
|
T{ ##inc-d f 3 }
|
||
|
|
T{ ##peek f 1 D -1 }
|
||
|
|
T{ ##replace f 0 R 0 }
|
||
|
|
T{ ##inc-r f -1 }
|
||
|
|
T{ ##replace f 1 R 0 }
|
||
|
|
T{ ##inc-d f 1 }
|
||
|
|
T{ ##peek f 2 D 0 }
|
||
|
|
} height-step
|
||
|
|
] unit-test
|