mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

execv* in run-program: cast argv_ptr to (char **)

Browse source
This commit is contained in:
Daniel Kochmański 2016-10-06 12:26:12 +02:00
parent 286714261d
commit b414d3fc4a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixsys.d
View file

@ -732,9 +732,9 @@ create_descriptor(cl_object stream, cl_object direction,
char **pstrings;
cl_object buffer = from_list_to_execve_argument(environ,
&pstrings);
execve((char*)command->base_string.self, argv_ptr, pstrings);
execve((char*)command->base_string.self, (char **)argv_ptr, pstrings);
} else {
execvp((char*)command->base_string.self, argv_ptr);
execvp((char*)command->base_string.self, (char **)argv_ptr);
}
/* at this point exec has failed */
perror("exec");