transfer-next-use ( after insn -- before )

Vocabulary

compiler.cfg.register-allocation.chordal.spilling.next-use

Inputs

after	an object
insn	an object

Outputs

before

an object

Definition

USING: assocs compiler.cfg.def-use compiler.cfg.instructions
kernel math sequences ;

IN: compiler.cfg.register-allocation.chordal.spilling.next-use

:: transfer-next-use ( after insn -- before )
    after [ 1 + ] assoc-map :> before insn defs-vregs
    [ before delete-at ] each insn ##phi?
    [ ] [ insn spill-insn-uses [ 0 swap before set-at ] each ]
    if before ;