paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Config file in home dir has . prepended on unix

Browse Source 
git-svn-id: trunk@37828 -
This commit is contained in:
michael 2017-12-27 09:29:28 +00:00
parent 5cbdf4d30c
commit 44b2419d5e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/pas2js/pas2jscompiler.pp
View File

@ -2054,7 +2054,10 @@ begin
// first try HOME directory
aFilename:=ChompPathDelim(GetEnvironmentVariableUTF8('HOME'));
if aFilename<>'' then
if TryConfig(aFilename+PathDelim+DefaultConfigFile) then exit;
begin
aFilename:=aFilename+PathDelim{$IFDEF UNIX}+'.'{$ENDIF}+DefaultConfigFile;
if TryConfig(aFileName) then exit;
end;
// then try compiler directory
if (CompilerExe<>'') then begin