Re: crc and Ada

[tmoran@acm.org]

> I'm starting in Ada, and I can't use same operators (like xor, and) in
Take another look at your Ada text.  There are indeed "and", "xor" etc
operators for modular (unsigned) types.

> crc=(crctable[((crc>>8)^bufor[start+i++]) & 0xFF]^(crc<<8))&0xFFFF;

type crc_type is mod 2**16;
crc : crc_type := initial value
type byte is mod 256;
crc_table : array(byte) of crc_type;

for i in start .. finish loop
  crc:=crc_table(byte(crc/256) xor bufor(i)) xor ((crc mod 256)*256);
end loop;