assign-bundle ( bundle reg -- )

Vocabulary

compiler.cfg.register-allocation.backtracking

Inputs

bundle	an object
reg	an object

Outputs

None

Definition

USING: accessors compiler.cfg.register-allocation.occupancy
kernel namespaces sequences ;

IN: compiler.cfg.register-allocation.backtracking

:: assign-bundle ( bundle reg -- )
    bundle intervals>> [ reg >>reg drop ] each bundle spillset>> 
    [| spillset |
        spillset hint>> reg =
        [ backtracking-hint-hits inc ] when spillset reg >>hint
        drop
    ] when* bundle assigned-bundles get push
    bundle bundle ranges>> bundle reg bundle-register-occupancy
    occupy-ranges ;