OSDN Git Service

2004-09-28 Paolo Carlini <pcarlini@suse.de>
[pf3gnuchains/gcc-fork.git] / libiberty / atexit.c
1 /* Wrapper to implement ANSI C's atexit using SunOS's on_exit. */
2 /* This function is in the public domain.  --Mike Stump. */
3
4 /*
5
6 @deftypefn Supplemental int atexit (void (*@var{f})())
7
8 Causes function @var{f} to be called at exit.  Returns 0.
9
10 @end deftypefn
11
12 */
13
14 #include "config.h"
15
16 #ifdef HAVE_ON_EXIT
17
18 int
19 atexit(f)
20      void (*f)();
21 {
22   /* If the system doesn't provide a definition for atexit, use on_exit
23      if the system provides that.  */
24   on_exit (f, 0);
25   return 0;
26 }
27
28 #endif