From 6b0d250ea6f5550766b991f29e8de3e1106d07b0 Mon Sep 17 00:00:00 2001
From: Vincent Snijders <vincents@freepascal.org>
Date: Fri, 19 Sep 2008 13:24:22 +0000
Subject: [PATCH] * fpdoc: fixed AV when looking for link tags, patch from
 Michael van Canneyt

git-svn-id: trunk@11808 -
---
 utils/fpdoc/dw_html.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index 0d6c724853..0d5656279b 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -560,7 +560,10 @@ constructor THTMLWriter.Create(APackage: TPasPackage; AEngine: TFPDocEngine);
             DocNode := Engine.FindDocNode(FPEl);
             if Assigned(DocNode) then
               begin
-              ALink:=DocNode.Node['link'];
+              if Assigned(DocNode.Node) then
+                ALink:=DocNode.Node['link']
+              else
+                ALink:='';
               If (ALink<>'') then
                 LinkList.Add(TLinkData.Create(FPEl.PathName,ALink,AModule.name))
               else