gcc/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 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 #include <unistd.h>
  43
  44 typedef pthread_t __gthread_t;
  45 typedef pthread_key_t __gthread_key_t;
  46 typedef pthread_once_t __gthread_once_t;
  47 typedef pthread_mutex_t __gthread_mutex_t;
  48 typedef pthread_mutex_t __gthread_recursive_mutex_t;
  49 typedef pthread_cond_t __gthread_cond_t;
  50 typedef struct timespec __gthread_time_t;
  51
  52 /* POSIX like conditional variables are supported.  Please look at comments
  53    in gthr.h for details. */
  54 #define __GTHREAD_HAS_COND      1
  55
  56 #define __GTHREAD_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
  57 #define __GTHREAD_ONCE_INIT PTHREAD_ONCE_INIT
  58 #if defined(PTHREAD_RECURSIVE_MUTEX_INITIALIZER)
  59 #define __GTHREAD_RECURSIVE_MUTEX_INIT PTHREAD_RECURSIVE_MUTEX_INITIALIZER
  60 #elif defined(PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP)
  61 #define __GTHREAD_RECURSIVE_MUTEX_INIT PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP
  62 #else
  63 #define __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION __gthread_recursive_mutex_init_function
  64 #endif
  65 #define __GTHREAD_COND_INIT PTHREAD_COND_INITIALIZER
  66 #define __GTHREAD_TIME_INIT {0,0}
  67
  68 #if SUPPORTS_WEAK && GTHREAD_USE_WEAK
  69 # ifndef __gthrw_pragma
  70 #  define __gthrw_pragma(pragma)
  71 # endif
  72 # define __gthrw2(name,name2,type) \
  73   static __typeof(type) name __attribute__ ((__weakref__(#name2))); \
  74   __gthrw_pragma(weak type)
  75 # define __gthrw_(name) __gthrw_ ## name
  76 #else
  77 # define __gthrw2(name,name2,type)
  78 # define __gthrw_(name) name
  79 #endif
  80
  81 /* Typically, __gthrw_foo is a weak reference to symbol foo.  */
  82 #define __gthrw(name) __gthrw2(__gthrw_ ## name,name,name)
  83
  84 /* On Tru64, /usr/include/pthread.h uses #pragma extern_prefix "__" to
  85    map a subset of the POSIX pthread API to mangled versions of their
  86    names.  */
  87 #if defined(__osf__) && defined(_PTHREAD_USE_MANGLED_NAMES_)
  88 #define __gthrw3(name) __gthrw2(__gthrw_ ## name, __ ## name, name)
  89 __gthrw3(pthread_once)
  90 __gthrw3(pthread_getspecific)
  91 __gthrw3(pthread_setspecific)
  92
  93 __gthrw3(pthread_create)
  94 __gthrw3(pthread_join)
  95 __gthrw3(pthread_detach)
  96 __gthrw3(pthread_equal)
  97 __gthrw3(pthread_self)
  98 __gthrw3(pthread_cancel)
  99 __gthrw3(sched_yield)
 100
 101 __gthrw3(pthread_mutex_lock)
 102 __gthrw3(pthread_mutex_trylock)
 103 #ifdef _POSIX_TIMEOUTS
 104 #if _POSIX_TIMEOUTS >= 0
 105 __gthrw3(pthread_mutex_timedlock)
 106 #endif
 107 #endif /* _POSIX_TIMEOUTS */
 108 __gthrw3(pthread_mutex_unlock)
 109 __gthrw3(pthread_mutex_init)
 110 __gthrw3(pthread_mutex_destroy)
 111
 112 __gthrw3(pthread_cond_broadcast)
 113 __gthrw3(pthread_cond_signal)
 114 __gthrw3(pthread_cond_wait)
 115 __gthrw3(pthread_cond_timedwait)
 116 __gthrw3(pthread_cond_destroy)
 117 #else
 118 __gthrw(pthread_once)
 119 __gthrw(pthread_getspecific)
 120 __gthrw(pthread_setspecific)
 121
 122 __gthrw(pthread_create)
 123 __gthrw(pthread_join)
 124 __gthrw(pthread_equal)
 125 __gthrw(pthread_self)
 126 __gthrw(pthread_detach)
 127 #ifndef __BIONIC__
 128 __gthrw(pthread_cancel)
 129 #endif
 130 __gthrw(sched_yield)
 131
 132 __gthrw(pthread_mutex_lock)
 133 __gthrw(pthread_mutex_trylock)
 134 #ifdef _POSIX_TIMEOUTS
 135 #if _POSIX_TIMEOUTS >= 0
 136 __gthrw(pthread_mutex_timedlock)
 137 #endif
 138 #endif /* _POSIX_TIMEOUTS */
 139 __gthrw(pthread_mutex_unlock)
 140 __gthrw(pthread_mutex_init)
 141 __gthrw(pthread_mutex_destroy)
 142
 143 __gthrw(pthread_cond_broadcast)
 144 __gthrw(pthread_cond_signal)
 145 __gthrw(pthread_cond_wait)
 146 __gthrw(pthread_cond_timedwait)
 147 __gthrw(pthread_cond_destroy)
 148 #endif
 149
 150 __gthrw(pthread_key_create)
 151 __gthrw(pthread_key_delete)
 152 __gthrw(pthread_mutexattr_init)
 153 __gthrw(pthread_mutexattr_settype)
 154 __gthrw(pthread_mutexattr_destroy)
 155
 156
 157 #if defined(_LIBOBJC) || defined(_LIBOBJC_WEAK)
 158 /* Objective-C.  */
 159 #if defined(__osf__) && defined(_PTHREAD_USE_MANGLED_NAMES_)
 160 __gthrw3(pthread_cond_init)
 161 __gthrw3(pthread_exit)
 162 #else
 163 __gthrw(pthread_cond_init)
 164 __gthrw(pthread_exit)
 165 #endif /* __osf__ && _PTHREAD_USE_MANGLED_NAMES_ */
 166 #ifdef _POSIX_PRIORITY_SCHEDULING
 167 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 168 __gthrw(sched_get_priority_max)
 169 __gthrw(sched_get_priority_min)
 170 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 171 #endif /* _POSIX_PRIORITY_SCHEDULING */
 172 __gthrw(pthread_attr_destroy)
 173 __gthrw(pthread_attr_init)
 174 __gthrw(pthread_attr_setdetachstate)
 175 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 176 __gthrw(pthread_getschedparam)
 177 __gthrw(pthread_setschedparam)
 178 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 179 #endif /* _LIBOBJC || _LIBOBJC_WEAK */
 180
 181 #if SUPPORTS_WEAK && GTHREAD_USE_WEAK
 182
 183 /* On Solaris 2.6 up to 9, the libc exposes a POSIX threads interface even if
 184    -pthreads is not specified.  The functions are dummies and most return an
 185    error value.  However pthread_once returns 0 without invoking the routine
 186    it is passed so we cannot pretend that the interface is active if -pthreads
 187    is not specified.  On Solaris 2.5.1, the interface is not exposed at all so
 188    we need to play the usual game with weak symbols.  On Solaris 10 and up, a
 189    working interface is always exposed.  On FreeBSD 6 and later, libc also
 190    exposes a dummy POSIX threads interface, similar to what Solaris 2.6 up
 191    to 9 does.  FreeBSD >= 700014 even provides a pthread_cancel stub in libc,
 192    which means the alternate __gthread_active_p below cannot be used there.  */
 193
 194 #if defined(__FreeBSD__) || (defined(__sun) && defined(__svr4__))
 195
 196 static volatile int __gthread_active = -1;
 197
 198 static void
 199 __gthread_trigger (void)
 200 {
 201   __gthread_active = 1;
 202 }
 203
 204 static inline int
 205 __gthread_active_p (void)
 206 {
 207   static pthread_mutex_t __gthread_active_mutex = PTHREAD_MUTEX_INITIALIZER;
 208   static pthread_once_t __gthread_active_once = PTHREAD_ONCE_INIT;
 209
 210   /* Avoid reading __gthread_active twice on the main code path.  */
 211   int __gthread_active_latest_value = __gthread_active;
 212
 213   /* This test is not protected to avoid taking a lock on the main code
 214      path so every update of __gthread_active in a threaded program must
 215      be atomic with regard to the result of the test.  */
 216   if (__builtin_expect (__gthread_active_latest_value < 0, 0))
 217     {
 218       if (__gthrw_(pthread_once))
 219         {
 220           /* If this really is a threaded program, then we must ensure that
 221              __gthread_active has been set to 1 before exiting this block.  */
 222           __gthrw_(pthread_mutex_lock) (&__gthread_active_mutex);
 223           __gthrw_(pthread_once) (&__gthread_active_once, __gthread_trigger);
 224           __gthrw_(pthread_mutex_unlock) (&__gthread_active_mutex);
 225         }
 226
 227       /* Make sure we'll never enter this block again.  */
 228       if (__gthread_active < 0)
 229         __gthread_active = 0;
 230
 231       __gthread_active_latest_value = __gthread_active;
 232     }
 233
 234   return __gthread_active_latest_value != 0;
 235 }
 236
 237 #else /* neither FreeBSD nor Solaris */
 238
 239 static inline int
 240 __gthread_active_p (void)
 241 {
 242   static void *const __gthread_active_ptr
 243     = __extension__ (void *) &__gthrw_(
 244 /* Android's C library does not provide pthread_cancel, check for
 245    `pthread_create' instead.  */
 246 #ifndef __BIONIC__
 247                                        pthread_cancel
 248 #else
 249                                        pthread_create
 250 #endif
 251                                        );
 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, NULL, (void *) func, arg)))
 374     thread_id = (objc_thread_t) new_thread_handle;
 375   else
 376     thread_id = NULL;
 377
 378   return thread_id;
 379 }
 380
 381 /* Set the current thread's priority.  */
 382 static inline int
 383 __gthread_objc_thread_set_priority (int priority)
 384 {
 385   if (!__gthread_active_p ())
 386     return -1;
 387   else
 388     {
 389 #ifdef _POSIX_PRIORITY_SCHEDULING
 390 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 391       pthread_t thread_id = __gthrw_(pthread_self) ();
 392       int policy;
 393       struct sched_param params;
 394       int priority_min, priority_max;
 395
 396       if (__gthrw_(pthread_getschedparam) (thread_id, &policy, &params) == 0)
 397         {
 398           if ((priority_max = __gthrw_(sched_get_priority_max) (policy)) == -1)
 399             return -1;
 400
 401           if ((priority_min = __gthrw_(sched_get_priority_min) (policy)) == -1)
 402             return -1;
 403
 404           if (priority > priority_max)
 405             priority = priority_max;
 406           else if (priority < priority_min)
 407             priority = priority_min;
 408           params.sched_priority = priority;
 409
 410           /*
 411            * The solaris 7 and several other man pages incorrectly state that
 412            * this should be a pointer to policy but pthread.h is universally
 413            * at odds with this.
 414            */
 415           if (__gthrw_(pthread_setschedparam) (thread_id, policy, &params) == 0)
 416             return 0;
 417         }
 418 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 419 #endif /* _POSIX_PRIORITY_SCHEDULING */
 420       return -1;
 421     }
 422 }
 423
 424 /* Return the current thread's priority.  */
 425 static inline int
 426 __gthread_objc_thread_get_priority (void)
 427 {
 428 #ifdef _POSIX_PRIORITY_SCHEDULING
 429 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
 430   if (__gthread_active_p ())
 431     {
 432       int policy;
 433       struct sched_param params;
 434
 435       if (__gthrw_(pthread_getschedparam) (__gthrw_(pthread_self) (), &policy, &params) == 0)
 436         return params.sched_priority;
 437       else
 438         return -1;
 439     }
 440   else
 441 #endif /* _POSIX_THREAD_PRIORITY_SCHEDULING */
 442 #endif /* _POSIX_PRIORITY_SCHEDULING */
 443     return OBJC_THREAD_INTERACTIVE_PRIORITY;
 444 }
 445
 446 /* Yield our process time to another thread.  */
 447 static inline void
 448 __gthread_objc_thread_yield (void)
 449 {
 450   if (__gthread_active_p ())
 451     __gthrw_(sched_yield) ();
 452 }
 453
 454 /* Terminate the current thread.  */
 455 static inline int
 456 __gthread_objc_thread_exit (void)
 457 {
 458   if (__gthread_active_p ())
 459     /* exit the thread */
 460     __gthrw_(pthread_exit) (&__objc_thread_exit_status);
 461
 462   /* Failed if we reached here */
 463   return -1;
 464 }
 465
 466 /* Returns an integer value which uniquely describes a thread.  */
 467 static inline objc_thread_t
 468 __gthread_objc_thread_id (void)
 469 {
 470   if (__gthread_active_p ())
 471     return (objc_thread_t) __gthrw_(pthread_self) ();
 472   else
 473     return (objc_thread_t) 1;
 474 }
 475
 476 /* Sets the thread's local storage pointer.  */
 477 static inline int
 478 __gthread_objc_thread_set_data (void *value)
 479 {
 480   if (__gthread_active_p ())
 481     return __gthrw_(pthread_setspecific) (_objc_thread_storage, value);
 482   else
 483     {
 484       thread_local_storage = value;
 485       return 0;
 486     }
 487 }
 488
 489 /* Returns the thread's local storage pointer.  */
 490 static inline void *
 491 __gthread_objc_thread_get_data (void)
 492 {
 493   if (__gthread_active_p ())
 494     return __gthrw_(pthread_getspecific) (_objc_thread_storage);
 495   else
 496     return thread_local_storage;
 497 }
 498
 499 /* Backend mutex functions */
 500
 501 /* Allocate a mutex.  */
 502 static inline int
 503 __gthread_objc_mutex_allocate (objc_mutex_t mutex)
 504 {
 505   if (__gthread_active_p ())
 506     {
 507       mutex->backend = objc_malloc (sizeof (pthread_mutex_t));
 508
 509       if (__gthrw_(pthread_mutex_init) ((pthread_mutex_t *) mutex->backend, NULL))
 510         {
 511           objc_free (mutex->backend);
 512           mutex->backend = NULL;
 513           return -1;
 514         }
 515     }
 516
 517   return 0;
 518 }
 519
 520 /* Deallocate a mutex.  */
 521 static inline int
 522 __gthread_objc_mutex_deallocate (objc_mutex_t mutex)
 523 {
 524   if (__gthread_active_p ())
 525     {
 526       int count;
 527
 528       /*
 529        * Posix Threads specifically require that the thread be unlocked
 530        * for __gthrw_(pthread_mutex_destroy) to work.
 531        */
 532
 533       do
 534         {
 535           count = __gthrw_(pthread_mutex_unlock) ((pthread_mutex_t *) mutex->backend);
 536           if (count < 0)
 537             return -1;
 538         }
 539       while (count);
 540
 541       if (__gthrw_(pthread_mutex_destroy) ((pthread_mutex_t *) mutex->backend))
 542         return -1;
 543
 544       objc_free (mutex->backend);
 545       mutex->backend = NULL;
 546     }
 547   return 0;
 548 }
 549
 550 /* Grab a lock on a mutex.  */
 551 static inline int
 552 __gthread_objc_mutex_lock (objc_mutex_t mutex)
 553 {
 554   if (__gthread_active_p ()
 555       && __gthrw_(pthread_mutex_lock) ((pthread_mutex_t *) mutex->backend) != 0)
 556     {
 557       return -1;
 558     }
 559
 560   return 0;
 561 }
 562
 563 /* Try to grab a lock on a mutex.  */
 564 static inline int
 565 __gthread_objc_mutex_trylock (objc_mutex_t mutex)
 566 {
 567   if (__gthread_active_p ()
 568       && __gthrw_(pthread_mutex_trylock) ((pthread_mutex_t *) mutex->backend) != 0)
 569     {
 570       return -1;
 571     }
 572
 573   return 0;
 574 }
 575
 576 /* Unlock the mutex */
 577 static inline int
 578 __gthread_objc_mutex_unlock (objc_mutex_t mutex)
 579 {
 580   if (__gthread_active_p ()
 581       && __gthrw_(pthread_mutex_unlock) ((pthread_mutex_t *) mutex->backend) != 0)
 582     {
 583       return -1;
 584     }
 585
 586   return 0;
 587 }
 588
 589 /* Backend condition mutex functions */
 590
 591 /* Allocate a condition.  */
 592 static inline int
 593 __gthread_objc_condition_allocate (objc_condition_t condition)
 594 {
 595   if (__gthread_active_p ())
 596     {
 597       condition->backend = objc_malloc (sizeof (pthread_cond_t));
 598
 599       if (__gthrw_(pthread_cond_init) ((pthread_cond_t *) condition->backend, NULL))
 600         {
 601           objc_free (condition->backend);
 602           condition->backend = NULL;
 603           return -1;
 604         }
 605     }
 606
 607   return 0;
 608 }
 609
 610 /* Deallocate a condition.  */
 611 static inline int
 612 __gthread_objc_condition_deallocate (objc_condition_t condition)
 613 {
 614   if (__gthread_active_p ())
 615     {
 616       if (__gthrw_(pthread_cond_destroy) ((pthread_cond_t *) condition->backend))
 617         return -1;
 618
 619       objc_free (condition->backend);
 620       condition->backend = NULL;
 621     }
 622   return 0;
 623 }
 624
 625 /* Wait on the condition */
 626 static inline int
 627 __gthread_objc_condition_wait (objc_condition_t condition, objc_mutex_t mutex)
 628 {
 629   if (__gthread_active_p ())
 630     return __gthrw_(pthread_cond_wait) ((pthread_cond_t *) condition->backend,
 631                               (pthread_mutex_t *) mutex->backend);
 632   else
 633     return 0;
 634 }
 635
 636 /* Wake up all threads waiting on this condition.  */
 637 static inline int
 638 __gthread_objc_condition_broadcast (objc_condition_t condition)
 639 {
 640   if (__gthread_active_p ())
 641     return __gthrw_(pthread_cond_broadcast) ((pthread_cond_t *) condition->backend);
 642   else
 643     return 0;
 644 }
 645
 646 /* Wake up one thread waiting on this condition.  */
 647 static inline int
 648 __gthread_objc_condition_signal (objc_condition_t condition)
 649 {
 650   if (__gthread_active_p ())
 651     return __gthrw_(pthread_cond_signal) ((pthread_cond_t *) condition->backend);
 652   else
 653     return 0;
 654 }
 655
 656 #else /* _LIBOBJC */
 657
 658 static inline int
 659 __gthread_create (__gthread_t *__threadid, void *(*__func) (void*),
 660                   void *__args)
 661 {
 662   return __gthrw_(pthread_create) (__threadid, NULL, __func, __args);
 663 }
 664
 665 static inline int
 666 __gthread_join (__gthread_t __threadid, void **__value_ptr)
 667 {
 668   return __gthrw_(pthread_join) (__threadid, __value_ptr);
 669 }
 670
 671 static inline int
 672 __gthread_detach (__gthread_t __threadid)
 673 {
 674   return __gthrw_(pthread_detach) (__threadid);
 675 }
 676
 677 static inline int
 678 __gthread_equal (__gthread_t __t1, __gthread_t __t2)
 679 {
 680   return __gthrw_(pthread_equal) (__t1, __t2);
 681 }
 682
 683 static inline __gthread_t
 684 __gthread_self (void)
 685 {
 686   return __gthrw_(pthread_self) ();
 687 }
 688
 689 static inline int
 690 __gthread_yield (void)
 691 {
 692   return __gthrw_(sched_yield) ();
 693 }
 694
 695 static inline int
 696 __gthread_once (__gthread_once_t *__once, void (*__func) (void))
 697 {
 698   if (__gthread_active_p ())
 699     return __gthrw_(pthread_once) (__once, __func);
 700   else
 701     return -1;
 702 }
 703
 704 static inline int
 705 __gthread_key_create (__gthread_key_t *__key, void (*__dtor) (void *))
 706 {
 707   return __gthrw_(pthread_key_create) (__key, __dtor);
 708 }
 709
 710 static inline int
 711 __gthread_key_delete (__gthread_key_t __key)
 712 {
 713   return __gthrw_(pthread_key_delete) (__key);
 714 }
 715
 716 static inline void *
 717 __gthread_getspecific (__gthread_key_t __key)
 718 {
 719   return __gthrw_(pthread_getspecific) (__key);
 720 }
 721
 722 static inline int
 723 __gthread_setspecific (__gthread_key_t __key, const void *__ptr)
 724 {
 725   return __gthrw_(pthread_setspecific) (__key, __ptr);
 726 }
 727
 728 static inline int
 729 __gthread_mutex_destroy (__gthread_mutex_t *__mutex)
 730 {
 731   if (__gthread_active_p ())
 732     return __gthrw_(pthread_mutex_destroy) (__mutex);
 733   else
 734     return 0;
 735 }
 736
 737 static inline int
 738 __gthread_mutex_lock (__gthread_mutex_t *__mutex)
 739 {
 740   if (__gthread_active_p ())
 741     return __gthrw_(pthread_mutex_lock) (__mutex);
 742   else
 743     return 0;
 744 }
 745
 746 static inline int
 747 __gthread_mutex_trylock (__gthread_mutex_t *__mutex)
 748 {
 749   if (__gthread_active_p ())
 750     return __gthrw_(pthread_mutex_trylock) (__mutex);
 751   else
 752     return 0;
 753 }
 754
 755 #ifdef _POSIX_TIMEOUTS
 756 #if _POSIX_TIMEOUTS >= 0
 757 static inline int
 758 __gthread_mutex_timedlock (__gthread_mutex_t *__mutex,
 759                            const __gthread_time_t *__abs_timeout)
 760 {
 761   if (__gthread_active_p ())
 762     return __gthrw_(pthread_mutex_timedlock) (__mutex, __abs_timeout);
 763   else
 764     return 0;
 765 }
 766 #endif
 767 #endif
 768
 769 static inline int
 770 __gthread_mutex_unlock (__gthread_mutex_t *__mutex)
 771 {
 772   if (__gthread_active_p ())
 773     return __gthrw_(pthread_mutex_unlock) (__mutex);
 774   else
 775     return 0;
 776 }
 777
 778 #ifndef PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP
 779 static inline int
 780 __gthread_recursive_mutex_init_function (__gthread_recursive_mutex_t *__mutex)
 781 {
 782   if (__gthread_active_p ())
 783     {
 784       pthread_mutexattr_t __attr;
 785       int __r;
 786
 787       __r = __gthrw_(pthread_mutexattr_init) (&__attr);
 788       if (!__r)
 789         __r = __gthrw_(pthread_mutexattr_settype) (&__attr,
 790                                                    PTHREAD_MUTEX_RECURSIVE);
 791       if (!__r)
 792         __r = __gthrw_(pthread_mutex_init) (__mutex, &__attr);
 793       if (!__r)
 794         __r = __gthrw_(pthread_mutexattr_destroy) (&__attr);
 795       return __r;
 796     }
 797   return 0;
 798 }
 799 #endif
 800
 801 static inline int
 802 __gthread_recursive_mutex_lock (__gthread_recursive_mutex_t *__mutex)
 803 {
 804   return __gthread_mutex_lock (__mutex);
 805 }
 806
 807 static inline int
 808 __gthread_recursive_mutex_trylock (__gthread_recursive_mutex_t *__mutex)
 809 {
 810   return __gthread_mutex_trylock (__mutex);
 811 }
 812
 813 #ifdef _POSIX_TIMEOUTS
 814 #if _POSIX_TIMEOUTS >= 0
 815 static inline int
 816 __gthread_recursive_mutex_timedlock (__gthread_recursive_mutex_t *__mutex,
 817                                      const __gthread_time_t *__abs_timeout)
 818 {
 819   return __gthread_mutex_timedlock (__mutex, __abs_timeout);
 820 }
 821 #endif
 822 #endif
 823
 824 static inline int
 825 __gthread_recursive_mutex_unlock (__gthread_recursive_mutex_t *__mutex)
 826 {
 827   return __gthread_mutex_unlock (__mutex);
 828 }
 829
 830 static inline int
 831 __gthread_cond_broadcast (__gthread_cond_t *__cond)
 832 {
 833   return __gthrw_(pthread_cond_broadcast) (__cond);
 834 }
 835
 836 static inline int
 837 __gthread_cond_signal (__gthread_cond_t *__cond)
 838 {
 839   return __gthrw_(pthread_cond_signal) (__cond);
 840 }
 841
 842 static inline int
 843 __gthread_cond_wait (__gthread_cond_t *__cond, __gthread_mutex_t *__mutex)
 844 {
 845   return __gthrw_(pthread_cond_wait) (__cond, __mutex);
 846 }
 847
 848 static inline int
 849 __gthread_cond_timedwait (__gthread_cond_t *__cond, __gthread_mutex_t *__mutex,
 850                           const __gthread_time_t *__abs_timeout)
 851 {
 852   return __gthrw_(pthread_cond_timedwait) (__cond, __mutex, __abs_timeout);
 853 }
 854
 855 static inline int
 856 __gthread_cond_wait_recursive (__gthread_cond_t *__cond,
 857                                __gthread_recursive_mutex_t *__mutex)
 858 {
 859   return __gthread_cond_wait (__cond, __mutex);
 860 }
 861
 862 static inline int
 863 __gthread_cond_timedwait_recursive (__gthread_cond_t *__cond,
 864                                     __gthread_recursive_mutex_t *__mutex,
 865                                     const __gthread_time_t *__abs_timeout)
 866 {
 867   return __gthread_cond_timedwait (__cond, __mutex, __abs_timeout);
 868 }
 869
 870 static inline int
 871 __gthread_cond_destroy (__gthread_cond_t* __cond)
 872 {
 873   return __gthrw_(pthread_cond_destroy) (__cond);
 874 }
 875
 876 #endif /* _LIBOBJC */
 877
 878 #endif /* ! GCC_GTHR_POSIX_H */