[Lazarus] Convert assembler to Pascal

[José Mejuto]

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é