[Ada] Warning for out-of-order record representation clauses

[thirdparty/gcc.git] / libiberty / xatexit.c

diff --git a/libiberty/xatexit.c b/libiberty/xatexit.c
index 31476c29ddca36d2b037c26541147bd43c1a6805..6fdad9ed806a0a336f75c7869bb19a23bc6521d3 100644 (file)
--- a/libiberty/xatexit.c
+++ b/libiberty/xatexit.c
@@ -5,34 +5,52 @@
  * %sccs.include.redist.c%
  */
 
+
+/*
+
+@deftypefun int xatexit (void (*@var{fn}) (void))
+
+Behaves as the standard @code{atexit} function, but with no limit on
+the number of registered functions.  Returns 0 on success, or @minus{}1 on
+failure.  If you use @code{xatexit} to register functions, you must use
+@code{xexit} to terminate your program.
+
+@end deftypefun
+
+*/
+
 /* Adapted from newlib/libc/stdlib/{,at}exit.[ch].
    If you use xatexit, you must call xexit instead of exit.  */
 
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
 #include "ansidecl.h"
 #include "libiberty.h"
 
 #include <stdio.h>
 
-#ifdef __STDC__
 #include <stddef.h>
-#else
-#define size_t unsigned long
-#endif
 
+#if VMS
+#include <stdlib.h>
+#include <unixlib.h>
+#else
 /* For systems with larger pointers than ints, this must be declared.  */
-PTR malloc PARAMS ((size_t));
+PTR malloc (size_t);
+#endif
 
-static void xatexit_cleanup PARAMS ((void));
+static void xatexit_cleanup (void);
 
 /* Pointer to function run by xexit.  */
-extern void (*_xexit_cleanup) PARAMS ((void));
+extern void (*_xexit_cleanup) (void);
 
 #define        XATEXIT_SIZE 32
 
 struct xatexit {
        struct  xatexit *next;          /* next in list */
        int     ind;                    /* next index in this table */
-       void    (*fns[XATEXIT_SIZE]) PARAMS ((void));   /* the table itself */
+       void    (*fns[XATEXIT_SIZE]) (void);    /* the table itself */
 };
 
 /* Allocate one struct statically to guarantee that we can register
@@ -46,8 +64,7 @@ static struct xatexit *xatexit_head = &xatexit_first;
    Return 0 if successful, -1 if not.  */
 
 int
-xatexit (fn)
-     void (*fn) PARAMS ((void));
+xatexit (void (*fn) (void))
 {
   register struct xatexit *p;
 
@@ -71,7 +88,7 @@ xatexit (fn)
 /* Call any cleanup functions.  */
 
 static void
-xatexit_cleanup ()
+xatexit_cleanup (void)
 {
   register struct xatexit *p;
   register int n;