Eliminate compiler warnings generated under NT.

diff --git a/v7/src/microcode/avltree.c b/v7/src/microcode/avltree.c
index 9890ca02f6c593c114f9dd76214be553bfe8214e..2151bda1ba28a274a4933fd3e58c4d1f816e9931 100644 (file)
--- a/v7/src/microcode/avltree.c
+++ b/v7/src/microcode/avltree.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: avltree.c,v 1.2 1996/10/02 18:56:52 cph Exp $
+$Id: avltree.c,v 1.3 1997/01/02 05:21:28 cph Exp $
 
-Copyright (c) 1993-96 Massachusetts Institute of Technology
+Copyright (c) 1993-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -189,6 +189,8 @@ DEFUN (tree_insert, (tree, name, value),
       return (rebalance_rite (tree));
     }
   }
+  /*NOTREACHED*/
+  return (0);
 }
 
 tree_node

diff --git a/v7/src/microcode/bchdrn.h b/v7/src/microcode/bchdrn.h
index 5085a9c8faba7867cffc4d2c679fe6c39f17177e..7ceab57415eb3884629e7c2cf19d44fa0312308c 100644 (file)
--- a/v7/src/microcode/bchdrn.h
+++ b/v7/src/microcode/bchdrn.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchdrn.h,v 1.7 1995/03/21 22:12:41 cph Exp $
+$Id: bchdrn.h,v 1.8 1997/01/02 05:21:28 cph Exp $
 
-Copyright (c) 1991-95 Massachusetts Institute of Technology
+Copyright (c) 1991-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -47,11 +47,13 @@ MIT in each case. */
 #else
 #ifndef DOS386
 #ifndef _OS2
+#ifndef WINNT
   extern int EXFUN (read, (int, PTR, unsigned int));
   extern int EXFUN (write, (int, PTR, unsigned int));
 #endif
 #endif
 #endif
+#endif
 
 #if defined(HAVE_POSIX_SIGNALS) && defined(HAVE_BSD_SIGNALS)
 #  define RE_INSTALL_HANDLER(signum,handler)   do { } while (0)

diff --git a/v7/src/microcode/bchpur.c b/v7/src/microcode/bchpur.c
index e2d45b9e837840b57f987315d6842ddb060b8fdc..300d5a6e3a207b5d8eef75c343048879d63dab8f 100644 (file)
--- a/v7/src/microcode/bchpur.c
+++ b/v7/src/microcode/bchpur.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchpur.c,v 9.65 1994/01/30 03:32:04 gjr Exp $
+$Id: bchpur.c,v 9.66 1997/01/02 05:21:29 cph Exp $
 
-Copyright (c) 1987-1994 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -674,4 +674,5 @@ DEFINE_PRIMITIVE ("PRIMITIVE-PURIFY", Prim_primitive_purify, 3, 3, 0)
  Pushed ();
   PRIMITIVE_ABORT (PRIM_APPLY);
   /*NOTREACHED*/
+  return (0);
 }

diff --git a/v7/src/microcode/bignum.c b/v7/src/microcode/bignum.c
index 207a373a0f6e250eb13990aad8f8342973b11ab1..3b16c106feddbe5b193eb465ed2398fce578c9f5 100644 (file)
--- a/v7/src/microcode/bignum.c
+++ b/v7/src/microcode/bignum.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bignum.c,v 9.42 1996/10/02 18:56:56 cph Exp $
+$Id: bignum.c,v 9.43 1997/01/02 05:21:30 cph Exp $
 
-Copyright (c) 1989-96 Massachusetts Institute of Technology
+Copyright (c) 1989-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -399,6 +399,9 @@ DEFUN (bignum_quotient, (numerator, denominator),
               q_negative_p, 0);
          return (quotient);
        }
+      default:
+       /*NOTREACHED*/
+       return (0);
       }
   }
 }
