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

Revert using current dir as a base dir for LazarusDirectory. Issue #39671.

Browse Source
This commit is contained in:
Juha 2022-03-13 11:00:23 +02:00
parent d2701ed5d1
commit 3a6e1341f5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/environmentopts.pp
View File

@ -3490,10 +3490,9 @@ begin
eopLazarusDirectory:
// lazarus directory
begin
ParsedValue:=TrimAndExpandDirectory(ParsedValue,GetPrimaryConfigPath);
if ParsedValue='' then
ParsedValue:=AppendPathDelim(GetCurrentDirUTF8)
else
ParsedValue:=TrimAndExpandDirectory(ParsedValue,GetCurrentDirUTF8);
ParsedValue:=TrimFilename(AppendPathDelim(GetCurrentDirUTF8));
end;
eopFPCSourceDirectory,eopTestBuildDirectory:
// directory