(process-ripemd-160-block-G1) ( block state1 -- )


Vocabulary
checksums.ripemd.private

Inputs
blockan object
state1an object


Outputs
None

Definition
USING: kernel.private
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.ripemd.private

: (process-ripemd-160-block-G1) ( block state1 -- )
{ uint-array uint-array } declare {
[ e a b c d 7 S1 16 T12 ]
[ d e a b c 4 S1 17 T12 ]
[ c d e a b 13 S1 18 T12 ]
[ b c d e a 1 S1 19 T12 ]
[ a b c d e 10 S1 20 T12 ]
[ e a b c d 6 S1 21 T12 ]
[ d e a b c 15 S1 22 T12 ]
[ c d e a b 3 S1 23 T12 ]
[ b c d e a 12 S1 24 T12 ]
[ a b c d e 0 S1 25 T12 ]
[ e a b c d 9 S1 26 T12 ]
[ d e a b c 5 S1 27 T12 ]
[ c d e a b 2 S1 28 T12 ]
[ b c d e a 14 S1 29 T12 ]
[ a b c d e 11 S1 30 T12 ]
[ e a b c d 8 S1 31 T12 ]
} [ G ] with-ripemd-160-round ;