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

+ Use baseunix fpexecv* calls

Browse Source
This commit is contained in:
michael 2005-01-15 23:41:09 +00:00
parent 2069166e8a
commit f7ff698735
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/unix/process.inc
View File

@ -4,11 +4,11 @@
uses uses
{$ifdef ver1_0} {$ifdef ver1_0}
Linux Linux;
{$else} {$else}
Baseunix, Unix,
unix Baseunix;
{$endif}; {$endif}
@ -350,9 +350,9 @@ begin
if (poRunSuspended in Options) then if (poRunSuspended in Options) then
sigraise(SIGSTOP); sigraise(SIGSTOP);
if FEnv<>Nil then if FEnv<>Nil then
fpexecve(PChar(PName),Argv,Fenv) fpexecve(PName,Argv,Fenv)
else else
fpexecv(Pchar(PName),argv); fpexecv(PName,argv);
Halt(127); Halt(127);
end end
Finally Finally