1#include "pthread_impl.h"
2
3volatile size_t __pthread_tsd_size = sizeof(void *) * PTHREAD_KEYS_MAX;
4void *__pthread_tsd_main[PTHREAD_KEYS_MAX] = { 0 };
5
6static void (*volatile keys[PTHREAD_KEYS_MAX])(void *);
7
8static void nodtor(void *dummy)
9{
10}
11
12int __pthread_key_create(pthread_key_t *k, void (*dtor)(void *))
13{
14	unsigned i = (uintptr_t)&k / 16 % PTHREAD_KEYS_MAX;
15	unsigned j = i;
16	pthread_t self = __pthread_self();
17
18	/* This can only happen in the main thread before
19	 * pthread_create has been called. */
20	if (!self->tsd) self->tsd = __pthread_tsd_main;
21
22	if (!dtor) dtor = nodtor;
23	do {
24		if (!a_cas_p(keys+j, 0, (void *)dtor)) {
25			*k = j;
26			return 0;
27		}
28	} while ((j=(j+1)%PTHREAD_KEYS_MAX) != i);
29	return EAGAIN;
30}
31
32int __pthread_key_delete(pthread_key_t k)
33{
34	keys[k] = 0;
35	return 0;
36}
37
38void __pthread_tsd_run_dtors()
39{
40	pthread_t self = __pthread_self();
41	int i, j, not_finished = self->tsd_used;
42	for (j=0; not_finished && j<PTHREAD_DESTRUCTOR_ITERATIONS; j++) {
43		not_finished = 0;
44		for (i=0; i<PTHREAD_KEYS_MAX; i++) {
45			if (self->tsd[i] && keys[i]) {
46				void *tmp = self->tsd[i];
47				self->tsd[i] = 0;
48				keys[i](tmp);
49				not_finished = 1;
50			}
51		}
52	}
53}
54
55weak_alias(__pthread_key_delete, pthread_key_delete);
56weak_alias(__pthread_key_create, pthread_key_create);
57