fcl-passrc: useanalyzer: no hint for attributes

git-svn-id: trunk@41433 -

packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -2470,6 +2470,8 @@ begin
       EmitTypeHints(TPasType(Decl))
     else if Decl is TPasProcedure then
       EmitProcedureHints(TPasProcedure(Decl))
+    else if Decl.ClassType=TPasAttributes then
+      // no hints
     else
       begin
       Usage:=FindElement(Decl);