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

   1 ! Copyright (C) 2009 Daniel Ehrenberg.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: compiler.cfg.def-use compiler.cfg.instructions
   4 compiler.cfg.registers compiler.cfg.utilities compiler.test namespaces
   5 tools.test ;
   6 IN: compiler.cfg.def-use.tests
   7
   8 ! compute-insns
   9 {
  10     T{ ##peek f 123 D: 0 f }
  11 } [
  12     { T{ ##peek f 123 D: 0 } } 0 insns>block block>cfg compute-insns
  13     123 insn-of
  14 ] unit-test
  15
  16 V{
  17     T{ ##peek f 0 D: 0 }
  18     T{ ##peek f 1 D: 0 }
  19     T{ ##peek f 2 D: 0 }
  20 } 1 test-bb
  21 V{
  22     T{ ##replace f 2 D: 0 }
  23 } 2 test-bb
  24 1 2 edge
  25 V{
  26     T{ ##replace f 0 D: 0 }
  27 } 3 test-bb
  28 2 3 edge
  29 V{ } 4 test-bb
  30 V{ } 5 test-bb
  31 3 { 4 5 } edges
  32 V{
  33     T{ ##phi f 2 H{ { 2 0 } { 3 1 } } }
  34 } 6 test-bb
  35 4 6 edge
  36 5 6 edge
  37
  38 1 get block>cfg 0 set
  39 { } [ 0 get compute-defs ] unit-test