fcl-passrc: useanalyzer: mark attributes of class/record type even if typeinfo is not used

git-svn-id: trunk@47283 -

packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -2388,6 +2388,8 @@ begin
           RaiseNotSupported(20180328224632,aClass,GetObjName(o));
         end;
     end;
+
+  UseAttributes(El);
 end;
 
 procedure TPasAnalyzer.UseClassConstructor(El: TPasMembersType);

packages/fcl-passrc/tests/tcuseanalyzer.pas

@@ -3428,15 +3428,20 @@ begin
   '  TObject = class',
   '    constructor {#TObject_Create_used}Create;',
   '  end;',
+  '  {#TRedAttribute_notused}TRedAttribute = class',
+  '  end;',
   '  {#TCustomAttribute_used}TCustomAttribute = class',
   '  end;',
   '  [TCustom]',
   '  TBird = class;',
   '  TMyInt = word;',
   '  TBird = class end;',
-  'constructor TObject.Create; begin end;',
+  'constructor TObject.Create;',
+  'begin',
+  'end;',
+  'var b: TBird;',
   'begin',
-  '  if typeinfo(TBird)=nil then ;',
+  '  b:=TBird.Create;',
   '']);
   AnalyzeWholeProgram;
 end;