Protoize headers and extern declarations.

diff --git a/v7/src/microcode/load.c b/v7/src/microcode/load.c
index aeb9a4872a65ed51ee5871956c85ad124eee6ee6..8a54a961a3c7ec5fa27c5c87182ea5d89517a88e 100644 (file)
--- a/v7/src/microcode/load.c
+++ b/v7/src/microcode/load.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/load.c,v 9.30 1990/11/21 07:04:33 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/load.c,v 9.31 1992/01/16 01:47:56 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
@@ -53,7 +53,9 @@ MIT in each case. */
 
 #else /* BYTE_INVERSION */
 
-void Byte_Invert_Region(), Byte_Invert_Header();
+void
+  EXFUN (Byte_Invert_Region, (long *, long)),
+  EXFUN (Byte_Invert_Header, (long *, long, long, long));
 
 #define NORMALIZE_HEADER Byte_Invert_Header
 #define NORMALIZE_REGION Byte_Invert_Region
@@ -121,7 +123,7 @@ DEFUN_VOID (print_fasl_information)
 \f
 long
 DEFUN (initialize_variables_from_fasl_header, (buffer),
-       SCHEME_OBJECT *buffer)
+       SCHEME_OBJECT * buffer)
 {
   SCHEME_OBJECT Pointer_Heap_Base, Pointer_Const_Base;
 
@@ -243,11 +245,12 @@ DEFUN (initialize_variables_from_fasl_header, (buffer),
 #ifndef INHIBIT_CHECKSUMS
 
   {
-    extern unsigned long checksum_area ();
+    extern unsigned long
+      EXFUN (checksum_area, (unsigned long *, long, unsigned long));
 
     computed_checksum =
       (checksum_area (((unsigned long *) &buffer[0]),
-                     ((unsigned long) (FASL_HEADER_LENGTH)),
+                     ((long) (FASL_HEADER_LENGTH)),
                      ((unsigned long) 0)));
 
   }
@@ -276,10 +279,10 @@ static Boolean Byte_Invert_Fasl_Files;
 
 void
 DEFUN (Byte_Invert_Header, (Header, Headsize, Test1, Test2),
-       long *Header AND
-       long Headsize AND
-       long Test1 AND
-       long Test2)
+       long * Header
+       AND long Headsize
+       AND long Test1
+       AND long Test2)
 {
   Byte_Invert_Fasl_Files = false;
 
@@ -296,8 +299,8 @@ DEFUN (Byte_Invert_Header, (Header, Headsize, Test1, Test2),
 
 void
 DEFUN (Byte_Invert_Region, (Region, Size),
-       long *Region AND
-       long Size)
+       long * Region
+       AND long Size)
 {
   register long word, size;
 

diff --git a/v7/src/microcode/mul.c b/v7/src/microcode/mul.c
index eb27343ceaf22edd06ace100270772bb0425cc67..b3fcd4ac4df5954408a9f72a501ffca20d7f7389 100644 (file)
--- a/v7/src/microcode/mul.c
+++ b/v7/src/microcode/mul.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/mul.c,v 9.30 1990/11/14 10:58:49 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/mul.c,v 9.31 1992/01/16 01:51:44 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
@@ -37,7 +37,8 @@ MIT in each case. */
    version has only been tried on machines with long = 32 bits.  This
    file is included in the appropriate os file. */
 \f
-extern SCHEME_OBJECT Mul ();
+extern SCHEME_OBJECT
+  EXFUN (Mul, (SCHEME_OBJECT, SCHEME_OBJECT));
 
 #if (TYPE_CODE_LENGTH == 8)
 
@@ -57,9 +58,9 @@ extern SCHEME_OBJECT Mul ();
 */
 
 SCHEME_OBJECT
-Mul (Arg1, Arg2)
-     SCHEME_OBJECT Arg1;
-     SCHEME_OBJECT Arg2;
+DEFUN (Mul, (Arg1, Arg2),
+       SCHEME_OBJECT Arg1
+       AND SCHEME_OBJECT Arg2)
 {
   register long A = (FIXNUM_TO_LONG (Arg1));
   register long B = (FIXNUM_TO_LONG (Arg2));
@@ -210,8 +211,9 @@ static long Fixnum_Range[2] = {SMALLEST_FIXNUM , BIGGEST_FIXNUM};
 #define        ABS(x)          (((x) < 0) ? -(x) : (x))
 
 SCHEME_OBJECT
-Mul(Arg1, Arg2)
-     SCHEME_OBJECT Arg1, Arg2;
+DEFUN (Mul, (Arg1, Arg2),
+       SCHEME_OBJECT Arg1
+       AND SCHEME_OBJECT Arg2)
 {
   long A, B, C;
   fast unsigned long Hi_A, Hi_B, Lo_A, Lo_B, Lo_C, Middle_C;

diff --git a/v8/src/microcode/mul.c b/v8/src/microcode/mul.c
index b78cb1cb4b56e021c4dd849d45e0f58a4ff2595f..d94d789d756874642a74faf349e014afbdd0d74e 100644 (file)
--- a/v8/src/microcode/mul.c
+++ b/v8/src/microcode/mul.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/mul.c,v 9.30 1990/11/14 10:58:49 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/mul.c,v 9.31 1992/01/16 01:51:44 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
@@ -37,7 +37,8 @@ MIT in each case. */
    version has only been tried on machines with long = 32 bits.  This
    file is included in the appropriate os file. */
 \f
-extern SCHEME_OBJECT Mul ();
+extern SCHEME_OBJECT
+  EXFUN (Mul, (SCHEME_OBJECT, SCHEME_OBJECT));
 
 #if (TYPE_CODE_LENGTH == 8)
 
@@ -57,9 +58,9 @@ extern SCHEME_OBJECT Mul ();
 */
 
 SCHEME_OBJECT
-Mul (Arg1, Arg2)
-     SCHEME_OBJECT Arg1;
-     SCHEME_OBJECT Arg2;
+DEFUN (Mul, (Arg1, Arg2),
+       SCHEME_OBJECT Arg1
+       AND SCHEME_OBJECT Arg2)
 {
   register long A = (FIXNUM_TO_LONG (Arg1));
   register long B = (FIXNUM_TO_LONG (Arg2));
@@ -210,8 +211,9 @@ static long Fixnum_Range[2] = {SMALLEST_FIXNUM , BIGGEST_FIXNUM};
 #define        ABS(x)          (((x) < 0) ? -(x) : (x))
 
 SCHEME_OBJECT
-Mul(Arg1, Arg2)
-     SCHEME_OBJECT Arg1, Arg2;
+DEFUN (Mul, (Arg1, Arg2),
+       SCHEME_OBJECT Arg1
+       AND SCHEME_OBJECT Arg2)
 {
   long A, B, C;
   fast unsigned long Hi_A, Hi_B, Lo_A, Lo_B, Lo_C, Middle_C;