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 IN: compiler.cfg.def-use.tests
  12
  13 V{
  14     T{ ##peek f 0 D 0 }
  15     T{ ##peek f 1 D 0 }
  16     T{ ##peek f 2 D 0 }
  17 } 1 test-bb
  18 V{
  19     T{ ##replace f 2 D 0 }
  20 } 2 test-bb
  21 1 2 edge
  22 V{
  23     T{ ##replace f 0 D 0 }
  24 } 3 test-bb
  25 2 3 edge
  26 V{ } 4 test-bb
  27 V{ } 5 test-bb
  28 3 { 4 5 } edges
  29 V{
  30     T{ ##phi f 2 H{ { 2 0 } { 3 1 } } }
  31 } 6 test-bb
  32 4 6 edge
  33 5 6 edge
  34
  35 cfg new 1 get >>entry 0 set
  36 [ ] [ 0 get [ compute-defs ] [ compute-uses ] bi ] unit-test