(process-ripemd-160-block-I2) ( 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-I2) ( block state2 -- )
    { uint-array uint-array } declare {
        [ e a b c d 6 S2 16 T22 ]
        [ d e a b c 11 S2 17 T22 ]
        [ c d e a b 3 S2 18 T22 ]
        [ b c d e a 7 S2 19 T22 ]
        [ a b c d e 0 S2 20 T22 ]
        [ e a b c d 13 S2 21 T22 ]
        [ d e a b c 5 S2 22 T22 ]
        [ c d e a b 10 S2 23 T22 ]
        [ b c d e a 14 S2 24 T22 ]
        [ a b c d e 15 S2 25 T22 ]
        [ e a b c d 8 S2 26 T22 ]
        [ d e a b c 12 S2 27 T22 ]
        [ c d e a b 4 S2 28 T22 ]
        [ b c d e a 9 S2 29 T22 ]
        [ a b c d e 1 S2 30 T22 ]
        [ e a b c d 2 S2 31 T22 ]
    } [ I ] with-ripemd-160-round ;