fcl-passrc: useanalyzer: skip class interface

git-svn-id: trunk@38024 -

packages/fcl-passrc/src/pasresolver.pp

@@ -14140,7 +14140,7 @@ function TPasResolver.CheckAssignCompatibilityArrayType(const LHS,
         end;
       if Impl=nil then
         exit;
-      // ToDo: const array in implblock, e.g. arr:=[1,2,3]
+      // ToDo: btArrayLit: const array in implblock, e.g. arr:=[1,2,3]
 
       exit;
       end

packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -1737,8 +1737,13 @@ begin
       EmitMessage(20170312000020,mtHint,nPAPrivateTypeXNeverUsed,
         sPAPrivateTypeXNeverUsed,[El.FullName],El)
     else
+      begin
+      if (El is TPasClassType) and (TPasClassType(El).ObjKind=okInterface) then
+        exit;
+
       EmitMessage(20170312000025,mtHint,nPALocalXYNotUsed,
         sPALocalXYNotUsed,[El.ElementTypeName,El.Name],El);
+      end;
     exit;
     end;
   // emit hints for sub elements