@@ -441,6 +444,9 @@ DEFUN (bignum_remainder, (numerator, denominator),
             0, (BIGNUM_NEGATIVE_P (numerator)));
        return (remainder);
       }
+    default:
+      /*NOTREACHED*/
+      return (0);
     }
 }
 \f

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index fc9563ed15a2cd4f246470a78095506189c4e9b4..9c6529e99bafdf47714193e994b3177e6095e731 100644 (file)
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.65 1994/01/12 00:30:20 gjr Exp $
+$Id: bintopsb.c,v 9.66 1997/01/02 05:23:15 cph Exp $
 
-Copyright (c) 1987-1994 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -446,7 +446,8 @@ DEFUN (bignum_length, (bignum), SCHEME_OBJECT bignum)
   fprintf (stderr, "%s: Bignum exceeds representable length.\n",
           program_name);
   quit (1);
-  /* NOTREACHED */
+  /*NOTREACHED*/
+  return (0);
 }
 \f
 static void
@@ -1926,7 +1927,7 @@ DEFUN_VOID (do_it)
                 "%s: Input is not a Scheme binary file.\n",
                 program_name);
        quit (1);
-       /* NOTREACHED */
+       /*NOTREACHED*/
     }
 
     if (   (Version > FASL_FORMAT_VERSION)

diff --git a/v7/src/microcode/bitstr.c b/v7/src/microcode/bitstr.c
index 0ff6f230c6a03dfa05a30175873be7c3618ed06a..6ba4fe61530f1c20f1563e53b0f6552bf554f077 100644 (file)
--- a/v7/src/microcode/bitstr.c
+++ b/v7/src/microcode/bitstr.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bitstr.c,v 9.59 1996/10/02 21:16:23 cph Exp $
+$Id: bitstr.c,v 9.60 1997/01/02 05:21:31 cph Exp $
 
-Copyright (c) 1987-96 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -631,6 +631,9 @@ DEFUN (bignum_to_bit_string, (length, bignum),
          (bignum, (1L << CHAR_BIT), btbs_consumer, (&result_ptr));
        return (result);
       }
+    default:
+      /*NOTREACHED*/
+      return (0);
     }
 }
 
@@ -702,7 +705,8 @@ error is signalled.")
   if (BIGNUM_P (object))
     PRIMITIVE_RETURN (bignum_to_bit_string (length, object));
   error_wrong_type_arg (2);
-  /* NOTREACHED */
+  /*NOTREACHED*/
+  return (0);
 }
 
 /*  */

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index bfc89309b3843ab9f4e08cae02d89ad00bb831d5..cace20504c6940541ad815715f63e088649e94e2 100644 (file)
--- a/v7/src/microcode/comutl.c
+++ b/v7/src/microcode/comutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: comutl.c,v 1.29 1993/10/30 03:04:19 gjr Exp $
+$Id: comutl.c,v 1.30 1997/01/02 05:21:33 cph Exp $
 
-Copyright (c) 1987-1993 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -120,6 +120,7 @@ DEFINE_PRIMITIVE ("COERCE-TO-COMPILED-PROCEDURE", Prim_coerce_to_closure, 2, 2,
     default:
       error_bad_range_arg (2);
       /*NOTREACHED*/
+      return (0);
   }
 }
 

diff --git a/v7/src/microcode/extern.c b/v7/src/microcode/extern.c
index 2bbebe1aed11352df18e6055262c39a311734cac..22b925350304cd442e3b47c69a67e9829124159c 100644 (file)
--- a/v7/src/microcode/extern.c
+++ b/v7/src/microcode/extern.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: extern.c,v 9.35 1996/10/02 18:57:24 cph Exp $
+$Id: extern.c,v 9.36 1997/01/02 05:21:33 cph Exp $
 
-Copyright (c) 1987-96 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -67,7 +67,8 @@ number (i.e. external representation) of the desired result.")
     default:
       error_bad_range_arg (1);
   }
