paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-11 14:18:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* first check for s=''. Strange that this wasn't needed on windows

Browse Source 
git-svn-id: trunk@42140 -
This commit is contained in:
marco 2019-05-30 18:40:33 +00:00
parent 8c303d666b
commit 5ab2ffcdbe
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpdoc/dw_htmlchm.inc
View File

@ -317,6 +317,7 @@ begin
for k := 0 to TPasClassType(ParentElement).Members.Count-1 do for k := 0 to TPasClassType(ParentElement).Members.Count-1 do
begin begin
TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]); TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]);
s:='';
if TmpElement is TPasEnumValue then if TmpElement is TPasEnumValue then
s := UTF8Encode(ResolveLinkIDAbs(tmpElement.Parent.PathName)) s := UTF8Encode(ResolveLinkIDAbs(tmpElement.Parent.PathName))
else else
@ -355,7 +356,8 @@ begin
TmpItem := MemberItem.Children.NewItem; TmpItem := MemberItem.Children.NewItem;
TmpItem.Text := ParentElement.Name; TmpItem.Text := ParentElement.Name;
s2:=Allocator.GetFilename(TmpElement, 0); s2:=Allocator.GetFilename(TmpElement, 0);
if s<>s2 then tmpitem.addlocal(s2);
if(trim(s)<>'') and (s<>s2) then
begin begin
writeln('Hint: Index2 Resolved:',tmpitem.local,' to ',s); writeln('Hint: Index2 Resolved:',tmpitem.local,' to ',s);
TmpItem.AddLocal(s); TmpItem.AddLocal(s);