315 lines
8.5 KiB
C
315 lines
8.5 KiB
C
/* Copyright (C) 2006 Diego Pettenò
|
|
* Inspired by libX11 code copyright (c) 1995 David E. Wexelblat.
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
* copy of this software and associated documentation files (the "Software"),
|
|
* to deal in the Software without restriction, including without limitation
|
|
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
* and/or sell copies of the Software, and to permit persons to whom the
|
|
* Software is furnished to do so, subject to the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included in
|
|
* all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
* AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
|
|
* ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
*
|
|
* Except as contained in this notice, the names of the authors or their
|
|
* institutions shall not be used in advertising or otherwise to promote the
|
|
* sale, use or other dealings in this Software without prior written
|
|
* authorization from the authors.
|
|
*/
|
|
|
|
#include <pthread.h>
|
|
#include <stdlib.h>
|
|
#include "config.h"
|
|
|
|
#ifndef HAVE_PTHREAD_SELF
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
pthread_t pthread_self() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_self = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_MUTEX_INIT
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_mutex_init() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_mutex_init = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_MUTEX_DESTROY
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_mutex_destroy() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_mutex_destroy = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_MUTEX_LOCK
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_mutex_lock() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_mutex_lock = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_MUTEX_UNLOCK
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_mutex_unlock() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_mutex_unlock = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_COND_INIT
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_cond_init() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_cond_init = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_COND_DESTROY
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_cond_destroy() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_cond_destroy = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_CONDATTR_INIT
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_condattr_init() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_condattr_init = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_CONDATTR_DESTROY
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_condattr_destroy() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_condattr_destroy = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_COND_WAIT
|
|
#define NEED_ABORT_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_cond_wait() __attribute__ ((weak, alias ("__pthread_abort_stub")));
|
|
# else
|
|
# pragma weak pthread_cond_wait = __pthread_abort_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_COND_TIMEDWAIT
|
|
#define NEED_ABORT_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_cond_timedwait() __attribute__ ((weak, alias ("__pthread_abort_stub")));
|
|
# else
|
|
# pragma weak pthread_cond_timedwait = __pthread_abort_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_COND_SIGNAL
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_cond_signal() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_cond_signal = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_COND_BROADCAST
|
|
#define NEED_ZERO_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_cond_broadcast() __attribute__ ((weak, alias ("__pthread_zero_stub")));
|
|
# else
|
|
# pragma weak pthread_cond_broadcast = __pthread_zero_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_EQUAL
|
|
#define NEED_EQUAL_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_equal() __attribute__ ((weak, alias ("__pthread_equal_stub")));
|
|
# else
|
|
# pragma weak pthread_equal = __pthread_equal_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_EXIT
|
|
#define NEED_EXIT_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
void pthread_exit() __attribute__ ((weak, alias ("__pthread_exit_stub")));
|
|
# else
|
|
# pragma weak pthread_exit = __pthread_exit_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_ONCE
|
|
#define NEED_ONCE_STUB
|
|
#ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_once() __attribute__ ((weak, alias ("__pthread_once_stub")));
|
|
# else
|
|
# pragma wek pthread_once = __pthread_once_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_PTHREAD_KEY_CREATE
|
|
#define NEED_PTHREAD_KEY_CREATE_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_key_create() __attribute ((weak, alias ("__pthread_key_create_stub")));
|
|
# else
|
|
# pragma weak pthread_key_create = __pthread_key_create_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_THREAD_SETSPECIFIC
|
|
#define NEED_PTHREAD_SETSPECIFIC_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
int pthread_setspecific() __attribute ((weak, alias ("__pthread_setspecific_stub")));
|
|
# else
|
|
# pragma weak pthread_setspecific = __pthread_setspecific_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef HAVE_THREAD_GETSPECIFIC
|
|
#define NEED_PTHREAD_GETSPECIFIC_STUB
|
|
# ifdef SUPPORT_ATTRIBUTE_ALIAS
|
|
void * pthread_getspecific() __attribute ((weak, alias ("__pthread_getspecific_stub")));
|
|
# else
|
|
# pragma weak pthread_getspecific = __pthread_getspecific_stub
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef NEED_ZERO_STUB
|
|
static int __pthread_zero_stub()
|
|
{
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_ABORT_STUB
|
|
static int __pthread_abort_stub()
|
|
{
|
|
abort();
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_EQUAL_STUB
|
|
static int __pthread_equal_stub(pthread_t t1, pthread_t t2)
|
|
{
|
|
return (t1 == t2);
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_EXIT_STUB
|
|
static void __pthread_exit_stub(void *ret)
|
|
{
|
|
exit(EXIT_SUCCESS);
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_ONCE_STUB
|
|
|
|
#include <errno.h>
|
|
|
|
#define PTHREAD_ONCE_KEYS_CHUNK 100
|
|
static void**__pthread_once_keys = NULL;
|
|
static unsigned int __pthread_once_last_key = 0;
|
|
|
|
static int
|
|
__pthread_once_stub(void *id, void (*routine)(void))
|
|
{
|
|
void **tmp;
|
|
unsigned int i;
|
|
|
|
/* look for the id */
|
|
for (i = 0; i < __pthread_once_last_key; i++)
|
|
if (__pthread_once_keys[i] == id)
|
|
return 0;
|
|
/* allocate more room if needed */
|
|
if ((__pthread_once_last_key % PTHREAD_ONCE_KEYS_CHUNK) == 0) {
|
|
tmp = realloc(__pthread_once_keys,
|
|
(__pthread_once_last_key
|
|
+ PTHREAD_ONCE_KEYS_CHUNK)*sizeof(void *));
|
|
if (tmp == NULL)
|
|
return ENOMEM;
|
|
for (i = 0; i < PTHREAD_ONCE_KEYS_CHUNK; i++)
|
|
tmp[__pthread_once_last_key + i] = NULL;
|
|
__pthread_once_keys = tmp;
|
|
}
|
|
/* call the routine */
|
|
routine();
|
|
/* Mark it */
|
|
__pthread_once_keys[__pthread_once_last_key++] = id;
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_PTHREAD_KEY_CREATE_STUB
|
|
#include <errno.h>
|
|
|
|
#define _PTHREAD_KEYS_CHUNK 100
|
|
|
|
static void **__pthread_keys = NULL;
|
|
static unsigned int __pthread_last_key = 0;
|
|
|
|
static int
|
|
__pthread_key_create_stub(unsigned int *key, void (*destructor)(void *))
|
|
{
|
|
void **tmp;
|
|
unsigned int i;
|
|
|
|
if ((__pthread_last_key % _PTHREAD_KEYS_CHUNK) == 0) {
|
|
tmp = realloc(__pthread_keys,
|
|
(__pthread_last_key + _PTHREAD_KEYS_CHUNK)*sizeof(void *));
|
|
if (tmp == NULL)
|
|
return ENOMEM;
|
|
for (i = 0; i < _PTHREAD_KEYS_CHUNK; i++)
|
|
tmp[__pthread_last_key + i] = NULL;
|
|
__pthread_keys = tmp;
|
|
}
|
|
*key = __pthread_last_key++;
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_PTHREAD_SETSPECIFIC_STUB
|
|
static int
|
|
__pthread_setspecific_stub(unsigned int key, const void *value)
|
|
{
|
|
if (__pthread_last_key == 0 || key >= __pthread_last_key)
|
|
return EINVAL;
|
|
__pthread_keys[key] = (void *)value;
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
#ifdef NEED_PTHREAD_GETSPECIFIC_STUB
|
|
static void *
|
|
__pthread_getspecific_stub(unsigned int key)
|
|
{
|
|
if (__pthread_last_key == 0 || key >= __pthread_last_key)
|
|
return NULL;
|
|
return(__pthread_keys[key]);
|
|
}
|
|
#endif
|