--- Merging r30609 into '.':

U    utils/fpdoc/fpdoc.pp
--- Merging r30624 into '.':
U    utils/fpdoc/dglobals.pp
--- Merging r30742 into '.':
U    utils/fpdoc/unitdiff.pp

# revisions: 30609,30624,30742

git-svn-id: branches/fixes_3_0@30826 -

utils/fpdoc/dglobals.pp

@@ -475,9 +475,6 @@ begin
       LastChild := Child;
       Child := Child.NextSibling;
     end;
-    { No child found, let's create one if we are at the end of the path }
-    if DotPos > 0 then
-      Raise Exception.CreateFmt('Link path does not exist: %s',[APathName]);
     Result := TLinkNode.Create(ChildName, ALinkTo);
     if Assigned(LastChild) then
       LastChild.FNextSibling := Result

utils/fpdoc/fpdoc.pp

@@ -284,7 +284,7 @@ begin
   else if s = '--warn-no-node' then
     FCreator.Options.WarnNoNode := True
   else if s = '--show-private' then
-    FCreator.Options.ShowPrivate := False
+    FCreator.Options.ShowPrivate := True
   else if s = '--stop-on-parser-error' then
     FCreator.Options.StopOnParseError := True
   else if s = '--dont-trim' then

utils/fpdoc/unitdiff.pp

@@ -12,6 +12,8 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
+{$mode objfpc}
+{$h+}
 
 program unitdiff;