compute-shared-use-cost ( vreg required -- )

Vocabulary

compiler.cfg.representations.selection

Inputs

vreg	an object
required	an object

Outputs

None

Definition

USING: arrays kernel namespaces sets ;

IN: compiler.cfg.representations.selection

:: compute-shared-use-cost ( vreg required -- )
    vreg required 2array costed-use-conversions get ?adjoin
    [ vreg required 5 increase-costs ] when ;