process-chunk ( M block-size cloned-H sha2 -- )

Vocabulary

checksums.sha.private

Inputs

M	an object
block-size	an object
cloned-H	an object
sha2	an object

Outputs

None

Definition

USING: accessors kernel math math.bitwise sequences ;

IN: checksums.sha.private

:: process-chunk ( M block-size cloned-H sha2 -- )
    block-size
    [ M cloned-H sha2 T1-256 cloned-H T2-256 cloned-H update-H ]
    each-integer sha2 [ cloned-H [ w+ ] 2map ] change-H drop ;
    inline