mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-08 20:55:01 +00:00
162 lines
3.9 KiB
C
162 lines
3.9 KiB
C
/*
|
|
* COmmon routine to call call registered atexit-like routines.
|
|
*/
|
|
|
|
|
|
#include <stdlib.h>
|
|
#include <reent.h>
|
|
#include <sys/lock.h>
|
|
#include "atexit.h"
|
|
|
|
/* Make this a weak reference to avoid pulling in free. */
|
|
void free(void *) _ATTRIBUTE((__weak__));
|
|
|
|
#ifndef __SINGLE_THREAD__
|
|
extern _LOCK_RECURSIVE_T __atexit_lock;
|
|
#endif
|
|
|
|
#ifdef _WANT_REGISTER_FINI
|
|
|
|
/* If "__libc_fini" is defined, finalizers (either
|
|
"__libc_fini_array", or "_fini", as appropriate) will be run after
|
|
all user-specified atexit handlers. For example, you can define
|
|
"__libc_fini" to "_fini" in your linker script if you want the C
|
|
library, rather than startup code, to register finalizers. If you
|
|
do that, then your startup code need not contain references to
|
|
"atexit" or "exit". As a result, only applications that reference
|
|
"exit" explicitly will pull in finalization code.
|
|
|
|
The choice of whether to register finalizers from libc or from
|
|
startup code is deferred to link-time, rather than being a
|
|
configure-time option, so that the same C library binary can be
|
|
used with multiple BSPs, some of which register finalizers from
|
|
startup code, while others defer to the C library. */
|
|
extern char __libc_fini __attribute__((weak));
|
|
|
|
/* Register the application finalization function with atexit. These
|
|
finalizers should run last. Therefore, we want to call atexit as
|
|
soon as possible. */
|
|
static void
|
|
register_fini(void) __attribute__((constructor (0)));
|
|
|
|
static void
|
|
register_fini(void)
|
|
{
|
|
if (&__libc_fini) {
|
|
#ifdef HAVE_INITFINI_ARRAY
|
|
extern void __libc_fini_array (void);
|
|
atexit (__libc_fini_array);
|
|
#else
|
|
extern void _fini (void);
|
|
atexit (_fini);
|
|
#endif
|
|
}
|
|
}
|
|
|
|
#endif /* _WANT_REGISTER_FINI */
|
|
|
|
/*
|
|
* Call registered exit handlers. If D is null then all handlers are called,
|
|
* otherwise only the handlers from that DSO are called.
|
|
*/
|
|
|
|
void
|
|
_DEFUN (__call_exitprocs, (code, d),
|
|
int code _AND _PTR d)
|
|
{
|
|
register struct _atexit *p;
|
|
struct _atexit **lastp;
|
|
register struct _on_exit_args * args;
|
|
register int n;
|
|
int i;
|
|
void (*fn) (void);
|
|
|
|
|
|
#ifndef __SINGLE_THREAD__
|
|
__lock_acquire_recursive(__atexit_lock);
|
|
#endif
|
|
|
|
restart:
|
|
|
|
p = _GLOBAL_REENT->_atexit;
|
|
lastp = &_GLOBAL_REENT->_atexit;
|
|
while (p)
|
|
{
|
|
#ifdef _REENT_SMALL
|
|
args = p->_on_exit_args_ptr;
|
|
#else
|
|
args = &p->_on_exit_args;
|
|
#endif
|
|
for (n = p->_ind - 1; n >= 0; n--)
|
|
{
|
|
int ind;
|
|
|
|
i = 1 << n;
|
|
|
|
/* Skip functions not from this dso. */
|
|
if (d && (!args || args->_dso_handle[n] != d))
|
|
continue;
|
|
|
|
/* Remove the function now to protect against the
|
|
function calling exit recursively. */
|
|
fn = p->_fns[n];
|
|
if (n == p->_ind - 1)
|
|
p->_ind--;
|
|
else
|
|
p->_fns[n] = NULL;
|
|
|
|
/* Skip functions that have already been called. */
|
|
if (!fn)
|
|
continue;
|
|
|
|
ind = p->_ind;
|
|
|
|
/* Call the function. */
|
|
if (!args || (args->_fntypes & i) == 0)
|
|
fn ();
|
|
else if ((args->_is_cxa & i) == 0)
|
|
(*((void (*)(int, _PTR)) fn))(code, args->_fnargs[n]);
|
|
else
|
|
(*((void (*)(_PTR)) fn))(args->_fnargs[n]);
|
|
|
|
/* The function we called call atexit and registered another
|
|
function (or functions). Call these new functions before
|
|
continuing with the already registered functions. */
|
|
if (ind != p->_ind || *lastp != p)
|
|
goto restart;
|
|
}
|
|
|
|
#ifndef _ATEXIT_DYNAMIC_ALLOC
|
|
break;
|
|
#else
|
|
/* Don't dynamically free the atexit array if free is not
|
|
available. */
|
|
if (!free)
|
|
break;
|
|
|
|
/* Move to the next block. Free empty blocks except the last one,
|
|
which is part of _GLOBAL_REENT. */
|
|
if (p->_ind == 0 && p->_next)
|
|
{
|
|
/* Remove empty block from the list. */
|
|
*lastp = p->_next;
|
|
#ifdef _REENT_SMALL
|
|
if (args)
|
|
free (args);
|
|
#endif
|
|
free (p);
|
|
p = *lastp;
|
|
}
|
|
else
|
|
{
|
|
lastp = &p->_next;
|
|
p = p->_next;
|
|
}
|
|
#endif
|
|
}
|
|
#ifndef __SINGLE_THREAD__
|
|
__lock_release_recursive(__atexit_lock);
|
|
#endif
|
|
|
|
}
|