factor/basis/compiler/cfg/liveness/liveness-tests.factor

USING: compiler.cfg.liveness compiler.cfg.debugger
compiler.cfg.instructions compiler.cfg.predecessors
compiler.cfg.registers compiler.cfg cpu.architecture
accessors namespaces sequences kernel tools.test vectors ;
IN: compiler.cfg.liveness.tests

: test-liveness ( -- )
    cfg new 1 get >>entry
    compute-predecessors
    compute-live-sets ;

! Sanity check...

V{
    T{ ##peek f V int-rep 0 D 0 }
    T{ ##replace f V int-rep 0 D 0 }
    T{ ##replace f V int-rep 1 D 1 }
    T{ ##peek f V int-rep 1 D 1 }
    T{ ##branch }
} 1 test-bb

V{
    T{ ##replace f V int-rep 2 D 0 }
    T{ ##branch }
} 2 test-bb

V{
    T{ ##replace f V int-rep 3 D 0 }
    T{ ##return }
} 3 test-bb

1 { 2 3 } edges

test-liveness

[
    H{
        { V int-rep 1 V int-rep 1 }
        { V int-rep 2 V int-rep 2 }
        { V int-rep 3 V int-rep 3 }
    }
]
[ 1 get live-in ]
unit-test

! Tricky case; defs must be killed before uses

V{
    T{ ##peek f V int-rep 0 D 0 }
    T{ ##branch }
} 1 test-bb

V{
    T{ ##add-imm f V int-rep 0 V int-rep 0 10 }
    T{ ##return }
} 2 test-bb

1 2 edge

test-liveness

[ H{ { V int-rep 0 V int-rep 0 } } ] [ 2 get live-in ] unit-test