paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 07:19:40 +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

3
packager/packagesystem.pas
View File

@ -1158,6 +1158,8 @@ begin
// check unit file
FRegistrationFile:=FRegistrationPackage.FindUnit(FRegistrationUnitName,true);
if FRegistrationFile=nil then begin
if not (FRegistrationPackage.Missing) then begin
// lpk exists, but file is missing => warn
FRegistrationFile:=
FRegistrationPackage.FindUnit(FRegistrationUnitName,false);
if FRegistrationFile=nil then begin
@ -1172,6 +1174,7 @@ begin
FRegistrationFile.Flags+[pffReportedAsRemoved];
end;
end;
end;
exit;
end;
CallRegisterProc(RegisterProc);