Fix declaration of arguments passed to `execve'.

diff --git a/v7/src/microcode/osproc.h b/v7/src/microcode/osproc.h
index 15f81ea36d419c71187bf3de5be5497ea8598785..30c48c36a8e971f582db77bf72cf29ae99e422aa 100644 (file)
--- a/v7/src/microcode/osproc.h
+++ b/v7/src/microcode/osproc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osproc.h,v 1.6 1992/02/11 23:01:04 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osproc.h,v 1.7 1992/03/26 10:54:49 cph Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -88,8 +88,8 @@ extern enum process_jc_status scheme_jc_status;
 extern Tprocess EXFUN
   (OS_make_subprocess,
    (CONST char * filename,
-    CONST char ** argv,
-    char ** env,
+    char * CONST * argv,
+    char * CONST * env,
     CONST char * working_directory,
     enum process_ctty_type ctty_type,
     char * ctty_name,

diff --git a/v7/src/microcode/uxproc.c b/v7/src/microcode/uxproc.c
index 25f8fbc44e3f9bf5fd22a55479be6004b2ad7a80..051dab51172a544ac71b71fb37cedaa4a9701203 100644 (file)
--- a/v7/src/microcode/uxproc.c
+++ b/v7/src/microcode/uxproc.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxproc.c,v 1.13 1992/02/11 23:16:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxproc.c,v 1.14 1992/03/26 10:54:40 cph Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -239,8 +239,8 @@ DEFUN (OS_make_subprocess,
        channel_out_type, channel_out,
        channel_err_type, channel_err),
        CONST char * filename AND
-       CONST char ** argv AND
-       char ** envp AND
+       char * CONST * argv AND
+       char * CONST * envp AND
        CONST char * working_directory AND
        enum process_ctty_type ctty_type AND
        char * ctty_name AND