From 345f2fcb2efd68116befcf55672ae280242573af Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 23 Jun 2014 18:49:14 +0000
Subject: [PATCH] IDE: refactor TProject.LoadBuildModes. (is the original logic
 correct?)

git-svn-id: trunk@45628 -
---
 ide/project.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/project.pp b/ide/project.pp
index deb967a117..1fdcd45338 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -2719,8 +2719,8 @@ end;
 
 procedure TProject.LoadBuildModes(const Path: string; LoadData: boolean);
 begin
+  if FReadFlags = [prfLoadParts] then exit; // prfLoadParts, no prfLoadPartBuildModes
   if prfLoadParts in FReadFlags then begin
-    if not (prfLoadPartBuildModes in FReadFlags) then exit;
     if LoadData then
       ClearBuildModes;
   end;