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

ide+lazbuild: fixed expanding ~ on unix in lazarus.cfg, #40363

Browse Source
This commit is contained in:
mattias 2023-07-06 17:31:05 +02:00
parent 606ef3eac7
commit cba7d8388f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/idecmdline.pas
View File

@ -162,6 +162,8 @@ begin
end;
function GetParamsAndCfgFile: TStrings;
var
CfgDir: string;
procedure ExpandCfgFilename(var aParam: string);
// expand relative filenames in lazarus.cfg using the path of the cfg, not the currentdir
@ -172,9 +174,7 @@ function GetParamsAndCfgFile: TStrings;
for i:=low(LazFileOpts) to high(LazFileOpts) do
if LazStartsText(LazFileOpts[i],aParam) then begin
aFilename:=copy(aParam,length(LazFileOpts[i])+1,length(aParam));
aFilename:=ResolveDots(aFilename);
if not FilenameIsAbsolute(aFilename) then
aFilename:=ResolveDots(ExtractFilePath(CfgFileName)+aFilename);
aFilename:=ExpandFileNameUTF8(aFilename,CfgDir);
aParam:=LazFileOpts[i]+aFilename;
//debugln(['ExpandCfgFilename ',aParam]);
exit;
@ -220,6 +220,7 @@ begin
if Cfg <> nil then begin
Warn := '';
// insert Cfg at start. For duplicates the latest occurrence takes precedence
CfgDir:=ExtractFilePath(CfgFileName);
for i := 0 to Cfg.Count - 1 do begin
s := Cfg[i];
if (s <> '') and (s[1] = '-') then