gcc/gthr-tpf.h

   1 /* Threads compatibility routines for libgcc2 and libobjc.
   2    Compile this one with gcc.
   3    Copyright (C) 2004, 2005 Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 2, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING.  If not, write to the Free
  19 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  20 02110-1301, USA.  */
  21
  22 /* As a special exception, if you link this library with other files,
  23    some of which are compiled with GCC, to produce an executable,
  24    this library does not by itself cause the resulting executable
  25    to be covered by the GNU General Public License.
  26    This exception does not however invalidate any other reasons why
  27    the executable file might be covered by the GNU General Public License.  */
  28
  29
  30 /* TPF needs its own version of gthr-*.h because TPF always links to
  31    the thread library.  However, for performance reasons we still do not
  32    want to issue thread api calls unless a check is made to see that we
  33    are running as a thread.  */
  34
  35 #ifndef GCC_GTHR_TPF_H
  36 #define GCC_GTHR_TPF_H
  37
  38 /* POSIX threads specific definitions.
  39    Easy, since the interface is just one-to-one mapping.  */
  40
  41 #define __GTHREADS 1
  42
  43 /* Some implementations of <pthread.h> require this to be defined.  */
  44 #ifndef _REENTRANT
  45 #define _REENTRANT 1
  46 #endif
  47
  48 #include <pthread.h>
  49 #include <unistd.h>
  50
  51 typedef pthread_key_t __gthread_key_t;
  52 typedef pthread_once_t __gthread_once_t;
  53 typedef pthread_mutex_t __gthread_mutex_t;
  54 typedef pthread_mutex_t __gthread_recursive_mutex_t;
  55
  56 #if defined(PTHREAD_RECURSIVE_MUTEX_INITIALIZER)
  57 #define __GTHREAD_RECURSIVE_MUTEX_INIT PTHREAD_RECURSIVE_MUTEX_INITIALIZER
  58 #elif defined(PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP)
  59 #define __GTHREAD_RECURSIVE_MUTEX_INIT PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP
  60 #endif
  61
  62 #define __GTHREAD_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
  63 #define __GTHREAD_ONCE_INIT PTHREAD_ONCE_INIT
  64 #define __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION __gthread_recursive_mutex_init_function
  65
  66 #define NOTATHREAD   00
  67 #define ECBBASEPTR (unsigned long int) *(unsigned int *)0x00000514u
  68 #define ECBPG2PTR  ECBBASEPTR + 0x1000
  69 #define CE2THRCPTR *((unsigned char *)(ECBPG2PTR + 16))
  70 #define __tpf_pthread_active() (CE2THRCPTR != NOTATHREAD)
  71
  72 #if SUPPORTS_WEAK && GTHREAD_USE_WEAK
  73 # define __gthrw(name) \
  74   static __typeof(name) __gthrw_ ## name __attribute__ ((__weakref__(#name)));
  75 # define __gthrw_(name) __gthrw_ ## name
  76 #else
  77 # define __gthrw(name)
  78 # define __gthrw_(name) name
  79 #endif
  80
  81 __gthrw(pthread_once)
  82 __gthrw(pthread_key_create)
  83 __gthrw(pthread_key_delete)
  84 __gthrw(pthread_getspecific)
  85 __gthrw(pthread_setspecific)
  86 __gthrw(pthread_create)
  87
  88 __gthrw(pthread_mutex_lock)
  89 __gthrw(pthread_mutex_trylock)
  90 __gthrw(pthread_mutex_unlock)
  91 __gthrw(pthread_mutexattr_init)
  92 __gthrw(pthread_mutexattr_settype)
  93 __gthrw(pthread_mutexattr_destroy)
  94 __gthrw(pthread_mutex_init)
  95
  96 static inline int
  97 __gthread_active_p (void)
  98 {
  99   return 1;
 100 }
 101
 102 static inline int
 103 __gthread_once (__gthread_once_t *once, void (*func) (void))
 104 {
 105   if (__tpf_pthread_active ())
 106     return __gthrw_(pthread_once) (once, func);
 107   else
 108     return -1;
 109 }
 110
 111 static inline int
 112 __gthread_key_create (__gthread_key_t *key, void (*dtor) (void *))
 113 {
 114   if (__tpf_pthread_active ())
 115     return __gthrw_(pthread_key_create) (key, dtor);
 116   else
 117     return -1;
 118 }
 119
 120 static inline int
 121 __gthread_key_delete (__gthread_key_t key)
 122 {
 123   if (__tpf_pthread_active ())
 124     return __gthrw_(pthread_key_delete) (key);
 125   else
 126     return -1;
 127 }
 128
 129 static inline void *
 130 __gthread_getspecific (__gthread_key_t key)
 131 {
 132   if (__tpf_pthread_active ())
 133     return __gthrw_(pthread_getspecific) (key);
 134   else
 135     return NULL;
 136 }
 137
 138 static inline int
 139 __gthread_setspecific (__gthread_key_t key, const void *ptr)
 140 {
 141   if (__tpf_pthread_active ())
 142     return __gthrw_(pthread_setspecific) (key, ptr);
 143   else
 144     return -1;
 145 }
 146
 147 static inline int
 148 __gthread_mutex_lock (__gthread_mutex_t *mutex)
 149 {
 150   if (__tpf_pthread_active ())
 151     return __gthrw_(pthread_mutex_lock) (mutex);
 152   else
 153     return 0;
 154 }
 155
 156 static inline int
 157 __gthread_mutex_trylock (__gthread_mutex_t *mutex)
 158 {
 159   if (__tpf_pthread_active ())
 160     return __gthrw_(pthread_mutex_trylock) (mutex);
 161   else
 162     return 0;
 163 }
 164
 165 static inline int
 166 __gthread_mutex_unlock (__gthread_mutex_t *mutex)
 167 {
 168   if (__tpf_pthread_active ())
 169     return __gthrw_(pthread_mutex_unlock) (mutex);
 170   else
 171     return 0;
 172 }
 173
 174 static inline int
 175 __gthread_recursive_mutex_lock (__gthread_recursive_mutex_t *mutex)
 176 {
 177   if (__tpf_pthread_active ())
 178     return __gthread_mutex_lock (mutex);
 179   else
 180     return 0;
 181 }
 182
 183 static inline int
 184 __gthread_recursive_mutex_trylock (__gthread_recursive_mutex_t *mutex)
 185 {
 186   if (__tpf_pthread_active ())
 187     return __gthread_mutex_trylock (mutex);
 188   else
 189     return 0;
 190 }
 191
 192 static inline int
 193 __gthread_recursive_mutex_unlock (__gthread_recursive_mutex_t *mutex)
 194 {
 195   if (__tpf_pthread_active ())
 196     return __gthread_mutex_unlock (mutex);
 197   else
 198     return 0;
 199 }
 200
 201 static inline int
 202 __gthread_recursive_mutex_init_function (__gthread_recursive_mutex_t *mutex)
 203 {
 204   if (__tpf_pthread_active ())
 205     {
 206       pthread_mutexattr_t attr;
 207       int r;
 208
 209       r = __gthrw_(pthread_mutexattr_init) (&attr);
 210       if (!r)
 211         r = __gthrw_(pthread_mutexattr_settype) (&attr, PTHREAD_MUTEX_RECURSIVE);
 212       if (!r)
 213         r = __gthrw_(pthread_mutex_init) (mutex, &attr);
 214       if (!r)
 215         r = __gthrw_(pthread_mutexattr_destroy) (&attr);
 216       return r;
 217     }
 218   return 0;
 219 }
 220
 221
 222 #endif /* ! GCC_GTHR_TPF_H */