increase-costs ( vreg preferred factor -- )

Vocabulary

compiler.cfg.representations.selection

Inputs

vreg	an object
preferred	an object
factor	an object

Outputs

None

Definition

USING: assocs compiler.cfg.representations.coalescing kernel
namespaces sequences ;

IN: compiler.cfg.representations.selection

:: increase-costs ( vreg preferred factor -- )
    vreg vreg>scc :> scc scc possibilities get at [
        dup preferred eq?
        [ drop ] [ scc factor increase-cost ] if
    ] each ; inline