1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- #ifdef HAVE_CONFIG_H
- # include <config.h>
- #endif
- #include <stdlib.h>
- #include "libguile/_scm.h"
- #if SCM_USE_NULL_THREADS
- #include "libguile/null-threads.h"
- static scm_i_pthread_key_t *all_keys = NULL;
- static void
- destroy_keys (void)
- {
- scm_i_pthread_key_t *key;
- int again;
- do {
- again = 0;
- for (key = all_keys; key; key = key->next)
- if (key->value && key->destr_func)
- {
- void *v = key->value;
- key->value = NULL;
- key->destr_func (v);
- again = 1;
- }
- } while (again);
- }
- int
- scm_i_pthread_key_create (scm_i_pthread_key_t *key,
- void (*destr_func) (void *))
- {
- if (all_keys == NULL)
- atexit (destroy_keys);
- key->next = all_keys;
- all_keys = key;
- key->value = NULL;
- key->destr_func = destr_func;
- return 0;
- }
- #endif
|