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

* fpdoc: fixed AV when looking for link tags, patch from Michael van Canneyt

Browse Source 
git-svn-id: trunk@11808 -
This commit is contained in:
Vincent Snijders 2008-09-19 13:24:22 +00:00
parent 8d01c330a1
commit 6b0d250ea6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dw_html.pp
View File

@ -560,7 +560,10 @@ constructor THTMLWriter.Create(APackage: TPasPackage; AEngine: TFPDocEngine);
DocNode := Engine.FindDocNode(FPEl); DocNode := Engine.FindDocNode(FPEl);
if Assigned(DocNode) then if Assigned(DocNode) then
begin begin
ALink:=DocNode.Node['link']; if Assigned(DocNode.Node) then
ALink:=DocNode.Node['link']
else
ALink:='';
If (ALink<>'') then If (ALink<>'') then
LinkList.Add(TLinkData.Create(FPEl.PathName,ALink,AModule.name)) LinkList.Add(TLinkData.Create(FPEl.PathName,ALink,AModule.name))
else else