minix/lib/libc/thread-stub/thread-stub.c

467 lines
10 KiB
C
Raw Normal View History

/* $NetBSD: thread-stub.c,v 1.21 2009/01/30 23:21:03 ad Exp $ */
/*-
* Copyright (c) 2003, 2009 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Jason R. Thorpe.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/cdefs.h>
#if defined(LIBC_SCCS) && !defined(lint)
__RCSID("$NetBSD: thread-stub.c,v 1.21 2009/01/30 23:21:03 ad Exp $");
#endif /* LIBC_SCCS and not lint */
/*
* Stubs for thread operations, for use when threads are not used by
* the application. See "reentrant.h" for details.
*/
#ifdef _REENTRANT
#define __LIBC_THREAD_STUBS
#include "namespace.h"
#include "reentrant.h"
#include <errno.h>
#include <signal.h>
#include <stdlib.h>
#include <unistd.h>
extern int __isthreaded;
#define DIE() (void)raise(SIGABRT)
#define CHECK_NOT_THREADED_ALWAYS() \
do { \
if (__isthreaded) \
DIE(); \
} while (/*CONSTCOND*/0)
#if 1
#define CHECK_NOT_THREADED() CHECK_NOT_THREADED_ALWAYS()
#else
#define CHECK_NOT_THREADED() /* nothing */
#endif
/* libpthread init */
void __libc_thr_init(void);
void __libc_thr_init_stub(void);
__weak_alias(__libc_thr_init,__libc_thr_init_stub)
void
__libc_thr_init_stub(void)
{
/* nothing, may be overridden by libpthread */
}
/* mutexes */
int __libc_mutex_init_stub(mutex_t *, const mutexattr_t *);
int __libc_mutex_catchall_stub(mutex_t *);
__weak_alias(__libc_mutex_init,__libc_mutex_init_stub)
__weak_alias(__libc_mutex_lock,__libc_mutex_catchall_stub)
__weak_alias(__libc_mutex_trylock,__libc_mutex_catchall_stub)
__weak_alias(__libc_mutex_unlock,__libc_mutex_catchall_stub)
__weak_alias(__libc_mutex_destroy,__libc_mutex_catchall_stub)
int __libc_mutexattr_catchall_stub(mutexattr_t *);
int __libc_mutexattr_settype_stub(mutexattr_t *, int);
__weak_alias(__libc_mutexattr_init,__libc_mutexattr_catchall_stub)
__weak_alias(__libc_mutexattr_destroy,__libc_mutexattr_catchall_stub)
__weak_alias(__libc_mutexattr_settype,__libc_mutexattr_settype_stub)
int
__libc_mutex_init_stub(mutex_t *m, const mutexattr_t *a)
{
/* LINTED deliberate lack of effect */
(void)m;
/* LINTED deliberate lack of effect */
(void)a;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_mutex_catchall_stub(mutex_t *m)
{
/* LINTED deliberate lack of effect */
(void)m;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_mutexattr_settype_stub(mutexattr_t *ma, int type)
{
/* LINTED deliberate lack of effect */
(void)ma;
/* LINTED deliberate lack of effect */
(void)type;
return (0);
}
int
__libc_mutexattr_catchall_stub(mutexattr_t *ma)
{
/* LINTED deliberate lack of effect */
(void)ma;
CHECK_NOT_THREADED();
return (0);
}
/* condition variables */
int __libc_cond_init_stub(cond_t *, const condattr_t *);
int __libc_cond_wait_stub(cond_t *, mutex_t *);
int __libc_cond_timedwait_stub(cond_t *, mutex_t *,
const struct timespec *);
int __libc_cond_catchall_stub(cond_t *);
__weak_alias(__libc_cond_init,__libc_cond_init_stub)
__weak_alias(__libc_cond_signal,__libc_cond_catchall_stub)
__weak_alias(__libc_cond_broadcast,__libc_cond_catchall_stub)
__weak_alias(__libc_cond_wait,__libc_cond_wait_stub)
__weak_alias(__libc_cond_timedwait,__libc_cond_timedwait_stub)
__weak_alias(__libc_cond_destroy,__libc_cond_catchall_stub)
int
__libc_cond_init_stub(cond_t *c, const condattr_t *a)
{
/* LINTED deliberate lack of effect */
(void)c;
/* LINTED deliberate lack of effect */
(void)a;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_cond_wait_stub(cond_t *c, mutex_t *m)
{
/* LINTED deliberate lack of effect */
(void)c;
/* LINTED deliberate lack of effect */
(void)m;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_cond_timedwait_stub(cond_t *c, mutex_t *m, const struct timespec *t)
{
/* LINTED deliberate lack of effect */
(void)c;
/* LINTED deliberate lack of effect */
(void)m;
/* LINTED deliberate lack of effect */
(void)t;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_cond_catchall_stub(cond_t *c)
{
/* LINTED deliberate lack of effect */
(void)c;
CHECK_NOT_THREADED();
return (0);
}
/* read-write locks */
int __libc_rwlock_init_stub(rwlock_t *, rwlockattr_t *);
int __libc_rwlock_catchall_stub(rwlock_t *);
__weak_alias(__libc_rwlock_init,__libc_rwlock_init_stub)
__weak_alias(__libc_rwlock_rdlock,__libc_rwlock_catchall_stub)
__weak_alias(__libc_rwlock_wrlock,__libc_rwlock_catchall_stub)
__weak_alias(__libc_rwlock_tryrdlock,__libc_rwlock_catchall_stub)
__weak_alias(__libc_rwlock_trywrlock,__libc_rwlock_catchall_stub)
__weak_alias(__libc_rwlock_unlock,__libc_rwlock_catchall_stub)
__weak_alias(__libc_rwlock_destroy,__libc_rwlock_catchall_stub)
int
__libc_rwlock_init_stub(rwlock_t *l, rwlockattr_t *a)
{
/* LINTED deliberate lack of effect */
(void)l;
/* LINTED deliberate lack of effect */
(void)a;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_rwlock_catchall_stub(rwlock_t *l)
{
/* LINTED deliberate lack of effect */
(void)l;
CHECK_NOT_THREADED();
return (0);
}
/*
* thread-specific data; we need to actually provide a simple TSD
* implementation, since some thread-safe libraries want to use it.
*/
#define TSD_KEYS_MAX 64
static struct {
void *tsd_val;
void (*tsd_dtor)(void *);
int tsd_inuse;
} __libc_tsd[TSD_KEYS_MAX];
static int __libc_tsd_nextkey;
int __libc_thr_keycreate_stub(thread_key_t *, void (*)(void *));
int __libc_thr_setspecific_stub(thread_key_t, const void *);
void *__libc_thr_getspecific_stub(thread_key_t);
int __libc_thr_keydelete_stub(thread_key_t);
__weak_alias(__libc_thr_keycreate,__libc_thr_keycreate_stub)
__weak_alias(__libc_thr_setspecific,__libc_thr_setspecific_stub)
__weak_alias(__libc_thr_getspecific,__libc_thr_getspecific_stub)
__weak_alias(__libc_thr_keydelete,__libc_thr_keydelete_stub)
int
__libc_thr_keycreate_stub(thread_key_t *k, void (*d)(void *))
{
int i;
for (i = __libc_tsd_nextkey; i < TSD_KEYS_MAX; i++) {
if (__libc_tsd[i].tsd_inuse == 0)
goto out;
}
for (i = 0; i < __libc_tsd_nextkey; i++) {
if (__libc_tsd[i].tsd_inuse == 0)
goto out;
}
return (EAGAIN);
out:
/*
* XXX We don't actually do anything with the destructor. We
* XXX probably should.
*/
__libc_tsd[i].tsd_inuse = 1;
__libc_tsd_nextkey = (i + i) % TSD_KEYS_MAX;
__libc_tsd[i].tsd_dtor = d;
*k = i;
return (0);
}
int
__libc_thr_setspecific_stub(thread_key_t k, const void *v)
{
__libc_tsd[k].tsd_val = __UNCONST(v);
return (0);
}
void *
__libc_thr_getspecific_stub(thread_key_t k)
{
return (__libc_tsd[k].tsd_val);
}
int
__libc_thr_keydelete_stub(thread_key_t k)
{
/*
* XXX Do not recycle key; see big comment in libpthread.
*/
__libc_tsd[k].tsd_dtor = NULL;
return (0);
}
/* misc. */
int __libc_thr_once_stub(once_t *, void (*)(void));
int __libc_thr_sigsetmask_stub(int, const sigset_t *, sigset_t *);
thr_t __libc_thr_self_stub(void);
int __libc_thr_yield_stub(void);
int __libc_thr_create_stub(thr_t *, const thrattr_t *,
void *(*)(void *), void *);
void __libc_thr_exit_stub(void *);
int *__libc_thr_errno_stub(void);
int __libc_thr_setcancelstate_stub(int, int *);
int __libc_thr_equal_stub(pthread_t, pthread_t);
unsigned int __libc_thr_curcpu_stub(void);
__weak_alias(__libc_thr_once,__libc_thr_once_stub)
__weak_alias(__libc_thr_sigsetmask,__libc_thr_sigsetmask_stub)
__weak_alias(__libc_thr_self,__libc_thr_self_stub)
__weak_alias(__libc_thr_yield,__libc_thr_yield_stub)
__weak_alias(__libc_thr_create,__libc_thr_create_stub)
__weak_alias(__libc_thr_exit,__libc_thr_exit_stub)
__weak_alias(__libc_thr_errno,__libc_thr_errno_stub)
__weak_alias(__libc_thr_setcancelstate,__libc_thr_setcancelstate_stub)
__weak_alias(__libc_thr_equal,__libc_thr_equal_stub)
__weak_alias(__libc_thr_curcpu,__libc_thr_curcpu_stub)
int
__libc_thr_once_stub(once_t *o, void (*r)(void))
{
/* XXX Knowledge of libpthread types. */
if (o->pto_done == 0) {
(*r)();
o->pto_done = 1;
}
return (0);
}
int
__libc_thr_sigsetmask_stub(int h, const sigset_t *s, sigset_t *o)
{
CHECK_NOT_THREADED();
return sigprocmask(h, s, o);
}
thr_t
__libc_thr_self_stub(void)
{
return ((thr_t) -1);
}
int
__libc_thr_yield_stub(void)
{
/* Nothing to do. */
return (0);
}
int
__libc_thr_create_stub(thr_t *tp, const thrattr_t *ta,
void *(*f)(void *), void *a)
{
/* LINTED deliberate lack of effect */
(void)tp;
/* LINTED deliberate lack of effect */
(void)ta;
/* LINTED deliberate lack of effect */
(void)f;
/* LINTED deliberate lack of effect */
(void)a;
DIE();
return (EOPNOTSUPP);
}
void
__libc_thr_exit_stub(void *v)
{
/* LINTED deliberate lack of effect */
(void)v;
exit(0);
}
int
__libc_thr_setcancelstate_stub(int new, int *old)
{
/* LINTED deliberate lack of effect */
(void)new;
/* LINTED deliberate lack of effect */
(void)old;
CHECK_NOT_THREADED();
return (0);
}
int
__libc_thr_equal_stub(pthread_t t1, pthread_t t2)
{
/* assert that t1=t2=pthread_self() */
return (t1 == t2);
}
int *
__libc_thr_errno_stub(void)
{
DIE();
return (NULL);
}
unsigned int
__libc_thr_curcpu_stub(void)
{
return (0);
}
#endif /* _REENTRANT */