update-H ( T1 T2 H -- )

Vocabulary

checksums.sha.private

Inputs

T1	an object
T2	an object
H	an object

Outputs

None

Definition

USING: math.bitwise sequences.private ;

IN: checksums.sha.private

:: update-H ( T1 T2 H -- )
    h g H exchange-unsafe g f H exchange-unsafe
    f e H exchange-unsafe T1 d H nth-unsafe w+
    e H set-nth-unsafe d c H exchange-unsafe
    c b H exchange-unsafe b a H exchange-unsafe T1 T2 w+
    a H set-nth-unsafe ; inline