-  /* NOTREACHED */
+  /*NOTREACHED*/
+  return (0);
 }
 
 DEFINE_PRIMITIVE ("MAP-MACHINE-ADDRESS-TO-CODE", Prim_map_address_to_code, 2, 2,
@@ -99,7 +100,8 @@ the internal address.")
     default:
       error_bad_range_arg (1);
     }
-  /* NOTREACHED */
+  /*NOTREACHED*/
+  return (0);
 }
 \f
 DEFINE_PRIMITIVE ("PRIMITIVE-PROCEDURE-ARITY", Prim_primitive_procedure_arity, 1, 1,

diff --git a/v7/src/microcode/fasdump.c b/v7/src/microcode/fasdump.c
index 9fe93d533121cc5f8640c2f95167fd0abb528f94..e75a848ee04c4d14b418f9faee1c4adb67be0df0 100644 (file)
--- a/v7/src/microcode/fasdump.c
+++ b/v7/src/microcode/fasdump.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fasdump.c,v 9.61 1996/10/02 18:57:28 cph Exp $
+$Id: fasdump.c,v 9.62 1997/01/02 05:21:34 cph Exp $
 
-Copyright (c) 1987-96 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -416,6 +416,7 @@ DEFUN (Fasdump_Exit, (code, close_p), long code AND Boolean close_p)
   {
     signal_error_from_primitive (ERR_IO_ERROR);
     /*NOTREACHED*/
+    return (0);
   }
   if (code == PRIM_DONE)
     return (SHARP_T);
@@ -425,6 +426,7 @@ DEFUN (Fasdump_Exit, (code, close_p), long code AND Boolean close_p)
   {
     signal_error_from_primitive (code);
     /*NOTREACHED*/
+    return (0);
   }
 }
 \f

diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c
index 3c259037ca8790d45652c400eeec237582f0abb1..0ca0266e04ab62da73345fcdab685c00efa5f442 100644 (file)
--- a/v7/src/microcode/findprim.c
+++ b/v7/src/microcode/findprim.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: findprim.c,v 9.50 1996/10/02 18:57:35 cph Exp $
+$Id: findprim.c,v 9.51 1997/01/02 05:21:35 cph Exp $
 
-Copyright (c) 1987-96 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -102,6 +102,7 @@ typedef int boolean;
 /* The 4.2 bsd vax compiler has a bug which forces the following. */
 
 #define pseudo_void int
+#define pseudo_return return (0)
 
 extern void EXFUN (exit, (int));
 
@@ -1046,7 +1047,7 @@ DEFUN_VOID (create_normal_entry)
   COPY_FILE_NAME ((* data_buffer) [buffer_index]);
   (result_buffer [buffer_index]) = (& ((* data_buffer) [buffer_index]));
   buffer_index += 1;
-  return;
+  pseudo_return;
 }
 
 pseudo_void
@@ -1062,7 +1063,7 @@ DEFUN_VOID (create_alternate_entry)
   COPY_FILE_NAME ((* data_buffer) [buffer_index]);
   (result_buffer [buffer_index]) = (& ((* data_buffer) [buffer_index]));
   buffer_index += 1;
-  return;
+  pseudo_return;
 }
 
 pseudo_void
@@ -1108,7 +1109,7 @@ DEFUN_VOID (create_builtin_entry)
     }
   ((* data_buffer) [index]) = desc;
   (result_buffer [index]) = (& ((* data_buffer) [index]));
-  return;
+  pseudo_return;
 }
 
 int

diff --git a/v7/src/microcode/hooks.c b/v7/src/microcode/hooks.c
index 5f6845d7e62a7f80ff261ed3be6292a411aa8c00..c5b1c5569d52d221eb1ebaf4d72cc8a3eb4d3ed6 100644 (file)
--- a/v7/src/microcode/hooks.c
+++ b/v7/src/microcode/hooks.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: hooks.c,v 9.55 1996/10/02 19:17:34 cph Exp $
+$Id: hooks.c,v 9.56 1997/01/02 05:21:37 cph Exp $
 
