anchor.diff:  
   {$mode objfpc}{$H+}
   
  -interface
  +interface                      
   
   uses
     contnrs, dbgTypes; 
  
positive.code:   fTarget:=ATarget;
    fProcList:=TFPObjectList.Create;
    fMemHandlers:=TFPObjectList.Create(false);
    DoAddProcess(AProcessID);
  end;
  
  destructor TDbgMain.Destroy;  
  begin
    fMemHandlers.Free;
    fProcList.Free;
    inherited Destroy;  
  end;
  
  function TDbgMain.WaitForEvent(var Event: TDbgEvent): Boolean;  
  begin
    UpdateProcThreadState;
    Result:=fTarget.WaitNextEvent(Event);
    if Result then DoHandleEvent(Event);
  end;
  
  function TDbgMain.FindProcess(processID: TDbgProcessID): TDbgProcess; 
  
negative.code:     fProcList : TFPObjectList;
  
      fMemHandlers  : TFPObjectList;
      fEventHandlers : TFPObjectList;
    protected
      function DoAddProcess(AProcessID: Integer): TDbgProcess;
      procedure DoRemoveProcess(AProcessID: Integer);
  