const => CONST

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index c8d7230c942bab26530196e852f22c06d6247ae1..1d5e93cdc241eb1bb32ddcd82401ffeb8879dafd 100644 (file)
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.59 1992/02/03 22:40:39 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.60 1992/02/10 13:53:22 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -235,7 +235,7 @@ DEFUN (fasdump_exit, (length), long length)
   }
 #else
   {
-    extern int EXFUN (truncate, (const char *, unsigned long));
+    extern int EXFUN (truncate, (CONST char *, unsigned long));
 
     result = (close (dump_file) == 0);
     truncate (dump_file_name, length);
@@ -244,7 +244,7 @@ DEFUN (fasdump_exit, (length), long length)
 
   if (length == 0)
   {
-    extern int EXFUN (unlink, (const char *));
+    extern int EXFUN (unlink, (CONST char *));
 
     (void) (unlink (dump_file_name));
   }

diff --git a/v7/src/microcode/bchdrn.c b/v7/src/microcode/bchdrn.c
index 121f20a0f3aeb2e637273ac401cc5a610647eedd..3858092ad125be126b3d641ea61cb7b763e2c394 100644 (file)
--- a/v7/src/microcode/bchdrn.c
+++ b/v7/src/microcode/bchdrn.c
@@ -1,8 +1,8 @@
 /* -*- C -*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdrn.c,v 1.2 1991/11/04 16:54:41 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdrn.c,v 1.3 1992/02/10 13:53:03 jinx Exp $
 
-Copyright (c) 1991 Massachusetts Institute of Technology
+Copyright (c) 1991-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -44,10 +44,10 @@ MIT in each case. */
 
 extern char * EXFUN (error_name, (int));
 extern int EXFUN (retrying_file_operation,
-                 (/* no prototype because (const char *) != (char *) */
-                  int (*)(),
+                 (/* no prototype because (CONST char *) != (char *) */
+                  int EXFUN((*), ()),
                   int, char *, long, long, char *, char *, long *,
-                  int (*)(char *, char *)));
+                  int EXFUN((*), (char *, char *))));
 \f
 #ifdef HAVE_SYSV_SHARED_MEMORY
 

diff --git a/v7/src/microcode/bchgcc.h b/v7/src/microcode/bchgcc.h
index a9325ae2f95568c9968d0aca5a2439bb22a38348..ff5a1be50b686758e78bde9ba38877f10eafaeb6 100644 (file)
--- a/v7/src/microcode/bchgcc.h
+++ b/v7/src/microcode/bchgcc.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchgcc.h,v 9.42 1991/11/04 16:49:35 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchgcc.h,v 9.43 1992/02/10 13:52:43 jinx Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -48,10 +48,10 @@ MIT in each case. */
 extern char * EXFUN (error_name, (int));
 
 extern int EXFUN (retrying_file_operation,
-                 (/* no prototype because (const char *) != (char *) */
-                  int (*)(),
+                 (/* no prototype because (CONST char *) != (char *) */
+                  int EXFUN((*), ()),
                   int, char *, long, long, char *, char *, long *,
-                  int (*)(char *, char *)));
+                  int EXFUN((*), (char *, char *))));
 
 extern int EXFUN (io_error_retry_p, (char *, char *));
 extern int EXFUN (io_error_always_abort, (char *, char *));

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 3a9411622ed297b62bfe32479e675fce2f74787d..b245077b2b109776df3393a74d0b66c79b4acf00 100644 (file)
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.71 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.72 1992/02/10 13:52:23 jinx Exp $
 
-Copyright (c) 1988-1991 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -50,7 +50,7 @@ extern void EXFUN (Clear_Memory, (int, int, int));
 extern void EXFUN (Setup_Memory, (int, int, int));
 extern void EXFUN (compiler_initialize, (long fasl_p));
 \f
-static void EXFUN (Start_Scheme, (int, const char *));
+static void EXFUN (Start_Scheme, (int, CONST char *));
 static void EXFUN (Enter_Interpreter, (void));
 
 CONST char * scheme_program_name;
@@ -400,7 +400,7 @@ extern unsigned long
 
 extern void EXFUN (gc_death,
                   (long code, char *, SCHEME_OBJECT *, SCHEME_OBJECT *));
-extern void EXFUN (stack_death, (const char *));
+extern void EXFUN (stack_death, (CONST char *));
 
 extern char
   gc_death_message_buffer[];

diff --git a/v7/src/microcode/default.h b/v7/src/microcode/default.h
index a2db615289fd68d0516838362e8f990360be24dc..73cd11af80ebecc42fb4faafbb9401c8457a871e 100644 (file)
--- a/v7/src/microcode/default.h
+++ b/v7/src/microcode/default.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.37 1991/09/24 22:39:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.38 1992/02/10 13:52:06 jinx Exp $
 
