paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: when lpk failed to load do not warn about unknown units

Browse Source 
git-svn-id: trunk@23826 -
This commit is contained in:
mattias 2010-03-03 10:19:46 +00:00
parent fe1eaa69da
commit 009966779b
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packager/packagesystem.pas
View File

@ -1158,18 +1158,21 @@ begin
// check unit file
FRegistrationFile:=FRegistrationPackage.FindUnit(FRegistrationUnitName,true);
if FRegistrationFile=nil then begin
FRegistrationFile:=
FRegistrationPackage.FindUnit(FRegistrationUnitName,false);
if FRegistrationFile=nil then begin
RegistrationError(Format(lisPkgSysUnitNotFound, ['"',
FRegistrationUnitName, '"']));
end else begin
if not (pffReportedAsRemoved in FRegistrationFile.Flags) then begin
RegistrationError(
Format(lisPkgSysUnitWasRemovedFromPackage, ['"',
FRegistrationUnitName, '"']));
FRegistrationFile.Flags:=
FRegistrationFile.Flags+[pffReportedAsRemoved];
if not (FRegistrationPackage.Missing) then begin
// lpk exists, but file is missing => warn
FRegistrationFile:=
FRegistrationPackage.FindUnit(FRegistrationUnitName,false);
if FRegistrationFile=nil then begin
RegistrationError(Format(lisPkgSysUnitNotFound, ['"',
FRegistrationUnitName, '"']));
end else begin
if not (pffReportedAsRemoved in FRegistrationFile.Flags) then begin
RegistrationError(
Format(lisPkgSysUnitWasRemovedFromPackage, ['"',
FRegistrationUnitName, '"']));
FRegistrationFile.Flags:=
FRegistrationFile.Flags+[pffReportedAsRemoved];
end;
end;
end;
exit;