add-capacity ( amount from to network -- )

Vocabulary

compiler.cfg.register-allocation.greedy.regions

Inputs

amount	an object
from	an object
to	an object
network	an object

Outputs

None

Definition

USING: accessors arrays assocs kernel math ;

IN: compiler.cfg.register-allocation.greedy.regions

:: add-capacity ( amount from to network -- )
    from to 2array :> key amount key network capacities>> at
    0 or + key network capacities>> set-at
    to from network neighbors>> push-at
    from to network neighbors>> push-at ;