paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 14:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: increase parse stamp whe setting lazdir and testdir

Browse Source 
git-svn-id: trunk@36057 -
This commit is contained in:
mattias 2012-03-16 01:09:25 +00:00
parent 9fb3a077c4
commit 24819fc5f4
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/environmentopts.pp
View File

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