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

codetools: FindRealCompilerInPath: check for -V

Browse Source 
git-svn-id: trunk@44009 -
This commit is contained in:
mattias 2014-02-11 21:32:22 +00:00
parent 37f6992f26
commit eb24b12d7a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/definetemplates.pas
View File

@ -7568,15 +7568,17 @@ function TFPCTargetConfigCache.FindRealCompilerInPath(aTargetCPU: string;
var var
CompiledTargetCPU: String; CompiledTargetCPU: String;
Cross: Boolean; Cross: Boolean;
Postfix: String;
begin begin
Result:=''; Result:='';
CompiledTargetCPU:=GetCompiledTargetCPU; CompiledTargetCPU:=GetCompiledTargetCPU;
if aTargetCPU='' then if aTargetCPU='' then
aTargetCPU:=CompiledTargetCPU; aTargetCPU:=CompiledTargetCPU;
Cross:=aTargetCPU<>CompiledTargetCPU; Cross:=aTargetCPU<>CompiledTargetCPU;
Result:=Search(GetDefaultCompilerFilename(aTargetCPU,Cross)); Postfix:=GetLastFPCParameter(CompilerOptions,'-V');
Result:=Search(GetDefaultCompilerFilename(aTargetCPU,Cross)+Postfix);
if (Result='') and Cross then begin if (Result='') and Cross then begin
Result:=Search(GetDefaultCompilerFilename(aTargetCPU,false)); Result:=Search(GetDefaultCompilerFilename(aTargetCPU,false)+Postfix);
if Result='' then exit; if Result='' then exit;
end; end;
if ResolveLinks then if ResolveLinks then