emit-validation-sum ( values -- result )

Vocabulary

compiler.cfg.register-allocation.validation

Inputs

values

an object

Outputs

result

an object

Definition

USING: compiler.cfg.instructions kernel math sequences ;

IN: compiler.cfg.register-allocation.validation

:: emit-validation-sum ( values -- result )
    values first :> result! values rest
    [| value i | 150 i + dup result value ##add, result! ]
    each-index result ;