Hello Lazarus-List,
Tuesday, September 13, 2011, 2:42:25 PM, you wrote:
LMR> While converting the code, I found this routine in Assembler. I'm
LMR> wondering if somebody can help me convert this to Pascal?.
LMR> Here's the routine:
Basically:
LMR> procedure XorMemPrim(var Mem1; const Mem2; Count : Cardinal);
procedure XorMemPrim(var Mem1; const Mem2; Count : Cardinal);
var
c: PtrUint;
begin
for c:=0 to Count-1 do
begin
PBYTE(Mem1)[c]^:=PBYTE(Mem1)[c]^ xor PBYTE(Mem2)[c]^;
end;
end;
Syntax not checked.
--
Best regards,
José
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
