Protoize headers.

diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h
index 258694c22a4f194f0291b56f8d0c65f42e1e2994..b094d0788c61ac6c78421e27f5af3c7623c2654a 100644 (file)
--- a/v7/src/microcode/gccode.h
+++ b/v7/src/microcode/gccode.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gccode.h,v 9.43 1991/06/15 00:40:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gccode.h,v 9.44 1992/01/15 03:37:03 jinx Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -153,9 +153,11 @@ MIT in each case. */
    TC_FUTURE
    TC_BIG_FLONUM */
 \f
-extern void gc_death ();
 extern char gc_death_message_buffer [];
 
+extern void
+  EXFUN (gc_death, (long code, char *, SCHEME_OBJECT *, SCHEME_OBJECT *));
+
 /* Assumption: A call to GC_BAD_TYPE is followed by the non-pointer code. */
 
 #ifndef BAD_TYPES_INNOCUOUS

diff --git a/v7/src/microcode/lookup.h b/v7/src/microcode/lookup.h
index 0972c4d006abaf66d108768c298cf2dc1aefc22f..6dcd335f379adb0947c575f1ab9302c8634871ed 100644 (file)
--- a/v7/src/microcode/lookup.h
+++ b/v7/src/microcode/lookup.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.h,v 9.44 1989/09/20 23:10:10 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.h,v 9.45 1992/01/15 03:32:22 jinx Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -35,13 +35,14 @@ MIT in each case. */
 /* Macros and declarations for the variable lookup code. */
 
 extern SCHEME_OBJECT
-  *deep_lookup(),
-  *lookup_fluid(),
-  *force_definition();
+  * EXFUN (deep_lookup, (SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT *)),
+  * EXFUN (lookup_fluid, (SCHEME_OBJECT)),
+  * EXFUN (force_definition, (SCHEME_OBJECT, SCHEME_OBJECT, long *));
 
 extern long
-  deep_lookup_end(),
-  deep_assignment_end();
+  EXFUN (deep_lookup_end, (SCHEME_OBJECT *, SCHEME_OBJECT *)),
+  EXFUN (deep_assignment_end,
+        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, Boolean));
 
 extern SCHEME_OBJECT
   unbound_trap_object[],
@@ -279,19 +280,23 @@ label:                                                                    \
 \f
 /* Macros and exports for incremental definition and hooks. */
 
-extern long extend_frame();
+extern long
+  EXFUN (extend_frame,
+        (SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT,
+         SCHEME_OBJECT, Boolean));
 
 /* Definition recaches eagerly by default. */
 
 #ifndef DEFINITION_RECACHES_LAZILY
-#ifndef DEFINITION_RECACHES_EAGERLY
-#define DEFINITION_RECACHES_EAGERLY
-#endif
+# ifndef DEFINITION_RECACHES_EAGERLY
+#  define DEFINITION_RECACHES_EAGERLY
+# endif
 #endif
 
 #ifndef DEFINITION_RECACHES_EAGERLY
 
-extern long compiler_uncache();
+extern long
+  EXFUN (compiler_uncache, (SCHEME_OBJECT *, SCHEME_OBJECT));
 
 #define simple_uncache(cell, sym)              PRIM_DONE
 
@@ -303,9 +308,12 @@ extern long compiler_uncache();
 
 #else /* DEFINITION_RECACHES_EAGERLY */
 
-extern long compiler_recache();
+extern long
+  EXFUN (compiler_recache,
+        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT
+         SCHEME_OBJECT, Boolean, Boolean));
 
-extern SCHEME_OBJECT *shadowed_value_cell;
+extern SCHEME_OBJECT * shadowed_value_cell;
 
 #define compiler_uncache(cell, sym)                                    \
   (shadowed_value_cell = cell, PRIM_DONE)

diff --git a/v7/src/microcode/memmag.c b/v7/src/microcode/memmag.c
index ed4b1f82cd3c7e101f68f1f34206b7c2050f0e5d..0949b75bbbde2c67933301f327d233a93d59c65b 100644 (file)
--- a/v7/src/microcode/memmag.c
+++ b/v7/src/microcode/memmag.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/memmag.c,v 9.46 1991/03/21 23:26:35 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/memmag.c,v 9.47 1992/01/15 03:35:48 jinx Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -50,12 +50,19 @@ MIT in each case. */
 
 /* Imports */
 
-extern SCHEME_OBJECT *GCLoop();
+extern SCHEME_OBJECT *
+  EXFUN (GCLoop, (SCHEME_OBJECT *, SCHEME_OBJECT **));
 
 /* Exports */
 
