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

IDE: Prevent an occasional crash after BuildModes are added and deleted.

Browse Source 
git-svn-id: trunk@52628 -
This commit is contained in:
juha 2016-07-05 11:16:54 +00:00
parent cf8074ffe7
commit 865cb9dc42
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/project.pp
View File

@ -5082,7 +5082,8 @@ end;
procedure TProject.SetActiveBuildMode(const AValue: TProjectBuildMode); procedure TProject.SetActiveBuildMode(const AValue: TProjectBuildMode);
begin begin
if FActiveBuildMode=AValue then exit; // Must be set even if FActiveBuildMode=AValue. Modes may be added and deleted,
// the same old address can be used by a new mode.
FActiveBuildMode:=AValue; FActiveBuildMode:=AValue;
if FActiveBuildMode<>nil then if FActiveBuildMode<>nil then
FLazCompilerOptions:=FActiveBuildMode.CompilerOptions FLazCompilerOptions:=FActiveBuildMode.CompilerOptions