anchor.diff:  
   { TdbgpGetWatch }
   
  -procedure TdbgpGetWatch.Process(Respond: TdbgpRespond);
  -begin
  -  inherited;
  +procedure TdbgpGetWatch.Execute(Respond: TdbgpRespond);
  +begin
     DBGP.Lock.Enter;
     try
       Connection.Server.Watches[Index].Info.Value := Info.Value;
  
positive.code:     Result := Result + ' -d ' + IntToStr(aDepth);}
  end;
  
  procedure TdbgpGetCurrent.Process(Respond: TdbgpRespond);
  var
    i: Integer;
  begin
    inherited;
  (*
    <response xmlns="urn:debugger_protocol_v1" xmlns:xdebug="http://xdebug.org/dbgp/xdebug" command="stack_get" transaction_id="8">
    <stack where="App-&gt;__construct" level="0" type="file" filename="file:///W:/web/sites/abrash.com/websale/fw/core/ui/app.php" lineno="200"></stack>
  
negative.code:   Result := 'step_into';
  end;
  
  procedure TdbgpStepInto.Execute(Respond: TdbgpRespond);
  begin
  end;
  
  procedure TdbgpServer.Resume;
  