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

* TFPPackage.GetDebugName now also works when the package is not assigned

Browse Source 
git-svn-id: trunk@36286 -
This commit is contained in:
joost 2017-05-21 16:10:53 +00:00
parent 358bfb4858
commit 2f72f67f11
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fppkg/src/fprepos.pp
View File

@ -339,6 +339,7 @@ ResourceString
SErrMaxLevelExceeded = 'Maximum number of dependency levels exceeded (%d) at package "%s".';
SErrMirrorNotFound = 'Mirror "%s" not found.';
SRepoUnknown = 'RepositoryUnknown';
SPackageUnknown = 'unknown package';
Function MakeTargetString(CPU : TCPU;OS: TOS) : String;
@ -728,7 +729,9 @@ end;
Function TFPPackage.GetDebugName: string;
begin
if Assigned(Repository) then
if not Assigned(Self) then
Result := SPackageUnknown
else if Assigned(Repository) then
Result:=Repository.RepositoryName+'-'+Name
else
Result:=SRepoUnknown+'-'+Name;