* trans-stmt.c (gfc_trans_simple_do): New function.
[official-gcc.git] / libiberty / atexit.c
blobe14de29ab1d1c39d0fe509239d417f951eaf1bda
1 /* Wrapper to implement ANSI C's atexit using SunOS's on_exit. */
2 /* This function is in the public domain. --Mike Stump. */
4 /*
6 @deftypefn Supplemental int atexit (void (*@var{f})())
8 Causes function @var{f} to be called at exit. Returns 0.
10 @end deftypefn
14 #include "config.h"
16 #ifdef HAVE_ON_EXIT
18 int
19 atexit(f)
20 void (*f)();
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;
28 #endif