1 IN: compiler.cfg.gc-checks.tests
2 USING: compiler.cfg.gc-checks compiler.cfg.debugger
3 compiler.cfg.registers compiler.cfg.instructions compiler.cfg
4 compiler.cfg.predecessors cpu.architecture tools.test kernel vectors
5 namespaces accessors sequences ;
7 : test-gc-checks ( -- )
15 T{ ##replace f V int-regs 0 D 1 }
19 T{ ##box-float f V int-regs 0 V int-regs 1 }
22 0 get 1 get 1vector >>successors drop
24 [ ] [ test-gc-checks ] unit-test
26 [ V{ D 0 D 2 } ] [ 1 get instructions>> first uninitialized-locs>> ] unit-test