hash64-17to32 ( bytes -- hash )

Vocabulary

checksums.cityhash.private

Inputs

bytes

an object

Outputs

hash

an object

Definition

USING: math math.bitwise sequences ;

IN: checksums.cityhash.private

:: hash64-17to32 ( bytes -- hash )
    bytes length :> len k2 len 2 * W+ :> mul bytes 0 fetch64
    k1 W* :> a bytes 8 fetch64 :> b bytes len 8 - fetch64 mul W*
    :> c bytes len 16 - fetch64 k2 W* :> d a b W+ -43 bitroll-64
    c -30 bitroll-64 W+ d W+ a b k2 W+ -18 bitroll-64 W+ c W+
    mul hash16-mul ;