26 lines
649 B
Factor
26 lines
649 B
Factor
|
IN: compiler.cfg.gc-checks.tests
|
||
|
|
USING: compiler.cfg.gc-checks compiler.cfg.debugger
|
||
|
|
compiler.cfg.registers compiler.cfg.instructions compiler.cfg
|
||
|
|
compiler.cfg.predecessors cpu.architecture tools.test kernel vectors
|
||
|
|
namespaces accessors sequences ;
|
||
|
|
|
||
|
|
: test-gc-checks ( -- )
|
||
|
|
cfg new 0 get >>entry
|
||
|
|
compute-predecessors
|
||
|
|
insert-gc-checks
|
||
|
|
drop ;
|
||
|
|
|
||
|
|
V{
|
||
|
|
T{ ##inc-d f 3 }
|
||
|
|
T{ ##replace f V int-regs 0 D 1 }
|
||
|
|
} 0 test-bb
|
||
|
|
|
||
|
|
V{
|
||
|
|
T{ ##box-float f V int-regs 0 V int-regs 1 }
|
||
|
|
} 1 test-bb
|
||
|
|
|
||
|
|
0 get 1 get 1vector >>successors drop
|
||
|
|
|
||
|
|
[ ] [ test-gc-checks ] unit-test
|
||
|
|
|
||
|
|
[ V{ D 0 D 2 } ] [ 1 get instructions>> first uninitialized-locs>> ] unit-test
|