anchor.diff:    TByteArray = array [word] of byte;
     PByteArray = ^TByteArray;
   
  -function ReadUser32(pid: Integer; var data: user_32): Boolean;
  +function ReadUser32(pid: TDbgProcessID; var data: user_32): Boolean;
   begin
     Result := ReadProcMemUser(pid, 0, sizeof(data), PByteArray(@data)^) = sizeof(data);
   end;
   
  -function WriteUser32(pid: Integer; const data: user_32): Boolean;
  +function WriteUser32(pid: TDbgProcessID; const data: user_32): Boolean;
   begin
     Result:=WriteProcMemUser(pid, 0, sizeof(data), PByteArray(@data)^) = sizeof(data);
   end;
   
  -function ReadRegsi386(pid: Integer; regs: TDbgDataList): Boolean;
  +function ReadRegsi386(pid: TDbgProcessID; regs: TDbgDataList): Boolean;
   var
     user    : user_32;
   begin
  
positive.code:   Result := res = sizeof(regs32);
  end;
  
  function SetSingleStepi386(pid: Integer; isEnabled: Boolean): Boolean;
  var
    regs32  : user_32;
  const
  
negative.code:   Result := Size;
  end;
  
  function ReadProcMemUser(pid: TDbgProcessID; Offset: TDbgPtr; Size: Integer; var Data: array of Byte
    ): Integer;
  var
    i   : Integer;
    w   : array [0..sizeof(TPtraceWord)-1] of byte;
  