ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenCL/xthread.h
Revision: 1.4
Committed: Tue Oct 22 17:25:38 2013 UTC (10 years, 8 months ago) by root
Content type: text/plain
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +8 -2 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 #ifndef XTHREAD_H_
2 #define XTHREAD_H_
3
4 /* whether word reads are potentially non-atomic.
5 * this is conservative, likely most arches this runs
6 * on have atomic word read/writes.
7 */
8 #ifndef WORDACCESS_UNSAFE
9 # if __i386 || __x86_64
10 # define WORDACCESS_UNSAFE 0
11 # else
12 # define WORDACCESS_UNSAFE 1
13 # endif
14 #endif
15
16 /////////////////////////////////////////////////////////////////////////////
17
18 #ifdef _WIN32
19
20 //#define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls, fails with mingw
21 #define _WIN32_WINNT 0x400 // maybe working alternative for mingw
22 #include <stdio.h>//D
23 #include <fcntl.h>
24 #include <io.h>
25 #include <time.h>
26 #include <winsock2.h>
27 #include <process.h>
28 #include <windows.h>
29
30 /* work around some bugs in ptw32 */
31 #if defined(__MINGW32__) && defined(_TIMESPEC_DEFINED)
32 #define HAVE_STRUCT_TIMESPEC 1
33 #endif
34
35 #include <pthread.h>
36 #define sigset_t int
37 #define sigfillset(a)
38 #define pthread_sigmask(a,b,c)
39 #define sigaddset(a,b)
40 #define sigemptyset(s)
41
42 typedef pthread_mutex_t xmutex_t;
43 #define X_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
44 #define X_MUTEX_CREATE(mutex) pthread_mutex_init (&(mutex), 0)
45 #define X_LOCK(mutex) pthread_mutex_lock (&(mutex))
46 #define X_UNLOCK(mutex) pthread_mutex_unlock (&(mutex))
47
48 typedef pthread_cond_t xcond_t;
49 #define X_COND_INIT PTHREAD_COND_INITIALIZER
50 #define X_COND_CREATE(cond) pthread_cond_init (&(cond), 0)
51 #define X_COND_SIGNAL(cond) pthread_cond_signal (&(cond))
52 #define X_COND_WAIT(cond,mutex) pthread_cond_wait (&(cond), &(mutex))
53 #define X_COND_TIMEDWAIT(cond,mutex,to) pthread_cond_timedwait (&(cond), &(mutex), &(to))
54
55 typedef pthread_t xthread_t;
56 #define X_THREAD_PROC(name) static void *name (void *thr_arg)
57 #define X_THREAD_ATFORK(a,b,c)
58
59 static int
60 xthread_create (xthread_t *tid, void *(*proc)(void *), void *arg)
61 {
62 int retval;
63 pthread_attr_t attr;
64
65 pthread_attr_init (&attr);
66 pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
67
68 retval = pthread_create (tid, &attr, proc, arg) == 0;
69
70 pthread_attr_destroy (&attr);
71
72 return retval;
73 }
74
75 #define respipe_read(a,b,c) PerlSock_recv ((a), (b), (c), 0)
76 #define respipe_write(a,b,c) send ((a), (b), (c), 0)
77 #define respipe_close(a) PerlSock_closesocket ((a))
78
79 #else
80 /////////////////////////////////////////////////////////////////////////////
81
82 #if __linux && !defined(_GNU_SOURCE)
83 # define _GNU_SOURCE
84 #endif
85
86 /* just in case */
87 #define _REENTRANT 1
88
89 #if __solaris
90 # define _POSIX_PTHREAD_SEMANTICS 1
91 /* try to bribe solaris headers into providing a current pthread API
92 * despite environment being configured for an older version.
93 */
94 # define __EXTENSIONS__ 1
95 #endif
96
97 #include <unistd.h>
98 #include <fcntl.h>
99 #include <signal.h>
100 #include <limits.h>
101 #include <pthread.h>
102
103 typedef pthread_mutex_t xmutex_t;
104 #if __linux && defined (PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP)
105 # define X_MUTEX_INIT PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP
106 # define X_MUTEX_CREATE(mutex) \
107 do { \
108 pthread_mutexattr_t attr; \
109 pthread_mutexattr_init (&attr); \
110 pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_ADAPTIVE_NP); \
111 pthread_mutex_init (&(mutex), &attr); \
112 } while (0)
113 #else
114 # define X_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
115 # define X_MUTEX_CREATE(mutex) pthread_mutex_init (&(mutex), 0)
116 #endif
117 #define X_LOCK(mutex) pthread_mutex_lock (&(mutex))
118 #define X_UNLOCK(mutex) pthread_mutex_unlock (&(mutex))
119
120 typedef pthread_cond_t xcond_t;
121 #define X_COND_INIT PTHREAD_COND_INITIALIZER
122 #define X_COND_CREATE(cond) pthread_cond_init (&(cond), 0)
123 #define X_COND_SIGNAL(cond) pthread_cond_signal (&(cond))
124 #define X_COND_WAIT(cond,mutex) pthread_cond_wait (&(cond), &(mutex))
125 #define X_COND_TIMEDWAIT(cond,mutex,to) pthread_cond_timedwait (&(cond), &(mutex), &(to))
126
127 typedef pthread_t xthread_t;
128 #define X_THREAD_PROC(name) static void *name (void *thr_arg)
129 #define X_THREAD_ATFORK(prepare,parent,child) pthread_atfork (prepare, parent, child)
130
131 // the broken bsd's once more
132 #ifndef PTHREAD_STACK_MIN
133 # define PTHREAD_STACK_MIN 0
134 #endif
135
136 #ifndef X_STACKSIZE
137 # define X_STACKSIZE sizeof (void *) * 4096
138 #endif
139
140 static int
141 xthread_create (xthread_t *tid, void *(*proc)(void *), void *arg)
142 {
143 int retval;
144 sigset_t fullsigset, oldsigset;
145 pthread_attr_t attr;
146
147 pthread_attr_init (&attr);
148 pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
149 pthread_attr_setstacksize (&attr, PTHREAD_STACK_MIN < X_STACKSIZE ? X_STACKSIZE : PTHREAD_STACK_MIN);
150 #ifdef PTHREAD_SCOPE_PROCESS
151 pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
152 #endif
153
154 sigfillset (&fullsigset);
155
156 pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
157 retval = pthread_create (tid, &attr, proc, arg) == 0;
158 pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
159
160 pthread_attr_destroy (&attr);
161
162 return retval;
163 }
164
165 #define respipe_read(a,b,c) read ((a), (b), (c))
166 #define respipe_write(a,b,c) write ((a), (b), (c))
167 #define respipe_close(a) close ((a))
168
169 #endif
170
171 #endif
172