Protoize headers.

diff --git a/v7/src/microcode/gcloop.c b/v7/src/microcode/gcloop.c
index c61f95676cbd091438d50624549196b2c58e2f5c..f0fed5f174a9582226e39789a160722e7199f52b 100644 (file)
--- a/v7/src/microcode/gcloop.c
+++ b/v7/src/microcode/gcloop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.37 1991/06/21 01:41:43 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.38 1992/01/15 02:25:57 jinx Exp $
  *
  * This file contains the code for the most primitive part
  * of garbage collection.
@@ -42,7 +42,7 @@ MIT in each case. */
 
 /* Exports */
 
-extern SCHEME_OBJECT *GCLoop();
+extern SCHEME_OBJECT * EXFUN (GCLoop, (SCHEME_OBJECT *, SCHEME_OBJECT **));
 
 #define GC_Pointer(Code)                                               \
 {                                                                      \
@@ -110,9 +110,10 @@ static int gc_scan_history_index;
 #endif
 \f
 SCHEME_OBJECT *
-GCLoop(Scan, To_Pointer)
-     fast SCHEME_OBJECT *Scan;
-     SCHEME_OBJECT **To_Pointer;
+DEFUN (GCLoop,
+       (Scan, To_Pointer),
+       fast SCHEME_OBJECT * Scan
+       AND SCHEME_OBJECT ** To_Pointer)
 {
   fast SCHEME_OBJECT *To, *Old, Temp, *Low_Constant, New_Address;
 

diff --git a/v7/src/microcode/hunk.c b/v7/src/microcode/hunk.c
index 50c9b3ec3ac64531ddb3def831dbba2b7055446b..1714d77662faed1d406244f5a96393d429ba96bf 100644 (file)
--- a/v7/src/microcode/hunk.c
+++ b/v7/src/microcode/hunk.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/hunk.c,v 9.26 1989/09/20 23:09:10 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/hunk.c,v 9.27 1992/01/15 02:27:57 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 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
@@ -38,10 +38,11 @@ MIT in each case. */
 #include "prims.h"
 \f
 SCHEME_OBJECT
-hunk3_cons (cxr0, cxr1, cxr2)
-     SCHEME_OBJECT cxr0;
-     SCHEME_OBJECT cxr1;
-     SCHEME_OBJECT cxr2;
+DEFUN (hunk3_cons,
+       (cxr0, cxr1, cxr2),
+       SCHEME_OBJECT cxr0
+       AND SCHEME_OBJECT cxr1
+       AND SCHEME_OBJECT cxr2)
 {
   Primitive_GC_If_Needed (3);
   (*Free++) = cxr0;

diff --git a/v7/src/microcode/intern.c b/v7/src/microcode/intern.c
index 6b0e3a3036c492ee942fc88b419e1d2dd30535a5..6240e28f6041da18fe196cf9baaafd32007728a3 100644 (file)
--- a/v7/src/microcode/intern.c
+++ b/v7/src/microcode/intern.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/intern.c,v 9.51 1989/09/20 23:09:28 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/intern.c,v 9.52 1992/01/15 02:31:10 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 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
@@ -43,8 +43,7 @@ MIT in each case. */
 #define STRING_HASH_BITS 16
 
 static unsigned int
-string_hash (string)
-     SCHEME_OBJECT string;
+DEFUN (string_hash, (string), SCHEME_OBJECT string)
 {
   fast unsigned char * scan = (STRING_LOC (string, 0));
   fast unsigned char * end = (scan + (STRING_LENGTH (string)));
@@ -60,8 +59,9 @@ string_hash (string)
 }
 
 static Boolean
-string_equal (string1, string2)
-     SCHEME_OBJECT string1, string2;
+DEFUN (string_equal, (string1, string2),
+       SCHEME_OBJECT string1
+       AND SCHEME_OBJECT string2)
 {
   fast unsigned char * scan1 = (STRING_LOC (string1, 0));
   fast unsigned char * scan2 = (STRING_LOC (string2, 0));
@@ -78,8 +78,7 @@ string_equal (string1, string2)
 }
 \f
 static SCHEME_OBJECT *
-find_symbol_internal (string)
-     SCHEME_OBJECT string;
+DEFUN (find_symbol_internal, (string), SCHEME_OBJECT string)
 {
   fast SCHEME_OBJECT * bucket;
   {
@@ -103,9 +102,9 @@ find_symbol_internal (string)
 void (*intern_symbol_hook) () = ((void (*) ()) 0);
 
 static SCHEME_OBJECT
-link_new_symbol (symbol, cell)
-     SCHEME_OBJECT symbol;
-     SCHEME_OBJECT * cell;
+DEFUN (link_new_symbol, (symbol, cell),
+       SCHEME_OBJECT symbol
+       AND SCHEME_OBJECT * cell)
 {
   /* `symbol' does not exist yet in obarray.  `cell' points to the
      cell containing the final '() in the list.  Replace this
@@ -120,16 +119,14 @@ link_new_symbol (symbol, cell)
 }
 \f
 SCHEME_OBJECT
-find_symbol (string)
-     SCHEME_OBJECT string;
+DEFUN (find_symbol, (string), SCHEME_OBJECT string)
 {
   fast SCHEME_OBJECT result = (* (find_symbol_internal (string)));
   return ((result == EMPTY_LIST) ? SHARP_F : result);
 }
 
 SCHEME_OBJECT
-string_to_symbol (string)
-     SCHEME_OBJECT string;
+DEFUN (string_to_symbol, (string), SCHEME_OBJECT string)
 {
   fast SCHEME_OBJECT * cell = (find_symbol_internal (string));
   if ((*cell) != EMPTY_LIST)
@@ -146,8 +143,7 @@ string_to_symbol (string)
 }
 
 SCHEME_OBJECT
-intern_symbol (symbol)
-     SCHEME_OBJECT symbol;
+DEFUN (intern_symbol, (symbol), SCHEME_OBJECT symbol)
 {
   fast SCHEME_OBJECT * cell =
     (find_symbol_internal (FAST_MEMORY_REF (symbol, SYMBOL_NAME)));

diff --git a/v7/src/microcode/list.c b/v7/src/microcode/list.c
index 19d232d60ef7b189a39579dc6f0cf68303d45df4..da2134f2a42fab78f973350217f01a53739c4be8 100644 (file)
--- a/v7/src/microcode/list.c
+++ b/v7/src/microcode/list.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/list.c,v 9.28 1989/09/20 23:09:49 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/list.c,v 9.29 1992/01/15 02:33:17 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 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
@@ -46,9 +46,9 @@ DEFINE_PRIMITIVE ("PAIR?", Prim_pair, 1, 1, 0)
 }
 
 SCHEME_OBJECT
-cons (car, cdr)
-     SCHEME_OBJECT car;
-     SCHEME_OBJECT cdr;
+DEFUN (cons, (car, cdr),
+       SCHEME_OBJECT car
+       AND SCHEME_OBJECT cdr)
 {
   Primitive_GC_If_Needed (2);
   (*Free++) = car;
@@ -202,10 +202,10 @@ DEFINE_PRIMITIVE ("SYSTEM-PAIR?", Prim_sys_pair, 1, 1, 0)
 }
 
 SCHEME_OBJECT
-system_pair_cons (type, car, cdr)
-     long type;
-     SCHEME_OBJECT car;
-     SCHEME_OBJECT cdr;
+DEFUN (system_pair_cons, (type, car, cdr),
+       long type
+       AND SCHEME_OBJECT car
+       AND SCHEME_OBJECT cdr)
 {
   Primitive_GC_If_Needed (2);
   (*Free++) = car;

diff --git a/v7/src/microcode/lookprm.c b/v7/src/microcode/lookprm.c
index b38bcf7c4d9ff367eae7a56d8f3e0e3158817212..a870ac0fde7c7288c18b0b5c9595be77ee113c61 100644 (file)
--- a/v7/src/microcode/lookprm.c
+++ b/v7/src/microcode/lookprm.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookprm.c,v 1.4 1989/09/20 23:09:59 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookprm.c,v 1.5 1992/01/15 02:37:02 jinx Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -161,7 +161,7 @@ DEFINE_PRIMITIVE ("LOCAL-ASSIGNMENT", Prim_local_assignment, 3, 3, 0)
 
 DEFINE_PRIMITIVE ("LEXICAL-UNASSIGNED?", Prim_unassigned_test, 2, 2, 0)
 {
-  extern long Symbol_Lex_unassigned_p ();
+  extern long EXFUN (Symbol_Lex_unassigned_p, (SCHEME_OBJECT, SCHEME_OBJECT));
   PRIMITIVE_HEADER (2);
   standard_lookup_primitive
     (Symbol_Lex_unassigned_p ((ARG_REF (1)), (ARG_REF (2))));
@@ -175,7 +175,7 @@ DEFINE_PRIMITIVE ("LEXICAL-UNASSIGNED?", Prim_unassigned_test, 2, 2, 0)
 
 DEFINE_PRIMITIVE ("LEXICAL-UNBOUND?", Prim_unbound_test, 2, 2, 0)
 {
-  extern long Symbol_Lex_unbound_p ();
+  extern long EXFUN (Symbol_Lex_unbound_p, (SCHEME_OBJECT, SCHEME_OBJECT));
   PRIMITIVE_HEADER (2);
   standard_lookup_primitive
     (Symbol_Lex_unbound_p ((ARG_REF (1)), (ARG_REF (2))));
@@ -217,7 +217,9 @@ extract_or_create_cache(frame, sym)
      SCHEME_OBJECT frame, sym;
 {
   extern SCHEME_OBJECT compiler_cache_variable[];
-  extern long compiler_cache();
+  extern long EXFUN (compiler_cache,
+                    (SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT,
+                     SCHEME_OBJECT, long, long, Boolean));
   SCHEME_OBJECT *cell, value;
   long trap_kind, result;
 
@@ -294,8 +296,9 @@ error_bad_environment(arg)
 
 DEFINE_PRIMITIVE ("ENVIRONMENT-LINK-NAME", Prim_environment_link_name, 3, 3, 0)
 {
-  extern SCHEME_OBJECT *scan_frame();
-
+  extern SCHEME_OBJECT * EXFUN (scan_frame,
+                               (SCHEME_OBJECT, SCHEME_OBJECT, SCHEME_OBJECT *,
+                                long, Boolean));
   SCHEME_OBJECT target, source, sym;
   SCHEME_OBJECT cache, *cell, *value_cell;
   PRIMITIVE_HEADER (3);