anchor.diff:      function ResetParamsCache: Boolean; virtual;
     end;
     
  -function RegisterCommand(const Keys: array of String; ACommand: TCommand): Boolean;
  -function FindCommand(const Key: String): TCommand;
  -function ExecuteCommand(Params: TStrings; var Env: TCommandEnvironment; var ExecutedCommand: TCommand): Boolean;
  -
  -var
  -  QuitCommand : Boolean;
  -
  -implementation
  -
  -var 
  -  keyslist : TStringList;
  -  cmdlist  : TList;
  -  
  -type 
  -  { THelpCommand }
  +
     THelpCommand = class(TCommand)
     public
       procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
       function ShortHelp: String; override;
     end;
  -  
  -  { TExitCommand }
  +
   
     TExitCommand = class(TCommand)
       procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
  
positive.code:     for details about redistributing fpDebug.
  
      Description:
        .
  }
  unit commands;
  
  {$ifdef fpc}{$mode delphi}{$H+}{$endif}
  
  interface
  
  
negative.code:     function Thread: TDbgThread; virtual; abstract; // thread there stopped
    end;
    
  
    TCommand = class(TObject)
    public
  