From 922637e7d94fd8ff0e2e8b2d7d315ba6b326162a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 20 Jan 1992 16:29:00 +0000 Subject: [PATCH] Add missing ANSI-style declarations. --- v7/src/microcode/dstack.h | 7 ++++--- v7/src/microcode/obstack.c | 6 +++--- v7/src/microcode/obstack.h | 9 +++++++-- v7/src/microcode/osscheme.c | 7 +++++-- 4 files changed, 19 insertions(+), 10 deletions(-) diff --git a/v7/src/microcode/dstack.h b/v7/src/microcode/dstack.h index 5845d738f..4d9b9cb65 100644 --- a/v7/src/microcode/dstack.h +++ b/v7/src/microcode/dstack.h @@ -14,7 +14,7 @@ along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/dstack.h,v 1.3 1992/01/20 16:03:50 jinx Exp $ */ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/dstack.h,v 1.4 1992/01/20 16:29:00 jinx Exp $ */ #ifndef __DSTACK_H__ #define __DSTACK_H__ @@ -23,8 +23,9 @@ #include extern void - EXFUN (free, (void *)), - EXFUN (abort, (void)); + EXFUN (abort, (void)), + EXFUN (exit, (int)), + EXFUN (free, (void *)); extern void EXFUN (dstack_initialize, (void)); /* Call this once to initialize the stack. */ diff --git a/v7/src/microcode/obstack.c b/v7/src/microcode/obstack.c index 7727fecd7..09a75082e 100644 --- a/v7/src/microcode/obstack.c +++ b/v7/src/microcode/obstack.c @@ -55,8 +55,8 @@ _obstack_begin (h, size, alignment, chunkfun, freefun) struct obstack *h; int size; int alignment; - POINTER (*chunkfun) (); - void (*freefun) (); + POINTER EXFUN ((*chunkfun), (long)); + void EXFUN ((*freefun), (PTR)); { register struct _obstack_chunk* chunk; /* points to new chunk */ @@ -79,7 +79,7 @@ _obstack_begin (h, size, alignment, chunkfun, freefun) size = 4096 - extra; } - h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun; + h->chunkfun = (struct _obstack_chunk * EXFUN((*),(long))) chunkfun; h->freefun = freefun; h->chunk_size = size; h->alignment_mask = alignment - 1; diff --git a/v7/src/microcode/obstack.h b/v7/src/microcode/obstack.h index be5e42109..74bf0e408 100644 --- a/v7/src/microcode/obstack.h +++ b/v7/src/microcode/obstack.h @@ -133,12 +133,17 @@ struct obstack /* control current object in current chunk */ char *chunk_limit; /* address of char after current chunk */ int temp; /* Temporary for some macros. */ int alignment_mask; /* Mask of alignment for each object. */ - struct _obstack_chunk *(*chunkfun) (); /* User's fcn to allocate a chunk. */ - void (*freefun) (); /* User's function to free a chunk. */ + /* User's fcn to allocate a chunk. */ + struct _obstack_chunk * EXFUN ((*chunkfun), (long)); + /* User's function to free a chunk. */ + void EXFUN ((*freefun), (PTR)); }; /* Declare the external functions we use; they are in obstack.c. */ +extern void + EXFUN (abort, (void)); + #ifdef __STDC__ extern void _obstack_newchunk (struct obstack *, int); extern void _obstack_free (struct obstack *, void *); diff --git a/v7/src/microcode/osscheme.c b/v7/src/microcode/osscheme.c index d710dcc4c..509186ab6 100644 --- a/v7/src/microcode/osscheme.c +++ b/v7/src/microcode/osscheme.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.c,v 1.3 1991/10/29 22:55:11 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osscheme.c,v 1.4 1992/01/20 16:27:17 jinx Exp $ -Copyright (c) 1990-91 Massachusetts Institute of Technology +Copyright (c) 1990-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,6 +35,9 @@ MIT in each case. */ #include "scheme.h" #include "osscheme.h" +extern void + EXFUN (signal_error_from_primitive, (long error_code)); + void DEFUN_VOID (error_out_of_channels) { -- 2.25.1