paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 23:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed working directory for virtual project when executing before/after command

Browse Source 
git-svn-id: trunk@56643 -
This commit is contained in:
mattias 2017-12-05 21:42:28 +00:00
parent f79dd3199d
commit 4a5eaca019
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/main.pp
View File

@ -6731,7 +6731,7 @@ begin
Project1.CompilerOptions.ExecuteBefore);
if (AReason in ToolBefore.CompileReasons) then begin
Result:=Project1.CompilerOptions.ExecuteBefore.Execute(
Project1.Directory, lisProject2+lisExecutingCommandBefore,
WorkingDir, lisProject2+lisExecutingCommandBefore,
aCompileHint);
if Result<>mrOk then
begin
@ -6864,8 +6864,7 @@ begin
// no need to check for mrOk, we are exit if it wasn't
if (AReason in ToolAfter.CompileReasons) then begin
Result:=Project1.CompilerOptions.ExecuteAfter.Execute(
Project1.Directory,
lisProject2+lisExecutingCommandAfter,aCompileHint);
WorkingDir,lisProject2+lisExecutingCommandAfter,aCompileHint);
if Result<>mrOk then
begin
debugln(['Error: (lazarus) [TMainIDE.DoBuildProject] CompilerOptions.ExecuteAfter.Execute failed']);