From dd5a7470a87ab7a19858a09e1696ebe0a012ebf0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Apr 1990 21:56:23 +0000
Subject: [PATCH] Eliminate (now incorrect) declarations for various procedures
 defined in the C library.

---
 v7/src/microcode/bintopsb.c |  6 ++----
 v7/src/microcode/ppband.c   |  6 ++----
 v7/src/microcode/psbtobin.c | 10 +++++-----
 v8/src/microcode/bintopsb.c |  6 ++----
 v8/src/microcode/ppband.c   |  6 ++----
 v8/src/microcode/psbtobin.c | 10 +++++-----
 6 files changed, 18 insertions(+), 26 deletions(-)

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 822a7d308..622768de8 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.44 1990/01/22 19:16:44 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.45 1990/04/17 21:56:00 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -48,9 +48,7 @@ Load_Data(Count, To_Where)
      long Count;
      char *To_Where;
 {
-  extern int fread();
-
-  return (fread(To_Where, sizeof(SCHEME_OBJECT), Count, internal_file));
+  return (fread (To_Where, (sizeof (SCHEME_OBJECT)), Count, internal_file));
 }
 
 #define INHIBIT_FASL_VERSION_CHECK
diff --git a/v7/src/microcode/ppband.c b/v7/src/microcode/ppband.c
index 580fd1adf..d2fc6c79c 100644
--- a/v7/src/microcode/ppband.c
+++ b/v7/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/ppband.c,v 9.36 1989/11/30 03:03:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/ppband.c,v 9.37 1990/04/17 21:55:47 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -53,9 +53,7 @@ Load_Data(Count, To_Where)
      long Count;
      FILE *To_Where;
 {
-  extern int fread();
-
-  return (fread(To_Where, sizeof(SCHEME_OBJECT), Count, stdin));
+  return (fread (To_Where, (sizeof (SCHEME_OBJECT)), Count, stdin));
 }
 
 long
diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index 1678b104a..103979cc2 100644
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.40 1990/01/23 08:30:51 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.41 1990/04/17 21:56:23 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -68,10 +68,10 @@ Write_Data(Count, From_Where)
      long Count;
      SCHEME_OBJECT *From_Where;
 {
-  extern int fwrite();
-
-  return (fwrite(((char *) From_Where), sizeof(SCHEME_OBJECT),
-		 Count, internal_file));
+  return (fwrite (((char *) From_Where),
+		  (sizeof (SCHEME_OBJECT)),
+		  Count,
+		  internal_file));
 }
 
 #include "fasl.h"
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 9a3aa7d75..71d3ddba7 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.44 1990/01/22 19:16:44 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.45 1990/04/17 21:56:00 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -48,9 +48,7 @@ Load_Data(Count, To_Where)
      long Count;
      char *To_Where;
 {
-  extern int fread();
-
-  return (fread(To_Where, sizeof(SCHEME_OBJECT), Count, internal_file));
+  return (fread (To_Where, (sizeof (SCHEME_OBJECT)), Count, internal_file));
 }
 
 #define INHIBIT_FASL_VERSION_CHECK
diff --git a/v8/src/microcode/ppband.c b/v8/src/microcode/ppband.c
index 7608a2fcb..25880a90c 100644
--- a/v8/src/microcode/ppband.c
+++ b/v8/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/ppband.c,v 9.36 1989/11/30 03:03:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/ppband.c,v 9.37 1990/04/17 21:55:47 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -53,9 +53,7 @@ Load_Data(Count, To_Where)
      long Count;
      FILE *To_Where;
 {
-  extern int fread();
-
-  return (fread(To_Where, sizeof(SCHEME_OBJECT), Count, stdin));
+  return (fread (To_Where, (sizeof (SCHEME_OBJECT)), Count, stdin));
 }
 
 long
diff --git a/v8/src/microcode/psbtobin.c b/v8/src/microcode/psbtobin.c
index d18ab19f6..17f2d932e 100644
--- a/v8/src/microcode/psbtobin.c
+++ b/v8/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.40 1990/01/23 08:30:51 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.41 1990/04/17 21:56:23 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -68,10 +68,10 @@ Write_Data(Count, From_Where)
      long Count;
      SCHEME_OBJECT *From_Where;
 {
-  extern int fwrite();
-
-  return (fwrite(((char *) From_Where), sizeof(SCHEME_OBJECT),
-		 Count, internal_file));
+  return (fwrite (((char *) From_Where),
+		  (sizeof (SCHEME_OBJECT)),
+		  Count,
+		  internal_file));
 }
 
 #include "fasl.h"
-- 
2.25.1