-Copyright (c) 1988-96 Massachusetts Institute of Technology
+Copyright (c) 1988-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -154,6 +154,7 @@ Invoke PROCEDURE on the arguments contained in list-of-ARGS.")
 
   PRIMITIVE_ABORT (PRIM_APPLY);
   /*NOTREACHED*/
+  return (0);
 }
 \f
 /* CALL-WITH-CURRENT-CONTINUATION
@@ -494,6 +495,7 @@ memoized yet.")
       Store_Expression (FAST_MEMORY_REF (thunk, THUNK_PROCEDURE));
       PRIMITIVE_ABORT (PRIM_DO_EXPRESSION);
       /*NOTREACHED*/
+      return (0);
     }
   }
 }
@@ -797,6 +799,7 @@ and MARKER2 is data identifying the marker instance.")
    Pushed ();
     PRIMITIVE_ABORT (PRIM_APPLY);
     /*NOTREACHED*/
+    return (0);
   }
 }
 \f
@@ -833,6 +836,7 @@ DEFUN (with_new_interrupt_mask, (new_mask), unsigned long new_mask)
     SET_INTERRUPT_MASK (new_mask);
     PRIMITIVE_ABORT (PRIM_APPLY);
     /*NOTREACHED*/
+    return (0);
   }
 }
 

diff --git a/v7/src/microcode/lookprm.c b/v7/src/microcode/lookprm.c
index c292c86d350047446eb1b156ee6b36c73e003e30..1c15c9de670726dd771ce585ccbf770992943612 100644 (file)
--- a/v7/src/microcode/lookprm.c
+++ b/v7/src/microcode/lookprm.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: lookprm.c,v 1.9 1993/06/24 07:08:56 gjr Exp $
+$Id: lookprm.c,v 1.10 1997/01/02 05:21:38 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -210,6 +210,7 @@ DEFINE_PRIMITIVE ("LEXICAL-UNREFERENCEABLE?", Prim_unreferenceable_test, 2, 2, 0
       signal_error_from_primitive(Result);
   }
   /*NOTREACHED*/
+  return (0);
 }
 \f
 SCHEME_OBJECT
@@ -427,4 +428,6 @@ DEFINE_PRIMITIVE ("ENVIRONMENT-LINK-NAME", Prim_environment_link_name, 3, 3, 0)
     MEMORY_STORE (cell[0], MAKE_POINTER_OBJECT (TC_REFERENCE_TRAP, trap));
     PRIMITIVE_RETURN(SHARP_T);
   }
+  /*NOTREACHED*/
+  return (0);
 }

diff --git a/v7/src/microcode/ntio.c b/v7/src/microcode/ntio.c
index acf18037cba95244503e84910feaf530c5bba990..f596f05d46a313fba3d309a2d95bf4d78c82c77e 100644 (file)
--- a/v7/src/microcode/ntio.c
+++ b/v7/src/microcode/ntio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntio.c,v 1.13 1997/01/01 22:57:27 cph Exp $
+$Id: ntio.c,v 1.14 1997/01/02 05:21:38 cph Exp $
 
 Copyright (c) 1992-97 Massachusetts Institute of Technology
 
@@ -248,7 +248,7 @@ DEFUN (raw_write, (fd, buffer, nbytes),
     return (nbytes);
   }
   if (IsConsoleHandle (fd))
-    return (nt_console_write (buffer, nbytes));
+    return (nt_console_write (((void *) buffer), nbytes));
   if (WriteFile (fd, buffer, nbytes, &bytesWritten, 0))
     return (bytesWritten);
   else

