From 5ab2ffcdbe031f49ab3e8fa18935f74add65156c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 30 May 2019 18:40:33 +0000
Subject: [PATCH] * first check for s=''. Strange that this wasn't needed on
windows
git-svn-id: trunk@42140 -
---
utils/fpdoc/dw_htmlchm.inc | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/utils/fpdoc/dw_htmlchm.inc b/utils/fpdoc/dw_htmlchm.inc
index 8426060001..a684c9c7a6 100644
--- a/utils/fpdoc/dw_htmlchm.inc
+++ b/utils/fpdoc/dw_htmlchm.inc
@@ -317,6 +317,7 @@ begin
for k := 0 to TPasClassType(ParentElement).Members.Count-1 do
begin
TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]);
+ s:='';
if TmpElement is TPasEnumValue then
s := UTF8Encode(ResolveLinkIDAbs(tmpElement.Parent.PathName))
else
@@ -355,7 +356,8 @@ begin
TmpItem := MemberItem.Children.NewItem;
TmpItem.Text := ParentElement.Name;
s2:=Allocator.GetFilename(TmpElement, 0);
- if s<>s2 then
+ tmpitem.addlocal(s2);
+ if(trim(s)<>'') and (s<>s2) then
begin
writeln('Hint: Index2 Resolved:',tmpitem.local,' to ',s);
TmpItem.AddLocal(s);