From: Guillermo J. Rozas Date: Thu, 16 Jan 1992 01:51:44 +0000 (+0000) Subject: Protoize headers and extern declarations. X-Git-Tag: 20090517-FFI~9975 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=66903a0b8564b401ce3a7de8a166989b83952073;p=mit-scheme.git Protoize headers and extern declarations. --- diff --git a/v7/src/microcode/load.c b/v7/src/microcode/load.c index aeb9a4872..8a54a961a 100644 --- 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) 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 eb27343ce..b3fcd4ac4 100644 --- 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. */ -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 b78cb1cb4..d94d789d7 100644 --- 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. */ -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;