factor/basis/compiler/cfg/gc-checks/gc-checks-tests.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-rep 0 D 1 }
} 0 test-bb

V{
    T{ ##box-float f V int-rep 0 V int-rep 1 }
} 1 test-bb

0 1 edge

[ ] [ test-gc-checks ] unit-test

[ V{ D 0 D 2 } ] [ 1 get instructions>> first uninitialized-locs>> ] unit-test