2
0
Эх сурвалжийг харах

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

Pierre Muller 2 жил өмнө
parent
commit
512faa7141
1 өөрчлөгдсөн 2 нэмэгдсэн , 2 устгасан
  1. 2 2
      rtl/unix/sysutils.pp

+ 2 - 2
rtl/unix/sysutils.pp

@@ -1590,8 +1590,8 @@ Begin
   if pid=0 then
    begin
    {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);
    end
   else