(process-ripemd-160-block-H1) ( 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-H1) ( block state1 -- )
    { uint-array uint-array } declare {
        [ d e a b c 3 S1 32 T13 ]
        [ c d e a b 10 S1 33 T13 ]
        [ b c d e a 14 S1 34 T13 ]
        [ a b c d e 4 S1 35 T13 ]
        [ e a b c d 9 S1 36 T13 ]
        [ d e a b c 15 S1 37 T13 ]
        [ c d e a b 8 S1 38 T13 ]
        [ b c d e a 1 S1 39 T13 ]
        [ a b c d e 2 S1 40 T13 ]
        [ e a b c d 7 S1 41 T13 ]
        [ d e a b c 0 S1 42 T13 ]
        [ c d e a b 6 S1 43 T13 ]
        [ b c d e a 13 S1 44 T13 ]
        [ a b c d e 11 S1 45 T13 ]
        [ e a b c d 5 S1 46 T13 ]
        [ d e a b c 12 S1 47 T13 ]
    } [ H ] with-ripemd-160-round ;