basis/compiler/cfg/ssa/destruction/leaders/leaders.factor

   1 ! Copyright (C) 2012 Alex Vondrak.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: compiler.utilities kernel namespaces ;
   4 IN: compiler.cfg.ssa.destruction.leaders
   5
   6 SYMBOL: leader-map
   7
   8 : leader ( vreg -- vreg' ) leader-map get compress-path ;
   9
  10 : ?leader ( vreg -- vreg' ) [ leader ] keep or ; inline
  11
  12 : leaders ( vreg1 vreg2 -- vreg1' vreg2' )
  13     [ leader ] bi@ ;