change-insn-gc-roots ( gc-map-insn quot: ( x -- x ) -- )
Assigning registers to live intervals

Next:

emit-##call-gc ( insn -- )

Vocabulary
compiler.cfg.linear-scan.assignment

Inputs

gc-map-insn	a gc-map-insn
quot	a quotation

Outputs
None

Word description
Applies the quotation to all vregs in the instructions gc-map.

Definition

USING: accessors assocs kernel sequences ;

IN: compiler.cfg.linear-scan.assignment

: change-insn-gc-roots ( gc-map-insn quot: ( x -- x ) -- )
    [ gc-map>> ] dip
    [ [ gc-roots>> ] dip map! drop ] [
        [ bi@ ] curry [ assoc-map ] curry change-derived-roots
        drop
    ] 2bi ; inline