From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 20 Jan 1992 16:10:51 +0000 (+0000)
Subject: Add missing ANSI-style declarations.
X-Git-Tag: 20090517-FFI~9964
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd4232b32cbea0070ce74faef61c46ec5ff6809c;p=mit-scheme.git

Add missing ANSI-style declarations.
---

diff --git a/v7/src/microcode/artutl.c b/v7/src/microcode/artutl.c
index 98cfde494..39fe948d9 100644
--- a/v7/src/microcode/artutl.c
+++ b/v7/src/microcode/artutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/artutl.c,v 1.7 1992/01/15 02:23:59 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/artutl.c,v 1.8 1992/01/20 16:09:23 jinx Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -140,7 +140,7 @@ DEFUN (bignum_to_flonum, (bignum), fast SCHEME_OBJECT bignum)
 Boolean
 DEFUN (flonum_integer_p, (x), SCHEME_OBJECT x)
 {
-  extern double modf ();
+  extern double EXFUN (modf, (double, double *));
   double iptr;
   return ((modf ((FLONUM_TO_DOUBLE (x)), (&iptr))) == 0);
 }
@@ -148,14 +148,14 @@ DEFUN (flonum_integer_p, (x), SCHEME_OBJECT x)
 SCHEME_OBJECT
 DEFUN (flonum_floor, (x), SCHEME_OBJECT x)
 {
-  extern double floor ();
+  extern double EXFUN (floor, (double));
   return (double_to_flonum (floor (FLONUM_TO_DOUBLE (x))));
 }
 
 SCHEME_OBJECT
 DEFUN (flonum_ceiling, (x), SCHEME_OBJECT x)
 {
-  extern double ceil ();
+  extern double EXFUN (ceil, (double));
   return (double_to_flonum (ceil (FLONUM_TO_DOUBLE (x))));
 }
 
@@ -172,7 +172,7 @@ DEFUN (flonum_round,
 SCHEME_OBJECT
 DEFUN (flonum_normalize, (x), SCHEME_OBJECT x)
 {
-  extern double frexp ();
+  extern double EXFUN (frexp, (double, int *));
   int exponent;
   double significand = (frexp ((FLONUM_TO_DOUBLE (x)), (&exponent)));
   return (cons ((double_to_flonum (significand)),
@@ -182,7 +182,7 @@ DEFUN (flonum_normalize, (x), SCHEME_OBJECT x)
 SCHEME_OBJECT
 DEFUN (flonum_denormalize, (x, e), SCHEME_OBJECT x AND SCHEME_OBJECT e)
 {
-  extern double ldexp ();
+  extern double EXFUN (ldexp, (double, int));
   return (double_to_flonum (ldexp ((FLONUM_TO_DOUBLE (x)),
 				   ((int) (integer_to_long (e))))));
 }
@@ -283,7 +283,7 @@ DEFUN (integer_subtract_1, (n), SCHEME_OBJECT n)
 SCHEME_OBJECT
 DEFUN (integer_multiply, (n, m), SCHEME_OBJECT n AND SCHEME_OBJECT m)
 {
-  extern SCHEME_OBJECT Mul ();
+  extern SCHEME_OBJECT EXFUN (Mul, (SCHEME_OBJECT, SCHEME_OBJECT));
   fast SCHEME_OBJECT result;
   return
     ((FIXNUM_P (n))
diff --git a/v7/src/microcode/extern.c b/v7/src/microcode/extern.c
index 9400272c4..2c1306845 100644
--- a/v7/src/microcode/extern.c
+++ b/v7/src/microcode/extern.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.c,v 9.31 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/extern.c,v 9.32 1992/01/20 16:06:21 jinx Exp $
 
-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
@@ -112,7 +112,7 @@ DEFINE_PRIMITIVE ("PRIMITIVE-PROCEDURE-ARITY", Prim_primitive_procedure_arity, 1
   CHECK_ARG (1, PRIMITIVE_P);
   {
     fast SCHEME_OBJECT primitive = (ARG_REF (1));
-    extern long primitive_to_arity ();
+    extern long EXFUN (primitive_to_arity, (SCHEME_OBJECT));
     if ((PRIMITIVE_NUMBER (primitive)) >= (NUMBER_OF_PRIMITIVES ()))
       error_bad_range_arg (1);
     PRIMITIVE_RETURN (LONG_TO_FIXNUM (primitive_to_arity (primitive)));
@@ -129,7 +129,7 @@ DEFINE_PRIMITIVE ("PRIMITIVE-PROCEDURE-DOCUMENTATION", Prim_primitive_procedure_
     if ((PRIMITIVE_NUMBER (primitive)) >= (NUMBER_OF_PRIMITIVES ()))
       error_bad_range_arg (1);
     {
-      extern char * primitive_to_documentation ();
+      extern char * EXFUN (primitive_to_documentation, (SCHEME_OBJECT));
       fast char * answer = (primitive_to_documentation (primitive));
       PRIMITIVE_RETURN
 	((answer == ((char *) 0))
@@ -160,7 +160,7 @@ DEFINE_PRIMITIVE ("GET-PRIMITIVE-NAME", Prim_get_primitive_name, 1, 1,
       error_wrong_type_arg (1);
     {
       fast long number = (PRIMITIVE_NUMBER (primitive));
-      extern SCHEME_OBJECT primitive_name ();
+      extern SCHEME_OBJECT EXFUN (primitive_name, (int));
       if ((number < 0) || (number >= NUMBER_OF_PRIMITIVES()))
 	error_bad_range_arg (1);
       PRIMITIVE_RETURN (primitive_name (number));
@@ -178,7 +178,8 @@ whether the corresponding primitive is implemented or not.")
 {
   fast SCHEME_OBJECT name;
   fast SCHEME_OBJECT arity_arg;
-  extern SCHEME_OBJECT find_primitive ();
+  extern SCHEME_OBJECT EXFUN
+    (find_primitive, (SCHEME_OBJECT, Boolean, Boolean, int));
   Boolean intern_p, allow_p;
   long arity;
   PRIMITIVE_HEADER (2);
diff --git a/v7/src/microcode/flonum.c b/v7/src/microcode/flonum.c
index e41180ff2..b08921e18 100644
--- a/v7/src/microcode/flonum.c
+++ b/v7/src/microcode/flonum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.37 1992/01/15 02:22:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.38 1992/01/20 16:10:51 jinx Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -214,6 +214,7 @@ DEFINE_PRIMITIVE ("FLONUM?", Prim_flonum_p, 1, 1, 0)
 
 DEFINE_PRIMITIVE ("FLONUM-INTEGER?", Prim_flonum_integer_p, 1, 1, 0)
 {
+  extern Boolean EXFUN (flonum_integer_p, (SCHEME_OBJECT));
   PRIMITIVE_HEADER (1);
   CHECK_ARG (1, FLONUM_P);
   PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (flonum_integer_p (ARG_REF (1))));