1 files changed, 27 insertions, 0 deletions
diff --git a/contrib/gcclibs/libiberty/atexit.c b/contrib/gcclibs/libiberty/atexit.c
new file mode 100644
index 0000000..e091f01
--- /dev/null
+++ b/contrib/gcclibs/libiberty/atexit.c
@@ -0,0 +1,27 @@
+/* Wrapper to implement ANSI C's atexit using SunOS's on_exit. */
+/* This function is in the public domain.  --Mike Stump. */
+
+/*
+
+@deftypefn Supplemental int atexit (void (*@var{f})())
+
+Causes function @var{f} to be called at exit.  Returns 0.
+
+@end deftypefn
+
+*/
+
+#include "config.h"
+
+#ifdef HAVE_ON_EXIT
+
+int
+atexit(void (*f)(void))
+{
+  /* If the system doesn't provide a definition for atexit, use on_exit
+     if the system provides that.  */
+  on_exit (f, 0);
+  return 0;
+}
+
+#endif