(process-ripemd-160-block-I1) ( 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-I1) ( block state1 -- )
    { uint-array uint-array } declare {
        [ c d e a b 1 S1 48 T14 ]
        [ b c d e a 9 S1 49 T14 ]
        [ a b c d e 11 S1 50 T14 ]
        [ e a b c d 10 S1 51 T14 ]
        [ d e a b c 0 S1 52 T14 ]
        [ c d e a b 8 S1 53 T14 ]
        [ b c d e a 12 S1 54 T14 ]
        [ a b c d e 4 S1 55 T14 ]
        [ e a b c d 13 S1 56 T14 ]
        [ d e a b c 3 S1 57 T14 ]
        [ c d e a b 7 S1 58 T14 ]
        [ b c d e a 15 S1 59 T14 ]
        [ a b c d e 14 S1 60 T14 ]
        [ e a b c d 5 S1 61 T14 ]
        [ d e a b c 6 S1 62 T14 ]
        [ c d e a b 2 S1 63 T14 ]
    } [ I ] with-ripemd-160-round ;