* minor hint and warning improvements

git-svn-id: trunk@15868 -

packages/fcl-passrc/src/pparser.pp

@@ -3204,6 +3204,13 @@ begin
     if CurToken = tkBraceOpen then
     begin
       TPasClassType(Result).AncestorType := ParseType(nil);
+      {$ifdef Inheritancewarnings}
+        s:=TPasClassType(Result).AncestorType.pathname;
+        if pos('#',s)=0 then
+          begin
+            writeln('Note: ', TPasClassType(Result).pathname,'''s ancestor ',s, ' at ',sourcefilename,':',sourcelinenumber,' cannot be resolved fully');
+          end;
+      {$endif}
       while True do
       begin
         NextToken;

utils/fpdoc/dglobals.pp

@@ -754,7 +754,7 @@ var
 
            for j:= 0 to inhclass.count-1 do
              begin
-               writeln('processing',inhclass[j]);
+               // writeln('processing',inhclass[j]);
                cls2:=TPasClassType(ResolveClassType(inhclass[j])); 
                if assigned(cls2) and not (cls=cls2) then  // save from tobject=implicit tobject
                  begin