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

fcl-passrc: added GetElementFullPath

Browse Source 
git-svn-id: trunk@38572 -
This commit is contained in:
Mattias Gaertner 2018-03-19 15:32:41 +00:00
parent 65b39fa567
commit 30c4fb3503
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-passrc/src/pasresolver.pp
View File

@ -1679,6 +1679,7 @@ function GetClassAncestorsDbg(El: TPasClassType): string;
function ResolverResultFlagsToStr(const Flags: TPasResolverResultFlags): string;
function GetElementTypeName(El: TPasElement): string; overload;
function GetElementTypeName(C: TPasElementBaseClass): string; overload;
function GetElementFullPath(El: TPasElement): string; overload;
procedure SetResolverIdentifier(out ResolvedType: TPasResolverResult;
BaseType: TResolverBaseType; IdentEl: TPasElement;
@ -2014,8 +2015,31 @@ begin
Result:='class procedure'
else if C=TPasClassFunction then
Result:='class function'
else if C=TInterfaceSection then
Result:='interfacesection'
else if C=TImplementationSection then
Result:='implementation'
else if C=TProgramSection then
Result:='ProgramSection'
else if C=TLibrarySection then
Result:='LibrarySection'
else
Result:='?';
Result:=C.ClassName;
end;
function GetElementFullPath(El: TPasElement): string;
begin
if El=nil then exit('nil');
Result:='';
while El<>nil do
begin
if Result<>'' then Result:='.'+Result;
if El.Name<>'' then
Result:=El.Name+Result
else
Result:=GetElementTypeName(El)+Result;
El:=El.Parent;
end;
end;
procedure SetResolverIdentifier(out ResolvedType: TPasResolverResult;