paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 10:39:09 +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: eopLazarusDirectory:
// lazarus directory // lazarus directory
begin begin
ParsedValue:=TrimAndExpandDirectory(ParsedValue,GetPrimaryConfigPath);
if ParsedValue='' then if ParsedValue='' then
ParsedValue:=AppendPathDelim(GetCurrentDirUTF8) ParsedValue:=TrimFilename(AppendPathDelim(GetCurrentDirUTF8));
else
ParsedValue:=TrimAndExpandDirectory(ParsedValue,GetCurrentDirUTF8);
end; end;
eopFPCSourceDirectory,eopTestBuildDirectory: eopFPCSourceDirectory,eopTestBuildDirectory:
// directory // directory