wymum ( a b -- a' b' )


Vocabulary
checksums.wyhash.private

Inputs
aan object
ban object


Outputs
a'an object
b'an object


Definition
USING: kernel math math.bitwise ;

IN: checksums.wyhash.private

:: wymum ( a b -- a' b' )
a -32 shift 32 bits :> Ha b -32 shift 32 bits
:> Hb a 32 bits :> La b 32 bits :> Lb Ha Hb W*
:> RH Ha Lb W* :> RM0 Hb La W* :> RM1 La Lb W*
:> RL RL RM0 32 shift W+ :> T T RM1 32 shift W+ :> LO T RL <
1 0 ? LO T < 1 0 ? W+ :> C RH RM0 -32 shift W+ RM1 -32 shift
W+ C W+ :> HI LO HI ;