From fd71e3193da66c8e8ecb1509ff27e9b8c979a021 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 8 Oct 2016 19:05:07 +0000
Subject: [PATCH] * Do not write elements for default values

git-svn-id: trunk@34676 -
---
 utils/fpdoc/makeskel.pp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/utils/fpdoc/makeskel.pp b/utils/fpdoc/makeskel.pp
index 3c5a9b7abe..e9c5e866c6 100644
--- a/utils/fpdoc/makeskel.pp
+++ b/utils/fpdoc/makeskel.pp
@@ -132,8 +132,8 @@ Var
 begin
   If Assigned(FModules) then 
     begin
-    For I:=0 to FModules.Count-1 do
-      FModules.Objects[i].Free;
+   { For I:=0 to FModules.Count-1 do
+      FModules.Objects[i].Release;}
     FreeAndNil(FModules);    
     end;
 end;
@@ -145,7 +145,7 @@ Var
   PT,PP : TPasElement;
 begin
   ParentVisible:=True;
-  If (El is TPasArgument) or (El is TPasResultElement) then
+  If (El is TPasArgument) or (El is TPasResultElement) or (el is TPasExpr)  then
     begin
     PT:=El.Parent;
     // Skip ProcedureType or PasFunctionType
@@ -165,10 +165,11 @@ begin
       end;
     end;
   Result:=Assigned(El.Parent) and (Length(El.Name) > 0) and
+          (Not (El is TPasExpr)) and
           (ParentVisible and (not DisableArguments or (El.ClassType <> TPasArgument))) and
           (ParentVisible and (not DisableFunctionResults or (El.ClassType <> TPasResultElement))) and
-          (not DisablePrivate or (el.Visibility<>visPrivate)) and
-          (not DisableProtected or (el.Visibility<>visProtected));
+          (not DisablePrivate or (Not (el.Visibility in [visPrivate,visStrictPrivate]))) and
+          (not DisableProtected or (Not (el.Visibility in [visProtected,visStrictProtected])));
   If Result and Full then
     begin
     Result:=(Not Assigned(FEmittedList) or (FEmittedList.IndexOf(El.FullName)=-1));