(process-ripemd-160-block-J2) ( block state2 -- )

Vocabulary

checksums.ripemd.private

Inputs

block	an object
state2	an object

Outputs

None

Definition

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

IN: checksums.ripemd.private

: (process-ripemd-160-block-J2) ( block state2 -- )
    { uint-array uint-array } declare {
        [ a b c d e 5 S2 0 T21 ]
        [ e a b c d 14 S2 1 T21 ]
        [ d e a b c 7 S2 2 T21 ]
        [ c d e a b 0 S2 3 T21 ]
        [ b c d e a 9 S2 4 T21 ]
        [ a b c d e 2 S2 5 T21 ]
        [ e a b c d 11 S2 6 T21 ]
        [ d e a b c 4 S2 7 T21 ]
        [ c d e a b 13 S2 8 T21 ]
        [ b c d e a 6 S2 9 T21 ]
        [ a b c d e 15 S2 10 T21 ]
        [ e a b c d 8 S2 11 T21 ]
        [ d e a b c 1 S2 12 T21 ]
        [ c d e a b 10 S2 13 T21 ]
        [ b c d e a 3 S2 14 T21 ]
        [ a b c d e 12 S2 15 T21 ]
    } [ J ] with-ripemd-160-round ;