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 cpu.architecture kernel
   4 compiler.cfg.instructions
   5 compiler.cfg.utilities
   6 compiler.cfg.gvn.graph
   7 compiler.cfg.gvn.rewrite ;
   8 IN: compiler.cfg.gvn.misc
   9
  10 M: ##replace rewrite
  11     [ loc>> ] [ src>> vreg>insn ] bi
  12     dup literal-insn? [
  13         insn>literal dup immediate-store?
  14         [ swap ##replace-imm new-insn ] [ 2drop f ] if
  15     ] [ 2drop f ] if ;