prepare-M-512 ( n seq -- )

Vocabulary

checksums.sha.private

Inputs

n	an object
seq	an object

Outputs

None

Definition

USING: combinators kernel kernel.private math math.bitwise
sequences.private
specialized-arrays.instances.alien.c-types.ulong ;

IN: checksums.sha.private

: prepare-M-512 ( n seq -- )
    { ulong-array } declare {
        [ [ 16 - ] dip nth-unsafe ]
        [ [ 15 - ] dip nth-unsafe s0-512 ]
        [ [ 7 - ] dip nth-unsafe ]
        [ [ 2 - ] dip nth-unsafe s1-512 w+ w+ w+ ]
        [ ]
    } 2cleave set-nth-unsafe ; inline