factor/basis/compiler/cfg/copy-prop/copy-prop-tests.factor

USING: accessors compiler.cfg  compiler.cfg.copy-prop compiler.cfg.debugger
compiler.cfg.instructions compiler.cfg.registers compiler.cfg.utilities
cpu.architecture kernel namespaces tools.test ;
IN: compiler.cfg.copy-prop.tests

: test-copy-propagation ( -- )
    0 get block>cfg copy-propagation drop ;

! Simple example
V{
    T{ ##prologue }
    T{ ##branch }
} 0 test-bb

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

V{
    T{ ##peek f 1 D 1 }
    T{ ##branch }
} 2 test-bb

V{
    T{ ##copy f 2 0 any-rep }
    T{ ##branch }
} 3 test-bb

V{
    T{ ##phi f 3 H{ { 2 0 } { 3 2 } } }
    T{ ##phi f 4 H{ { 2 1 } { 3 2 } } }
    T{ ##phi f 5 H{ { 2 1 } { 3 0 } } }
    T{ ##branch }
} 4 test-bb

V{
    T{ ##copy f 6 4 any-rep }
    T{ ##replace f 3 D 0 }
    T{ ##replace f 5 D 1 }
    T{ ##replace f 6 D 2 }
    T{ ##branch }
} 5 test-bb

V{
    T{ ##epilogue }
    T{ ##return }
} 6 test-bb

0 1 edge
1 { 2 3 } edges
2 4 edge
3 4 edge
4 5 edge

[ ] [ test-copy-propagation ] unit-test

[
    V{
        T{ ##replace f 0 D 0 }
        T{ ##replace f 4 D 1 }
        T{ ##replace f 4 D 2 }
        T{ ##branch }
    }
] [ 5 get instructions>> ] unit-test

! Test optimistic assumption
V{
    T{ ##prologue }
    T{ ##branch }
} 0 test-bb

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

V{
    T{ ##phi f 1 H{ { 1 0 } { 2 2 } } }
    T{ ##copy f 2 1 any-rep }
    T{ ##branch }
} 2 test-bb

V{
    T{ ##replace f 2 D 1 }
    T{ ##branch }
} 3 test-bb

V{
    T{ ##epilogue }
    T{ ##return }
} 4 test-bb

0 1 edge
1 2 edge
2 { 2 3 } edges
3 4 edge

[ ] [ test-copy-propagation ] unit-test

[
    V{
        T{ ##replace f 0 D 1 }
        T{ ##branch }
    }
] [ 3 get instructions>> ] unit-test