paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 05:27:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix AVs when no description nodes available

Browse Source 
git-svn-id: trunk@35420 -
This commit is contained in:
michael 2017-02-11 10:10:59 +00:00
parent faa70adcd3
commit 89c2d0a9dc
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/fpdoc/dw_man.pp
View File

@ -1001,7 +1001,7 @@ var
begin
DocNode:=Engine.FindDocNode(Package);
If (PackageDescr='') then
If (PackageDescr='') and assigned(DocNode) then
PackageDescr:=GetDescrString(Package,DocNode.ShortDescr);
StartManPage(Package,DocNode);
Try
@ -1025,7 +1025,10 @@ begin
WriteB(L[i]);
M:=TPasModule(L.Objects[i]);
D:=Engine.FindDocNode(M);
WriteLn(GetDescrString(M,D.ShortDescr))
if Assigned(D) then
WriteLn(GetDescrString(M,D.ShortDescr))
else
WriteLn(GetDescrString(M,Nil))
end;
StartSection(SDocSeeAlso);
WriteSeeAlso(DocNode,True);
@ -1151,14 +1154,17 @@ procedure TManWriter.WriteUnitPage(AModule : TPasModule);
Var
DocNode : TDocNode;
S : String;
begin
DocNode:=Engine.FindDocNode(AModule);
StartManPage(AModule,DocNode);
Try
PageTitle(AModule.Name,ManSection,PackageName,PackageDescr);
StartSection(SManDocName);
Writeln(DocNode.Name+' \- '+GetDescrString(AModule,DocNode.ShortDescr));
if Assigned(DocNode) then
S:=GetDescrString(AModule,DocNode.ShortDescr);
Writeln(AModule.Name+' \- '+S);
if Assigned(DocNode) and not IsDescrNodeEmpty(DocNode.Descr) then
begin
StartSection(SManDocDescription);