paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 18:07:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazBuild: Prevent crash when checking LazarusIDE.IDEStarted. Issue #38377.

Browse Source 
git-svn-id: trunk@64409 -
This commit is contained in:
juha 2021-01-20 13:08:04 +00:00
parent ca65088ffb
commit c4fd1e8484
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/projpackcommon.pas
View File

@ -148,7 +148,7 @@ begin
if FUpdateLock=0 then RaiseGDBException('TProjPackDefineTemplates.EndUpdate'); if FUpdateLock=0 then RaiseGDBException('TProjPackDefineTemplates.EndUpdate');
dec(FUpdateLock); dec(FUpdateLock);
if FUpdateLock=0 then begin if FUpdateLock=0 then begin
if not LazarusIDE.IDEStarted then if Assigned(LazarusIDE) and not LazarusIDE.IDEStarted then
Include(FFlags, ptfLoading); Include(FFlags, ptfLoading);
if FFlags * [ptfIsPackageTemplate,ptfIDChanged] // AND if FFlags * [ptfIsPackageTemplate,ptfIDChanged] // AND
= [ptfIsPackageTemplate,ptfIDChanged] then = [ptfIsPackageTemplate,ptfIDChanged] then