Eliminate compiler warning.

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index 94fb67e1d501de8a8d42106616fa69797bb1f9eb..dacf83d02cabe69689d0608b4a243d091d469048 100644 (file)
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchdmp.c,v 9.84 2000/01/18 05:05:57 cph Exp $
+$Id: bchdmp.c,v 9.85 2000/01/18 05:06:26 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

diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index 70e66b32edc8137f3b9889c2f513e5bb9bd1991f..e2671bf1a6bc70ad66ee40ca6bf01eaa6a49f509 100644 (file)
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchmmg.c,v 9.94 2000/01/18 05:06:06 cph Exp $
+$Id: bchmmg.c,v 9.95 2000/01/18 05:06:34 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

diff --git a/v7/src/microcode/bchutl.c b/v7/src/microcode/bchutl.c
index 8f28f1cc4acf34584deea631bbdd73f554b578b5..ba6668b77e0243a78926415254de8942759dcb05 100644 (file)
--- a/v7/src/microcode/bchutl.c
+++ b/v7/src/microcode/bchutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bchutl.c,v 1.9 2000/01/18 05:06:14 cph Exp $
+$Id: bchutl.c,v 1.10 2000/01/18 05:06:42 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

diff --git a/v7/src/microcode/bignum.c b/v7/src/microcode/bignum.c
index 180af8b2292a74505dcafa877f261fc553f50501..e48120768e6183d4c435aff01ba460376a8d3168 100644 (file)
--- a/v7/src/microcode/bignum.c
+++ b/v7/src/microcode/bignum.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bignum.c,v 9.47 1999/01/02 06:11:34 cph Exp $
+$Id: bignum.c,v 9.48 2000/01/18 05:07:03 cph Exp $
 
-Copyright (c) 1989-1999 Massachusetts Institute of Technology
+Copyright (c) 1989-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
@@ -120,8 +120,6 @@ static bignum_type EXFUN (bignum_maybe_new_sign,
                          (bignum_type, int));
 static void EXFUN (bignum_destructive_copy,
                   (bignum_type, bignum_type));
