occupy-ranges ( owner ranges occupancy -- )

Vocabulary

compiler.cfg.register-allocation.occupancy

Inputs

owner	an object
ranges	an object
occupancy	an object

Outputs

None

Definition

USING: accessors arrays kernel math sequences ;

IN: compiler.cfg.register-allocation.occupancy

:: occupy-ranges ( owner ranges occupancy -- )
    occupancy serial>> :> serial ranges [| range |
        range first2 owner serial 4array
        :> entry occupancy entries>> :> entries range first
        entries occupancy-lower-bound :> i i entries length =
        [ entry entries push ]
        [ occupancy entry i entries insert-nth >>entries drop ]
        if
    ] each occupancy serial 1 + >>serial drop ;