anchor.diff:      procedure AfterRead(Proc: TDbgProcessID; var Data: array of byte; Offset: TDbgPtr; Count: Integer); virtual; abstract;
       procedure BeforeWrite(Proc: TDbgProcessID; var Data: array of byte; Offset: TDbgPtr; Count: Integer); virtual; abstract;
     end;
  +  
  +  TDbgEventHandler = class(TObject)
  +  public
  +    procedure HandleEvent(const Event: TDbgEvent; var EventHandled: Boolean); virtual; abstract;
  +  end;
   
     { TDbgMain }
   
  
positive.code:     fProcList : TFPObjectList;
  
      fMemHandlers  : TFPObjectList;
    protected
      function DoAddProcess(AProcessID: Integer): TDbgProcess;
      procedure DoRemoveProcess(AProcessID: Integer);
  
negative.code: 
  {$mode objfpc}{$H+}
  
  interface                      
  
  uses
    contnrs, dbgTypes; 
  