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

Eliminate compiler warning.
---

diff --git a/v7/src/microcode/bchdrn.c b/v7/src/microcode/bchdrn.c
index a31463140..d6a5e10bd 100644
--- a/v7/src/microcode/bchdrn.c
+++ b/v7/src/microcode/bchdrn.c
@@ -1,8 +1,8 @@
 /* -*- C -*-
 
-$Id: bchdrn.c,v 1.7 1999/01/02 06:11:34 cph Exp $
+$Id: bchdrn.c,v 1.8 2000/01/18 02:54:18 cph Exp $
 
-Copyright (c) 1991-1999 Massachusetts Institute of Technology
+Copyright (c) 1991-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -472,7 +472,7 @@ DEFUN_VOID (start_drones)
   /*NOTREACHED*/
 }
 
-void
+int
 DEFUN (main, (argc, argv), int argc AND char ** argv)
 {
   int count, nargs;
@@ -530,6 +530,7 @@ DEFUN (main, (argc, argv), int argc AND char ** argv)
 
   start_drones ();
   /*NOTREACHED*/
+  return (0);
 }
 
 #define MAIN main
diff --git a/v7/src/microcode/bchgcc.h b/v7/src/microcode/bchgcc.h
index 6897203c9..5b7673443 100644
--- a/v7/src/microcode/bchgcc.h
+++ b/v7/src/microcode/bchgcc.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchgcc.h,v 9.59 1999/01/02 06:11:34 cph Exp $
+$Id: bchgcc.h,v 9.60 2000/01/18 02:59:13 cph Exp $
 
-Copyright (c) 1987-1999 Massachusetts Institute of Technology
+Copyright (c) 1987-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -80,10 +80,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #  define BCH_STORE_OPERATOR_LINKAGE_ADDRESS STORE_OPERATOR_LINKAGE_ADDRESS
 #endif
 
-
+#ifdef _POSIX
+# include <sys/types.h>
+#else /* not _POSIX */
 #ifndef __osf__
 # define ssize_t int
-#endif /* __osf__ */
+#endif /* not __osf__ */
+#endif /* not _POSIX */
 
 extern char * EXFUN (error_name, (int));
 
diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index aa80e2032..b434b4083 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.69 1999/01/02 06:06:43 cph Exp $
+$Id: bintopsb.c,v 9.70 2000/01/18 02:52:54 cph Exp $
 
-Copyright (c) 1987-1999 Massachusetts Institute of Technology
+Copyright (c) 1987-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -2460,7 +2460,7 @@ static struct keyword_struct
     END_KEYWORD ()
     };
 
-void
+int
 DEFUN (main, (argc, argv), int argc AND char **argv)
 {
   parse_keywords (argc, argv, options, false);
@@ -2491,4 +2491,5 @@ DEFUN (main, (argc, argv), int argc AND char **argv)
   setup_io ("rb", "w");
   do_it ();
   quit (0);
+  return (0);
 }
diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index d4b72ec88..1fa20a51e 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.100 1999/01/02 06:11:34 cph Exp $
+$Id: boot.c,v 9.101 2000/01/18 02:52:58 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -88,17 +88,13 @@ DEFUN (usage, (error_string), CONST char * error_string)
 
 /* Exit is done in a different way on some operating systems (eg. VMS)  */
 
-#ifndef main_type
-#define main_type void
-#endif
-
 #ifndef main_name
 #define main_name main
 #endif
 
 #define FILE_READABLE(filename) ((access ((filename), 4)) >= 0)
 
-main_type
+
 DEFUN (main_name, (argc, argv),
        int argc AND CONST char ** argv)
 {
@@ -204,6 +200,7 @@ DEFUN (main_name, (argc, argv),
 	}
     }
   termination_init_error ();
+  return (0);
 }
 
 static SCHEME_OBJECT
diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index 63e198e06..fb59f089a 100644
--- a/v7/src/microcode/findprim.c
+++ b/v7/src/microcode/findprim.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: findprim.c,v 9.52 1999/01/02 06:11:34 cph Exp $
+$Id: findprim.c,v 9.53 2000/01/18 02:53:44 cph Exp $
 
-Copyright (c) 1987-1999 Massachusetts Institute of Technology
+Copyright (c) 1987-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -240,7 +240,7 @@ void EXFUN (skip_token, (void));
 void EXFUN (sort, (void));
 void EXFUN (update_from_entry, (struct descriptor * primitive_descriptor));
 
-void
+int
 DEFUN (main, (argc, argv),
        int argc AND
        char **argv)
@@ -344,6 +344,7 @@ DEFUN (main, (argc, argv),
   if (output != stdout)
     fclose (output);
   NORMAL_EXIT ();
+  return (0);
 }
 
 void