From 24819fc5f4a389259cb9711d2ff481ab6599f91c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 16 Mar 2012 01:09:25 +0000
Subject: [PATCH] IDE: increase parse stamp whe setting lazdir and testdir

git-svn-id: trunk@36057 -
---
 ide/environmentopts.pp | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/ide/environmentopts.pp b/ide/environmentopts.pp
index ddf96a343e..04da086cf4 100644
--- a/ide/environmentopts.pp
+++ b/ide/environmentopts.pp
@@ -361,9 +361,9 @@ type
     procedure Save(OnlyDesktop:boolean);
     property Filename: string read FFilename write SetFilename;
     procedure CreateConfig;
-    function GetParsedLazarusDirectory: string;
+    function GetParsedLazarusDirectory: string; // ToDo
     function GetParsedTestBuildDirectory: string;
-    function GetParsedCompilerFilename: string;
+    function GetParsedCompilerFilename: string; // ToDo
     function GetParsedFPCSourceDirectory: string;
     function GetParsedValue(o: TEnvOptParseType): string;
 
@@ -1902,9 +1902,11 @@ begin
 end;
 
 procedure TEnvironmentOptions.SetTestBuildDirectory(const AValue: string);
+var
+  NewValue: String;
 begin
-  if TestBuildDirectory=AValue then exit;
-  SetParseValue(eopTestBuildDirectory,AValue);
+  NewValue:=AppendPathDelim(TrimFilename(AValue));
+  SetParseValue(eopTestBuildDirectory,NewValue);
 end;
 
 procedure TEnvironmentOptions.SetLazarusDirectory(const AValue: string);
@@ -1912,7 +1914,6 @@ var
   NewValue: String;
 begin
   NewValue:=AppendPathDelim(TrimFilename(AValue));
-  if LazarusDirectory=NewValue then exit;
   SetParseValue(eopLazarusDirectory,NewValue);
 end;
 
@@ -1920,8 +1921,10 @@ procedure TEnvironmentOptions.SetParseValue(o: TEnvOptParseType;
   const NewValue: string);
 begin
   with FParseValues[o] do begin
+    if UnparsedValue=NewValue then exit;
     UnparsedValue:=NewValue;
     ParseStamp:=CTInvalidChangeStamp;
+    IncreaseCompilerParseStamp;
   end;
 end;