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

* include the unit name in tstoreddef.fullownerhierarchyname()

Browse Source 
git-svn-id: trunk@32781 -
This commit is contained in:
Jonas Maebe 2015-12-28 15:06:43 +00:00
parent 96698994f3
commit 8471d93bf8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -1870,6 +1870,7 @@ implementation
function tstoreddef.fullownerhierarchyname: TSymStr;
var
lastowner: tsymtable;
tmp: tdef;
begin
{$ifdef symansistr}
@ -1884,11 +1885,12 @@ implementation
tmp:=self;
result:='';
repeat
lastowner:=tmp.owner;
{ can be not assigned in case of a forwarddef }
if not assigned(tmp.owner) then
if not assigned(lastowner) then
break
else
tmp:=tdef(tmp.owner.defowner);
tmp:=tdef(lastowner.defowner);
if not assigned(tmp) then
break;
if tmp.typ in [recorddef,objectdef] then
@ -1897,6 +1899,10 @@ implementation
if tmp.typ=procdef then
result:=tprocdef(tmp).customprocname([pno_paranames,pno_proctypeoption])+'.'+result;
until tmp=nil;
{ add the unit name }
if assigned(lastowner) and
assigned(lastowner.realname) then
result:=lastowner.realname^+'.'+result;
{$ifdef symansistr}
_fullownerhierarchyname:=result;
{$else symansistr}