hash-round ( bytes offset state mul factor -- )

Vocabulary

checksums.cityhash.private

Inputs

bytes	an object
offset	an object
state	an object
mul	an object
factor	an object

Outputs

None

Definition

USING: accessors math math.bitwise ;

IN: checksums.cityhash.private

:: hash-round ( bytes offset state mul factor -- )
    state x>> state y>> W+ state v0>> W+ bytes offset 8 +
    fetch64 W+ -37 bitroll-64 mul W* state w1>> factor W* bitxor
    :> x state y>> state v1>> W+ bytes offset 48 + fetch64 W+
    -42 bitroll-64 mul W* state v0>> factor W* W+
    bytes offset 40 + fetch64 W+ :> y state z>> state w0>> W+
    -33 bitroll-64 mul W* :> z bytes offset state v1>> mul W*
    x state w0>> W+ weak-hash32 :> ( v0 v1 ) bytes offset 32 +
    z state w1>> W+ y bytes offset 16 + fetch64 W+ weak-hash32
    :> ( w0 w1 ) state z >>x y >>y x >>z v0 >>v0 ~7 more~ ;