paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Restore usage of fpexecve function inside ExecuteProcess

Browse Source 
as set by commit 305d34a8f6
This commit is contained in:
Pierre Muller 2023-07-19 16:14:26 +02:00
parent 40a7e596ec
commit 512faa7141
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/sysutils.pp
View File

@ -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); fpexecve(PAnsiChar(pointer(LPath)),Cmdline2,envp);
{ If the execve fails, we return an exitvalue of 127, to let it be known} { If the execve fails, we return an exitvalue of 127, to let it be known}
fpExit(127); fpExit(127);
end end
else else