Protoize headers.

diff --git a/v7/src/microcode/step.c b/v7/src/microcode/step.c
index 17a08a5425923c76c501174281c2024035ce3395..061068ac42c2d8b4d743088fcbbf71f441ee9252 100644 (file)
--- a/v7/src/microcode/step.c
+++ b/v7/src/microcode/step.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/step.c,v 9.29 1991/07/18 16:01:27 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/step.c,v 9.30 1992/01/15 04:02:33 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989, 1990 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,8 @@ MIT in each case. */
    stores things on the stack.
 */
 
-void
-Install_Traps (Hunk3)
-     SCHEME_OBJECT Hunk3;
+static void
+DEFUN (Install_Traps, (Hunk3), SCHEME_OBJECT Hunk3)
 {
   SCHEME_OBJECT Eval_Hook, Apply_Hook, Return_Hook;
 

diff --git a/v7/src/microcode/string.c b/v7/src/microcode/string.c
index d30176d7e27627a60b37929b7a25b3182466abe8..6ea09ae573e8d4fbb92f64db786c4c18c253328b 100644 (file)
--- a/v7/src/microcode/string.c
+++ b/v7/src/microcode/string.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.34 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/string.c,v 9.35 1992/01/15 04:00:20 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,8 +38,7 @@ MIT in each case. */
 #include "prims.h"
 \f
 SCHEME_OBJECT
-allocate_string (nbytes)
-     fast long nbytes;
+DEFUN (allocate_string, (nbytes), fast long nbytes)
 {
   fast long count = (STRING_LENGTH_TO_GC_LENGTH (nbytes));
   fast SCHEME_OBJECT result =
@@ -49,9 +48,9 @@ allocate_string (nbytes)
 }
 
 SCHEME_OBJECT
-memory_to_string (nbytes, data)
-     long nbytes;
-     fast unsigned char * data;
+DEFUN (memory_to_string, (nbytes, data),
+       long nbytes
+       AND fast unsigned char * data)
 {
   SCHEME_OBJECT result = (allocate_string (nbytes));
   fast unsigned char * scan_result = (STRING_LOC (result, 0));
@@ -62,8 +61,7 @@ memory_to_string (nbytes, data)
 }
 
 SCHEME_OBJECT
-char_pointer_to_string (char_pointer)
-     unsigned char * char_pointer;
+DEFUN (char_pointer_to_string, (char_pointer), unsigned char * char_pointer)
 {
   unsigned char * scan = char_pointer;
   if (scan == ((unsigned char *) NULL))
@@ -424,8 +422,11 @@ DEFINE_PRIMITIVE ("SUBSTRING<?", Prim_substring_less, 6, 6, 0)
 }
 \f
 static long
-substring_length_min (start1, end1, start2, end2)
-     long start1, end1, start2, end2;
+DEFUN (substring_length_min, (start1, end1, start2, end2),
+       long start1
+       AND long end1
+       AND long start2
+       AND long end2)
 {
   fast long length1 = (end1 - start1);
   fast long length2 = (end2 - start2);