On 17 Nov 2009, at 10:02, Graeme Geldenhuys wrote: > How to I solve this compiler hint?
Don't cast ordinals to pointers. > --------------------------------- > procedure XorBlock(var InData1, InData2; Size: longword); > var > i: longword; > begin > for i:= 1 to Size do > Pbyte(PtrUInt(@InData1)+i-1)^ := > Pbyte(PtrUInt(@InData1)+i-1)^ xor > Pbyte(PtrUInt(@InData2)+i-1)^; > end; Replace the PtrUInt types casts with PByte (or Pointer) type casts. Jonas _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal