1 /* Linuxthreads - a simple clone()-based implementation of Posix */
2 /* threads for Linux. */
3 /* Copyright (C) 1996 Xavier Leroy (Xavier.Leroy@inria.fr) */
5 /* This program is free software; you can redistribute it and/or */
6 /* modify it under the terms of the GNU Library General Public License */
7 /* as published by the Free Software Foundation; either version 2 */
8 /* of the License, or (at your option) any later version. */
10 /* This program is distributed in the hope that it will be useful, */
11 /* but WITHOUT ANY WARRANTY; without even the implied warranty of */
12 /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
13 /* GNU Library General Public License for more details. */
15 /* The "atfork" stuff */
22 #include "internals.h"
23 #include <bits/libc-lock.h>
26 void (*handler)(void);
27 struct handler_list * next;
30 static pthread_mutex_t pthread_atfork_lock = PTHREAD_MUTEX_INITIALIZER;
31 static struct handler_list * pthread_atfork_prepare = NULL;
32 static struct handler_list * pthread_atfork_parent = NULL;
33 static struct handler_list * pthread_atfork_child = NULL;
35 static void pthread_insert_list(struct handler_list ** list,
36 void (*handler)(void),
37 struct handler_list * newlist,
40 if (handler == NULL) return;
42 while(*list != NULL) list = &((*list)->next);
44 newlist->handler = handler;
45 newlist->next = *list;
49 struct handler_list_block {
50 struct handler_list prepare, parent, child;
53 int __pthread_atfork(void (*prepare)(void),
57 struct handler_list_block * block =
58 (struct handler_list_block *) malloc(sizeof(struct handler_list_block));
59 if (block == NULL) return ENOMEM;
60 pthread_mutex_lock(&pthread_atfork_lock);
61 /* "prepare" handlers are called in LIFO */
62 pthread_insert_list(&pthread_atfork_prepare, prepare, &block->prepare, 0);
63 /* "parent" handlers are called in FIFO */
64 pthread_insert_list(&pthread_atfork_parent, parent, &block->parent, 1);
65 /* "child" handlers are called in FIFO */
66 pthread_insert_list(&pthread_atfork_child, child, &block->child, 1);
67 pthread_mutex_unlock(&pthread_atfork_lock);
70 strong_alias (__pthread_atfork, pthread_atfork)
72 static inline void pthread_call_handlers(struct handler_list * list)
74 for (/*nothing*/; list != NULL; list = list->next) (list->handler)();
77 extern int __libc_fork(void);
83 pthread_mutex_lock(&pthread_atfork_lock);
85 pthread_call_handlers(pthread_atfork_prepare);
86 __pthread_once_fork_prepare();
92 __pthread_reset_main_thread();
95 __pthread_once_fork_child();
96 pthread_call_handlers(pthread_atfork_child);
98 pthread_mutex_init(&pthread_atfork_lock, NULL);
101 __pthread_once_fork_parent();
102 pthread_call_handlers(pthread_atfork_parent);
104 pthread_mutex_unlock(&pthread_atfork_lock);
110 weak_alias (__fork, fork);
116 weak_alias (__vfork, vfork);