paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:40:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not write elements for default values

Browse Source 
git-svn-id: trunk@34676 -
This commit is contained in:
michael 2016-10-08 19:05:07 +00:00
parent 65ea20e9e0
commit fd71e3193d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/fpdoc/makeskel.pp
View File

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