paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 09:27:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed searching in PATH on Windows

Browse Source 
git-svn-id: trunk@50865 -
This commit is contained in:
mattias 2015-12-17 14:34:53 +00:00
parent ea1023cb37
commit 7896da19ae
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codetoolsconfig.pas
View File

@ -316,7 +316,7 @@ end;
function TCodeToolsOptions.FindDefaultCompilerFilename: string;
begin
Result:=SearchFileInPath(GetDefaultCompilerFilename,'',
GetEnvironmentVariableUTF8('PATH'),':',ctsfcDefault);
GetEnvironmentVariableUTF8('PATH'),PathSeparator,ctsfcDefault);
end;
procedure TCodeToolsOptions.SaveToXMLConfig(XMLConfig: TXMLConfig;

2
components/lazutils/fileutil.inc
View File

@ -486,7 +486,7 @@ begin
{$ELSE}
Flags:=[sffDontSearchInBasePath];
{$ENDIF}
Result:=SearchFileInPath(Result,'',LazUTF8.GetEnvironmentVariableUTF8('PATH'),':',Flags);
Result:=SearchFileInPath(Result,'',LazUTF8.GetEnvironmentVariableUTF8('PATH'),PathSeparator,Flags);
end;
// resolve links
Result:=GetPhysicalFilename(Result,pfeOriginal);

2
ide/checkcompileropts.pas
View File

@ -276,7 +276,7 @@ begin
// check if there are several compilers in path
CompilerFiles:=SearchAllFilesInPath(GetDefaultCompilerFilename,'',
GetEnvironmentVariableUTF8('PATH'),':',[sffDontSearchInBasePath]);
GetEnvironmentVariableUTF8('PATH'),PathSeparator,[sffDontSearchInBasePath]);
try
ResolveLinksInFileList(CompilerFiles,false);
RemoveDoubles(CompilerFiles);

2
ide/lazconf.pp
View File

@ -212,7 +212,7 @@ begin
Result:=Executable
else
Result:=SearchFileInPath(Executable,'',
GetEnvironmentVariableUTF8('PATH'),':',
GetEnvironmentVariableUTF8('PATH'),PathSeparator,
[sffDontSearchInBasePath]);
Result:=TrimFilename(Result);
end;