-extern void GCFlip(), GC();
-extern void Clear_Memory(), Setup_Memory(), Reset_Memory();
+extern void
+  EXFUN (GCFlip, (void)),
+  EXFUN (GC, (void));
+
+extern void
+  EXFUN (Clear_Memory, (int, int, int)),
+  EXFUN (Setup_Memory, (int, int, int)),
+  EXFUN (Reset_Memory, (void));
 \f
 /*     Memory Allocation, sequential processor:
 

diff --git a/v7/src/microcode/missing.c b/v7/src/microcode/missing.c
index b53286ac466fe635eb8f863765d27548cd9e3a75..5433e11423649ee2cb3d8935cbf94459d37e2fef 100644 (file)
--- a/v7/src/microcode/missing.c
+++ b/v7/src/microcode/missing.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/missing.c,v 9.27 1991/12/07 01:55:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/missing.c,v 9.28 1992/01/15 03:39:01 jinx Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -34,14 +34,15 @@ MIT in each case. */
 
 /* This file contains utilities potentially missing from the math library. */
 
+#include "ansidecl.h"
 #include "config.h"
 \f
 #ifndef HAS_FREXP
 
 double
-frexp (value, eptr)
-     double value;
-     int * eptr;
+DEFUN (frexp, (value, eptr),
+       double value
+       AND int * eptr)
 {
   register double x = ((value < 0) ? (-value) : value);
   int e = 0;
@@ -117,9 +118,9 @@ frexp (value, eptr)
 }
 \f
 double
-ldexp (value, exponent)
-     double value;
-     int exponent;
+DEFUN (ldexp, (value, exponent),
+       double value
+       AND int exponent)
 {
   register double x = value;
   register int e = exponent;
@@ -162,9 +163,9 @@ ldexp (value, exponent)
 #ifndef HAS_MODF
 
 double
-modf (value, iptr)
-     double value;
-     double * iptr;
+DEFUN (modf, (value, iptr),
+       double value
+       AND double * iptr)
 {
   int exponent;
   double significand = (frexp (value, (&exponent)));
@@ -221,8 +222,7 @@ modf (value, iptr)
 #ifndef HAS_FLOOR
 
 double
-floor (x)
-     double x;
+DEFUN (floor, (x), double x)
 {
   double iptr;
   double fraction = (modf (x, (&iptr)));
@@ -230,8 +230,7 @@ floor (x)
 }
 
 double
-ceil (x)
-     double x;
+DEFUN (ceil, (x), double x)
 {
   double iptr;
   double fraction = (modf (x, (&iptr)));
@@ -259,4 +258,5 @@ main ()
       printf ("Result = %G\n", (ldexp (output, exponent)));
     }
 }
-#endif
+
+#endif /* DEBUG_MISSING */

diff --git a/v8/src/microcode/lookup.h b/v8/src/microcode/lookup.h
index c27052f5b899738dcc8daf26fb3650e886dc09e0..f64980fb300b665d13405812afa2f48a4ca6f291 100644 (file)
--- a/v8/src/microcode/lookup.h
+++ b/v8/src/microcode/lookup.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.h,v 9.44 1989/09/20 23:10:10 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.h,v 9.45 1992/01/15 03:32:22 jinx Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -35,13 +35,14 @@ MIT in each case. */
 /* Macros and declarations for the variable lookup code. */
 
 extern SCHEME_OBJECT
-  *deep_lookup(),
-  *lookup_fluid(),
-  *force_definition();
+  * EXFUN (deep_lookup, (SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT *)),
+  * EXFUN (lookup_fluid, (SCHEME_OBJECT)),
+  * EXFUN (force_definition, (SCHEME_OBJECT, SCHEME_OBJECT, long *));
 
 extern long
-  deep_lookup_end(),
-  deep_assignment_end();
+  EXFUN (deep_lookup_end, (SCHEME_OBJECT *, SCHEME_OBJECT *)),
+  EXFUN (deep_assignment_end,
+        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, Boolean));
 
 extern SCHEME_OBJECT
   unbound_trap_object[],
@@ -279,19 +280,23 @@ label:                                                                    \
 \f
 /* Macros and exports for incremental definition and hooks. */
 
-extern long extend_frame();
+extern long
+  EXFUN (extend_frame,
+        (SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT,
+         SCHEME_OBJECT, Boolean));
 
 /* Definition recaches eagerly by default. */
 
 #ifndef DEFINITION_RECACHES_LAZILY
-#ifndef DEFINITION_RECACHES_EAGERLY
-#define DEFINITION_RECACHES_EAGERLY
-#endif
+# ifndef DEFINITION_RECACHES_EAGERLY
+#  define DEFINITION_RECACHES_EAGERLY
+# endif
 #endif
 
 #ifndef DEFINITION_RECACHES_EAGERLY
 
-extern long compiler_uncache();
+extern long
+  EXFUN (compiler_uncache, (SCHEME_OBJECT *, SCHEME_OBJECT));
 
 #define simple_uncache(cell, sym)              PRIM_DONE
 
@@ -303,9 +308,12 @@ extern long compiler_uncache();
 
 #else /* DEFINITION_RECACHES_EAGERLY */
 
-extern long compiler_recache();
+extern long
+  EXFUN (compiler_recache,
+        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT
+         SCHEME_OBJECT, Boolean, Boolean));
 
-extern SCHEME_OBJECT *shadowed_value_cell;
+extern SCHEME_OBJECT * shadowed_value_cell;
 
 #define compiler_uncache(cell, sym)                                    \
   (shadowed_value_cell = cell, PRIM_DONE)