paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 06:42:40 +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
CompiledTargetCPU: String;
Cross: Boolean;
Postfix: String;
begin
Result:='';
CompiledTargetCPU:=GetCompiledTargetCPU;
if aTargetCPU='' then
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
Result:=Search(GetDefaultCompilerFilename(aTargetCPU,false));
Result:=Search(GetDefaultCompilerFilename(aTargetCPU,false)+Postfix);
if Result='' then exit;
end;
if ResolveLinks then