libgcc/gthr-posix.h

   1 /* Threads compatibility routines for libgcc2 and libobjc.  */
   2 /* Compile this one with gcc.  */
   3 /* Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
   4    2008, 2009, 2010, 2011 Free Software Foundation, Inc.
   5
   6 This file is part of GCC.
   7
   8 GCC is free software; you can redistribute it and/or modify it under
   9 the terms of the GNU General Public License as published by the Free
  10 Software Foundation; either version 3, or (at your option) any later
  11 version.
  12
  13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 for more details.
  17
  18 Under Section 7 of GPL version 3, you are granted additional
  19 permissions described in the GCC Runtime Library Exception, version
  20 3.1, as published by the Free Software Foundation.
  21
  22 You should have received a copy of the GNU General Public License and
  23 a copy of the GCC Runtime Library Exception along with this program;
  24 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  25 <http://www.gnu.org/licenses/>.  */
  26
  27 #ifndef GCC_GTHR_POSIX_H
  28 #define GCC_GTHR_POSIX_H
  29
  30 /* POSIX threads specific definitions.
  31    Easy, since the interface is just one-to-one mapping.  */
  32
  33 #define __GTHREADS 1
  34 #define __GTHREADS_CXX0X 1
  35
  36 /* Some implementations of <pthread.h> require this to be defined.  */
  37 #if !defined(_REENTRANT) && defined(__osf__)
  38 #define _REENTRANT 1
  39 #endif
  40
  41 #include <pthread.h>
  42
  43 #if ((defined(_LIBOBJC) || defined(_LIBOBJC_WEAK)) \
  44      || !defined(_GTHREAD_USE_MUTEX_TIMEDLOCK))
  45 # include <unistd.h>
  46 # if defined(_POSIX_TIMEOUTS) && _POSIX_TIMEOUTS >= 0
  47 #  define _GTHREAD_USE_MUTEX_TIMEDLOCK 1
  48 # else
  49 #  define _GTHREAD_USE_MUTEX_TIMEDLOCK 0
  50 # endif
  51 #endif
  52
  53 typedef pthread_t __gthread_t;
  54 typedef pthread_key_t __gthread_key_t;
  55 typedef pthread_once_t __gthread_once_t;
  56 typedef pthread_mutex_t __gthread_mutex_t;
  57 typedef pthread_mutex_t __gthread_recursive_mutex_t;
  58 typedef pthread_cond_t __gthread_cond_t;
  59 typedef struct timespec __gthread_time_t;
  60
  61 /* POSIX like conditional variables are supported.  Please look at comments
  62    in gthr.h for details. */
  63 #define __GTHREAD_HAS_COND      1
  64
  65 #define __GTHREAD_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
  66 #define __GTHREAD_ONCE_INIT PTHREAD_ONCE_INIT
  67 #if defined(PTHREAD_RECURSIVE_MUTEX_INITIALIZER)
  68 #define __GTHREAD_RECURSIVE_MUTEX_INIT PTHREAD_RECURSIVE_MUTEX_INITIALIZER
  69 #elif defined(PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP)
  70 #define __GTHREAD_RECURSIVE_MUTEX_INIT PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP
  71 #else
  72 #define __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION __gthread_recursive_mutex_init_function
  73 #endif
  74 #define __GTHREAD_COND_INIT PTHREAD_COND_INITIALIZER
  75 #define __GTHREAD_TIME_INIT {0,0}
  76
  77 #ifdef _GTHREAD_USE_MUTEX_INIT_FUNC
  78 # undef __GTHREAD_MUTEX_INIT
  79 # define __GTHREAD_MUTEX_INIT_FUNCTION __gthread_mutex_init_function
  80 #endif
  81 #ifdef _GTHREAD_USE_RECURSIVE_MUTEX_INIT_FUNC
  82 # undef __GTHREAD_RECURSIVE_MUTEX_INIT
  83 # undef __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION
  84 # define __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION __gthread_recursive_mutex_init_function
  85 #endif
  86 #ifdef _GTHREAD_USE_COND_INIT_FUNC
  87 # undef __GTHREAD_COND_INIT
  88 # define __GTHREAD_COND_INIT_FUNCTION __gthread_cond_init_function
  89 #endif
  90
  91 #if SUPPORTS_WEAK && GTHREAD_USE_WEAK
  92 # ifndef __gthrw_pragma
  93 #  define __gthrw_pragma(pragma)
  94 # endif
  95 # define __gthrw2(name,name2,type) \
  96   static __typeof(type) name __attribute__ ((__weakref__(#name2))); \
  97   __gthrw_pragma(weak type)
  98 # define __gthrw_(name) __gthrw_ ## name
  99 #else
 100 # define __gthrw2(name,name2,type)
 101 # define __gthrw_(name) name
 102 #endif
 103
 104 /* Typically, __gthrw_foo is a weak reference to symbol foo.  */
 105 #define __gthrw(name) __gthrw2(__gthrw_ ## name,name,name)
 106
 107 /* On Tru64, /usr/include/pthread.h uses #pragma extern_prefix "__" to
 108    map a subset of the POSIX pthread API to mangled versions of their
 109    names.  */
 110 #if defined(__osf__) && defined(_PTHREAD_USE_MANGLED_NAMES_)
 111 #define __gthrw3(name) __gthrw2(__gthrw_ ## name, __ ## name, name)
 112 __gthrw3(pthread_once)
 113 __gthrw3(pthread_getspecific)
 114 __gthrw3(pthread_setspecific)
 115
 116 __gthrw3(pthread_create)
 117 __gthrw3(pthread_join)
 118 __gthrw3(pthread_detach)
 119 __gthrw3(pthread_equal)
 120 __gthrw3(pthread_self)
 121 __gthrw3(pthread_cancel)
 122 __gthrw3(sched_yield)
 123
 124 __gthrw3(pthread_mutex_lock)
 125 __gthrw3(pthread_mutex_trylock)
 126 #if _GTHREAD_USE_MUTEX_TIMEDLOCK
 127 __gthrw3(pthread_mutex_timedlock)
 128 #endif
 129 __gthrw3(pthread_mutex_unlock)
 130 __gthrw3(pthread_mutex_init)
 131 __gthrw3(pthread_mutex_destroy)
 132
 133 __gthrw3(pthread_cond_init)
 134 __gthrw3(pthread_cond_broadcast)
 135 __gthrw3(pthread_cond_signal)
 136 __gthrw3(pthread_cond_wait)
 137 __gthrw3(pthread_cond_timedwait)
 138 __gthrw3(pthread_cond_destroy)
 139 #else
 140 __gthrw(pthread_once)
 141 __gthrw(pthread_getspecific)
 142 __gthrw(pthread_setspecific)
 143
 144 __gthrw(pthread_create)
 145 __gthrw(pthread_join)
 146 __gthrw(pthread_equal)
 147 __gthrw(pthread_self)
 148 __gthrw(pthread_detach)
 149 #ifndef __BIONIC__
 150 __gthrw(pthread_cancel)
 151 #endif
 152 __gthrw(sched_yield)
 153
 154 __gthrw(pthread_mutex_lock)
 155 __gthrw(pthread_mutex_trylock)
 156 #if _GTHREAD_USE_MUTEX_TIMEDLOCK
 157 __gthrw(pthread_mutex_timedlock)
 158 #endif
 159 __gthrw(pthread_mutex_unlock)
 160 __gthrw(pthread_mutex_init)
 161 __gthrw(pthread_mutex_destroy)
 162
 163 __gthrw(pthread_cond_init)
 164 __gthrw(pthread_cond_broadcast)
 165 __gthrw(pthread_cond_signal)
 166 __gthrw(pthread_cond_wait)
 167 __gthrw(pthread_cond_timedwait)
 168 __gthrw(pthread_cond_destroy)
 169 #endif
 170
 171 __gthrw(pthread_key_create)
 172 __gthrw(pthread_key_delete)
 173 __gthrw(pthread_mutexattr_init)
 174 __gthrw(pthread_mutexattr_settype)
 175 __gthrw(pthread_mutexattr_destroy)
 176
 177
 178 #if defined(_LIBOBJC) || defined(_LIBOBJC_WEAK)
 179 /* Objective-C.  */
 180 #if defined(__osf__) && defined(_PTHREAD_USE_MANGLED_NAMES_)
 181 __gthrw3(pthread_exit)
 182 #else
 183 __gthrw(pthread_exit)
 184 #endif /* __osf__ && _PTHREAD_USE_MANGLED_NAMES_ */
 185 #ifdef _POSIX_PRIORITY_SCHEDULING
 186 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 187 __gthrw(sched_get_priority_max)
 188 __gthrw(sched_get_priority_min)
 189 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 190 #endif /* _POSIX_PRIORITY_SCHEDULING */
 191 __gthrw(pthread_attr_destroy)
 192 __gthrw(pthread_attr_init)
 193 __gthrw(pthread_attr_setdetachstate)
 194 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 195 __gthrw(pthread_getschedparam)
 196 __gthrw(pthread_setschedparam)
 197 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 198 #endif /* _LIBOBJC || _LIBOBJC_WEAK */
 199
 200 #if SUPPORTS_WEAK && GTHREAD_USE_WEAK
 201
 202 /* On Solaris 2.6 up to 9, the libc exposes a POSIX threads interface even if
 203    -pthreads is not specified.  The functions are dummies and most return an
 204    error value.  However pthread_once returns 0 without invoking the routine
 205    it is passed so we cannot pretend that the interface is active if -pthreads
 206    is not specified.  On Solaris 2.5.1, the interface is not exposed at all so
 207    we need to play the usual game with weak symbols.  On Solaris 10 and up, a
 208    working interface is always exposed.  On FreeBSD 6 and later, libc also
 209    exposes a dummy POSIX threads interface, similar to what Solaris 2.6 up
 210    to 9 does.  FreeBSD >= 700014 even provides a pthread_cancel stub in libc,
 211    which means the alternate __gthread_active_p below cannot be used there.  */
 212
 213 #if defined(__FreeBSD__) || (defined(__sun) && defined(__svr4__))
 214
 215 static volatile int __gthread_active = -1;
 216
 217 static void
 218 __gthread_trigger (void)
 219 {
 220   __gthread_active = 1;
 221 }
 222
 223 static inline int
 224 __gthread_active_p (void)
 225 {
 226   static pthread_mutex_t __gthread_active_mutex = PTHREAD_MUTEX_INITIALIZER;
 227   static pthread_once_t __gthread_active_once = PTHREAD_ONCE_INIT;
 228
 229   /* Avoid reading __gthread_active twice on the main code path.  */
 230   int __gthread_active_latest_value = __gthread_active;
 231
 232   /* This test is not protected to avoid taking a lock on the main code
 233      path so every update of __gthread_active in a threaded program must
 234      be atomic with regard to the result of the test.  */
 235   if (__builtin_expect (__gthread_active_latest_value < 0, 0))
 236     {
 237       if (__gthrw_(pthread_once))
 238         {
 239           /* If this really is a threaded program, then we must ensure that
 240              __gthread_active has been set to 1 before exiting this block.  */
 241           __gthrw_(pthread_mutex_lock) (&__gthread_active_mutex);
 242           __gthrw_(pthread_once) (&__gthread_active_once, __gthread_trigger);
 243           __gthrw_(pthread_mutex_unlock) (&__gthread_active_mutex);
 244         }
 245
 246       /* Make sure we'll never enter this block again.  */
 247       if (__gthread_active < 0)
 248         __gthread_active = 0;
 249
 250       __gthread_active_latest_value = __gthread_active;
 251     }
 252
 253   return __gthread_active_latest_value != 0;
 254 }
 255
 256 #else /* neither FreeBSD nor Solaris */
 257
 258 static inline int
 259 __gthread_active_p (void)
 260 {
 261 /* Android's C library does not provide pthread_cancel, check for
 262    `pthread_create' instead.  */
 263 #ifndef __BIONIC__
 264   static void *const __gthread_active_ptr
 265     = __extension__ (void *) &__gthrw_(pthread_cancel);
 266 #else
 267   static void *const __gthread_active_ptr
 268     = __extension__ (void *) &__gthrw_(pthread_create);
 269 #endif
 270   return __gthread_active_ptr != 0;
 271 }
 272
 273 #endif /* FreeBSD or Solaris */
 274
 275 #else /* not SUPPORTS_WEAK */
 276
 277 /* Similar to Solaris, HP-UX 11 for PA-RISC provides stubs for pthread
 278    calls in shared flavors of the HP-UX C library.  Most of the stubs
 279    have no functionality.  The details are described in the "libc cumulative
 280    patch" for each subversion of HP-UX 11.  There are two special interfaces
 281    provided for checking whether an application is linked to a shared pthread
 282    library or not.  However, these interfaces aren't available in early
 283    libpthread libraries.  We also need a test that works for archive
 284    libraries.  We can't use pthread_once as some libc versions call the
 285    init function.  We also can't use pthread_create or pthread_attr_init
 286    as these create a thread and thereby prevent changing the default stack
 287    size.  The function pthread_default_stacksize_np is available in both
 288    the archive and shared versions of libpthread.   It can be used to
 289    determine the default pthread stack size.  There is a stub in some
 290    shared libc versions which returns a zero size if pthreads are not
 291    active.  We provide an equivalent stub to handle cases where libc
 292    doesn't provide one.  */
 293
 294 #if defined(__hppa__) && defined(__hpux__)
 295
 296 static volatile int __gthread_active = -1;
 297
 298 static inline int
 299 __gthread_active_p (void)
 300 {
 301   /* Avoid reading __gthread_active twice on the main code path.  */
 302   int __gthread_active_latest_value = __gthread_active;
 303   size_t __s;
 304
 305   if (__builtin_expect (__gthread_active_latest_value < 0, 0))
 306     {
 307       pthread_default_stacksize_np (0, &__s);
 308       __gthread_active = __s ? 1 : 0;
 309       __gthread_active_latest_value = __gthread_active;
 310     }
 311
 312   return __gthread_active_latest_value != 0;
 313 }
 314
 315 #else /* not hppa-hpux */
 316
 317 static inline int
 318 __gthread_active_p (void)
 319 {
 320   return 1;
 321 }
 322
 323 #endif /* hppa-hpux */
 324
 325 #endif /* SUPPORTS_WEAK */
 326
 327 #ifdef _LIBOBJC
 328
 329 /* This is the config.h file in libobjc/ */
 330 #include <config.h>
 331
 332 #ifdef HAVE_SCHED_H
 333 # include <sched.h>
 334 #endif
 335
 336 /* Key structure for maintaining thread specific storage */
 337 static pthread_key_t _objc_thread_storage;
 338 static pthread_attr_t _objc_thread_attribs;
 339
 340 /* Thread local storage for a single thread */
 341 static void *thread_local_storage = NULL;
 342
 343 /* Backend initialization functions */
 344
 345 /* Initialize the threads subsystem.  */
 346 static inline int
 347 __gthread_objc_init_thread_system (void)
 348 {
 349   if (__gthread_active_p ())
 350     {
 351       /* Initialize the thread storage key.  */
 352       if (__gthrw_(pthread_key_create) (&_objc_thread_storage, NULL) == 0)
 353         {
 354           /* The normal default detach state for threads is
 355            * PTHREAD_CREATE_JOINABLE which causes threads to not die
 356            * when you think they should.  */
 357           if (__gthrw_(pthread_attr_init) (&_objc_thread_attribs) == 0
 358               && __gthrw_(pthread_attr_setdetachstate) (&_objc_thread_attribs,
 359                                               PTHREAD_CREATE_DETACHED) == 0)
 360             return 0;
 361         }
 362     }
 363
 364   return -1;
 365 }
 366
 367 /* Close the threads subsystem.  */
 368 static inline int
 369 __gthread_objc_close_thread_system (void)
 370 {
 371   if (__gthread_active_p ()
 372       && __gthrw_(pthread_key_delete) (_objc_thread_storage) == 0
 373       && __gthrw_(pthread_attr_destroy) (&_objc_thread_attribs) == 0)
 374     return 0;
 375
 376   return -1;
 377 }
 378
 379 /* Backend thread functions */
 380
 381 /* Create a new thread of execution.  */
 382 static inline objc_thread_t
 383 __gthread_objc_thread_detach (void (*func)(void *), void *arg)
 384 {
 385   objc_thread_t thread_id;
 386   pthread_t new_thread_handle;
 387
 388   if (!__gthread_active_p ())
 389     return NULL;
 390
 391   if (!(__gthrw_(pthread_create) (&new_thread_handle, &_objc_thread_attribs,
 392                                   (void *) func, arg)))
 393     thread_id = (objc_thread_t) new_thread_handle;
 394   else
 395     thread_id = NULL;
 396
 397   return thread_id;
 398 }
 399
 400 /* Set the current thread's priority.  */
 401 static inline int
 402 __gthread_objc_thread_set_priority (int priority)
 403 {
 404   if (!__gthread_active_p ())
 405     return -1;
 406   else
 407     {
 408 #ifdef _POSIX_PRIORITY_SCHEDULING
 409 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 410       pthread_t thread_id = __gthrw_(pthread_self) ();
 411       int policy;
 412       struct sched_param params;
 413       int priority_min, priority_max;
 414
 415       if (__gthrw_(pthread_getschedparam) (thread_id, &policy, &params) == 0)
 416         {
 417           if ((priority_max = __gthrw_(sched_get_priority_max) (policy)) == -1)
 418             return -1;
 419
 420           if ((priority_min = __gthrw_(sched_get_priority_min) (policy)) == -1)
 421             return -1;
 422
 423           if (priority > priority_max)
 424             priority = priority_max;
 425           else if (priority < priority_min)
 426             priority = priority_min;
 427           params.sched_priority = priority;
 428
 429           /*
 430            * The solaris 7 and several other man pages incorrectly state that
 431            * this should be a pointer to policy but pthread.h is universally
 432            * at odds with this.
 433            */
 434           if (__gthrw_(pthread_setschedparam) (thread_id, policy, &params) == 0)
 435             return 0;
 436         }
 437 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 438 #endif /* _POSIX_PRIORITY_SCHEDULING */
 439       return -1;
 440     }
 441 }
 442
 443 /* Return the current thread's priority.  */
 444 static inline int
 445 __gthread_objc_thread_get_priority (void)
 446 {
 447 #ifdef _POSIX_PRIORITY_SCHEDULING
 448 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 449   if (__gthread_active_p ())
 450     {
 451       int policy;
 452       struct sched_param params;
 453
 454       if (__gthrw_(pthread_getschedparam) (__gthrw_(pthread_self) (), &policy, &params) == 0)
 455         return params.sched_priority;
 456       else
 457         return -1;
 458     }
 459   else
 460 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 461 #endif /* _POSIX_PRIORITY_SCHEDULING */
 462     return OBJC_THREAD_INTERACTIVE_PRIORITY;
 463 }
 464
 465 /* Yield our process time to another thread.  */
 466 static inline void
 467 __gthread_objc_thread_yield (void)
 468 {
 469   if (__gthread_active_p ())
 470     __gthrw_(sched_yield) ();
 471 }
 472
 473 /* Terminate the current thread.  */
 474 static inline int
 475 __gthread_objc_thread_exit (void)
 476 {
 477   if (__gthread_active_p ())
 478     /* exit the thread */
 479     __gthrw_(pthread_exit) (&__objc_thread_exit_status);
 480
 481   /* Failed if we reached here */
 482   return -1;
 483 }
 484
 485 /* Returns an integer value which uniquely describes a thread.  */
 486 static inline objc_thread_t
 487 __gthread_objc_thread_id (void)
 488 {
 489   if (__gthread_active_p ())
 490     return (objc_thread_t) __gthrw_(pthread_self) ();
 491   else
 492     return (objc_thread_t) 1;
 493 }
 494
 495 /* Sets the thread's local storage pointer.  */
 496 static inline int
 497 __gthread_objc_thread_set_data (void *value)
 498 {
 499   if (__gthread_active_p ())
 500     return __gthrw_(pthread_setspecific) (_objc_thread_storage, value);
 501   else
 502     {
 503       thread_local_storage = value;
 504       return 0;
 505     }
 506 }
 507
 508 /* Returns the thread's local storage pointer.  */
 509 static inline void *
 510 __gthread_objc_thread_get_data (void)
 511 {
 512   if (__gthread_active_p ())
 513     return __gthrw_(pthread_getspecific) (_objc_thread_storage);
 514   else
 515     return thread_local_storage;
 516 }
 517
 518 /* Backend mutex functions */
 519
 520 /* Allocate a mutex.  */
 521 static inline int
 522 __gthread_objc_mutex_allocate (objc_mutex_t mutex)
 523 {
 524   if (__gthread_active_p ())
 525     {
 526       mutex->backend = objc_malloc (sizeof (pthread_mutex_t));
 527
 528       if (__gthrw_(pthread_mutex_init) ((pthread_mutex_t *) mutex->backend, NULL))
 529         {
 530           objc_free (mutex->backend);
 531           mutex->backend = NULL;
 532           return -1;
 533         }
 534     }
 535
 536   return 0;
 537 }
 538
 539 /* Deallocate a mutex.  */
 540 static inline int
 541 __gthread_objc_mutex_deallocate (objc_mutex_t mutex)
 542 {
 543   if (__gthread_active_p ())
 544     {
 545       int count;
 546
 547       /*
 548        * Posix Threads specifically require that the thread be unlocked
 549        * for __gthrw_(pthread_mutex_destroy) to work.
 550        */
 551
 552       do
 553         {
 554           count = __gthrw_(pthread_mutex_unlock) ((pthread_mutex_t *) mutex->backend);
 555           if (count < 0)
 556             return -1;
 557         }
 558       while (count);
 559
 560       if (__gthrw_(pthread_mutex_destroy) ((pthread_mutex_t *) mutex->backend))
 561         return -1;
 562
 563       objc_free (mutex->backend);
 564       mutex->backend = NULL;
 565     }
 566   return 0;
 567 }
 568
 569 /* Grab a lock on a mutex.  */
 570 static inline int
 571 __gthread_objc_mutex_lock (objc_mutex_t mutex)
 572 {
 573   if (__gthread_active_p ()
 574       && __gthrw_(pthread_mutex_lock) ((pthread_mutex_t *) mutex->backend) != 0)
 575     {
 576       return -1;
 577     }
 578
 579   return 0;
 580 }
 581
 582 /* Try to grab a lock on a mutex.  */
 583 static inline int
 584 __gthread_objc_mutex_trylock (objc_mutex_t mutex)
 585 {
 586   if (__gthread_active_p ()
 587       && __gthrw_(pthread_mutex_trylock) ((pthread_mutex_t *) mutex->backend) != 0)
 588     {
 589       return -1;
 590     }
 591
 592   return 0;
 593 }
 594
 595 /* Unlock the mutex */
 596 static inline int
 597 __gthread_objc_mutex_unlock (objc_mutex_t mutex)
 598 {
 599   if (__gthread_active_p ()
 600       && __gthrw_(pthread_mutex_unlock) ((pthread_mutex_t *) mutex->backend) != 0)
 601     {
 602       return -1;
 603     }
 604
 605   return 0;
 606 }
 607
 608 /* Backend condition mutex functions */
 609
 610 /* Allocate a condition.  */
 611 static inline int
 612 __gthread_objc_condition_allocate (objc_condition_t condition)
 613 {
 614   if (__gthread_active_p ())
 615     {
 616       condition->backend = objc_malloc (sizeof (pthread_cond_t));
 617
 618       if (__gthrw_(pthread_cond_init) ((pthread_cond_t *) condition->backend, NULL))
 619         {
 620           objc_free (condition->backend);
 621           condition->backend = NULL;
 622           return -1;
 623         }
 624     }
 625
 626   return 0;
 627 }
 628
 629 /* Deallocate a condition.  */
 630 static inline int
 631 __gthread_objc_condition_deallocate (objc_condition_t condition)
 632 {
 633   if (__gthread_active_p ())
 634     {
 635       if (__gthrw_(pthread_cond_destroy) ((pthread_cond_t *) condition->backend))
 636         return -1;
 637
 638       objc_free (condition->backend);
 639       condition->backend = NULL;
 640     }
 641   return 0;
 642 }
 643
 644 /* Wait on the condition */
 645 static inline int
 646 __gthread_objc_condition_wait (objc_condition_t condition, objc_mutex_t mutex)
 647 {
 648   if (__gthread_active_p ())
 649     return __gthrw_(pthread_cond_wait) ((pthread_cond_t *) condition->backend,
 650                               (pthread_mutex_t *) mutex->backend);
 651   else
 652     return 0;
 653 }
 654
 655 /* Wake up all threads waiting on this condition.  */
 656 static inline int
 657 __gthread_objc_condition_broadcast (objc_condition_t condition)
 658 {
 659   if (__gthread_active_p ())
 660     return __gthrw_(pthread_cond_broadcast) ((pthread_cond_t *) condition->backend);
 661   else
 662     return 0;
 663 }
 664
 665 /* Wake up one thread waiting on this condition.  */
 666 static inline int
 667 __gthread_objc_condition_signal (objc_condition_t condition)
 668 {
 669   if (__gthread_active_p ())
 670     return __gthrw_(pthread_cond_signal) ((pthread_cond_t *) condition->backend);
 671   else
 672     return 0;
 673 }
 674
 675 #else /* _LIBOBJC */
 676
 677 static inline int
 678 __gthread_create (__gthread_t *__threadid, void *(*__func) (void*),
 679                   void *__args)
 680 {
 681   return __gthrw_(pthread_create) (__threadid, NULL, __func, __args);
 682 }
 683
 684 static inline int
 685 __gthread_join (__gthread_t __threadid, void **__value_ptr)
 686 {
 687   return __gthrw_(pthread_join) (__threadid, __value_ptr);
 688 }
 689
 690 static inline int
 691 __gthread_detach (__gthread_t __threadid)
 692 {
 693   return __gthrw_(pthread_detach) (__threadid);
 694 }
 695
 696 static inline int
 697 __gthread_equal (__gthread_t __t1, __gthread_t __t2)
 698 {
 699   return __gthrw_(pthread_equal) (__t1, __t2);
 700 }
 701
 702 static inline __gthread_t
 703 __gthread_self (void)
 704 {
 705   return __gthrw_(pthread_self) ();
 706 }
 707
 708 static inline int
 709 __gthread_yield (void)
 710 {
 711   return __gthrw_(sched_yield) ();
 712 }
 713
 714 static inline int
 715 __gthread_once (__gthread_once_t *__once, void (*__func) (void))
 716 {
 717   if (__gthread_active_p ())
 718     return __gthrw_(pthread_once) (__once, __func);
 719   else
 720     return -1;
 721 }
 722
 723 static inline int
 724 __gthread_key_create (__gthread_key_t *__key, void (*__dtor) (void *))
 725 {
 726   return __gthrw_(pthread_key_create) (__key, __dtor);
 727 }
 728
 729 static inline int
 730 __gthread_key_delete (__gthread_key_t __key)
 731 {
 732   return __gthrw_(pthread_key_delete) (__key);
 733 }
 734
 735 static inline void *
 736 __gthread_getspecific (__gthread_key_t __key)
 737 {
 738   return __gthrw_(pthread_getspecific) (__key);
 739 }
 740
 741 static inline int
 742 __gthread_setspecific (__gthread_key_t __key, const void *__ptr)
 743 {
 744   return __gthrw_(pthread_setspecific) (__key, __ptr);
 745 }
 746
 747 #ifdef _GTHREAD_USE_MUTEX_INIT_FUNC
 748 static inline void
 749 __gthread_mutex_init_function (__gthread_mutex_t *__mutex)
 750 {
 751   if (__gthread_active_p ())
 752     __gthrw_(pthread_mutex_init) (__mutex, NULL);
 753 }
 754 #endif
 755
 756 static inline int
 757 __gthread_mutex_destroy (__gthread_mutex_t *__mutex)
 758 {
 759   if (__gthread_active_p ())
 760     return __gthrw_(pthread_mutex_destroy) (__mutex);
 761   else
 762     return 0;
 763 }
 764
 765 static inline int
 766 __gthread_mutex_lock (__gthread_mutex_t *__mutex)
 767 {
 768   if (__gthread_active_p ())
 769     return __gthrw_(pthread_mutex_lock) (__mutex);
 770   else
 771     return 0;
 772 }
 773
 774 static inline int
 775 __gthread_mutex_trylock (__gthread_mutex_t *__mutex)
 776 {
 777   if (__gthread_active_p ())
 778     return __gthrw_(pthread_mutex_trylock) (__mutex);
 779   else
 780     return 0;
 781 }
 782
 783 #if _GTHREAD_USE_MUTEX_TIMEDLOCK
 784 static inline int
 785 __gthread_mutex_timedlock (__gthread_mutex_t *__mutex,
 786                            const __gthread_time_t *__abs_timeout)
 787 {
 788   if (__gthread_active_p ())
 789     return __gthrw_(pthread_mutex_timedlock) (__mutex, __abs_timeout);
 790   else
 791     return 0;
 792 }
 793 #endif
 794
 795 static inline int
 796 __gthread_mutex_unlock (__gthread_mutex_t *__mutex)
 797 {
 798   if (__gthread_active_p ())
 799     return __gthrw_(pthread_mutex_unlock) (__mutex);
 800   else
 801     return 0;
 802 }
 803
 804 #if !defined( PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP) \
 805   || defined(_GTHREAD_USE_RECURSIVE_MUTEX_INIT_FUNC)
 806 static inline int
 807 __gthread_recursive_mutex_init_function (__gthread_recursive_mutex_t *__mutex)
 808 {
 809   if (__gthread_active_p ())
 810     {
 811       pthread_mutexattr_t __attr;
 812       int __r;
 813
 814       __r = __gthrw_(pthread_mutexattr_init) (&__attr);
 815       if (!__r)
 816         __r = __gthrw_(pthread_mutexattr_settype) (&__attr,
 817                                                    PTHREAD_MUTEX_RECURSIVE);
 818       if (!__r)
 819         __r = __gthrw_(pthread_mutex_init) (__mutex, &__attr);
 820       if (!__r)
 821         __r = __gthrw_(pthread_mutexattr_destroy) (&__attr);
 822       return __r;
 823     }
 824   return 0;
 825 }
 826 #endif
 827
 828 static inline int
 829 __gthread_recursive_mutex_lock (__gthread_recursive_mutex_t *__mutex)
 830 {
 831   return __gthread_mutex_lock (__mutex);
 832 }
 833
 834 static inline int
 835 __gthread_recursive_mutex_trylock (__gthread_recursive_mutex_t *__mutex)
 836 {
 837   return __gthread_mutex_trylock (__mutex);
 838 }
 839
 840 #if _GTHREAD_USE_MUTEX_TIMEDLOCK
 841 static inline int
 842 __gthread_recursive_mutex_timedlock (__gthread_recursive_mutex_t *__mutex,
 843                                      const __gthread_time_t *__abs_timeout)
 844 {
 845   return __gthread_mutex_timedlock (__mutex, __abs_timeout);
 846 }
 847 #endif
 848
 849 static inline int
 850 __gthread_recursive_mutex_unlock (__gthread_recursive_mutex_t *__mutex)
 851 {
 852   return __gthread_mutex_unlock (__mutex);
 853 }
 854
 855 #ifdef _GTHREAD_USE_COND_INIT_FUNC
 856 static inline void
 857 __gthread_cond_init_function (__gthread_cond_t *__cond)
 858 {
 859   if (__gthread_active_p ())
 860     __gthrw_(pthread_cond_init) (__cond, NULL);
 861 }
 862 #endif
 863
 864 static inline int
 865 __gthread_cond_broadcast (__gthread_cond_t *__cond)
 866 {
 867   return __gthrw_(pthread_cond_broadcast) (__cond);
 868 }
 869
 870 static inline int
 871 __gthread_cond_signal (__gthread_cond_t *__cond)
 872 {
 873   return __gthrw_(pthread_cond_signal) (__cond);
 874 }
 875
 876 static inline int
 877 __gthread_cond_wait (__gthread_cond_t *__cond, __gthread_mutex_t *__mutex)
 878 {
 879   return __gthrw_(pthread_cond_wait) (__cond, __mutex);
 880 }
 881
 882 static inline int
 883 __gthread_cond_timedwait (__gthread_cond_t *__cond, __gthread_mutex_t *__mutex,
 884                           const __gthread_time_t *__abs_timeout)
 885 {
 886   return __gthrw_(pthread_cond_timedwait) (__cond, __mutex, __abs_timeout);
 887 }
 888
 889 static inline int
 890 __gthread_cond_wait_recursive (__gthread_cond_t *__cond,
 891                                __gthread_recursive_mutex_t *__mutex)
 892 {
 893   return __gthread_cond_wait (__cond, __mutex);
 894 }
 895
 896 static inline int
 897 __gthread_cond_timedwait_recursive (__gthread_cond_t *__cond,
 898                                     __gthread_recursive_mutex_t *__mutex,
 899                                     const __gthread_time_t *__abs_timeout)
 900 {
 901   return __gthread_cond_timedwait (__cond, __mutex, __abs_timeout);
 902 }
 903
 904 static inline int
 905 __gthread_cond_destroy (__gthread_cond_t* __cond)
 906 {
 907   return __gthrw_(pthread_cond_destroy) (__cond);
 908 }
 909
 910 #endif /* _LIBOBJC */
 911
 912 #endif /* ! GCC_GTHR_POSIX_H */