definitions checksums ;
IN: checksums.crc32
-CONSTANT: crc32-polynomial HEX: edb88320
+CONSTANT: crc32-polynomial 0xedb88320
CONSTANT: crc32-table V{ }
INSTANCE: crc32 checksum
: init-crc32 ( input checksum -- x y input )
- drop [ HEX: ffffffff dup ] dip ; inline
+ drop [ 0xffffffff dup ] dip ; inline
: finish-crc32 ( x y -- bytes )
bitxor 4 >be ; inline