From 7a954a213d9ef550b34aed00596284aa3c7485f5 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 15 Jan 1992 02:37:02 +0000 Subject: [PATCH] Protoize headers. --- v7/src/microcode/gcloop.c | 13 +++++++------ v7/src/microcode/hunk.c | 13 +++++++------ v7/src/microcode/intern.c | 30 +++++++++++++----------------- v7/src/microcode/list.c | 18 +++++++++--------- v7/src/microcode/lookprm.c | 17 ++++++++++------- 5 files changed, 46 insertions(+), 45 deletions(-) diff --git a/v7/src/microcode/gcloop.c b/v7/src/microcode/gcloop.c index c61f95676..f0fed5f17 100644 --- 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 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 50c9b3ec3..1714d7766 100644 --- 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" 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 6b0e3a303..6240e28f6 100644 --- 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) } 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) } 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 19d232d60..da2134f2a 100644 --- 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 b38bcf7c4..a870ac0fd 100644 --- 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); -- 2.25.1