paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Issue a warning when a package-name is used twice

Browse Source 
git-svn-id: trunk@22540 -
This commit is contained in:
joost 2012-10-04 20:10:23 +00:00
parent a2534fc8c6
commit b886d5d55c
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1315,6 +1315,7 @@ ResourceString
SWarnCanNotSetAccessRights = 'Warning: Failed to copy access-rights to file %s';
SWarnCanNotGetFileAge = 'Warning: Failed to get FileAge for %s';
SWarnExtCommandNotFound = 'Warning: External command "%s" not found but "%s" is older then "%s"';
SWarnDuplicatePackage = 'Warning: Package %s is already added. Using the existing package';
SInfoPackageAlreadyProcessed = 'Package %s is already processed';
SInfoCompilingTarget = 'Compiling target %s';
@ -3355,9 +3356,20 @@ end;
function TPackages.AddPackage(const AName: String): TPackage;
var
i: integer;
begin
Result:=Add as TPackage;
Result.Name:=AName;
i := IndexOfName(AName);
if i > -1 then
begin
result := PackageItems[i];
Installer.Log(vlWarning,Format(SWarnDuplicatePackage,[AName]))
end
else
begin
Result:=Add as TPackage;
Result.Name:=AName;
end;
end;