(process-ripemd-160-block-G2) ( 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-G2) ( block state2 -- )
    { uint-array uint-array } declare {
        [ c d e a b 8 S2 48 T24 ]
        [ b c d e a 6 S2 49 T24 ]
        [ a b c d e 4 S2 50 T24 ]
        [ e a b c d 1 S2 51 T24 ]
        [ d e a b c 3 S2 52 T24 ]
        [ c d e a b 11 S2 53 T24 ]
        [ b c d e a 15 S2 54 T24 ]
        [ a b c d e 0 S2 55 T24 ]
        [ e a b c d 5 S2 56 T24 ]
        [ d e a b c 12 S2 57 T24 ]
        [ c d e a b 2 S2 58 T24 ]
        [ b c d e a 13 S2 59 T24 ]
        [ a b c d e 9 S2 60 T24 ]
        [ e a b c d 7 S2 61 T24 ]
        [ d e a b c 10 S2 62 T24 ]
        [ c d e a b 14 S2 63 T24 ]
    } [ G ] with-ripemd-160-round ;