Add missing ANSI-style declarations.

diff --git a/v7/src/microcode/dstack.h b/v7/src/microcode/dstack.h
index 5845d738fee97ce1d0defc2d65e2e9d0a8205f84..4d9b9cb6558be334131dfe9cf00ec01dcdb0d410 100644 (file)
--- 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 <setjmp.h>
 
 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 7727fecd795eefce81f34d7fba551f48b3599f8e..09a75082ee6bd4b5469cdfc234d7cc6edcbaa458 100644 (file)
--- 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 be5e42109e1f5b0550adf4076fff5771b1a89ed0..74bf0e408f70a30bc0393bfd6fc22c18d767a877 100644 (file)
--- 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 d710dcc4c735c3950a40e41d00e6ed30176502c8..509186ab678578de03c6176012a64c25712760be 100644 (file)
--- 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"
 \f
+extern void
+  EXFUN (signal_error_from_primitive, (long error_code));
+
 void
 DEFUN_VOID (error_out_of_channels)
 {