Eliminate (now incorrect) declarations for various procedures defined

in the C library.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 822a7d3085340f98687b4b62e10594ba9e98c03f..622768de8bd9494d734507e87d85a6a62e8aa935 100644 (file)
--- 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 580fd1adfe3f663f004768d4b0f3dcd5c40055aa..d2fc6c79c552efa684c6f6838fbef43f94e852bb 100644 (file)
--- 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 1678b104ab838b05abdf851788a27fe8c4ff0e82..103979cc25e24683a1d0a872ac2ae9addfb3ae6b 100644 (file)
--- 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 9a3aa7d75fe2e234507adc248ac9badeb2bd4276..71d3ddba762cada76c300833066b4e5290f1cdb1 100644 (file)
--- 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 7608a2fcb6b9f3b552d70d4d3e2708797b544226..25880a90c1e9e21338c86f79fde86fe16517c8b0 100644 (file)
--- 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 d18ab19f6476dbfff85069698a53b1b399fde456..17f2d932e99663efaa70d0869cdafd41b35b6eae 100644 (file)
--- 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"