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