Declare argument vector as char *const *.

This matches the signature of execve.

* src/callproc.c (child_setup): Declare NEW_ARGV as char *const *.

diff --git a/src/callproc.c b/src/callproc.c
index bd8442ce2b971c03d5983df11949a29a39e997b4..c7f560ac3da75a365bca2168037233b75cbaa616 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1222,8 +1222,8 @@ exec_failed (char const *name, int err)
    On MS-DOS, either return an exit status or signal an error.  */
 
 CHILD_SETUP_TYPE
-child_setup (int in, int out, int err, char **new_argv, char *const *env,
-             const char *current_dir)
+child_setup (int in, int out, int err, char *const *new_argv,
+             char *const *env, const char *current_dir)
 {
 #ifdef WINDOWSNT
   int cpid;

diff --git a/src/lisp.h b/src/lisp.h
index 07ba2bcbbafc360ac6f327861915dc2770a5ec06..1a214a3cbf6df61d5dd5ff16e0e11051d7bed2ce 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -4500,8 +4500,8 @@ extern void setup_process_coding_systems (Lisp_Object);
 # define CHILD_SETUP_ERROR_DESC "Doing vfork"
 #endif
 
-extern CHILD_SETUP_TYPE child_setup (int, int, int, char **, char *const *,
-                                     const char *);
+extern CHILD_SETUP_TYPE child_setup (int, int, int, char *const *,
+                                     char *const *, const char *);
 extern char *const *make_environment_block (Lisp_Object);
 extern void init_callproc_1 (void);
 extern void init_callproc (void);