[W517] Regression from 2015.11 to 2016.04: Too much classes hide warning

2016.04 does not issue in contrast to 2015.11 the W517 warning, when too much classes are defined.

Steps:

- run FixInsight against the following code with fifty additional classes

-> no W517 is issues

- remove five classes and run FixInsight again

-> W517 Variable 'View' hides a class field, method or property

unit W517ToMuchClasses;

interface

type
  TCisDBGrid = class(TObject)
  private
    function GetView: TObject;
  public
    property View: TObject read GetView;
  end;

  TClass001 = class(TObject);
  TClass002 = class(TObject);
  TClass003 = class(TObject);
  TClass004 = class(TObject);
  TClass005 = class(TObject);
  TClass006 = class(TObject);
  TClass007 = class(TObject);
  TClass008 = class(TObject);
  TClass009 = class(TObject);
  TClass010 = class(TObject);
  TClass011 = class(TObject);
  TClass012 = class(TObject);
  TClass013 = class(TObject);
  TClass014 = class(TObject);
  TClass015 = class(TObject);
  TClass016 = class(TObject);
  TClass017 = class(TObject);
  TClass018 = class(TObject);
  TClass019 = class(TObject);
  TClass020 = class(TObject);
  TClass021 = class(TObject);
  TClass022 = class(TObject);
  TClass023 = class(TObject);
  TClass024 = class(TObject);
  TClass025 = class(TObject);
  TClass026 = class(TObject);
  TClass027 = class(TObject);
  TClass028 = class(TObject);
  TClass029 = class(TObject);
  TClass030 = class(TObject);
  TClass031 = class(TObject);
  TClass032 = class(TObject);
  TClass033 = class(TObject);
  TClass034 = class(TObject);
  TClass035 = class(TObject);
  TClass036 = class(TObject);
  TClass037 = class(TObject);
  TClass038 = class(TObject);
  TClass039 = class(TObject);
  TClass040 = class(TObject);
  TClass041 = class(TObject);
  TClass042 = class(TObject);
  TClass043 = class(TObject);
  TClass044 = class(TObject);
  TClass045 = class(TObject);
  TClass046 = class(TObject);
  TClass047 = class(TObject);
  TClass048 = class(TObject);
  TClass049 = class(TObject);
  TClass050 = class(TObject);

implementation

function TCisDBGrid.GetView: TObject;
var
  View: TObject;
begin
  Result := nil;
end;

end.