anchor.diff:    end;
   end;
   
  -function SetSingleStepx86_64(pid: Integer; isEnabled: Boolean): Boolean;
  +function SetSingleStepx86_64(pid: TDbgProcessID; isEnabled: Boolean): Boolean;
   begin
     { TODO : Implement 64-bit Linux single stepping - EXPERIMENTAL }
     Result := ptraceSingleStep(pid);
   end;
   
  -function ReadRegsx64(pid: Integer; regs: TDbgDataList): Boolean;
  +function ReadRegsx64(pid: TDbgProcessID; regs: TDbgDataList): Boolean;
   var
     regs64  : user_64;
     res     : Integer;
  
positive.code:   Result := Size;
  end;
  
  function ReadProcMemUser(pid: Integer; Offset: TDbgPtr; Size: Integer; var Data: array of Byte): Integer;
  var
    i   : Integer;
    w   : array [0..sizeof(TPtraceWord)-1] of byte;
  
negative.code: 
  end;
  
  function WriteRegsx64(pid: TDbgProcessID; regs: TDbgDataList): Boolean;
  begin
    //todo:!
    Result:=False;
  end;
  
  function ReadProcMem(pid: TDbgProcessID; Offset: TDbgPtr; Size: Integer; var Data: array of Byte): Integer;
  var
    i   : LongWord;
    j   : Integer;
  