(process-ripemd-160-block-J1) ( 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-J1) ( block state1 -- )
    { uint-array uint-array } declare {
        [ b c d e a 4 S1 64 T15 ]
        [ a b c d e 0 S1 65 T15 ]
        [ e a b c d 5 S1 66 T15 ]
        [ d e a b c 9 S1 67 T15 ]
        [ c d e a b 7 S1 68 T15 ]
        [ b c d e a 12 S1 69 T15 ]
        [ a b c d e 2 S1 70 T15 ]
        [ e a b c d 10 S1 71 T15 ]
        [ d e a b c 14 S1 72 T15 ]
        [ c d e a b 1 S1 73 T15 ]
        [ b c d e a 3 S1 74 T15 ]
        [ a b c d e 8 S1 75 T15 ]
        [ e a b c d 11 S1 76 T15 ]
        [ d e a b c 6 S1 77 T15 ]
        [ c d e a b 15 S1 78 T15 ]
        [ b c d e a 13 S1 79 T15 ]
    } [ J ] with-ripemd-160-round ;