1 ! Copyright (C) 2010 Slava Pestov.
2 ! See http://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
9 [ loc>> ] [ src>> vreg>insn ] bi
11 insn>literal dup immediate-store?
12 [ swap ##replace-imm new-insn ] [ 2drop f ] if