1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause
3 *
4 * Copyright (c) 2001 Daniel Eischen <deischen@FreeBSD.org>.
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY DANIEL EISCHEN AND CONTRIBUTORS ``AS IS''
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29 #include <signal.h>
30 #include <pthread.h>
31 #include <stdlib.h>
32 #include <errno.h>
33
34 #include "libc_private.h"
35
36 /*
37 * Weak symbols: All libc internal usage of these functions should
38 * use the weak symbol versions (_pthread_XXX). If libpthread is
39 * linked, it will override these functions with (non-weak) routines.
40 * The _pthread_XXX functions are provided solely for internal libc
41 * usage to avoid unwanted cancellation points and to differentiate
42 * between application locks and libc locks (threads holding the
43 * latter can't be allowed to exit/terminate).
44 */
45
46 /* Define a null pthread structure just to satisfy _pthread_self. */
47 struct pthread {
48 };
49
50 static struct pthread main_thread;
51
52 static int stub_main(void);
53 static void stub_void(void);
54 static void *stub_null(void);
55 static struct pthread *stub_self(void);
56 static int stub_zero(void);
57 static int stub_fail(void);
58 static int stub_true(void);
59 static void stub_exit(void);
60 static int stub_esrch(void);
61 static int stub_getname_np(pthread_t, char *, size_t);
62
63 #define PJT_DUAL_ENTRY(entry) \
64 (pthread_func_t)entry, (pthread_func_t)entry
65
66 pthread_func_entry_t __thr_jtable[PJT_MAX] = {
67 [PJT_ATFORK] = {PJT_DUAL_ENTRY(stub_zero)},
68 [PJT_ATTR_DESTROY] = {PJT_DUAL_ENTRY(stub_zero)},
69 [PJT_ATTR_GETDETACHSTATE] = {PJT_DUAL_ENTRY(stub_zero)},
70 [PJT_ATTR_GETGUARDSIZE] = {PJT_DUAL_ENTRY(stub_zero)},
71 [PJT_ATTR_GETINHERITSCHED] = {PJT_DUAL_ENTRY(stub_zero)},
72 [PJT_ATTR_GETSCHEDPARAM] = {PJT_DUAL_ENTRY(stub_zero)},
73 [PJT_ATTR_GETSCHEDPOLICY] = {PJT_DUAL_ENTRY(stub_zero)},
74 [PJT_ATTR_GETSCOPE] = {PJT_DUAL_ENTRY(stub_zero)},
75 [PJT_ATTR_GETSTACKADDR] = {PJT_DUAL_ENTRY(stub_zero)},
76 [PJT_ATTR_GETSTACKSIZE] = {PJT_DUAL_ENTRY(stub_zero)},
77 [PJT_ATTR_INIT] = {PJT_DUAL_ENTRY(stub_zero)},
78 [PJT_ATTR_SETDETACHSTATE] = {PJT_DUAL_ENTRY(stub_zero)},
79 [PJT_ATTR_SETGUARDSIZE] = {PJT_DUAL_ENTRY(stub_zero)},
80 [PJT_ATTR_SETINHERITSCHED] = {PJT_DUAL_ENTRY(stub_zero)},
81 [PJT_ATTR_SETSCHEDPARAM] = {PJT_DUAL_ENTRY(stub_zero)},
82 [PJT_ATTR_SETSCHEDPOLICY] = {PJT_DUAL_ENTRY(stub_zero)},
83 [PJT_ATTR_SETSCOPE] = {PJT_DUAL_ENTRY(stub_zero)},
84 [PJT_ATTR_SETSTACKADDR] = {PJT_DUAL_ENTRY(stub_zero)},
85 [PJT_ATTR_SETSTACKSIZE] = {PJT_DUAL_ENTRY(stub_zero)},
86 [PJT_CANCEL] = {PJT_DUAL_ENTRY(stub_zero)},
87 [PJT_CLEANUP_POP] = {PJT_DUAL_ENTRY(stub_zero)},
88 [PJT_CLEANUP_PUSH] = {PJT_DUAL_ENTRY(stub_zero)},
89 [PJT_COND_BROADCAST] = {PJT_DUAL_ENTRY(stub_zero)},
90 [PJT_COND_DESTROY] = {PJT_DUAL_ENTRY(stub_zero)},
91 [PJT_COND_INIT] = {PJT_DUAL_ENTRY(stub_zero)},
92 [PJT_COND_SIGNAL] = {PJT_DUAL_ENTRY(stub_zero)},
93 [PJT_COND_TIMEDWAIT] = {PJT_DUAL_ENTRY(stub_zero)},
94 [PJT_COND_WAIT] = {PJT_DUAL_ENTRY(stub_zero)},
95 [PJT_DETACH] = {PJT_DUAL_ENTRY(stub_zero)},
96 [PJT_EQUAL] = {PJT_DUAL_ENTRY(stub_true)},
97 [PJT_EXIT] = {PJT_DUAL_ENTRY(stub_exit)},
98 [PJT_GETSPECIFIC] = {PJT_DUAL_ENTRY(stub_null)},
99 [PJT_JOIN] = {PJT_DUAL_ENTRY(stub_zero)},
100 [PJT_KEY_CREATE] = {PJT_DUAL_ENTRY(stub_fail)},
101 [PJT_KEY_DELETE] = {PJT_DUAL_ENTRY(stub_zero)},
102 [PJT_KILL] = {PJT_DUAL_ENTRY(stub_zero)},
103 [PJT_MAIN_NP] = {PJT_DUAL_ENTRY(stub_main)},
104 [PJT_MUTEXATTR_DESTROY] = {PJT_DUAL_ENTRY(stub_zero)},
105 [PJT_MUTEXATTR_INIT] = {PJT_DUAL_ENTRY(stub_zero)},
106 [PJT_MUTEXATTR_SETTYPE] = {PJT_DUAL_ENTRY(stub_zero)},
107 [PJT_MUTEX_DESTROY] = {PJT_DUAL_ENTRY(stub_zero)},
108 [PJT_MUTEX_INIT] = {PJT_DUAL_ENTRY(stub_zero)},
109 [PJT_MUTEX_LOCK] = {PJT_DUAL_ENTRY(stub_zero)},
110 [PJT_MUTEX_TRYLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
111 [PJT_MUTEX_UNLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
112 [PJT_ONCE] = {PJT_DUAL_ENTRY(stub_fail)},
113 [PJT_RWLOCK_DESTROY] = {PJT_DUAL_ENTRY(stub_zero)},
114 [PJT_RWLOCK_INIT] = {PJT_DUAL_ENTRY(stub_zero)},
115 [PJT_RWLOCK_RDLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
116 [PJT_RWLOCK_TRYRDLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
117 [PJT_RWLOCK_TRYWRLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
118 [PJT_RWLOCK_UNLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
119 [PJT_RWLOCK_WRLOCK] = {PJT_DUAL_ENTRY(stub_zero)},
120 [PJT_SELF] = {PJT_DUAL_ENTRY(stub_self)},
121 [PJT_SETCANCELSTATE] = {PJT_DUAL_ENTRY(stub_zero)},
122 [PJT_SETCANCELTYPE] = {PJT_DUAL_ENTRY(stub_zero)},
123 [PJT_SETSPECIFIC] = {PJT_DUAL_ENTRY(stub_zero)},
124 [PJT_SIGMASK] = {PJT_DUAL_ENTRY(stub_zero)},
125 [PJT_TESTCANCEL] = {PJT_DUAL_ENTRY(stub_zero)},
126 [PJT_CLEANUP_POP_IMP] = {PJT_DUAL_ENTRY(stub_zero)},
127 [PJT_CLEANUP_PUSH_IMP] = {PJT_DUAL_ENTRY(stub_zero)},
128 [PJT_CANCEL_ENTER] = {PJT_DUAL_ENTRY(stub_zero)},
129 [PJT_CANCEL_LEAVE] = {PJT_DUAL_ENTRY(stub_zero)},
130 [PJT_MUTEX_CONSISTENT] = {PJT_DUAL_ENTRY(stub_zero)},
131 [PJT_MUTEXATTR_GETROBUST] = {PJT_DUAL_ENTRY(stub_zero)},
132 [PJT_MUTEXATTR_SETROBUST] = {PJT_DUAL_ENTRY(stub_zero)},
133 [PJT_GETTHREADID_NP] = {PJT_DUAL_ENTRY(stub_zero)},
134 [PJT_ATTR_GET_NP] = {PJT_DUAL_ENTRY(stub_esrch)},
135 [PJT_GETNAME_NP] = {PJT_DUAL_ENTRY(stub_getname_np)},
136 [PJT_SUSPEND_ALL_NP] = {PJT_DUAL_ENTRY(stub_void)},
137 [PJT_RESUME_ALL_NP] = {PJT_DUAL_ENTRY(stub_void)},
138 };
139
140 /*
141 * Weak aliases for exported (pthread_*) and internal (_pthread_*) routines.
142 */
143 #define WEAK_REF(sym, alias) __weak_reference(sym, alias)
144
145 #define FUNC_TYPE(name) __CONCAT(name, _func_t)
146 #define FUNC_INT(name) __CONCAT(name, _int)
147 #define FUNC_EXP(name) __CONCAT(name, _exp)
148
149 #define STUB_FUNC(name, idx, ret) \
150 static ret FUNC_EXP(name)(void) __used; \
151 static ret FUNC_INT(name)(void) __used; \
152 WEAK_REF(FUNC_EXP(name), name); \
153 WEAK_REF(FUNC_INT(name), __CONCAT(_, name)); \
154 typedef ret (*FUNC_TYPE(name))(void); \
155 static ret FUNC_EXP(name)(void) \
156 { \
157 FUNC_TYPE(name) func; \
158 func = (FUNC_TYPE(name))__thr_jtable[idx][0]; \
159 return (func()); \
160 } \
161 static ret FUNC_INT(name)(void) \
162 { \
163 FUNC_TYPE(name) func; \
164 func = (FUNC_TYPE(name))__thr_jtable[idx][1]; \
165 return (func()); \
166 }
167
168 #define STUB_FUNC1(name, idx, ret, p0_type) \
169 static ret FUNC_EXP(name)(p0_type) __used; \
170 static ret FUNC_INT(name)(p0_type) __used; \
171 WEAK_REF(FUNC_EXP(name), name); \
172 WEAK_REF(FUNC_INT(name), __CONCAT(_, name)); \
173 typedef ret (*FUNC_TYPE(name))(p0_type); \
174 static ret FUNC_EXP(name)(p0_type p0) \
175 { \
176 FUNC_TYPE(name) func; \
177 func = (FUNC_TYPE(name))__thr_jtable[idx][0]; \
178 return (func(p0)); \
179 } \
180 static ret FUNC_INT(name)(p0_type p0) \
181 { \
182 FUNC_TYPE(name) func; \
183 func = (FUNC_TYPE(name))__thr_jtable[idx][1]; \
184 return (func(p0)); \
185 }
186
187 #define STUB_FUNC2(name, idx, ret, p0_type, p1_type) \
188 static ret FUNC_EXP(name)(p0_type, p1_type) __used; \
189 static ret FUNC_INT(name)(p0_type, p1_type) __used; \
190 WEAK_REF(FUNC_EXP(name), name); \
191 WEAK_REF(FUNC_INT(name), __CONCAT(_, name)); \
192 typedef ret (*FUNC_TYPE(name))(p0_type, p1_type); \
193 static ret FUNC_EXP(name)(p0_type p0, p1_type p1) \
194 { \
195 FUNC_TYPE(name) func; \
196 func = (FUNC_TYPE(name))__thr_jtable[idx][0]; \
197 return (func(p0, p1)); \
198 } \
199 static ret FUNC_INT(name)(p0_type p0, p1_type p1) \
200 { \
201 FUNC_TYPE(name) func; \
202 func = (FUNC_TYPE(name))__thr_jtable[idx][1]; \
203 return (func(p0, p1)); \
204 }
205
206 #define STUB_FUNC3(name, idx, ret, p0_type, p1_type, p2_type) \
207 static ret FUNC_EXP(name)(p0_type, p1_type, p2_type) __used; \
208 static ret FUNC_INT(name)(p0_type, p1_type, p2_type) __used; \
209 WEAK_REF(FUNC_EXP(name), name); \
210 WEAK_REF(FUNC_INT(name), __CONCAT(_, name)); \
211 typedef ret (*FUNC_TYPE(name))(p0_type, p1_type, p2_type); \
212 static ret FUNC_EXP(name)(p0_type p0, p1_type p1, p2_type p2) \
213 { \
214 FUNC_TYPE(name) func; \
215 func = (FUNC_TYPE(name))__thr_jtable[idx][0]; \
216 return (func(p0, p1, p2)); \
217 } \
218 static ret FUNC_INT(name)(p0_type p0, p1_type p1, p2_type p2) \
219 { \
220 FUNC_TYPE(name) func; \
221 func = (FUNC_TYPE(name))__thr_jtable[idx][1]; \
222 return (func(p0, p1, p2)); \
223 }
224
225 STUB_FUNC1(pthread_cond_broadcast, PJT_COND_BROADCAST, int, void *)
226 STUB_FUNC1(pthread_cond_destroy, PJT_COND_DESTROY, int, void *)
227 STUB_FUNC2(pthread_cond_init, PJT_COND_INIT, int, void *, void *)
228 STUB_FUNC1(pthread_cond_signal, PJT_COND_SIGNAL, int, void *)
229 STUB_FUNC2(pthread_cond_wait, PJT_COND_WAIT, int, void *, void *)
230 STUB_FUNC1(pthread_getspecific, PJT_GETSPECIFIC, void *, pthread_key_t)
231 STUB_FUNC2(pthread_key_create, PJT_KEY_CREATE, int, void *, void *)
232 STUB_FUNC1(pthread_key_delete, PJT_KEY_DELETE, int, pthread_key_t)
233 STUB_FUNC(pthread_main_np, PJT_MAIN_NP, int)
234 STUB_FUNC1(pthread_mutex_destroy, PJT_MUTEX_DESTROY, int, void *)
235 STUB_FUNC2(pthread_mutex_init, PJT_MUTEX_INIT, int, void *, void *)
236 STUB_FUNC1(pthread_mutex_lock, PJT_MUTEX_LOCK, int, void *)
237 STUB_FUNC1(pthread_mutex_trylock, PJT_MUTEX_TRYLOCK, int, void *)
238 STUB_FUNC1(pthread_mutex_unlock, PJT_MUTEX_UNLOCK, int, void *)
239 STUB_FUNC1(pthread_mutex_consistent, PJT_MUTEX_CONSISTENT, int, void *)
240 STUB_FUNC1(pthread_mutexattr_destroy, PJT_MUTEXATTR_DESTROY, int, void *)
241 STUB_FUNC1(pthread_mutexattr_init, PJT_MUTEXATTR_INIT, int, void *)
242 STUB_FUNC2(pthread_mutexattr_settype, PJT_MUTEXATTR_SETTYPE, int, void *, int)
243 STUB_FUNC2(pthread_mutexattr_getrobust, PJT_MUTEXATTR_GETROBUST, int, void *,
244 int *)
245 STUB_FUNC2(pthread_mutexattr_setrobust, PJT_MUTEXATTR_SETROBUST, int, void *,
246 int)
247 STUB_FUNC2(pthread_once, PJT_ONCE, int, void *, void *)
248 STUB_FUNC1(pthread_rwlock_destroy, PJT_RWLOCK_DESTROY, int, void *)
249 STUB_FUNC2(pthread_rwlock_init, PJT_RWLOCK_INIT, int, void *, void *)
250 STUB_FUNC1(pthread_rwlock_rdlock, PJT_RWLOCK_RDLOCK, int, void *)
251 STUB_FUNC1(pthread_rwlock_tryrdlock, PJT_RWLOCK_TRYRDLOCK, int, void *)
252 STUB_FUNC1(pthread_rwlock_trywrlock, PJT_RWLOCK_TRYWRLOCK, int, void *)
253 STUB_FUNC1(pthread_rwlock_unlock, PJT_RWLOCK_UNLOCK, int, void *)
254 STUB_FUNC1(pthread_rwlock_wrlock, PJT_RWLOCK_WRLOCK, int, void *)
255 STUB_FUNC(pthread_self, PJT_SELF, pthread_t)
256 STUB_FUNC(pthread_getthreadid_np, PJT_GETTHREADID_NP, int)
257 STUB_FUNC2(pthread_setspecific, PJT_SETSPECIFIC, int, pthread_key_t, void *)
258 STUB_FUNC3(pthread_sigmask, PJT_SIGMASK, int, int, void *, void *)
259 STUB_FUNC3(pthread_atfork, PJT_ATFORK, int, void *, void *, void*)
260 STUB_FUNC1(pthread_attr_destroy, PJT_ATTR_DESTROY, int, void *);
261 STUB_FUNC2(pthread_attr_getdetachstate, PJT_ATTR_GETDETACHSTATE, int, void *, void *)
262 STUB_FUNC2(pthread_attr_getguardsize, PJT_ATTR_GETGUARDSIZE, int, void *, void *)
263 STUB_FUNC2(pthread_attr_getstackaddr, PJT_ATTR_GETSTACKADDR, int, void *, void *)
264 STUB_FUNC2(pthread_attr_getstacksize, PJT_ATTR_GETSTACKSIZE, int, void *, void *)
265 STUB_FUNC2(pthread_attr_getinheritsched, PJT_ATTR_GETINHERITSCHED, int, void *, void *)
266 STUB_FUNC2(pthread_attr_getschedparam, PJT_ATTR_GETSCHEDPARAM, int, void *, void *)
267 STUB_FUNC2(pthread_attr_getschedpolicy, PJT_ATTR_GETSCHEDPOLICY, int, void *, void *)
268 STUB_FUNC2(pthread_attr_getscope, PJT_ATTR_GETSCOPE, int, void *, void *)
269 STUB_FUNC1(pthread_attr_init, PJT_ATTR_INIT, int, void *)
270 STUB_FUNC2(pthread_attr_setdetachstate, PJT_ATTR_SETDETACHSTATE, int, void *, int)
271 STUB_FUNC2(pthread_attr_setguardsize, PJT_ATTR_SETGUARDSIZE, int, void *, size_t)
272 STUB_FUNC2(pthread_attr_setstackaddr, PJT_ATTR_SETSTACKADDR, int, void *, void *)
273 STUB_FUNC2(pthread_attr_setstacksize, PJT_ATTR_SETSTACKSIZE, int, void *, size_t)
274 STUB_FUNC2(pthread_attr_setinheritsched, PJT_ATTR_SETINHERITSCHED, int, void *, int)
275 STUB_FUNC2(pthread_attr_setschedparam, PJT_ATTR_SETSCHEDPARAM, int, void *, void *)
276 STUB_FUNC2(pthread_attr_setschedpolicy, PJT_ATTR_SETSCHEDPOLICY, int, void *, int)
277 STUB_FUNC2(pthread_attr_setscope, PJT_ATTR_SETSCOPE, int, void *, int)
278 STUB_FUNC1(pthread_cancel, PJT_CANCEL, int, void *)
279 STUB_FUNC1(pthread_cleanup_pop, PJT_CLEANUP_POP, int, int)
280 STUB_FUNC2(pthread_cleanup_push, PJT_CLEANUP_PUSH, void, void *, void *)
281 STUB_FUNC3(pthread_cond_timedwait, PJT_COND_TIMEDWAIT, int, void *, void *, void *)
282 STUB_FUNC1(pthread_detach, PJT_DETACH, int, void *)
283 STUB_FUNC2(pthread_equal, PJT_EQUAL, int, void *, void *)
284 STUB_FUNC1(pthread_exit, PJT_EXIT, void, void *)
285 STUB_FUNC2(pthread_join, PJT_JOIN, int, void *, void *)
286 STUB_FUNC2(pthread_kill, PJT_KILL, int, void *, int)
287 STUB_FUNC2(pthread_setcancelstate, PJT_SETCANCELSTATE, int, int, void *)
288 STUB_FUNC2(pthread_setcanceltype, PJT_SETCANCELTYPE, int, int, void *)
289 STUB_FUNC(pthread_testcancel, PJT_TESTCANCEL, void)
290 STUB_FUNC1(__pthread_cleanup_pop_imp, PJT_CLEANUP_POP_IMP, void, int)
291 STUB_FUNC3(__pthread_cleanup_push_imp, PJT_CLEANUP_PUSH_IMP, void, void *,
292 void *, void *)
293 STUB_FUNC1(_pthread_cancel_enter, PJT_CANCEL_ENTER, void, int)
294 STUB_FUNC1(_pthread_cancel_leave, PJT_CANCEL_LEAVE, void, int)
295 STUB_FUNC2(pthread_attr_get_np, PJT_ATTR_GET_NP, int, pthread_t, pthread_attr_t *)
296 STUB_FUNC3(pthread_getname_np, PJT_GETNAME_NP, int, pthread_t, char *, size_t)
297 STUB_FUNC(pthread_suspend_all_np, PJT_SUSPEND_ALL_NP, void);
298 STUB_FUNC(pthread_resume_all_np, PJT_RESUME_ALL_NP, void);
299
300 static int
stub_zero(void)301 stub_zero(void)
302 {
303 return (0);
304 }
305
306 static void
stub_void(void)307 stub_void(void)
308 {
309
310 }
311
312 static void *
stub_null(void)313 stub_null(void)
314 {
315 return (NULL);
316 }
317
318 static struct pthread *
stub_self(void)319 stub_self(void)
320 {
321 return (&main_thread);
322 }
323
324 static int
stub_fail(void)325 stub_fail(void)
326 {
327 return (ENOSYS);
328 }
329
330 static int
stub_main(void)331 stub_main(void)
332 {
333 return (-1);
334 }
335
336 static int
stub_true(void)337 stub_true(void)
338 {
339 return (1);
340 }
341
342 static void
stub_exit(void)343 stub_exit(void)
344 {
345 exit(0);
346 }
347
348 static int
stub_esrch(void)349 stub_esrch(void)
350 {
351 return (ESRCH);
352 }
353
354 static int
stub_getname_np(pthread_t thread,char * buf,size_t len)355 stub_getname_np(pthread_t thread, char *buf, size_t len)
356 {
357 if (thread != &main_thread)
358 return (ESRCH);
359 if (len >= 1)
360 buf[0] = '\0';
361 return (0);
362 }
363