anchor.diff:      property Process[i: Integer]: TDbgProcess read GetProcess;
     end;
     
  +// utility function
  +function SetThreadExecAddr(athread: TDbgThread; const Addr: TDbgPtr): Boolean;
   
   implementation
  +
  +function SetThreadExecAddr(athread: TDbgThread; const Addr: TDbgPtr): Boolean;
  +var
  +  datalist  : TDbgDataBytesList;
  +begin
  +  datalist:=TDbgDataBytesList.Create;
  +  try
  +    Result:=Assigned(athread) and (athread.GetThreadRegs(datalist));
  +    if Result then begin
  +      datalist.Reg[CPUCode.ExecuteRegisterName].DbgPtr:=Addr;
  +      Result:=athread.SetThreadRegs(datalist);
  +    end;
  +  finally
  +    datalist.Free;
  +  end;
  +end;
   
   type
     { TMemAccessObject }
  
positive.code: interface                      
  
  uses
    Classes, contnrs, dbgTypes, dbgCPU; 
    
  type
    TDbgMain = class;
  
negative.code: end;
  
  procedure TRawCPUBreakpoint.Disable;
  var
    res : INteger;
  begin
    res:=fTarget.WriteMem(fProcID, fAddr, length(buf), buf);
    SetLength(buf,0);
  end;
  
  