dmitry boyarintsev wrote: > Graeme, why don't you use power of the FPC (and it's pointer maths)? > Pascal is language of readable code :)
The original code is not mine, I'm simply making it 64-bit friendly and removing some compiler warnings where possible. > > procedure XorBlock(var InData1, InData2; Size: longword); > var > b1 : PByte; // in Delphi i'd use PByteArray > b2 ; PByte; > i: longword; > begin > b1:=...@indata1; > b2:=...@indata2; > for i:=0 to size-1 do > b1[i]:=b1[i] xor b2[i]; ^ ^ ^ dcpcrypt2.pas(660,9) Error: Array type required You are the second person to recommend something like this and every time I get compiler errors. I am using 64-bit FPC 2.4.0-rc1 under Linux. But yes, your code is indeed more readable. :-) > But, since we're using 32-bit processors it's more effective to use > 32-bit xor (where possible)! I'm not using 32-bit processors. That's the whole reason for the modifications to DCPCrypt code - getting it 64-bit compatible. Regards, - Graeme - -- fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal http://opensoft.homeip.net/fpgui/ _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal