Procházet zdrojové kódy

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

Pierre Muller před 2 roky
rodič
revize
512faa7141
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  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