sum-rounds ( values rounds -- sum )

Vocabulary

compiler.cfg.register-allocation.spill-sites.fixtures

Inputs

values	an object
rounds	an object

Outputs

sum

an object

Definition

USING: compiler.cfg.instructions math ;

IN: compiler.cfg.register-allocation.spill-sites.fixtures

:: sum-rounds ( values rounds -- sum )
    values sum-values :> sum! rounds 1 - [
        values sum-values :> term fresh-int :> next next sum
        term ##add, next sum!
    ] times sum ;