123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198 |
- #include "stlport_prefix.h"
- #if defined(__unix) && defined(__GNUC__)
- #ifdef __FreeBSD__
- # include <osreldate.h>
- #endif
- #if (defined(__FreeBSD__) && (__FreeBSD_version < 503001)) || defined(__sun) || defined (__hpux)
- /* Note: __cxa_finalize and __cxa_atexit present in libc in FreeBSD 5.3 */
- #include <stdlib.h>
- #include <stdio.h>
- #include <pthread.h>
- /* __asm__ (".symver " "__cxa_finalize" "," "__cxa_finalize" "@" "STLPORT_5_0_0"); */
- /* __asm__ (".symver " "__cxa_finalize" "," "__cxa_finalize" "@@" "STLPORT_5_0_0"); */
- /* Not atomic! */
- /* But we can use static mutexes here: I hope that performance issue isn't very
- significant on unloading (for only few calls, ~10) - ptr */
- /*
- #define atomic_compare_and_exchange_bool_acq(mem, newval, oldval) \
- ({ __typeof (mem) __gmemp = (mem); \
- __typeof (*mem) __gnewval = (newval); \
- \
- *__gmemp == (oldval) ? (*__gmemp = __gnewval, 0) : 1; })
- */
- enum {
- ef_free, /* `ef_free' MUST be zero! */
- ef_us,
- ef_on,
- ef_at,
- ef_cxa
- };
- struct exit_function
- {
- /* `flavour' should be of type of the `enum' above but since we need
- this element in an atomic operation we have to use `long int'. */
- long int flavor;
- union {
- void (*at)(void);
- struct {
- void (*fn)(int status, void *arg);
- void *arg;
- } on;
- struct {
- void (*fn)(void *arg, int status);
- void *arg;
- void *dso_handle;
- } cxa;
- } func;
- };
- struct exit_function_list
- {
- struct exit_function_list *next;
- size_t idx;
- struct exit_function fns[32];
- };
- struct exit_function *__new_exitfn (void);
- /* Register a function to be called by exit or when a shared library
- is unloaded. This function is only called from code generated by
- the C++ compiler. */
- int __cxa_atexit(void (*func)(void *), void *arg, void *d)
- {
- struct exit_function *new = __new_exitfn ();
- if ( new == NULL )
- return -1;
- new->flavor = ef_cxa;
- new->func.cxa.fn = (void (*) (void *, int)) func;
- new->func.cxa.arg = arg;
- new->func.cxa.dso_handle = d;
- return 0;
- }
- /* We change global data, so we need locking. */
- #ifdef __linux__
- static pthread_mutex_t lock = PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP;
- #endif
- /* #ifdef __FreeBSD__ */
- #if 0
- static pthread_mutex_t lock =
- { PTHREAD_MUTEX_RECURSIVE /* PTHREAD_MUTEX_DEFAULT */, PTHREAD_PRIO_NONE, {NULL,NULL},
- NULL, { NULL }, /* MUTEX_FLAGS_PRIVATE */ 0x1, 0, 0, 0, {NULL, NULL},
- { 0, 0, 0, 0 } };
- #endif
- #ifdef __sun
- static pthread_mutex_t lock =
- {{0, 0, 0, PTHREAD_MUTEX_RECURSIVE, _MUTEX_MAGIC}, {{{0}}}, 0};
- #endif
- #ifdef __hpux
- static pthread_mutex_t lock = PTHREAD_MUTEX_RECURSIVE_INITIALIZER_NP;
- # ifdef __ia64
- void *__dso_handle = (void *) &__dso_handle;
- # endif
- #endif
- static struct exit_function_list initial;
- struct exit_function_list *__exit_funcs = &initial;
- struct exit_function *__new_exitfn(void)
- {
- struct exit_function_list *l;
- size_t i = 0;
- #ifndef __FreeBSD__
- pthread_mutex_lock( &lock );
- #endif
- for (l = __exit_funcs; l != NULL; l = l->next) {
- for (i = 0; i < l->idx; ++i)
- if (l->fns[i].flavor == ef_free)
- break;
- if ( i < l->idx )
- break;
- if (l->idx < sizeof (l->fns) / sizeof (l->fns[0])) {
- i = l->idx++;
- break;
- }
- }
- if (l == NULL) {
- l = (struct exit_function_list *)malloc( sizeof(struct exit_function_list) );
- if (l != NULL) {
- l->next = __exit_funcs;
- __exit_funcs = l;
- l->idx = 1;
- i = 0;
- }
- }
- /* Mark entry as used, but we don't know the flavor now. */
- if ( l != NULL )
- l->fns[i].flavor = ef_us;
- #ifndef __FreeBSD__
- pthread_mutex_unlock( &lock );
- #endif
- return l == NULL ? NULL : &l->fns[i];
- }
- /* If D is non-NULL, call all functions registered with `__cxa_atexit'
- with the same dso handle. Otherwise, if D is NULL, call all of the
- registered handlers. */
- /*
- * Note, that original __cxa_finalize don't use lock, but use __exit_funcs
- * i.e. global data.
- */
- void __cxa_finalize(void *d)
- {
- struct exit_function_list *funcs;
- #ifndef __FreeBSD__
- pthread_mutex_lock( &lock );
- #endif
- for (funcs = __exit_funcs; funcs; funcs = funcs->next) {
- struct exit_function *f;
- for (f = &funcs->fns[funcs->idx - 1]; f >= &funcs->fns[0]; --f) {
- if ( (d == NULL || d == f->func.cxa.dso_handle) && (f->flavor == ef_cxa) ) {
- f->flavor = ef_free;
- (*f->func.cxa.fn) (f->func.cxa.arg, 0);
- }
- }
- }
- /* Remove the registered fork handlers. We do not have to
- unregister anything if the program is going to terminate anyway. */
- #ifdef UNREGISTER_ATFORK
- if (d != NULL)
- UNREGISTER_ATFORK (d);
- #endif
- #ifndef __FreeBSD__
- pthread_mutex_unlock( &lock );
- #endif
- }
- /* __asm__ (".symver " "__cxa_finalize" "," "__cxa_finalize" "@@" "STLPORT_5_0_0"); */
- /* void __cxa_finalize(void *d) __attribute__ ((weak)); */
- #endif /* OS name */
- #endif /* __unix */
|