Add missing ANSI-style declarations.

diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index 54e2c1f492f2ace0bd37ca6bb91ef04919cb8428..74dfad9bc00831125b6654113f57e61a4d586ad5 100644 (file)
--- a/v7/src/microcode/findprim.c
+++ b/v7/src/microcode/findprim.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.44 1992/01/15 21:25:55 jinx Exp $
+$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 $
 
-Copyright (c) 1987-92 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
@@ -80,8 +80,8 @@ MIT in each case. */
 
 #include <ctype.h>
 
-extern int strcmp ();
-extern int strlen ();
+extern int EXFUN (strcmp, (const char *, const char *));
+extern int EXFUN (strlen, (const char *));
 
 typedef int boolean;
 #define TRUE 1
@@ -99,14 +99,16 @@ typedef int boolean;
 
 #define pseudo_void int
 
+extern void EXFUN (exit, (int));
+
 char *
 DEFUN (xmalloc, (length),
        int length)
 {
   char * result;
-  extern char * malloc ();
+  extern PTR EXFUN (malloc, (int));
 
-  result = (malloc (length));
+  result = ((char *) (malloc (length)));
   if (result == ((char *) 0))
     {
       fprintf (stderr, "malloc: unable to allocate %d bytes\n", length);
@@ -121,9 +123,9 @@ DEFUN (xrealloc, (ptr, length),
        int length)
 {
   char * result;
-  extern char * realloc ();
+  extern PTR EXFUN (realloc, (void *, int));
 
-  result = (realloc (ptr, length));
+  result = ((char *) (realloc (ptr, length)));
   if (result == ((char *) 0))
     {
       fprintf (stderr, "realloc: unable to allocate %d bytes\n", length);

diff --git a/v7/src/microcode/prosfile.c b/v7/src/microcode/prosfile.c
index 10570abc1240d9c81aba4da2b2642b455d34ceda..80bac0c002ecc7087d8a054f7e30071480bb3528 100644 (file)
--- a/v7/src/microcode/prosfile.c
+++ b/v7/src/microcode/prosfile.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfile.c,v 1.2 1991/03/01 00:55:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfile.c,v 1.3 1992/01/20 17:25:43 jinx Exp $
 
-Copyright (c) 1987-91 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
@@ -38,6 +38,8 @@ MIT in each case. */
 #include "prims.h"
 #include "osfile.h"
 
+extern Tchannel EXFUN (arg_channel, (int));
+
 #ifndef OPEN_FILE_HOOK
 #define OPEN_FILE_HOOK(channel)
 #endif

diff --git a/v7/src/microcode/prosfs.c b/v7/src/microcode/prosfs.c
index fa068bae83ba04c183fa6d15e15bc2d69ccd8a9e..0a2b535e4115f8bfb372280b18d1f254fd76ef35 100644 (file)
--- a/v7/src/microcode/prosfs.c
+++ b/v7/src/microcode/prosfs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfs.c,v 1.5 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfs.c,v 1.6 1992/01/20 17:29:30 jinx Exp $
 
-Copyright (c) 1987-91 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
@@ -36,7 +36,14 @@ MIT in each case. */
 
 #include "scheme.h"
 #include "prims.h"
+#include "osfile.h"
 #include "osfs.h"
+#include "osio.h"
+
+extern int EXFUN (OS_channel_copy,
+                 (off_t source_length,
+                  Tchannel source_channel,
+                  Tchannel destination_channel));
 
 #define STRING_RESULT(expression)                                      \
 {                                                                      \
@@ -161,11 +168,6 @@ If third arg HARD? is #F, a soft link is created;\n\
 #define FILE_COPY_BUFFER_LENGTH 8192
 #endif
 
-extern int EXFUN (OS_channel_copy,
-                 (off_t source_length,
-                  Tchannel source_channel,
-                  Tchannel destination_channel));
-
 int
 DEFUN (OS_channel_copy, (source_length, source_channel, destination_channel),
        off_t source_length AND

diff --git a/v7/src/microcode/prosproc.c b/v7/src/microcode/prosproc.c
index 82113ebe89e3a41873f94e8cc4cb0d2bb611e3e7..ad30ab86bb1550e5469502f9719d5f06da907ff4 100644 (file)
--- a/v7/src/microcode/prosproc.c
+++ b/v7/src/microcode/prosproc.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosproc.c,v 1.9 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosproc.c,v 1.10 1992/01/20 17:30:50 jinx Exp $
 
-Copyright (c) 1990-91 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
@@ -38,6 +38,7 @@ MIT in each case. */
 #include "prims.h"
 #include "osproc.h"
 
+extern Tchannel EXFUN (arg_channel, (int));
 static int EXFUN (string_vector_p, (SCHEME_OBJECT vector));
 static char ** EXFUN (convert_string_vector, (SCHEME_OBJECT vector));
 \f

diff --git a/v7/src/microcode/prosterm.c b/v7/src/microcode/prosterm.c
index ad992a45002978616e02cbe29b1e8fac570e07b4..22b426a6d470ea3f76f01c985dcdb04395a6213a 100644 (file)
--- a/v7/src/microcode/prosterm.c
+++ b/v7/src/microcode/prosterm.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.10 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.11 1992/01/20 17:31:47 jinx Exp $
 
-Copyright (c) 1990-91 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
@@ -38,6 +38,8 @@ MIT in each case. */
 #include "prims.h"
 #include "osterm.h"
 #include "osio.h"
+
+extern Tchannel EXFUN (arg_channel, (int));
 \f
 static Tchannel
 DEFUN (arg_terminal, (argument_number), int argument_number)

diff --git a/v7/src/microcode/uxtty.c b/v7/src/microcode/uxtty.c
index d12135155e32055f4358888d5f9600aa4a54fdc6..db97052b5cbce91eac61ab6115e2e4b281941587 100644 (file)
--- a/v7/src/microcode/uxtty.c
+++ b/v7/src/microcode/uxtty.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtty.c,v 1.5 1991/01/15 20:18:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtty.c,v 1.6 1992/01/20 17:24:17 jinx Exp $
 
 Copyright (c) 1990, 1991 Massachusetts Institute of Technology
 
@@ -118,6 +118,7 @@ DEFUN (tputs_write_char, (c), char c)
 void
 DEFUN_VOID (UX_initialize_tty)
 {
+  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;
@@ -187,6 +188,7 @@ DEFUN_VOID (UX_initialize_tty)
     tty_command_clear = "\f";
   else
     {
+      extern void EXFUN (tputs, (char *, int, void (*) (char)));
       char * command = tputs_output_scan;
       tputs (tty_command_clear, tty_y_size, tputs_write_char);
       (*tputs_output_scan++) = '\0';