-Copyright (c) 1988-1991 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -113,7 +113,7 @@ do                                                                  \
 {                                                                      \
   if (!(CONSTANT_SPACE_SEALED ()))                                     \
   {                                                                    \
-    extern void EXFUN (stack_death, (const char *));                   \
+    extern void EXFUN (stack_death, (CONST char *));                   \
                                                                        \
     stack_death (name);                                                        \
     /*NOTREACHED */                                                    \

diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index 74dfad9bc00831125b6654113f57e61a4d586ad5..32751e4db491fe8eb5b605d36f5a407753b22669 100644 (file)
--- a/v7/src/microcode/findprim.c
+++ b/v7/src/microcode/findprim.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.45 1992/01/20 17:35:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.46 1992/02/10 13:53:34 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -80,8 +80,8 @@ MIT in each case. */
 
 #include <ctype.h>
 
-extern int EXFUN (strcmp, (const char *, const char *));
-extern int EXFUN (strlen, (const char *));
+extern int EXFUN (strcmp, (CONST char *, CONST char *));
+extern int EXFUN (strlen, (CONST char *));
 
 typedef int boolean;
 #define TRUE 1

diff --git a/v7/src/microcode/uxio.c b/v7/src/microcode/uxio.c
index d21f639b7cf640ae89b2fb4c081e2f39586c7e41..a7f2ec31a4a0da5344a8dc35bf574fe7e51dee29 100644 (file)
--- a/v7/src/microcode/uxio.c
+++ b/v7/src/microcode/uxio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxio.c,v 1.19 1992/02/10 13:26:10 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxio.c,v 1.20 1992/02/10 13:51:37 jinx Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -238,7 +238,7 @@ DEFUN (OS_channel_write_dump_file, (channel, buffer, nbytes),
   return ((scr < 0) ? 0 : scr);
 }
 
-extern int EXFUN (strlen, (const char *));
+extern int EXFUN (strlen, (CONST char *));
 
 void
 DEFUN (OS_channel_write_string, (channel, string),

diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 3093b686dff559eee4269493920868a57376f35e..623962af5840882e202d8c84790ab8a0a4077528 100644 (file)
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsock.c,v 1.7 1992/02/03 23:45:31 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxsock.c,v 1.8 1992/02/10 13:51:18 jinx Exp $
 
-Copyright (c) 1990-92 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -46,8 +46,8 @@ MIT in each case. */
 #include "uxio.h"
 #include "prims.h"
 
-extern struct servent * EXFUN (getservbyname, (const char *, const char *));
-extern struct hostent * EXFUN (gethostbyname, (const char *));
+extern struct servent * EXFUN (getservbyname, (CONST char *, CONST char *));
+extern struct hostent * EXFUN (gethostbyname, (CONST char *));
 \f
 Tchannel
 DEFUN (OS_open_tcp_stream_socket, (host, port), char * host AND int port)
@@ -109,7 +109,7 @@ DEFUN (OS_open_unix_stream_socket, (filename), CONST char * filename)
 {
 #ifdef HAVE_UNIX_SOCKETS
   int s;
-  extern char * EXFUN (strncpy, (char *, const char *, size_t));
+  extern char * EXFUN (strncpy, (char *, CONST char *, size_t));
   STD_UINT_SYSTEM_CALL
     (syscall_socket, s, (UX_socket (AF_UNIX, SOCK_STREAM, 0)));
   {

diff --git a/v7/src/microcode/uxtty.c b/v7/src/microcode/uxtty.c
index 430cb994c0971578afbfcf5ce735b29e0908634e..52867e7783ddae2113dd2d708f94dd538d115dae 100644 (file)
--- a/v7/src/microcode/uxtty.c
+++ b/v7/src/microcode/uxtty.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtty.c,v 1.7 1992/01/20 18:50:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtty.c,v 1.8 1992/02/10 13:51:02 jinx Exp $
 
-Copyright (c) 1990, 1991 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -118,7 +118,7 @@ DEFUN (tputs_write_char, (c), char c)
 void
 DEFUN_VOID (UX_initialize_tty)
 {
-  extern int EXFUN (atoi, (const char *));
+  extern int EXFUN (atoi, (CONST char *));
   extern Tchannel EXFUN (OS_open_fd, (int fd));
   input_channel = (OS_open_fd (STDIN_FILENO));
   (CHANNEL_INTERNAL (input_channel)) = 1;
@@ -188,7 +188,7 @@ DEFUN_VOID (UX_initialize_tty)
     tty_command_clear = "\f";
   else
     {
-      extern void EXFUN (tputs, (const char *, int, void (*) (char)));
+      extern void EXFUN (tputs, (CONST char *, int, void (*) (char)));
       char * command = tputs_output_scan;
       tputs (tty_command_clear, tty_y_size, tputs_write_char);
       (*tputs_output_scan++) = '\0';