basis/compiler/cfg/def-use/def-use-tests.factor

   1 ! Copyright (C) 2009 Daniel Ehrenberg.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel tools.test accessors vectors sequences namespaces
   4 arrays
   5 cpu.architecture
   6 compiler.cfg.def-use
   7 compiler.cfg
   8 compiler.cfg.debugger
   9 compiler.cfg.instructions
  10 compiler.cfg.registers ;
  11
  12 V{
  13     T{ ##peek f 0 D 0 }
  14     T{ ##peek f 1 D 0 }
  15     T{ ##peek f 2 D 0 }
  16 } 1 test-bb
  17 V{
  18     T{ ##replace f 2 D 0 }
  19 } 2 test-bb
  20 1 2 edge
  21 V{
  22     T{ ##replace f 0 D 0 }
  23 } 3 test-bb
  24 2 3 edge
  25 V{ } 4 test-bb
  26 V{ } 5 test-bb
  27 3 { 4 5 } edges
  28 V{
  29     T{ ##phi f 2 H{ { 2 0 } { 3 1 } } }
  30 } 6 test-bb
  31 4 6 edge
  32 5 6 edge
  33
  34 cfg new 1 get >>entry 0 set
  35 [ ] [ 0 get [ compute-defs ] [ compute-uses ] bi ] unit-test