1 /* Threads compatibility routines for libgcc2 and libobjc. */
2 /* Compile this one with gcc. */
3 /* Copyright (C) 1997, 1999, 2000, 2004 Free Software Foundation, Inc.
5 This file is part of GCC.
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
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
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
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. */
29 #ifndef GCC_GTHR_SOLARIS_H
30 #define GCC_GTHR_SOLARIS_H
32 /* Solaris threads as found in Solaris 2.[456].
33 Actually these are Unix International (UI) threads, but I don't
34 know if anyone else implements these. */
41 typedef thread_key_t __gthread_key_t
;
46 typedef mutex_t __gthread_mutex_t
;
52 } __gthread_recursive_mutex_t
;
54 #define __GTHREAD_ONCE_INIT { DEFAULTMUTEX, 0 }
55 #define __GTHREAD_MUTEX_INIT DEFAULTMUTEX
56 #define __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION __gthread_recursive_mutex_init_function
58 #if SUPPORTS_WEAK && GTHREAD_USE_WEAK
60 #pragma weak thr_keycreate
61 #pragma weak thr_getspecific
62 #pragma weak thr_setspecific
63 #pragma weak thr_create
65 #pragma weak mutex_lock
66 #pragma weak mutex_trylock
67 #pragma weak mutex_unlock
71 #pragma weak thr_keycreate
72 #pragma weak thr_getprio
74 #pragma weak thr_setprio
75 #pragma weak thr_yield
77 #pragma weak cond_init
78 #pragma weak cond_destroy
79 #pragma weak cond_wait
80 #pragma weak cond_broadcast
81 #pragma weak cond_signal
83 #pragma weak mutex_init
84 #pragma weak mutex_destroy
87 /* This will not actually work in Solaris 2.5, since libc contains
88 dummy symbols of all thr_* routines. */
91 __gthread_active_p (void)
93 static void *const __gthread_active_ptr
= (void *) &thr_create
;
94 return __gthread_active_ptr
!= 0;
97 #else /* not SUPPORTS_WEAK */
100 __gthread_active_p (void)
105 #endif /* SUPPORTS_WEAK */
109 /* Key structure for maintaining thread specific storage */
110 static thread_key_t _objc_thread_storage
;
112 /* Thread local storage for a single thread */
113 static void *thread_local_storage
= NULL
;
115 /* Backend initialization functions */
117 /* Initialize the threads subsystem. */
119 __gthread_objc_init_thread_system (void)
121 /* Initialize the thread storage key. */
122 if (__gthread_active_p ()
123 && thr_keycreate (&_objc_thread_storage
, NULL
) == 0)
129 /* Close the threads subsystem. */
131 __gthread_objc_close_thread_system (void)
133 if (__gthread_active_p ())
139 /* Backend thread functions */
141 /* Create a new thread of execution. */
142 static inline objc_thread_t
143 __gthread_objc_thread_detach (void (*func
)(void *), void *arg
)
145 objc_thread_t thread_id
;
146 thread_t new_thread_id
= 0;
148 if (!__gthread_active_p ())
151 if (thr_create (NULL
, 0, (void *) func
, arg
,
152 THR_DETACHED
| THR_NEW_LWP
,
153 &new_thread_id
) == 0)
154 thread_id
= *(objc_thread_t
*) &new_thread_id
;
161 /* Set the current thread's priority. */
163 __gthread_objc_thread_set_priority (int priority
)
165 int sys_priority
= 0;
167 if (!__gthread_active_p ())
172 case OBJC_THREAD_INTERACTIVE_PRIORITY
:
176 case OBJC_THREAD_BACKGROUND_PRIORITY
:
179 case OBJC_THREAD_LOW_PRIORITY
:
184 /* Change priority */
185 if (thr_setprio (thr_self (), sys_priority
) == 0)
191 /* Return the current thread's priority. */
193 __gthread_objc_thread_get_priority (void)
197 if (!__gthread_active_p ())
198 return OBJC_THREAD_INTERACTIVE_PRIORITY
;
200 if (thr_getprio (thr_self (), &sys_priority
) == 0)
202 if (sys_priority
>= 250)
203 return OBJC_THREAD_INTERACTIVE_PRIORITY
;
204 else if (sys_priority
>= 150)
205 return OBJC_THREAD_BACKGROUND_PRIORITY
;
206 return OBJC_THREAD_LOW_PRIORITY
;
209 /* Couldn't get priority. */
213 /* Yield our process time to another thread. */
215 __gthread_objc_thread_yield (void)
217 if (__gthread_active_p ())
221 /* Terminate the current thread. */
223 __gthread_objc_thread_exit (void)
225 if (__gthread_active_p ())
226 /* exit the thread */
227 thr_exit (&__objc_thread_exit_status
);
229 /* Failed if we reached here */
233 /* Returns an integer value which uniquely describes a thread. */
234 static inline objc_thread_t
235 __gthread_objc_thread_id (void)
237 if (__gthread_active_p ())
238 return (objc_thread_t
) thr_self ();
240 return (objc_thread_t
) 1;
243 /* Sets the thread's local storage pointer. */
245 __gthread_objc_thread_set_data (void *value
)
247 if (__gthread_active_p ())
249 if (thr_setspecific (_objc_thread_storage
, value
) == 0)
256 thread_local_storage
= value
;
261 /* Returns the thread's local storage pointer. */
263 __gthread_objc_thread_get_data (void)
267 if (__gthread_active_p ())
269 if (thr_getspecific (_objc_thread_storage
, &value
) == 0)
275 return thread_local_storage
;
278 /* Backend mutex functions */
280 /* Allocate a mutex. */
282 __gthread_objc_mutex_allocate (objc_mutex_t mutex
)
284 if (__gthread_active_p ()
285 && mutex_init ((mutex_t
*) (&(mutex
->backend
)), USYNC_THREAD
, 0))
291 /* Deallocate a mutex. */
293 __gthread_objc_mutex_deallocate (objc_mutex_t mutex
)
295 if (__gthread_active_p ())
296 mutex_destroy ((mutex_t
*) (&(mutex
->backend
)));
301 /* Grab a lock on a mutex. */
303 __gthread_objc_mutex_lock (objc_mutex_t mutex
)
305 if (__gthread_active_p ()
306 && mutex_lock ((mutex_t
*) (&(mutex
->backend
))) != 0)
312 /* Try to grab a lock on a mutex. */
314 __gthread_objc_mutex_trylock (objc_mutex_t mutex
)
316 if (__gthread_active_p ()
317 && mutex_trylock ((mutex_t
*) (&(mutex
->backend
))) != 0)
323 /* Unlock the mutex */
325 __gthread_objc_mutex_unlock (objc_mutex_t mutex
)
327 if (__gthread_active_p ()
328 && mutex_unlock ((mutex_t
*) (&(mutex
->backend
))) != 0)
334 /* Backend condition mutex functions */
336 /* Allocate a condition. */
338 __gthread_objc_condition_allocate (objc_condition_t condition
)
340 if (__gthread_active_p ())
341 return cond_init ((cond_t
*) (&(condition
->backend
)), USYNC_THREAD
,
347 /* Deallocate a condition. */
349 __gthread_objc_condition_deallocate (objc_condition_t condition
)
351 if (__gthread_active_p ())
352 return cond_destroy ((cond_t
*) (&(condition
->backend
)));
357 /* Wait on the condition */
359 __gthread_objc_condition_wait (objc_condition_t condition
, objc_mutex_t mutex
)
361 if (__gthread_active_p ())
362 return cond_wait ((cond_t
*) (&(condition
->backend
)),
363 (mutex_t
*) (&(mutex
->backend
)));
368 /* Wake up all threads waiting on this condition. */
370 __gthread_objc_condition_broadcast (objc_condition_t condition
)
372 if (__gthread_active_p ())
373 return cond_broadcast ((cond_t
*) (&(condition
->backend
)));
378 /* Wake up one thread waiting on this condition. */
380 __gthread_objc_condition_signal (objc_condition_t condition
)
382 if (__gthread_active_p ())
383 return cond_signal ((cond_t
*) (&(condition
->backend
)));
391 __gthread_once (__gthread_once_t
*once
, void (*func
) (void))
393 if (! __gthread_active_p ())
396 if (once
== 0 || func
== 0)
401 int status
= mutex_lock (&once
->mutex
);
409 mutex_unlock (&once
->mutex
);
415 __gthread_key_create (__gthread_key_t
*key
, void (*dtor
) (void *))
417 /* Solaris 2.5 contains thr_* routines no-op in libc, so test if we actually
418 got a reasonable key value, and if not, fail. */
419 *key
= (__gthread_key_t
)-1;
420 if (thr_keycreate (key
, dtor
) != 0 || *key
== (__gthread_key_t
)-1)
427 __gthread_key_delete (__gthread_key_t key
)
434 __gthread_getspecific (__gthread_key_t key
)
437 if (thr_getspecific (key
, &ptr
) == 0)
444 __gthread_setspecific (__gthread_key_t key
, const void *ptr
)
446 return thr_setspecific (key
, (void *) ptr
);
450 __gthread_mutex_lock (__gthread_mutex_t
*mutex
)
452 if (__gthread_active_p ())
453 return mutex_lock (mutex
);
459 __gthread_mutex_trylock (__gthread_mutex_t
*mutex
)
461 if (__gthread_active_p ())
462 return mutex_trylock (mutex
);
468 __gthread_mutex_unlock (__gthread_mutex_t
*mutex
)
470 if (__gthread_active_p ())
471 return mutex_unlock (mutex
);
477 __gthread_recursive_mutex_init_function (__gthread_recursive_mutex_t
*mutex
)
480 mutex
->owner
= (thread_t
) 0;
481 return mutex_init (&mutex
->actual
, USYNC_THREAD
, 0);
485 __gthread_recursive_mutex_lock (__gthread_recursive_mutex_t
*mutex
)
487 if (__gthread_active_p ())
489 thread_t me
= thr_self ();
491 if (mutex
->owner
!= me
)
493 mutex_lock (&mutex
->actual
);
503 __gthread_recursive_mutex_trylock (__gthread_recursive_mutex_t
*mutex
)
505 if (__gthread_active_p ())
507 thread_t me
= thr_self ();
509 if (mutex
->owner
!= me
)
511 if (mutex_trylock (&mutex
->actual
))
522 __gthread_recursive_mutex_unlock (__gthread_recursive_mutex_t
*mutex
)
524 if (__gthread_active_p ())
526 if (--mutex
->depth
== 0)
528 mutex
->owner
= (thread_t
) 0;
529 mutex_unlock (&mutex
->actual
);
535 #endif /* _LIBOBJC */
537 #endif /* ! GCC_GTHR_SOLARIS_H */