anchor.diff:      Result := Result + ' -d ' + IntToStr(aDepth);}
   end;
   
  -procedure TdbgpGetCurrent.Execute(Respond: TdbgpRespond);
  +procedure TdbgpGetCurrent.Execute(Respond: TDebugCommandRespond);
   var
     i: Integer;
   begin
  
positive.code: {$IFDEF SAVELOG}
      procedure SaveLog(s: string);
  {$ENDIF}
      function ReadRespond: TdbgpRespond;
      function PopAction: TdbgpAction;
      function SendCommand(Command: string; Data: string): integer;
      procedure Prepare; override;
  
negative.code:   Result := 'step_into';
  end;
  
  procedure TdbgpStepInto.Execute(Respond: TDebugCommandRespond);
  begin
  end;
  
  