diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index 9ee6355fe5..ced9cf09ce 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/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;
diff --git a/utils/fpdoc/dglobals.pp b/utils/fpdoc/dglobals.pp
index 031dbc05c0..78f214ec49 100644
--- a/utils/fpdoc/dglobals.pp
+++ b/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