(ABCD) ( x state a b c d k s i quot -- )

Vocabulary

checksums.md5.private

Inputs

x	an object
state	an object
a	an object
b	an object
c	an object
d	an object
k	an object
s	an object
i	an object
quot	an object

Outputs

None

Definition

USING: kernel math.bitwise sequences.private ;

IN: checksums.md5.private

:: (ABCD) ( x state a b c d k s i quot -- )
    a state [
        b state nth-unsafe c state nth-unsafe d state nth-unsafe
        quot call w+ k x nth-unsafe w+ i T nth-unsafe w+
        s bitroll-32 b state nth-unsafe w+
    ] change-nth-unsafe ; inline