gthr-solaris.h revision 50397 
1/* Threads compatibily routines for libgcc2.  */
2/* Compile this one with gcc.  */
3/* Copyright (C) 1997 Free Software Foundation, Inc.
4
5This file is part of GNU CC.
6
7GNU CC is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GNU CC is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU CC; see the file COPYING.  If not, write to
19the Free Software Foundation, 59 Temple Place - Suite 330,
20Boston, MA 02111-1307, USA.  */
21
22/* As a special exception, if you link this library with other files,
23   some of which are compiled with GCC, to produce an executable,
24   this library does not by itself cause the resulting executable
25   to be covered by the GNU General Public License.
26   This exception does not however invalidate any other reasons why
27   the executable file might be covered by the GNU General Public License.  */
28
29#ifndef __gthr_solaris_h
30#define __gthr_solaris_h
31
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. */
35
36#define __GTHREADS 1
37
38#include <thread.h>
39#include <errno.h>
40
41typedef thread_key_t __gthread_key_t;
42typedef struct
43{
44  mutex_t mutex;
45  int once;
46} __gthread_once_t;
47typedef mutex_t __gthread_mutex_t;
48
49#define __GTHREAD_ONCE_INIT { DEFAULTMUTEX, 0 }
50#define __GTHREAD_MUTEX_INIT DEFAULTMUTEX
51
52#if SUPPORTS_WEAK && GTHREAD_USE_WEAK
53
54#pragma weak thr_keycreate
55#pragma weak thr_getspecific
56#pragma weak thr_setspecific
57#pragma weak thr_create
58
59#pragma weak mutex_lock
60#pragma weak mutex_trylock
61#pragma weak mutex_unlock
62
63/* This will not actually work in Solaris 2.5, since libc contains
64   dummy symbols of all thr_* routines. */
65
66static void *__gthread_active_ptr = &thr_create;
67
68static inline int
69__gthread_active_p ()
70{
71  return __gthread_active_ptr != 0;
72}
73
74#else /* not SUPPORTS_WEAK */
75
76static inline int
77__gthread_active_p ()
78{
79  return 1;
80}
81
82#endif /* SUPPORTS_WEAK */
83
84static inline int
85__gthread_once (__gthread_once_t *once, void (*func) ())
86{
87  if (! __gthread_active_p ())
88    return -1;
89
90  if (once == 0 || func == 0)
91    return EINVAL;
92
93  if (once->once == 0)
94    {
95      int status = mutex_lock (&once->mutex);
96      if (status != 0)
97	return status;
98      if (once->once == 0)
99	{
100	  (*func) ();
101	  once->once ++;
102	}
103      mutex_unlock (&once->mutex);
104    }
105  return 0;
106}
107
108static inline int
109__gthread_key_create (__gthread_key_t *key, void (*dtor) (void *))
110{
111  /* Solaris 2.5 contains thr_* routines no-op in libc, so test if we actually
112     got a reasonable key value, and if not, fail. */
113  *key = -1;
114  if (thr_keycreate (key, dtor) != 0 || *key == -1)
115    return -1;
116  else
117    return 0;
118}
119
120static inline int
121__gthread_key_dtor (__gthread_key_t key, void *ptr)
122{
123  /* Nothing needed. */
124  return 0;
125}
126
127static inline int
128__gthread_key_delete (__gthread_key_t key)
129{
130  /* Not possible. */
131  return -1;
132}
133
134static inline void *
135__gthread_getspecific (__gthread_key_t key)
136{
137  void *ptr;
138  if (thr_getspecific (key, &ptr) == 0)
139    return ptr;
140  else
141    return 0;
142}
143
144static inline int
145__gthread_setspecific (__gthread_key_t key, const void *ptr)
146{
147  return thr_setspecific (key, (void *) ptr);
148}
149
150static inline int
151__gthread_mutex_lock (__gthread_mutex_t *mutex)
152{
153  if (__gthread_active_p ())
154    return mutex_lock (mutex);
155  else
156    return 0;
157}
158
159static inline int
160__gthread_mutex_trylock (__gthread_mutex_t *mutex)
161{
162  if (__gthread_active_p ())
163    return mutex_trylock (mutex);
164  else
165    return 0;
166}
167
168static inline int
169__gthread_mutex_unlock (__gthread_mutex_t *mutex)
170{
171  if (__gthread_active_p ())
172    return mutex_unlock (mutex);
173  else
174    return 0;
175}
176
177#endif /* not __gthr_solaris_h */
178