anchor.diff:  {$IFDEF SAVELOG}
       procedure SaveLog(s: string);
   {$ENDIF}
  -    function ReadRespond: TdbgpRespond;
  +    function ReadRespond: TDebugCommandRespond;
       function PopAction: TdbgpAction;
       function SendCommand(Command: string; Data: string): integer;
       procedure Prepare; override;
  
positive.code: procedure TdbgpGetCurrent.Created;
  begin
    inherited;
    Flags := Flags + [dbgpafCheckError];
  end;
  
  destructor TdbgpGetCurrent.Destroy;
  
negative.code:   protected
      FName: string;
      FValue: string;
      procedure Execute(Respond: TDebugCommandRespond); override;
    public
      constructor CreateBy(vName, vValue: string);
      function GetCommand: string; override;
  