functions in each root executable and one in each shared library, but
although they all have the same code, each one is unique in that it
refers to one particular associated `__DTOR_LIST__' which belongs to the
- same particular root executable or shared library file. */
+ same particular root executable or shared library file.
+
+ On some systems, this routine is run more than once from the .fini,
+ when exit is called recursively, so we arrange to remember where in
+ the list we left off processing, and we resume at that point,
+ should we be re-invoked. */
static func_ptr __DTOR_LIST__[];
static void
__do_global_dtors_aux ()
{
- func_ptr *p;
- for (p = __DTOR_LIST__ + 1; *p; p++)
- (*p) ();
+ static func_ptr *p = __DTOR_LIST__ + 1;
+ while (*p)
+ {
+ p++;
+ (*(p-1)) ();
+ }
}
/* Stick a call to __do_global_dtors_aux into the .fini section. */
#else /* defined(INIT_SECTION_ASM_OP) */
+#ifdef HAS_INIT_SECTION
/* This case is used by the Irix 6 port, which supports named sections but
not an SVR4-style .fini section. __do_global_dtors can be non-static
in this case because the -fini switch to ld binds strongly. */
for (p = __DTOR_LIST__ + 1; *p; p++)
(*p) ();
}
+#endif
#endif /* defined(INIT_SECTION_ASM_OP) */
#else /* defined(INIT_SECTION_ASM_OP) */
+#ifdef HAS_INIT_SECTION
/* This case is used by the Irix 6 port, which supports named sections but
not an SVR4-style .init section. __do_global_ctors can be non-static
in this case because the -init switch to ld binds strongly. */
for (p = __CTOR_END__ - 1; *p != (func_ptr) -1; p--)
(*p) ();
}
+#endif
#endif /* defined(INIT_SECTION_ASM_OP) */