libgcc/gthr-posix.h

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