Function thread_exit

lib_fiber/c/src/common/pthread_patch.c:157–199

}

static void NTAPI thread_exit(void *ctx)
{
	FLS_KEY *fkey = (FLS_KEY *) ctx;
	assert(fkey && fkey->locals);

	// The first one is set in thread_init() in fiber.c, it should be called
	// in the end, because the original fiber will be freed that it means
	// the current thread will be end and the thread context will freed.
	TLS_OBJ *first = fifo_pop_front(fkey->locals), *obj;
	assert(first);

	char key[32];

	pthread_mutex_lock(&__lock);

	while ((obj = fifo_pop_front(fkey->locals))) {
		hash_key(obj->key, key, sizeof(key));
		TLS_KEY *tkey = (TLS_KEY*) htable_find(__pkeys->keys, key);
		if (tkey == NULL || tkey->destructor == NULL) {
			continue;
		}
		tkey->destructor(obj->value);
		mem_free(obj);
	}

	fifo_free(fkey->locals, NULL);
	mem_free(fkey);

	hash_key(first->key, key, sizeof(key));
	TLS_KEY *tkey = (TLS_KEY*) htable_find(__pkeys->keys, key);
	assert(tkey);

	pthread_mutex_unlock(&__lock);

	void *value = first->value;
	mem_free(first);

	// Must the __fls_key's value to NULL to avoid the thread_exit
	// to be triggered again for the current thread when the original
	// fiber is deleted.
	FlsSetValue(__fls_key, NULL);
	tkey->destructor(value);
}

static void thread_once(void)
{