simplify-slot-addressing ( insn -- insn/f )


Vocabulary
compiler.cfg.gvn.slots

Inputs
insnan object


Outputs
insn/fan object


Definition
USING: accessors compiler.cfg.gvn.graph kernel math ;

IN: compiler.cfg.gvn.slots

: simplify-slot-addressing ( insn -- insn/f )
dup simplify-slot-addressing? [
clone dup slot>> vreg>insn
[ src1>> >>slot ]
[ src2>> over scale>> [ shift - ] 2curry change-tag ] bi
] [ drop f ] if ;