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

ide: run working directory: use exe folder and as fallback the project directory

Browse Source 
(cherry picked from commit b38b88bdb5)
This commit is contained in:
mattias 2024-01-14 12:33:19 +01:00 committed by Martin
parent 023766bdda
commit c4c2c20f7c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/buildmanager.pas
View File

@ -698,6 +698,7 @@ begin
Result := '';
if Project1=nil then exit;
// first take the WorkDir from the active run parameters
AMode := Project1.RunParameterOptions.GetActiveMode;
if AMode<>nil then
Result := AMode.WorkingDirectory;
@ -706,14 +707,16 @@ begin
if (Result <> '') and not FilenameIsAbsolute(Result) then
Result := CreateAbsolutePath(Result, Project1.Directory);
if (Result='') and (not Project1.IsVirtual) then
Result := ChompPathDelim(Project1.Directory);
// then use the directory of the produced exe
if Result='' then begin
Result := ExtractFilePath(BuildBoss.GetProjectTargetFilename(Project1));
if (Result <> '') and not FilenameIsAbsolute(Result) then
Result := CreateAbsolutePath(Result, Project1.Directory);
end;
// finally use the project directory
if (Result='') and (not Project1.IsVirtual) then
Result := ChompPathDelim(Project1.Directory);
end;
procedure TBuildManager.WriteDebug_RunCommandLine;