weak-hash32 ( bytes offset a b -- low high )

Vocabulary

checksums.cityhash.private

Inputs

bytes	an object
offset	an object
a	an object
b	an object

Outputs

low	an object
high	an object

Definition

USING: math math.bitwise ;

IN: checksums.cityhash.private

:: weak-hash32 ( bytes offset a b -- low high )
    a bytes offset fetch64 W+ :> a' a' bytes offset 8 + fetch64
    W+ bytes offset 16 + fetch64 W+ :> sum bytes offset 24 +
    fetch64 :> z sum z W+ b a' W+ z W+ -21 bitroll-64
    sum -44 bitroll-64 W+ a' W+ ;