OSDN Git Service

fortran/
[pf3gnuchains/gcc-fork.git] / gcc / gthr-vxworks.h
1 /* Threads compatibility routines for libgcc2 and libobjc for VxWorks.  */
2 /* Compile this one with gcc.  */
3 /* Copyright (C) 1997, 1999, 2000 Free Software Foundation, Inc.
4    Contributed by Mike Stump <mrs@wrs.com>.
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 2, 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 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING.  If not, write to the Free
20 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
21 02110-1301, USA.  */
22
23 /* As a special exception, if you link this library with other files,
24    some of which are compiled with GCC, to produce an executable,
25    this library does not by itself cause the resulting executable
26    to be covered by the GNU General Public License.
27    This exception does not however invalidate any other reasons why
28    the executable file might be covered by the GNU General Public License.  */
29
30 #ifndef GCC_GTHR_VXWORKS_H
31 #define GCC_GTHR_VXWORKS_H
32
33 #ifdef _LIBOBJC
34
35 /* libobjc requires the optional pthreads component.  */
36 #include "gthr-posix.h"
37
38 #else
39
40 #define __GTHREADS 1
41 #define __gthread_active_p() 1
42
43 /* Mutexes are easy, except that they need to be initialized at runtime.  */
44
45 #include <semLib.h>
46
47 typedef SEM_ID __gthread_mutex_t;
48 /* All VxWorks mutexes are recursive.  */
49 typedef SEM_ID __gthread_recursive_mutex_t;
50 #define __GTHREAD_MUTEX_INIT_FUNCTION __gthread_mutex_init_function
51 #define __GTHREAD_RECURSIVE_MUTEX_INIT_FUNCTION __gthread_recursive_mutex_init_function
52
53 static inline void
54 __gthread_mutex_init_function (__gthread_mutex_t *mutex)
55 {
56   *mutex = semMCreate (SEM_Q_PRIORITY | SEM_INVERSION_SAFE | SEM_DELETE_SAFE);
57 }
58
59 static inline int
60 __gthread_mutex_lock (__gthread_mutex_t *mutex)
61 {
62   return semTake (*mutex, WAIT_FOREVER);
63 }
64
65 static inline int
66 __gthread_mutex_trylock (__gthread_mutex_t *mutex)
67 {
68   return semTake (*mutex, NO_WAIT);
69 }
70
71 static inline int
72 __gthread_mutex_unlock (__gthread_mutex_t *mutex)
73 {
74   return semGive (*mutex);
75 }
76
77 static inline void
78 __gthread_recursive_mutex_init_function (__gthread_recursive_mutex_t *mutex)
79 {
80   __gthread_mutex_init_function (mutex);
81 }
82
83 static inline int
84 __gthread_recursive_mutex_lock (__gthread_recursive_mutex_t *mutex)
85 {
86   return __gthread_mutex_lock (mutex);
87 }
88
89 static inline int
90 __gthread_recursive_mutex_trylock (__gthread_recursive_mutex_t *mutex)
91 {
92   return __gthread_mutex_trylock (mutex);
93 }
94
95 static inline int
96 __gthread_recursive_mutex_unlock (__gthread_recursive_mutex_t *mutex)
97 {
98   return __gthread_mutex_unlock (mutex);
99 }
100
101 /* pthread_once is complicated enough that it's implemented
102    out-of-line.  See config/vxlib.c.  */
103
104 typedef struct
105 {
106   volatile unsigned char busy;
107   volatile unsigned char done;
108 }
109 __gthread_once_t;
110
111 #define __GTHREAD_ONCE_INIT { 0, 0 }
112
113 extern int __gthread_once (__gthread_once_t *once, void (*func)(void));
114
115 /* Thread-specific data requires a great deal of effort, since VxWorks
116    is not really set up for it.  See config/vxlib.c for the gory
117    details.  All the TSD routines are sufficiently complex that they
118    need to be implemented out of line.  */
119
120 typedef unsigned int __gthread_key_t;
121
122 extern int __gthread_key_create (__gthread_key_t *keyp, void (*dtor)(void *));
123 extern int __gthread_key_delete (__gthread_key_t key);
124
125 extern void *__gthread_getspecific (__gthread_key_t key);
126 extern int __gthread_setspecific (__gthread_key_t key, void *ptr);
127
128 #endif /* not _LIBOBJC */
129
130 #endif /* gthr-vxworks.h */