memory-loop-work ( cell: memory-cell n: fixnum -- result: fixnum )

Vocabulary

compiler.cfg.memory-optimization.validation

Inputs

cell	a memory-cell
n	a fixnum

Outputs

result

a fixnum

Definition

USING: math typed ;

IN: compiler.cfg.memory-optimization.validation

TYPED:: memory-loop-work
    ( cell: memory-cell n: fixnum -- result: fixnum )
    0 :> checksum! n [| i |
        cell i 1 bitand zero? memory-branch checksum bitxor
        checksum!
    ] each-integer checksum ;