diff options
Diffstat (limited to 'compiler/symtype.pas')
| -rw-r--r-- | compiler/symtype.pas | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/compiler/symtype.pas b/compiler/symtype.pas index c7ce1f8495..a30260ffa6 100644 --- a/compiler/symtype.pas +++ b/compiler/symtype.pas @@ -73,6 +73,7 @@ interface function mangledparaname:string; function getmangledparaname:string;virtual; function rtti_mangledname(rt:trttitype):string;virtual;abstract; + function OwnerHierarchyName: string; virtual; abstract; function size:asizeint;virtual;abstract; function packedbitsize:asizeint;virtual; function alignment:shortint;virtual;abstract; @@ -258,12 +259,13 @@ implementation function tdef.typename:string; begin + result:=OwnerHierarchyName; if assigned(typesym) and not(typ in [procvardef,procdef]) and (typesym.realname[1]<>'$') then - result:=typesym.realname + result:=result+typesym.realname else - result:=GetTypeName; + result:=result+GetTypeName; end; @@ -275,10 +277,11 @@ implementation function tdef.typesymbolprettyname:string; begin + result:=OwnerHierarchyName; if assigned(typesym) then - result:=typesym.prettyname + result:=result+typesym.prettyname else - result:='<no type symbol>' + result:=result+'<no type symbol>' end; function tdef.mangledparaname:string; |