extra/compiler/cfg/gvn/misc/misc.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors compiler.cfg.gvn.graph compiler.cfg.gvn.rewrite
   4 compiler.cfg.instructions cpu.architecture kernel ;
   5 IN: compiler.cfg.gvn.misc
   6
   7 M: ##replace rewrite
   8     [ loc>> ] [ src>> vreg>insn ] bi
   9     dup literal-insn? [
  10         insn>literal dup immediate-store?
  11         [ swap ##replace-imm new-insn ] [ 2drop f ] if
  12     ] [ 2drop f ] if ;