ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/BDB/xthread.h
(Generate patch)

Comparing BDB/xthread.h (file contents):
Revision 1.3 by root, Sun Jul 8 11:12:12 2007 UTC vs.
Revision 1.11 by root, Fri Jul 29 08:35:35 2011 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines