anchor.diff:  procedure TdbgpConnection.Prepare;
   begin
     inherited;
  +  Server.Breakpoints.Clean;
  +
     FSpool.Add(TdbgpInit.Create);
     FSpool.Add(TdbgpFeatureSet.CreateBy('show_hidden', '1'));
     FSpool.Add(TdbgpFeatureSet.CreateBy('max_depth', IntToStr(Server.StackDepth)));
  
positive.code: 
    { TdbgpModifyBreakpoint }
  
    TdbgpModifyBreakpoint = class(TdbgpAction)
    protected
    public
      Handle: Integer;
      Delete: Boolean;
      FileName: string;
      FileLine: integer;
      BreakpointID: cardinal;
  
negative.code:   end;
  end;
  
  procedure TdbgpBreakpoints.Clean;
  var
    i: Integer;
  begin
    i := 0;
    while i < Count do
    begin
      if Items[i].Deleted then
        Delete(i)
      else
      begin
        Items[i].ID := 0;
        Inc(i);
      end;
    end;
  end;
  
  { TdbgpGetWatches }
  
  function TdbgpGetWatches.Stay: boolean;
  