1 files changed, 93 insertions, 0 deletions
diff --git a/linuxthreads/ptfork.c b/linuxthreads/ptfork.c
new file mode 100644
index 0000000000..9cdbb54361
--- /dev/null
+++ b/linuxthreads/ptfork.c
@@ -0,0 +1,93 @@
+/* Linuxthreads - a simple clone()-based implementation of Posix        */
+/* threads for Linux.                                                   */
+/* Copyright (C) 1996 Xavier Leroy (Xavier.Leroy@inria.fr)              */
+/*                                                                      */
+/* This program is free software; you can redistribute it and/or        */
+/* modify it under the terms of the GNU Library General Public License  */
+/* as published by the Free Software Foundation; either version 2       */
+/* of the License, or (at your option) any later version.               */
+/*                                                                      */
+/* This program is distributed in the hope that it will be useful,      */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of       */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        */
+/* GNU Library General Public License for more details.                 */
+
+/* The "atfork" stuff */
+
+#include <errno.h>
+#include <stddef.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include "pthread.h"
+#include "internals.h"
+#include <bits/libc-lock.h>
+#include "fork.h"
+
+extern int __libc_fork (void);
+
+pid_t __pthread_fork (struct fork_block *b)
+{
+  pid_t pid;
+  list_t *runp;
+
+  __libc_lock_lock (b->lock);
+
+  /* Run all the registered preparation handlers.  In reverse order.  */
+  list_for_each_prev (runp, &b->prepare_list)
+    {
+      struct fork_handler *curp;
+      curp = list_entry (runp, struct fork_handler, list);
+      curp->handler ();
+    }
+
+  __pthread_once_fork_prepare();
+  __flockfilelist();
+
+  pid = ARCH_FORK ();
+
+  if (pid == 0) {
+    __pthread_reset_main_thread();
+
+    __fresetlockfiles();
+    __pthread_once_fork_child();
+
+    /* Run the handlers registered for the child.  */
+    list_for_each (runp, &b->child_list)
+      {
+	struct fork_handler *curp;
+	curp = list_entry (runp, struct fork_handler, list);
+	curp->handler ();
+      }
+
+    __libc_lock_init (b->lock);
+  } else {
+    __funlockfilelist();
+    __pthread_once_fork_parent();
+
+    /* Run the handlers registered for the parent.  */
+    list_for_each (runp, &b->parent_list)
+      {
+	struct fork_handler *curp;
+	curp = list_entry (runp, struct fork_handler, list);
+	curp->handler ();
+      }
+
+    __libc_lock_unlock (b->lock);
+  }
+
+  return pid;
+}
+
+#ifdef SHARED
+pid_t __fork (void)
+{
+  return __libc_fork ();
+}
+weak_alias (__fork, fork);
+
+pid_t __vfork(void)
+{
+  return __libc_fork ();
+}
+weak_alias (__vfork, vfork);
+#endif