inner-loop ( n H W K -- temp )

Vocabulary

checksums.sha.private

Inputs

n	an object
H	an object
W	an object
K	an object

Outputs

temp

an object

Definition

USING: combinators.smart math.bitwise sequences.private ;

IN: checksums.sha.private

:: inner-loop ( n H W K -- temp )
    a H nth-unsafe :> A b H nth-unsafe :> B c H nth-unsafe
    :> C d H nth-unsafe :> D e H nth-unsafe :> E [
        A 5 bitroll-32 B C D n sha1-f E n K nth-unsafe
        n W nth-unsafe
    ] sum-outputs 32 bits ; inline