paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 15:39:29 +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
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));