basis/compiler/cfg/value-numbering/misc/misc.factor

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