mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-09 14:18:49 +02:00
* first check for s=''. Strange that this wasn't needed on windows
git-svn-id: trunk@42140 -
This commit is contained in:
parent
8c303d666b
commit
5ab2ffcdbe
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user