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

codetools: always pass the -T and -P option to the compiler to get the macro values

Browse Source 
git-svn-id: trunk@31158 -
This commit is contained in:
mattias 2011-06-10 15:58:03 +00:00
parent dcbf3f1a58
commit 68d8948e3c
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/codetools/definetemplates.pas
View File

@ -7576,14 +7576,23 @@ end;
function TFPCTargetConfigCache.GetFPCInfoCmdLineOptions(ExtraOptions: string function TFPCTargetConfigCache.GetFPCInfoCmdLineOptions(ExtraOptions: string
): string; ): string;
var
CurTargetCPU: String;
CurTargetOS: String;
begin begin
Result:=CompilerOptions; Result:=CompilerOptions;
if TargetCPU<>'' then // Note: always pass the -P and -T options so that the compiler writes the
Result:=Result+' -P'+LowerCase(TargetCPU); // target macros with -va
if TargetOS<>'' then CurTargetCPU:=TargetCPU;
Result:=Result+' -T'+LowerCase(TargetOS); 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; Result:=Result+' '+ExtraOptions;
Result:=Trim(ExtraOptions); Result:=Trim(Result);
end; end;
procedure TFPCTargetConfigCache.IncreaseChangeStamp; procedure TFPCTargetConfigCache.IncreaseChangeStamp;