mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-29 09:40:20 +02:00
* Fixed passing of command without parameters to Exec() to not include
a space after the executable name
This commit is contained in:
parent
ac61b5e55a
commit
ef0a68a972
@ -326,7 +326,10 @@ Begin
|
||||
if pid=0 then
|
||||
begin
|
||||
{The child does the actual exec, and then exits}
|
||||
Execl (Path+' '+ComLine);
|
||||
if ComLine='' then
|
||||
Execl(Path)
|
||||
else
|
||||
Execl(Path+' '+ComLine);
|
||||
{If the execve fails, we return an exitvalue of 127, to let it be known}
|
||||
ExitProcess(127);
|
||||
end
|
||||
@ -877,7 +880,11 @@ End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.9 2001-07-30 21:38:55 peter
|
||||
Revision 1.10 2001-09-22 11:17:13 peter
|
||||
* Fixed passing of command without parameters to Exec() to not include
|
||||
a space after the executable name
|
||||
|
||||
Revision 1.9 2001/07/30 21:38:55 peter
|
||||
* m68k updates merged
|
||||
|
||||
Revision 1.8 2001/07/12 12:42:39 marco
|
||||
|
Loading…
Reference in New Issue
Block a user