(process-ripemd-160-block-F1) ( block state1 -- )

Vocabulary

checksums.ripemd.private

Inputs

block	an object
state1	an object

Outputs

None

Definition

USING: kernel.private
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.ripemd.private

: (process-ripemd-160-block-F1) ( block state1 -- )
    { uint-array uint-array } declare {
        [ a b c d e 0 S1 0 T11 ]
        [ e a b c d 1 S1 1 T11 ]
        [ d e a b c 2 S1 2 T11 ]
        [ c d e a b 3 S1 3 T11 ]
        [ b c d e a 4 S1 4 T11 ]
        [ a b c d e 5 S1 5 T11 ]
        [ e a b c d 6 S1 6 T11 ]
        [ d e a b c 7 S1 7 T11 ]
        [ c d e a b 8 S1 8 T11 ]
        [ b c d e a 9 S1 9 T11 ]
        [ a b c d e 10 S1 10 T11 ]
        [ e a b c d 11 S1 11 T11 ]
        [ d e a b c 12 S1 12 T11 ]
        [ c d e a b 13 S1 13 T11 ]
        [ b c d e a 14 S1 14 T11 ]
        [ a b c d e 15 S1 15 T11 ]
    } [ F ] with-ripemd-160-round ;