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

codetools: fixed asking for the default fpc targetos and targetcpu

Browse Source 
git-svn-id: trunk@42062 -
This commit is contained in:
mattias 2013-07-11 22:25:50 +00:00
parent e304d07dd7
commit eb4f930af7
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/definetemplates.pas
View File

@ -7137,22 +7137,14 @@ end;
function TFPCTargetConfigCache.GetFPCInfoCmdLineOptions(ExtraOptions: string
): string;
var
CurTargetCPU: String;
CurTargetOS: String;
begin
Result:=CompilerOptions;
// Note: always pass the -P and -T options so that the compiler writes the
// target macros with -va
CurTargetCPU:=TargetCPU;
if CurTargetCPU='' then
CurTargetCPU:=GetCompiledTargetCPU;
Result:=Result+' -P'+LowerCase(CurTargetCPU);
CurTargetOS:=TargetOS;
if CurTargetOS='' then
CurTargetOS:=GetCompiledTargetOS;
Result:=Result+' -T'+LowerCase(CurTargetOS);
Result:=Result+' '+ExtraOptions;
if TargetCPU<>'' then
Result:=Result+' -P'+LowerCase(TargetCPU);
if TargetOS<>'' then
Result:=Result+' -T'+LowerCase(TargetOS);
if ExtraOptions<>'' then
Result:=Result+' '+ExtraOptions;
Result:=Trim(Result);
end;