From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 20 Jan 1992 17:35:57 +0000 (+0000)
Subject: Add missing ANSI-style declarations.
X-Git-Tag: 20090517-FFI~9959
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=41d4b9b0b6c6f9cd02c1db2e5813270727930fcd;p=mit-scheme.git

Add missing ANSI-style declarations.
---

diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index 54e2c1f49..74dfad9bc 100644
--- 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 10570abc1..80bac0c00 100644
--- 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 fa068bae8..0a2b535e4 100644
--- 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 82113ebe8..ad30ab86b 100644
--- 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));
 
diff --git a/v7/src/microcode/prosterm.c b/v7/src/microcode/prosterm.c
index ad992a450..22b426a6d 100644
--- 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));
 
 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 d12135155..db97052b5 100644
--- 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';