khash64-step ( func input -- output )

Vocabulary

checksums.khash.private

Inputs

func	an object
input	an object

Outputs

output

an object

Definition

USING: kernel math math.bitwise ;

IN: checksums.khash.private

:: khash64-step ( func input -- output )
    func input 7 - bitxor dup -31 bitroll-64 bitxor
    dup -11 bitroll-64 W- dup -17 bitroll-64 W- input 13 -
    bitxor dup -23 bitroll-64 bitxor dup -31 bitroll-64 W+
    dup -13 bitroll-64 W- input 2 - bitxor dup -19 bitroll-64 W-
    dup -5 bitroll-64 W+ dup -31 bitroll-64 W- ;