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