-static void EXFUN (bignum_destructive_zero,
-                  (bignum_type));
 
 #define ULONG_LENGTH_IN_BITS(digit, len)               \
 do {                                                   \
@@ -1936,13 +1934,3 @@ DEFUN (bignum_destructive_copy, (source, target),
     (*scan_target++) = (*scan_source++);
   return;
 }
-
-static void
-DEFUN (bignum_destructive_zero, (bignum), fast bignum_type bignum)
-{
-  fast bignum_digit_type * scan = (BIGNUM_START_PTR (bignum));
-  fast bignum_digit_type * end = (scan + (BIGNUM_LENGTH (bignum)));
-  while (scan < end)
-    (*scan++) = 0;
-  return;
-}

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index b434b4083c7cea7d3f2afd830491a3d24ea1541e..2fddd95b74f5c41d4176dfc6a23a5cb2fde53fad 100644 (file)
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.70 2000/01/18 02:52:54 cph Exp $
+$Id: bintopsb.c,v 9.71 2000/01/18 05:07:46 cph Exp $
 
 Copyright (c) 1987-2000 Massachusetts Institute of Technology
 
@@ -1715,7 +1715,7 @@ DEFUN (print_objects, (from, to),
          case GLOBAL_OPERATOR_LINKAGE_KIND:
          {
            char * word_ptr;
-           long count, address = 0;
+           long count = 0;
            SCHEME_OBJECT This, * area_end, * scan, * i_scan;
 
            i_scan = (from - 1);
@@ -1804,7 +1804,6 @@ DEFUN (print_objects, (from, to),
       
       {
        unsigned long nmv_length;
-       SCHEME_OBJECT * entry;
 
        nmv_length = (OBJECT_DATUM (compiled_block_table [the_datum + 1]));
        fprintf (portable_file, "%02x %lx %lx\n",

diff --git a/v7/src/microcode/bitstr.c b/v7/src/microcode/bitstr.c
index 022c3c46616a19ed83fb059f3858c2561d4725f0..6978bbd1f4dce6faf91598fe183edd4dc16275ba 100644 (file)
--- a/v7/src/microcode/bitstr.c
+++ b/v7/src/microcode/bitstr.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: bitstr.c,v 9.61 1999/01/02 06:11:34 cph Exp $
+$Id: bitstr.c,v 9.62 2000/01/18 05:08:00 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
@@ -485,18 +485,14 @@ DEFUN (copy_bits,
       else
        {
          long mask1 = (LOW_MASK (offset1));
-         long dest_buffer;
-         {
-           long mask = (ANY_MASK (head, offset1));
-           dest_buffer
-             = (((head + offset1) < OBJECT_LENGTH)
-                ? ((BIT_STRING_WORD (destination))
-                   &~ (LOW_MASK (head + offset1)))
-                : 0);
-           dest_buffer
-             |= (((* (DEC_BIT_STRING_PTR (source))) & (LOW_MASK (head)))
-                 << offset1);
-         }
+         long dest_buffer
+           = (((head + offset1) < OBJECT_LENGTH)
+              ? ((BIT_STRING_WORD (destination))
+                 &~ (LOW_MASK (head + offset1)))
+              : 0);
+         dest_buffer
+           |= (((* (DEC_BIT_STRING_PTR (source))) & (LOW_MASK (head)))
+               << offset1);
          nbits -= head;
          while (nbits >= OBJECT_LENGTH)
            {

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 022f7b7e3e9c734a618c8da10a4c2587675367b2..e749d5b2e1ea0d06fa9d9f1d1a127e953f491c59 100644 (file)
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fasload.c,v 9.86 1999/01/02 06:11:34 cph Exp $
+$Id: fasload.c,v 9.87 2000/01/18 05:08:09 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
@@ -52,7 +52,11 @@ static Tchannel load_channel;
 extern int EXFUN (strlen, (const char *));
 extern char * EXFUN (strcpy, (char *, const char *));
 #endif
+#ifdef __STDC__
+#include <stdlib.h>
+#else
 extern char * EXFUN (malloc, (int));
+#endif
 
 extern char * Error_Names [];
 extern char * Abort_Names [];

diff --git a/v7/src/microcode/obstack.h b/v7/src/microcode/obstack.h
index 33ce94d619566c3df61cd319948aedbd98fa0eff..4b8e5dab6ead492d282a94c0ef7bd75bc004293b 100644 (file)
--- a/v7/src/microcode/obstack.h
+++ b/v7/src/microcode/obstack.h
@@ -248,7 +248,7 @@ int obstack_chunk_size (struct obstack *obstack);
    int __len = (length);                                               \
    ((__o->next_free + __len > __o->chunk_limit)                                \
     ? _obstack_newchunk (__o, __len) : 0);                             \
-   bcopy (where, __o->next_free, __len);                               \
+   memcpy (__o->next_free, where, __len);                              \
    __o->next_free += __len;                                            \
    (void) 0; })
 
@@ -257,7 +257,7 @@ int obstack_chunk_size (struct obstack *obstack);
    int __len = (length);                                               \
    ((__o->next_free + __len + 1 > __o->chunk_limit)                    \
     ? _obstack_newchunk (__o, __len + 1) : 0),                         \
-   bcopy (where, __o->next_free, __len),                               \
+   memcpy (__o->next_free, where, __len),                              \
    __o->next_free += __len,                                            \
    *(__o->next_free)++ = 0;                                            \
    (void) 0; })
@@ -344,14 +344,14 @@ int obstack_chunk_size (struct obstack *obstack);
 ( (h)->temp = (length),                                                        \
   (((h)->next_free + (h)->temp > (h)->chunk_limit)                     \
    ? (_obstack_newchunk ((h), (h)->temp), 0) : 0),                     \
-  bcopy (where, (h)->next_free, (h)->temp),                            \
+  memcpy ((h)->next_free, where, (h)->temp),                           \
   (h)->next_free += (h)->temp)
 
 #define obstack_grow0(h,where,length)                                  \
 ( (h)->temp = (length),                                                        \
   (((h)->next_free + (h)->temp + 1 > (h)->chunk_limit)                 \
    ? (_obstack_newchunk ((h), (h)->temp + 1), 0) : 0),                 \
-  bcopy (where, (h)->next_free, (h)->temp),                            \
+  memcpy ((h)->next_free, where, (h)->temp),                           \
   (h)->next_free += (h)->temp,                                         \
   *((h)->next_free)++ = 0)
 

diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index dc40f06629f2a921ca9f2df026a05ed287dab2e7..1b1d8b988f9a752e1d03dea24e2034e6ced0ae15 100644 (file)
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.52 2000/01/07 02:20:31 cph Exp $
+$Id: option.c,v 1.53 2000/01/18 05:08:35 cph Exp $
 
 Copyright (c) 1990-2000 Massachusetts Institute of Technology
 
@@ -42,18 +42,20 @@ extern int atoi ();
 #include "ntio.h"
 
 #else /* not WINNT */
-#ifdef _POSIX
 
+#ifdef _POSIX
 #include <unistd.h>
-#include <string.h>
-extern char * EXFUN (malloc, (int));
-
-#else /* not _POSIX */
-
+#else
 extern int strlen ();
+#endif
+
+#ifdef __STDC__
+#include <stdlib.h>
+#include <string.h>
+#else
 extern char * EXFUN (malloc, (int));
+#endif
 
-#endif /* not _POSIX */
 #endif /* not WINNT */
 
 #ifndef NULL

diff --git a/v7/src/microcode/osenv.h b/v7/src/microcode/osenv.h
index ffa63b7f8486d0420ce35133f10fe9480e64c4b1..ebd0f27cbde5526f8b821122989f1eab902109de 100644 (file)
--- a/v7/src/microcode/osenv.h
+++ b/v7/src/microcode/osenv.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: osenv.h,v 1.8 1999/01/02 06:11:34 cph Exp $
+$Id: osenv.h,v 1.9 2000/01/18 05:08:46 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -38,17 +38,18 @@ struct time_structure
 };
 
 extern time_t EXFUN (OS_encoded_time, ());
-extern void EXFUN (OS_decode_time, (time_t, struct time_structure * ts));
-extern time_t EXFUN (OS_encode_time, (struct time_structure * ts));
+extern void EXFUN (OS_decode_time, (time_t, struct time_structure *));
+extern void EXFUN (OS_decode_utc, (time_t, struct time_structure *));
+extern time_t EXFUN (OS_encode_time, (struct time_structure *));
 extern double EXFUN (OS_process_clock, (void));
 extern double EXFUN (OS_real_time_clock, (void));
-extern void EXFUN (OS_process_timer_set, (clock_t first, clock_t interval));
+extern void EXFUN (OS_process_timer_set, (clock_t, clock_t));
 extern void EXFUN (OS_process_timer_clear, (void));
-extern void EXFUN (OS_profile_timer_set, (clock_t first, clock_t interval));
+extern void EXFUN (OS_profile_timer_set, (clock_t, clock_t));
 extern void EXFUN (OS_profile_timer_clear, (void));
-extern void EXFUN (OS_real_timer_set, (clock_t first, clock_t interval));
+extern void EXFUN (OS_real_timer_set, (clock_t, clock_t));
 extern void EXFUN (OS_real_timer_clear, (void));
 extern CONST char * EXFUN (OS_working_dir_pathname, (void));
-extern void EXFUN (OS_set_working_dir_pathname, (CONST char * name));
+extern void EXFUN (OS_set_working_dir_pathname, (CONST char *));
 
 #endif /* SCM_OSENV_H */

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index 32aa953d7cb6256de4c1a3f1011999a3608426d8..3b93749fdc619c979c487e6503892c3f3d09a987 100644 (file)
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: primutl.c,v 9.71 1999/01/02 06:11:34 cph Exp $
+$Id: primutl.c,v 9.72 2000/01/18 05:08:57 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
@@ -164,7 +164,6 @@ static Boolean
 DEFUN_VOID (grow_primitive_tables)
 {
   Boolean result;
-  long old_prim_table_size = prim_table_size;
 
   prim_table_size = (MAX_PRIMITIVE + (MAX_PRIMITIVE / 10));
 

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index 29d43fff65879c97743aa7a31b6a553318339cba..e544e624a239313c2b22977bb6d9e28fde571ba5 100644 (file)
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: psbtobin.c,v 9.57 1999/01/02 06:06:43 cph Exp $
+$Id: psbtobin.c,v 9.58 2000/01/18 05:09:07 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
@@ -402,7 +402,7 @@ DEFUN (read_a_bit_string, (To, Slot),
     unsigned long temp;
     fast SCHEME_OBJECT *scan;
     fast long bits_remaining, bits_accumulated;
-    fast SCHEME_OBJECT accumulator, next_word;
+    fast SCHEME_OBJECT accumulator;
 
     accumulator = 0;
     bits_accumulated = 0;
@@ -1506,6 +1506,7 @@ static struct keyword_struct
     END_KEYWORD ()
     };
 
+int
 DEFUN (main, (argc, argv),
        int argc AND
        char **argv)
@@ -1520,4 +1521,5 @@ DEFUN (main, (argc, argv),
   setup_io ("r", "wb");
   do_it ();
   quit (0);
+  return (0);
 }

diff --git a/v7/src/microcode/purutl.c b/v7/src/microcode/purutl.c
index e4e5503d8e3216a77a22c76cef8812372a7a5812..89fa55f2f624341c06dd0300c5428abc02de81b2 100644 (file)
--- a/v7/src/microcode/purutl.c
+++ b/v7/src/microcode/purutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: purutl.c,v 9.49 1999/01/02 06:11:34 cph Exp $
+$Id: purutl.c,v 9.50 2000/01/18 05:09:17 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
@@ -26,9 +26,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "gccode.h"
 #include "zones.h"
 
-#ifdef WINNT
+#ifdef __STDC__
 #include <stdlib.h>
-#include <malloc.h>
 #endif
 \f
 static void

diff --git a/v7/src/microcode/terminfo.c b/v7/src/microcode/terminfo.c
index 1a70b423105a3fc561d5741b0a2151aee948bb7e..e711662c104b83b2744e6a1903baf846b7ac87a5 100644 (file)
--- a/v7/src/microcode/terminfo.c
+++ b/v7/src/microcode/terminfo.c
@@ -2,7 +2,7 @@
    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
    Copyright (C) 1998 Massachusetts Institute of Technology
 
-$Id: terminfo.c,v 1.2 1998/07/20 04:37:36 cph Exp $
+$Id: terminfo.c,v 1.3 2000/01/18 05:09:25 cph Exp $
 
 This file is part of GNU Emacs.
 
@@ -27,13 +27,15 @@ and this notice must be preserved on all copies.  */
 
 #include "oscond.h"
 
+#ifdef __STDC__
+#include <stdlib.h>
+#endif
+
 #ifndef _IRIX
 char *UP, *BC, PC;
 short ospeed;
 #endif
 
-static buffer[512];
-
 /* Interface to curses/terminfo library.
    Turns out that all of the terminfo-level routines look
    like their termcap counterparts except for tparm, which replaces

diff --git a/v7/src/microcode/transact.c b/v7/src/microcode/transact.c
index 05093c697ac05ec65026acbb350e7cf3463b5c13..e25332eb5ddf255fd0fd3306563021b99201f8f7 100644 (file)
--- a/v7/src/microcode/transact.c
+++ b/v7/src/microcode/transact.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: transact.c,v 1.3 1999/01/03 05:33:46 cph Exp $
+$Id: transact.c,v 1.4 2000/01/18 05:09:40 cph Exp $
 
-Copyright (C) 1990-1999 Massachusetts Institute of Technology
+Copyright (C) 1990-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
@@ -51,8 +51,9 @@ DEFUN (guarantee_current_transaction, (proc), CONST char * proc)
     error (proc, "no transaction");
   switch (current_transaction -> state)
     {
-    case committing: error (proc, "commit in progress");
-    case aborting: error (proc, "abort in progress");
+    case committing: error (proc, "commit in progress"); break;
+    case aborting: error (proc, "abort in progress"); break;
+    case active: break;
     }
 }
 

diff --git a/v7/src/microcode/unxutl/ymkfile b/v7/src/microcode/unxutl/ymkfile
index 02590256f3282e01c90135d401111859c4b214b0..e09141960f649852da4192ef096fce67c862ae54 100644 (file)
--- a/v7/src/microcode/unxutl/ymkfile
+++ b/v7/src/microcode/unxutl/ymkfile
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: ymkfile,v 1.95 1999/05/11 03:34:14 cph Exp $
+$Id: ymkfile,v 1.96 2000/01/18 05:14:06 cph Exp $
 
-Copyright (c) 1989-1999 Massachusetts Institute of Technology
+Copyright (c) 1989-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
@@ -284,7 +284,7 @@ compinit.o : compinit.c liarc.tch compinit.h
    to prevent fgrep from reading stdin.
  */
 compinit.h : $(COMPILED_SOURCES) liarc.tch xmkfile
-       @echo "#*** Generating" $@ "because of" $?
+       /* @echo "#*** Generating" $@ "because of" $? */
        rm -f $@
        fgrep DECLARE_COMPILED_CODE liarc.tch $(COMPILED_SOURCES) | \
        sed -e 's/.*:/  /' -e 's/)/);/' > $@
@@ -293,7 +293,7 @@ compinit.h : $(COMPILED_SOURCES) liarc.tch xmkfile
 
 foo $(COMPILED_OBJECTS) : liarc.tch
 liarc.tch: liarc.h $(LIARC_HEAD_FILES)
-       @echo "#** Generating" $@ because of $?
+       /* @echo "#** Generating" $@ because of $? */
        rm -f $@
        echo "touch" > $@
 
@@ -360,23 +360,28 @@ CFLAGS = -DMIT_SCHEME C_OPTIMIZE_SWITCH C_DEBUG_SWITCH C_SWITCH_MACHINE C_SWITCH
 
 .SUFFIXES: .o .cpp .s .m4
 
-.c.o: ; @ECHO "#** Generating" $@ because of $?
+.c.o:
+       /* @ECHO "#** Generating" $@ because of $? */
        $(CC) $(CFLAGS) -c $*.c
 
-.c.cpp: ; @ECHO "#** Generating" $@
+.c.cpp:
+       /* @ECHO "#** Generating" $@ */
        make -f xmkfile breakup
        $(CC) $(CFLAGS) -E $*.c | \
        RUN(breakup) | \
        sed -e 's/^#.*//' -e 's/^[      ]*$$//' -e 's/^\f$$//' | \
        sed -n -e '/^..*/p' > $*.cpp
 
-.c.s: ; @ECHO "#** Generating" $@
+.c.s:
+       /* @ECHO "#** Generating" $@ */
        $(CC) $(CFLAGS) -S $*.c
 
-.m4.s: ; @ECHO "#** Generating" $@ because of $?
+.m4.s:
+       /* @ECHO "#** Generating" $@ because of $? */
        $(M4) M4_SWITCH_SYSTEM M4_SWITCH_MACHINE $*.m4 > $*.s
 
-.s.o: ; @ECHO "#** Generating" $@ because of $?
+.s.o:
+       /* @ECHO "#** Generating" $@ because of $? */
        $(AS) AS_SWITCH_SYSTEM AS_SWITCH_MACHINE -o $*.o $*.s
 
 /* Source and object files */
@@ -588,42 +593,42 @@ BCHOBJECTS = $(CORE_OBJECTS) $(BCH_GC_OBJECTS) $(UNIX_OBJECTS) $(OS_PRIM_OBJECTS
 all: bintopsb psbtobin scheme bchscheme bchdrn $(XTRA_TARGETS)
 
 scheme xscheme : $(OBJECTS) $(SCHEME_OBJECTS)
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        rm -f $@
        $(CC) $(LDFLAGS) -o $@ $(OBJECTS) $(SCHEME_OBJECTS) $(SCHEME_LIB)
 
 bchscheme : $(BCHOBJECTS) $(SCHEME_OBJECTS)
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        rm -f $@
        $(CC) $(LDFLAGS) -o $@ $(BCHOBJECTS) $(SCHEME_OBJECTS) $(SCHEME_LIB)
 
 bchdrn : bchdrn.o bchutl.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        rm -f $@
        $(CC) $(LDFLAGS) -o $@ bchdrn.o bchutl.o
 
 findprim : findprim.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        $(CC) $(LDFLAGS) -o $@ findprim.o
 
 bintopsb : bintopsb.o missing.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        $(CC) $(LDFLAGS) -o $@ bintopsb.o missing.o LIB_MATH
 
 psbtobin : psbtobin.o missing.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        $(CC) $(LDFLAGS) -o $@ psbtobin.o missing.o LIB_MATH
 
 breakup : breakup.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        $(CC) $(LDFLAGS) -o $@ breakup.o
 
 wsize : wsize.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        $(CC) $(LDFLAGS) -o $@ wsize.o LIB_MATH LIBS_SYSTEM LIBS_MACHINE LIB_DEBUG LIB_STANDARD
 
 ppband : ppband.o
-       @ECHO "#** Re-linking" $@ because of $?
+       /* @ECHO "#** Re-linking" $@ because of $? */
        $(CC) $(LDFLAGS) -o $@ ppband.o
 
 install: scheme bchscheme
@@ -646,12 +651,12 @@ vmsusrdef.c :
        $(CC) $(CFLAGS) -c usrdef.c
 
 usrdef.c : $(SCHEME_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) usrdef.tch findprim xmkfile
-       @ECHO "#** Re-making" $@ because of $?
+       /* @ECHO "#** Re-making" $@ because of $? */
        rm -f usrdef.c
        RUN(findprim) $(SCHEME_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) > usrdef.c
 
 bchdef.c : $(SCHEME_SOURCES) $(BCHSOURCES) $(OS_PRIM_SOURCES) usrdef.tch findprim xmkfile
-       @ECHO "#** Re-making" $@ because of $?
+       /* @ECHO "#** Re-making" $@ because of $? */
        rm -f bchdef.c
        RUN(findprim) $(SCHEME_SOURCES) $(BCHSOURCES) $(OS_PRIM_SOURCES) > bchdef.c
 
@@ -659,7 +664,7 @@ primitive_tables :
        rm -f usrdef.c usrdef.o bchdef.c bchdef.o
 
 scheme.tch psbmap.tch usrdef.tch :
-       @ECHO "#** Resetting" $@ because of $?
+       /* @ECHO "#** Resetting" $@ because of $? */
        rm -f $@
        /* Create the file by opening rather than using `touch' program.
           Some versions of the `touch' program don't work well when the
@@ -758,7 +763,7 @@ term.o : scheme.tch
 missing.o : config.h
 
 BCHGCC_H = bchgcc.h oscond.h $(GC_HEAD_FILES)
-bchdmp.o : scheme.tch prims.h uxio.h osio.h osfile.h trap.h lookup.h \
+bchdmp.o : scheme.tch prims.h uxio.h osio.h osfile.h osfs.h trap.h lookup.h \
        $(BCHGCC_H) fasl.h dump.c
 bchdrn.o : ansidecl.h bchdrn.h
 bchmmg.o : scheme.tch prims.h memmag.h ux.h $(BCHGCC_H) option.h bchdrn.h memmag.h
@@ -799,15 +804,15 @@ $(UNIX_OBJECTS) pruxenv.o pruxfs.o pruxio.o pruxsock.o : oscond.h ansidecl.h \
 uxctty.o : osctty.h ossig.h
 uxenv.o : ux.h osenv.h config.h
 uxfile.o : osfile.h osio.h uxio.h
-uxfs.o : osfs.h
+uxfs.o : osfs.h osfile.h osio.h
 uxio.o : osio.h uxio.h uxselect.h
-uxproc.o : osproc.h uxproc.h osio.h uxio.h osterm.h
-uxsig.o : config.h ux.h ossig.h osctty.h ostty.h uxtrap.h uxsig.h \
+uxproc.o : osproc.h uxproc.h osio.h uxio.h osterm.h ostop.h
+uxsig.o : config.h ux.h ossig.h osctty.h ostty.h ostop.h uxtrap.h uxsig.h \
           uxutil.h critsec.h
 uxsock.o : uxsock.h osio.h uxio.h prims.h
 uxterm.o : osterm.h uxterm.h osio.h uxio.h ospty.h
 uxtop.o : ostop.h uxtop.h osctty.h uxutil.h errors.h option.h
-uxtrap.o : scheme.tch uxtrap.h uxutil.h option.h $(GC_HEAD_FILES)
+uxtrap.o : scheme.tch uxtrap.h uxutil.h option.h ostop.h $(GC_HEAD_FILES)
 uxtty.o : ostty.h osenv.h osio.h uxio.h osterm.h uxterm.h
 uxutil.o : uxutil.h
 pruxfs.o : osfs.h

diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index 32f89abedb9eda847a1165e891994f31b4826562..7eea461363009e70b4ac36248b25989b506fe6c6 100644 (file)
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: ux.h,v 1.72 1999/04/07 04:01:47 cph Exp $
+$Id: ux.h,v 1.73 2000/01/18 05:09:49 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
@@ -42,6 +42,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include <pwd.h>
 #include <grp.h>
 
+#ifdef __STDC__
+#include <stdlib.h>
+#include <string.h>
+#endif
+
 extern int errno;
 
 /* These seem to be missing from versions of unistd.h */

diff --git a/v7/src/microcode/uxfs.c b/v7/src/microcode/uxfs.c
index 3f215e5914667a7558b400c82b70bfe4ff4bb77e..98d4bc5a7c251a3d52ee930cd7dafff7c4084195 100644 (file)
--- a/v7/src/microcode/uxfs.c
+++ b/v7/src/microcode/uxfs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxfs.c,v 1.18 1999/12/21 18:48:34 cph Exp $
+$Id: uxfs.c,v 1.19 2000/01/18 05:09:59 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -21,6 +21,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 #include "ux.h"
 #include "osfs.h"
+#include "osfile.h"
+#include "osio.h"
 
 #ifdef HAVE_STATFS
 #include <sys/vfs.h>

diff --git a/v7/src/microcode/uxproc.c b/v7/src/microcode/uxproc.c
index 28c174f798e19fc3e8b3e9577bb1b29ffe710265..f9884e00e8bb92264f8fc0ad9728607c181ed3b9 100644 (file)
--- a/v7/src/microcode/uxproc.c
+++ b/v7/src/microcode/uxproc.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxproc.c,v 1.23 1999/01/02 06:11:34 cph Exp $
+$Id: uxproc.c,v 1.24 2000/01/18 05:10:07 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -23,6 +23,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "uxproc.h"
 #include "uxio.h"
 #include "osterm.h"
+#include "ostop.h"
 
 #ifndef HAVE_DUP2
 #include "error: can't hack subprocess I/O without dup2() or equivalent"

diff --git a/v7/src/microcode/uxsig.c b/v7/src/microcode/uxsig.c
index 782942ec47c46c889959d273c6af9319749fe9c8..34fe994010f8ba2bd5db956e5e3d7689fa6ed1ba 100644 (file)
--- a/v7/src/microcode/uxsig.c
+++ b/v7/src/microcode/uxsig.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxsig.c,v 1.33 1999/01/02 06:11:34 cph Exp $
+$Id: uxsig.c,v 1.34 2000/01/18 05:10:22 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -24,10 +24,17 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "ossig.h"
 #include "osctty.h"
 #include "ostty.h"
+#include "ostop.h"
 #include "uxtrap.h"
 #include "uxsig.h"
 #include "uxutil.h"
 #include "critsec.h"
+
+extern cc_t EXFUN (OS_ctty_quit_char, (void));
+extern cc_t EXFUN (OS_ctty_int_char, (void));
+extern cc_t EXFUN (OS_ctty_tstp_char, (void));
+extern cc_t EXFUN (OS_ctty_disabled_char, (void));
+extern void EXFUN (tty_set_next_interrupt_char, (cc_t c));
 \f
 /* Signal Manipulation */
 
@@ -673,6 +680,8 @@ DEFUN_VOID (UX_initialize_signals)
            case dfl_stop:
              bind_handler ((scan -> signo), sighnd_stop);
              break;
+           case dfl_ignore:
+             break;
            }
        scan += 1;
       }

diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 1e2d64a7d050697ce4ca194ac038ab56e0ab0c2c..51e6a05974b1e396dbbeefda25d6f93b45caa193 100644 (file)
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxsock.c,v 1.22 2000/01/18 02:52:40 cph Exp $
+$Id: uxsock.c,v 1.23 2000/01/18 05:10:32 cph Exp $
 
 Copyright (c) 1990-2000 Massachusetts Institute of Technology
 
@@ -38,6 +38,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #if 0
 extern struct servent * EXFUN (getservbyname, (CONST char *, CONST char *));
 extern struct hostent * EXFUN (gethostbyname, (CONST char *));
+extern char * EXFUN (strncpy, (char *, CONST char *, size_t));
 #endif
 \f
 Tchannel
@@ -162,7 +163,6 @@ DEFUN (OS_open_unix_stream_socket, (filename), CONST char * filename)
 {
 #ifdef HAVE_UNIX_SOCKETS
   int s;
-  extern char * EXFUN (strncpy, (char *, CONST char *, size_t));
   Tchannel channel;
 
   transaction_begin ();

diff --git a/v7/src/microcode/uxterm.c b/v7/src/microcode/uxterm.c
index dcc230a400e60e8dd64d073ea489be76371f76c1..3cb4a7a6f910b7043600a971ceee51418a906c98 100644 (file)
--- a/v7/src/microcode/uxterm.c
+++ b/v7/src/microcode/uxterm.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxterm.c,v 1.26 1999/01/02 06:11:34 cph Exp $
+$Id: uxterm.c,v 1.27 2000/01/18 05:10:50 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -24,6 +24,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "uxio.h"
 #include "ospty.h"
 
+extern long EXFUN (arg_nonnegative_integer, (int));
+extern long EXFUN (arg_index_integer, (int, long));
+
 #if defined(HAVE_TERMIOS) || defined(HAVE_TERMIO)
 
 #ifndef ISTRIP

diff --git a/v7/src/microcode/uxtop.c b/v7/src/microcode/uxtop.c
index 40871b2d6b3d62a2ea7ce032ca521a5527752320..80cf0b971e4e57711f66f2501782aae81b5c9e6a 100644 (file)
--- a/v7/src/microcode/uxtop.c
+++ b/v7/src/microcode/uxtop.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxtop.c,v 1.22 1999/04/07 04:01:49 cph Exp $
+$Id: uxtop.c,v 1.23 2000/01/18 05:11:00 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -44,6 +44,7 @@ extern void EXFUN (UX_reset_processes, (void));
 extern void EXFUN (UX_reset_terminals, (void));
 extern void EXFUN (execute_reload_cleanups, (void));
 
+extern cc_t EXFUN (OS_ctty_quit_char, (void));
 extern void EXFUN (UX_ctty_save_external_state, (void));
 extern void EXFUN (UX_ctty_save_internal_state, (void));
 extern void EXFUN (UX_ctty_restore_internal_state, (void));

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index ccc3a02b1a4b86ab2c1f048ee418d06b4b99af19..f0cc824ab5815e4a80406b18da87e17eaa370def 100644 (file)
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxtrap.c,v 1.28 1999/01/02 06:11:34 cph Exp $
+$Id: uxtrap.c,v 1.29 2000/01/18 05:11:09 cph Exp $
 
-Copyright (c) 1990-1999 Massachusetts Institute of Technology
+Copyright (c) 1990-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
@@ -24,6 +24,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "uxtrap.h"
 #include "uxutil.h"
 #include "option.h"
+#include "ostop.h"
 
 extern CONST char * EXFUN (find_signal_name, (int signo));
 extern void EXFUN (UX_dump_core, (void));
@@ -575,8 +576,6 @@ DEFUN (continue_from_trap, (signo, info, scp),
     }
     else
     {
-      long primitive_address =
-       ((long) (Primitive_Procedure_Table[OBJECT_DATUM (primitive)]));
       (trinfo . state) = STATE_PRIMITIVE;
       (trinfo . pc_info_1) = primitive;
       (trinfo . pc_info_2) =
@@ -808,7 +807,6 @@ DEFUN (find_ccblock, (the_pc),
   {
     /* In compiled code. */
     SCHEME_OBJECT * block_addr;
-    SCHEME_OBJECT * maybe_free;
     block_addr =
       (pc_in_builtin
        ? ((SCHEME_OBJECT *) NULL)

diff --git a/v7/src/microcode/uxutil.c b/v7/src/microcode/uxutil.c
index 075a89e9e6ab53635c56fd1e521f5c1c7a4330e6..990e109b036c3f32be601ab625b6b1d7907a398f 100644 (file)
--- a/v7/src/microcode/uxutil.c
+++ b/v7/src/microcode/uxutil.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxutil.c,v 1.6 1999/01/02 06:11:34 cph Exp $
+$Id: uxutil.c,v 1.7 2000/01/18 05:11:28 cph Exp $
 
-Copyright (c) 1990, 1991, 1999 Massachusetts Institute of Technology
+Copyright (c) 1990, 1991, 1999, 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
@@ -22,6 +22,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "ux.h"
 #include "uxutil.h"
 #include <ctype.h>
+
+extern void EXFUN (terminal_state_raw, (Ttty_state *, int));
 \f
 static CONST char *
 DEFUN (char_description_brief, (c), unsigned char c)

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 5de9b525815b775281268f9a2e78b2e18bd6f7df..e4373028021fb1b19869d3e5db9285d1e77d49e1 100644 (file)
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.73 1999/01/02 06:11:34 cph Exp $
+$Id: x11base.c,v 1.74 2000/01/18 05:11:37 cph Exp $
 
-Copyright (c) 1989-1999 Massachusetts Institute of Technology
+Copyright (c) 1989-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
@@ -256,6 +256,7 @@ DEFUN (x_io_error_handler, (display), Display * display)
 #else
   termination_eof ();
 #endif
+  return (0);
 }
 
 static int
@@ -276,6 +277,7 @@ DEFUN (x_error_handler, (display, error_event),
 #else
   termination_eof ();
 #endif
+  return (0);
 }
 
 typedef int EXFUN ((* x_error_handler_t), (Display *, XErrorEvent *));

diff --git a/v7/src/microcode/x11term.c b/v7/src/microcode/x11term.c
index c1713b5d3d389ab4d96e03f0c427ad04002a907b..092c19b6547a804b7755d886b3e3cd44c03f889d 100644 (file)
--- a/v7/src/microcode/x11term.c
+++ b/v7/src/microcode/x11term.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: x11term.c,v 1.25 1999/01/02 06:11:34 cph Exp $
+$Id: x11term.c,v 1.26 2000/01/18 05:11:46 cph Exp $
 
-Copyright (c) 1989-1999 Massachusetts Institute of Technology
+Copyright (c) 1989-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
@@ -665,7 +665,7 @@ DEFINE_PRIMITIVE ("XTERM-WRITE-CHAR!", Prim_xterm_write_char, 5, 5, 0)
     char * map_ptr = (XTERM_CHAR_LOC (xw, index));
     (*map_ptr) = c;
     (XTERM_HL (xw, index)) = hl;
-    XTERM_DRAW_CHARS (xw, x, y, map_ptr, 1, (XTERM_HL_GC (xw, (xw, hl))));
+    XTERM_DRAW_CHARS (xw, x, y, map_ptr, 1, (XTERM_HL_GC (xw, hl)));
     if (((XW_CURSOR_X (xw)) == x) && ((XW_CURSOR_Y (xw)) == y))
       {
        (XW_CURSOR_VISIBLE_P (xw)) = 0;