Browse Source

Restore usage of fpexecve function inside ExecuteProcess
as set by commit 305d34a8f6f

Pierre Muller 2 years ago
parent
commit
512faa7141
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/unix/sysutils.pp

+ 2 - 2
rtl/unix/sysutils.pp

@@ -1590,8 +1590,8 @@ Begin
   if pid=0 then
   if pid=0 then
    begin
    begin
    {The child does the actual exec, and then exits}
    {The child does the actual exec, and then exits}
-      fpexecv(PAnsiChar(pointer(LPath)),Cmdline2);
-     { If the execve fails, we return an exitvalue of 127, to let it be known}
+      fpexecve(PAnsiChar(pointer(LPath)),Cmdline2,envp);
+   { If the execve fails, we return an exitvalue of 127, to let it be known}
      fpExit(127);
      fpExit(127);
    end
    end
   else
   else