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

IDE: do not free package while compiling

Browse Source 
git-svn-id: trunk@36469 -
This commit is contained in:
mattias 2012-03-30 16:06:41 +00:00
parent 24f1d64edb
commit f7921aef89
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/pkgmanager.pas
View File

@ -960,9 +960,10 @@ end;
procedure TPkgManager.OnApplicationIdle(Sender: TObject; var Done: Boolean);
begin
if PackageGraph = nil then Exit;
if MainIDE.ToolStatus<>itNone then exit;
if (Screen.ActiveCustomForm<>nil)
and (fsModal in Screen.ActiveCustomForm.FormState) then exit;
if PackageGraph = nil then Exit;
PackageGraph.CloseUnneededPackages;
end;