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

fixed comparing TargetOS case insensitive for build lazarus

Browse Source 
git-svn-id: trunk@6359 -
This commit is contained in:
mattias 2004-12-10 19:27:59 +00:00
parent 93cb3ed38c
commit d173c495ad
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/buildlazdialog.pas
View File

@ -405,6 +405,7 @@ var
MakeIDECfgFilename: String;
NewTargetFilename: String;
NewTargetDirectory: String;
DefaultTargetOS: string;
begin
Result:=mrOk;
CurItem:=Options.Items[ItemIndex];
@ -461,14 +462,16 @@ begin
end else begin
// no user defined target directory
// => find it automatically
if (Options.TargetOS<>'') and (Options.TargetOS<>{$I %FPCTARGETOS%}) then
DefaultTargetOS:={$I %FPCTARGETOS%};
if (Options.TargetOS<>'')
and (CompareText(Options.TargetOS,DefaultTargetOS)<>0) then
begin
// Case 2. crosscompiling the IDE
// create directory <primary config dir>/bin/<TargetOS>
NewTargetDirectory:=AppendPathDelim(GetPrimaryConfigPath)+'bin'
+PathDelim+Options.TargetOS;
debugln('CreateBuildLazarusOptions Options.TargetOS=',Options.TargetOS);
debugln('CreateBuildLazarusOptions Options.TargetOS=',Options.TargetOS,' DefaultOS=',DefaultTargetOS);
Result:=ForceDirectoryInteractive(NewTargetDirectory,[]);
if Result<>mrOk then exit;
end else begin