mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 09:20:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

A variable name was clobbered. The first argument to execvp() was of type

Browse source 
object, instead of a pointer to a string.
This commit is contained in:
jjgarcia 2004-11-02 10:54:54 +00:00
parent 1c435cd8ff
commit 5254ad4c3d
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/unixsys.d
View file

@ -246,7 +246,6 @@ si_close_pipe(cl_object stream)
}
#else
{
int child_pid;
int child_stdin, child_stdout, child_stderr;
argv = CONS(command, nconc(argv, CONS(Cnil, Cnil)));
argv = cl_funcall(3, @'coerce', argv, @'vector');
@ -298,9 +297,10 @@ si_close_pipe(cl_object stream)
argv_ptr[j] = arg->string.self;
}
}
if (execvp(command, argv_ptr) < 0) {
abort();
}
execvp(command->string.self, argv_ptr);
/* at this point exec has failed */
perror("exec");
abort();
}
close(child_stdin);
close(child_stdout);