(crc32) ( crc ch -- crc )


Vocabulary
checksums.crc32

Inputs
crcan object
chan object


Outputs
crcan object


Definition
USING: kernel math sequences.private ;

IN: checksums.crc32

: (crc32) ( crc ch -- crc )
dupd bitxor 255 bitand crc32-table nth-unsafe swap -8 shift
bitxor ; inline