paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 06:59:21 +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
): string;
var
CurTargetCPU: String;
CurTargetOS: String;
begin
Result:=CompilerOptions;
if TargetCPU<>'' then
Result:=Result+' -P'+LowerCase(TargetCPU);
if TargetOS<>'' then
Result:=Result+' -T'+LowerCase(TargetOS);
// 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;
Result:=Trim(ExtraOptions);
Result:=Trim(Result);
end;
procedure TFPCTargetConfigCache.IncreaseChangeStamp;