1 /*
2 * Wine threading routines using the pthread library
3 *
4 * Copyright 2003 Alexandre Julliard
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #include "config.h"
22 #include "wine/port.h"
23
24 #include <assert.h>
25 #include <stdlib.h>
26 #include <signal.h>
27 #ifdef HAVE_UNISTD_H
28 # include <unistd.h>
29 #endif
30 #include <string.h>
31 #include <sys/types.h>
32 #ifdef HAVE_SYS_MMAN_H
33 #include <sys/mman.h>
34 #endif
35 #ifdef HAVE_MACH_MACH_H
36 #include <mach/mach.h>
37 #endif
38 #ifdef HAVE_SYS_THR_H
39 #include <sys/ucontext.h>
40 #include <sys/thr.h>
41 #endif
42
43 #include "wine/library.h"
44 #include "wine/pthread.h"
45
46 #ifdef HAVE_PTHREAD_H
47
48 static int init_done;
49 static int nb_threads = 1;
50
51 #if !defined(__i386__) && !defined(__x86_64__)
52 static pthread_key_t teb_key;
53 #endif
54
55 #if defined(__x86_64__) && defined(__linux__)
56 #include <asm/prctl.h>
57 extern int arch_prctl(int func, void *ptr);
58 #endif
59
60 /***********************************************************************
61 * init_process
62 *
63 * Initialization for a newly created process.
64 */
65 static void init_process( const struct wine_pthread_callbacks *callbacks, size_t size )
66 {
67 init_done = 1;
68 }
69
70
71 /***********************************************************************
72 * init_thread
73 *
74 * Initialization for a newly created thread.
75 */
76 static void init_thread( struct wine_pthread_thread_info *info )
77 {
78 /* retrieve the stack info (except for main thread) */
79 if (init_done)
80 {
81 #ifdef HAVE_PTHREAD_GETATTR_NP
82 pthread_attr_t attr;
83 pthread_getattr_np( pthread_self(), &attr );
84 pthread_attr_getstack( &attr, &info->stack_base, &info->stack_size );
85 pthread_attr_destroy( &attr );
86 #elif defined(HAVE_PTHREAD_ATTR_GET_NP)
87 pthread_attr_t attr;
88 pthread_attr_init( &attr );
89 pthread_attr_get_np( pthread_self(), &attr );
90 pthread_attr_getstack( &attr, &info->stack_base, &info->stack_size );
91 pthread_attr_destroy( &attr );
92 #elif defined(HAVE_PTHREAD_GET_STACKSIZE_NP) && defined(HAVE_PTHREAD_GET_STACKADDR_NP)
93 char dummy;
94 info->stack_size = pthread_get_stacksize_np(pthread_self());
95 info->stack_base = pthread_get_stackaddr_np(pthread_self());
96 /* if base is too large assume it's the top of the stack instead */
97 if ((char *)info->stack_base > &dummy)
98 info->stack_base = (char *)info->stack_base - info->stack_size;
99 #else
100 /* assume that the stack allocation is page aligned */
101 char dummy;
102 size_t page_size = getpagesize();
103 char *stack_top = (char *)((unsigned long)&dummy & ~(page_size - 1)) + page_size;
104 info->stack_base = stack_top - info->stack_size;
105 #endif
106 }
107 }
108
109
110 /***********************************************************************
111 * create_thread
112 */
113 static int create_thread( struct wine_pthread_thread_info *info )
114 {
115 pthread_t id;
116 pthread_attr_t attr;
117 int ret = 0;
118
119 pthread_attr_init( &attr );
120 pthread_attr_setstacksize( &attr, info->stack_size );
121 pthread_attr_setdetachstate( &attr, PTHREAD_CREATE_DETACHED );
122 pthread_attr_setscope( &attr, PTHREAD_SCOPE_SYSTEM ); /* force creating a kernel thread on Solaris */
123 interlocked_xchg_add( &nb_threads, 1 );
124 if (pthread_create( &id, &attr, (void * (*)(void *))info->entry, info ))
125 {
126 interlocked_xchg_add( &nb_threads, -1 );
127 ret = -1;
128 }
129 pthread_attr_destroy( &attr );
130 return ret;
131 }
132
133
134 /***********************************************************************
135 * init_current_teb
136 *
137 * Set the current TEB for a new thread.
138 */
139 static void init_current_teb( struct wine_pthread_thread_info *info )
140 {
141 #ifdef __i386__
142 /* On the i386, the current thread is in the %fs register */
143 LDT_ENTRY fs_entry;
144
145 wine_ldt_set_base( &fs_entry, info->teb_base );
146 wine_ldt_set_limit( &fs_entry, info->teb_size - 1 );
147 wine_ldt_set_flags( &fs_entry, WINE_LDT_FLAGS_DATA|WINE_LDT_FLAGS_32BIT );
148 wine_ldt_init_fs( info->teb_sel, &fs_entry );
149 #elif defined(__x86_64__)
150 /* On x86_64, it's in %gs */
151 # ifdef __linux__
152 arch_prctl(ARCH_SET_GS, info->teb_base);
153 # else
154 # error Please define setting %gs for your architecture
155 # endif
156 #else
157 if (!init_done) /* first thread */
158 pthread_key_create( &teb_key, NULL );
159 pthread_setspecific( teb_key, info->teb_base );
160 #endif
161
162 /* set pid and tid */
163 info->pid = getpid();
164 #ifdef __sun
165 info->tid = pthread_self(); /* this should return the lwp id on solaris */
166 #elif defined(__APPLE__)
167 info->tid = mach_thread_self();
168 #elif defined(__FreeBSD__)
169 {
170 long lwpid;
171 thr_self( &lwpid );
172 info->tid = (int) lwpid;
173 }
174 #else
175 info->tid = gettid();
176 #endif
177 }
178
179
180 /***********************************************************************
181 * get_current_teb
182 */
183 static void *get_current_teb(void)
184 {
185 #ifdef __i386__
186 void *ret;
187 __asm__( ".byte 0x64\n\tmovl 0x18,%0" : "=r" (ret) );
188 return ret;
189 #elif defined(__x86_64__)
190 void *ret;
191 __asm__( ".byte 0x65\n\tmovq 0x30,%0" : "=r" (ret) );
192 return ret;
193 #else
194 return pthread_getspecific( teb_key );
195 #endif
196 }
197
198
199 /***********************************************************************
200 * exit_thread
201 */
202 static void DECLSPEC_NORETURN exit_thread( struct wine_pthread_thread_info *info )
203 {
204 if (interlocked_xchg_add( &nb_threads, -1 ) <= 1) exit( info->exit_status );
205 wine_ldt_free_fs( info->teb_sel );
206 if (info->teb_size) munmap( info->teb_base, info->teb_size );
207 pthread_exit( (void *)info->exit_status );
208 }
209
210
211 /***********************************************************************
212 * abort_thread
213 */
214 static void DECLSPEC_NORETURN abort_thread( long status )
215 {
216 if (interlocked_xchg_add( &nb_threads, -1 ) <= 1) _exit( status );
217 pthread_exit( (void *)status );
218 }
219
220 #else /* HAVE_PTHREAD_H */
221
222 static void init_process( const struct wine_pthread_callbacks *callbacks, size_t size )
223 {
224 }
225
226 static void init_thread( struct wine_pthread_thread_info *info )
227 {
228 }
229
230 static int create_thread( struct wine_pthread_thread_info *info )
231 {
232 return -1;
233 }
234
235 static void init_current_teb( struct wine_pthread_thread_info *info )
236 {
237 }
238
239 static void *get_current_teb(void)
240 {
241 return NULL;
242 }
243
244 static void DECLSPEC_NORETURN exit_thread( struct wine_pthread_thread_info *info )
245 {
246 abort();
247 }
248
249 static void DECLSPEC_NORETURN abort_thread( long status )
250 {
251 abort();
252 }
253
254 static int pthread_sigmask( int how, const sigset_t *newset, sigset_t *oldset )
255 {
256 return -1;
257 }
258
259 #endif /* HAVE_PTHREAD_H */
260
261
262 /***********************************************************************
263 * pthread_functions
264 */
265 static const struct wine_pthread_functions pthread_functions =
266 {
267 init_process,
268 init_thread,
269 create_thread,
270 init_current_teb,
271 get_current_teb,
272 exit_thread,
273 abort_thread,
274 pthread_sigmask
275 };
276
277 void init_pthread_functions(void)
278 {
279 wine_pthread_set_functions( &pthread_functions, sizeof(pthread_functions) );
280 }
281
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.