From 9665f22f701a3a7c3c985ca9daee3e0a4c1130f0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 15 Jan 1992 03:39:01 +0000 Subject: [PATCH] Protoize headers. --- v7/src/microcode/gccode.h | 8 +++++--- v7/src/microcode/lookup.h | 36 ++++++++++++++++++++++-------------- v7/src/microcode/memmag.c | 17 ++++++++++++----- v7/src/microcode/missing.c | 32 ++++++++++++++++---------------- v8/src/microcode/lookup.h | 36 ++++++++++++++++++++++-------------- 5 files changed, 77 insertions(+), 52 deletions(-) diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h index 258694c22..b094d0788 100644 --- 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 */ -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 0972c4d00..6dcd335f3 100644 --- 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: \ /* 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 ed4b1f82c..0949b75bb 100644 --- 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)); /* Memory Allocation, sequential processor: diff --git a/v7/src/microcode/missing.c b/v7/src/microcode/missing.c index b53286ac4..5433e1142 100644 --- 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" #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) } 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 c27052f5b..f64980fb3 100644 --- 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: \ /* 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) -- 2.25.1