37 lines
697 B
Factor
37 lines
697 B
Factor
! Copyright (C) 2009 Daniel Ehrenberg.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel tools.test accessors vectors sequences namespaces
|
|
arrays
|
|
cpu.architecture
|
|
compiler.cfg.def-use
|
|
compiler.cfg
|
|
compiler.cfg.debugger
|
|
compiler.cfg.instructions
|
|
compiler.cfg.registers ;
|
|
IN: compiler.cfg.def-use.tests
|
|
|
|
V{
|
|
T{ ##peek f 0 D 0 }
|
|
T{ ##peek f 1 D 0 }
|
|
T{ ##peek f 2 D 0 }
|
|
} 1 test-bb
|
|
V{
|
|
T{ ##replace f 2 D 0 }
|
|
} 2 test-bb
|
|
1 2 edge
|
|
V{
|
|
T{ ##replace f 0 D 0 }
|
|
} 3 test-bb
|
|
2 3 edge
|
|
V{ } 4 test-bb
|
|
V{ } 5 test-bb
|
|
3 { 4 5 } edges
|
|
V{
|
|
T{ ##phi f 2 H{ { 2 0 } { 3 1 } } }
|
|
} 6 test-bb
|
|
4 6 edge
|
|
5 6 edge
|
|
|
|
cfg new 1 get >>entry 0 set
|
|
[ ] [ 0 get compute-defs ] unit-test
|