From 1fc6cfbc6a01cc8dd636b38d0b63a743b16ec32c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 1 Jun 2014 08:47:49 +0000
Subject: [PATCH] IDE: clean up

git-svn-id: trunk@45277 -
---
 ide/sourcefilemanager.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index 1a160867b3..ff8b10d21c 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -285,11 +285,12 @@ begin
   inherited Destroy;
 end;
 
-
+{$IFnDEF EnableNewExtTools}
 function TLazSourceFileManager.ExternalTools: TExternalToolList;
 begin
   Result:=TExternalToolList(EnvironmentOptions.ExternalTools);
 end;
+{$ENDIF}
 
 function TLazSourceFileManager.CheckMainSrcLCLInterfaces(Silent: boolean): TModalResult;
 var
@@ -6340,6 +6341,7 @@ begin
   QRes:=mrNone;
   i:=0;
   // Iterate all build modes until the user chooses to cancel.
+  PrevResolvedDir:='';
   while (i < FProject.BuildModes.Count) and (QRes in [mrNone,mrYes]) do begin
     bm:=FProject.BuildModes[i];
     p:=1;