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

* Packages can only be broken when they are installed

Browse Source 
git-svn-id: trunk@35541 -
This commit is contained in:
joost 2017-03-07 22:29:53 +00:00
parent 0f9876effb
commit 910c05f942
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fppkg/src/pkgfppkg.pp
View File

@ -333,6 +333,12 @@ var
begin begin
result:=false; result:=false;
if Assigned(APackage.Repository) and (APackage.Repository.RepositoryType <> fprtInstalled) then
begin
Result := False;
Exit;
end;
EnterFindBrokenPackages; EnterFindBrokenPackages;
try try
HashPtr := PtrInt(FBrokenPackagesDictionary.Find(APackage.Name)); HashPtr := PtrInt(FBrokenPackagesDictionary.Find(APackage.Name));