From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Jan 2000 05:06:14 +0000 (+0000)
Subject: Eliminate compiler warning.
X-Git-Tag: 20090517-FFI~4324
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ae86d1c9c2a9d67d5419346773e528e8cc0c6b1;p=mit-scheme.git

Eliminate compiler warning.
---

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index 76d90a3ce..94fb67e1d 100644
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchdmp.c,v 9.83 1999/01/02 06:11:34 cph Exp $
+$Id: bchdmp.c,v 9.84 2000/01/18 05:05:57 cph Exp $
 
 Copyright (c) 1987-1999 Massachusetts Institute of Technology
 
@@ -26,6 +26,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "scheme.h"
 #include "prims.h"
 #include "osfile.h"
+#include "osfs.h"
 #include "trap.h"
 #include "lookup.h"		/* UNCOMPILED_VARIABLE */
 #define In_Fasdump
@@ -179,7 +180,7 @@ static SCHEME_OBJECT *saved_free;
 static SCHEME_OBJECT *fixup_buffer = ((SCHEME_OBJECT *) NULL);
 static SCHEME_OBJECT *fixup_buffer_end;
 static SCHEME_OBJECT *fixup;
-static fixup_count = 0;
+static int fixup_count = 0;
 static Boolean compiled_code_present_p;
 
 /* Utility macros. */
diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index 677d90e60..70e66b32e 100644
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchmmg.c,v 9.93 1999/01/02 06:11:34 cph Exp $
+$Id: bchmmg.c,v 9.94 2000/01/18 05:06:06 cph Exp $
 
 Copyright (c) 1987-1999 Massachusetts Institute of Technology
 
@@ -2138,7 +2138,7 @@ Boolean
 DEFUN (update_allocator_parameters, (ctop), SCHEME_OBJECT * ctop)
 {
   SCHEME_OBJECT * htop;
-  long new_end, delta;
+  long new_end;
 
   /* buffer for impurify, etc. */
   ctop = ((SCHEME_OBJECT *)
diff --git a/v7/src/microcode/bchutl.c b/v7/src/microcode/bchutl.c
index 8bce14cb7..8f28f1cc4 100644
--- a/v7/src/microcode/bchutl.c
+++ b/v7/src/microcode/bchutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchutl.c,v 1.8 1999/01/02 06:11:34 cph Exp $
+$Id: bchutl.c,v 1.9 2000/01/18 05:06:14 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -21,6 +21,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 #include "oscond.h"
 #include "ansidecl.h"
+#include <stdio.h>
 
 #include <errno.h>
 #ifndef EINTR
@@ -76,8 +77,6 @@ DEFUN (error_name, (code), int code)
 char *
 DEFUN (error_name, (code), int code)
 {
-  extern int sys_nerr;
-  extern char *sys_errlist[];
   static char buf[512];
 
   if ((code >= 0) && (code <= sys_nerr))