diff --git a/v7/src/microcode/ntsys.c b/v7/src/microcode/ntsys.c
index 1c9213576121d4b79bed58d42004f05a336c686c..4b1e45a82a290dce0aab95dcfc73e293cc21cdc7 100644 (file)
--- a/v7/src/microcode/ntsys.c
+++ b/v7/src/microcode/ntsys.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: ntsys.c,v 1.6 1996/10/02 18:58:21 cph Exp $
+$Id: ntsys.c,v 1.7 1997/01/02 05:21:39 cph Exp $
 
-Copyright (c) 1992-96 Massachusetts Institute of Technology
+Copyright (c) 1992-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -51,7 +51,7 @@ nt_console_write (void * vbuffer, size_t nsize)
 BOOL
 nt_pathname_as_filename (char * name, char * buffer)
 { /* Returns whether directory encountered is top level */
-  unsigned int end_index = ((strlen (name)) - 1);
+  int end_index = ((strlen (name)) - 1);
 
   /* The runtime system comes down with a name that has a back slash
      at the end.  This will choke DOS.

diff --git a/v7/src/microcode/nttrap.c b/v7/src/microcode/nttrap.c
index b635bb3e3420914581885671fe1665f6df60d321..9fe3deeaad27666c32829277d0d7d76de34db961 100644 (file)
--- a/v7/src/microcode/nttrap.c
+++ b/v7/src/microcode/nttrap.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: nttrap.c,v 1.11 1995/10/24 05:07:05 cph Exp $
+$Id: nttrap.c,v 1.12 1997/01/02 05:21:40 cph Exp $
 
-Copyright (c) 1992-95 Massachusetts Institute of Technology
+Copyright (c) 1992-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1295,6 +1295,8 @@ DEFUN (WinntException, (code, info),
                                     info->ContextRecord,
                                     MB_OK);
     trap_immediate_termination ();
+    /*NOTREACHED*/
+    return (0);
   }
   else if (code == EXCEPTION_CODE_GUARDED_PAGE_ACCESS)
   {

diff --git a/v7/src/microcode/rgxprim.c b/v7/src/microcode/rgxprim.c
index 8db09b559c0ad5273638fa96f94e9337e9d6c1ea..4b05c28b484eeb272220a221253b8d8431e40c5c 100644 (file)
--- a/v7/src/microcode/rgxprim.c
+++ b/v7/src/microcode/rgxprim.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: rgxprim.c,v 1.10 1993/06/24 07:09:41 gjr Exp $
+$Id: rgxprim.c,v 1.11 1997/01/02 05:21:41 cph Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -90,6 +90,8 @@ MIT in each case. */
     error_bad_range_arg (1);                                           \
   else                                                                 \
     error_external_return ();                                          \
+  /*NOTREACHED*/                                                       \
+  return (0);                                                          \
 } while (0)
 \f
 DEFINE_PRIMITIVE ("RE-CHAR-SET-ADJOIN!", Prim_re_char_set_adjoin, 2, 2, 0)
@@ -126,6 +128,8 @@ DEFINE_PRIMITIVE ("RE-COMPILE-FASTMAP", Prim_re_compile_fastmap, 4, 4, 0)
     error_bad_range_arg (1);
   else
     error_external_return ();
+  /*NOTREACHED*/
+  return (0);
 }
 \f
 /* (re-match-substring regexp translation syntax-table registers

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 6fbc8d141bc0a20e3924c4c7f7fa33d11cc41a90..29c3dd3fbaa08f65820dfdde85913ca7b68571ba 100644 (file)
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: utils.c,v 9.70 1996/10/02 18:59:03 cph Exp $
+$Id: utils.c,v 9.71 1997/01/02 05:21:41 cph Exp $
 
-Copyright (c) 1987-96 Massachusetts Institute of Technology
+Copyright (c) 1987-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -817,6 +817,7 @@ DEFUN (Restore_History, (hist_obj), SCHEME_OBJECT hist_obj)
     outf_fatal ("\nBad history to restore.\n");
     Microcode_Termination (TERM_EXIT);
     /*NOTREACHED*/
+    return (0);
   }
   else
   {