diff options
Diffstat (limited to 'winsup/cygwin/fork.cc')
-rw-r--r-- | winsup/cygwin/fork.cc | 688 |
1 files changed, 0 insertions, 688 deletions
diff --git a/winsup/cygwin/fork.cc b/winsup/cygwin/fork.cc deleted file mode 100644 index e4c3c31bb..000000000 --- a/winsup/cygwin/fork.cc +++ /dev/null @@ -1,688 +0,0 @@ -/* fork.cc - - Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2005 - Red Hat, Inc. - -This file is part of Cygwin. - -This software is a copyrighted work licensed under the terms of the -Cygwin license. Please consult the file "CYGWIN_LICENSE" for -details. */ - -#include "winsup.h" -#include <stdio.h> -#include <unistd.h> -#include <stdlib.h> -#include <stdarg.h> -#include "cygerrno.h" -#include "security.h" -#include "path.h" -#include "fhandler.h" -#include "dtable.h" -#include "sigproc.h" -#include "pinfo.h" -#include "cygheap.h" -#include "child_info.h" -#include "cygtls.h" -#include "perprocess.h" -#include "dll_init.h" -#include "sync.h" -#include "shared_info.h" -#include "cygmalloc.h" -#include "cygthread.h" - -#define NPIDS_HELD 4 - -/* Timeout to wait for child to start, parent to init child, etc. */ -/* FIXME: Once things stabilize, bump up to a few minutes. */ -#define FORK_WAIT_TIMEOUT (300 * 1000) /* 300 seconds */ - -class frok -{ - dll *first_dll; - bool load_dlls; - child_info_fork ch; - const char *error; - int child_pid; - int this_errno; - int __stdcall parent (void *esp); - int __stdcall child (void *esp); - friend int fork (); -}; - -static int -resume_child (HANDLE forker_finished) -{ - SetEvent (forker_finished); - debug_printf ("signalled child"); - return 1; -} - -/* Notify parent that it is time for the next step. */ -static void __stdcall -sync_with_parent (const char *s, bool hang_self) -{ - debug_printf ("signalling parent: %s", s); - fork_info->ready (false); - if (hang_self) - { - HANDLE h = fork_info->forker_finished; - /* Wait for the parent to fill in our stack and heap. - Don't wait forever here. If our parent dies we don't want to clog - the system. If the wait fails, we really can't continue so exit. */ - DWORD psync_rc = WaitForSingleObject (h, FORK_WAIT_TIMEOUT); - debug_printf ("awake"); - switch (psync_rc) - { - case WAIT_TIMEOUT: - api_fatal ("WFSO timed out %s", s); - break; - case WAIT_FAILED: - if (GetLastError () == ERROR_INVALID_HANDLE && - WaitForSingleObject (fork_info->forker_finished, 1) != WAIT_FAILED) - break; - api_fatal ("WFSO failed %s, fork_finished %p, %E", s, - fork_info->forker_finished); - break; - default: - debug_printf ("no problems"); - break; - } - } -} - -int __stdcall -frok::child (void *) -{ - HANDLE& hParent = ch.parent; - extern void fixup_hooks_after_fork (); - extern void fixup_timers_after_fork (); - debug_printf ("child is running. pid %d, ppid %d, stack here %p", - myself->pid, myself->ppid, __builtin_frame_address (0)); - - sync_with_parent ("after longjmp", true); - sigproc_printf ("hParent %p, child 1 first_dll %p, load_dlls %d", hParent, - first_dll, load_dlls); - - /* If we've played with the stack, stacksize != 0. That means that - fork() was invoked from other than the main thread. Make sure that - the threadinfo information is properly set up. */ - if (fork_info->stacksize) - { - _main_tls = &_my_tls; - _main_tls->init_thread (NULL, NULL); - _main_tls->local_clib = *_impure_ptr; - _impure_ptr = &_main_tls->local_clib; - } - - if (wincap.has_security ()) - { - set_cygwin_privileges (hProcImpToken); - cygheap->user.reimpersonate (); - } - -#ifdef DEBUGGING - char c; - if (GetEnvironmentVariable ("FORKDEBUG", &c, 1)) - try_to_debug (); - char buf[80]; - /* This is useful for debugging fork problems. Use gdb to attach to - the pid reported here. */ - if (GetEnvironmentVariable ("CYGWIN_FORK_SLEEP", buf, sizeof (buf))) - { - small_printf ("Sleeping %d after fork, pid %u\n", atoi (buf), GetCurrentProcessId ()); - Sleep (atoi (buf)); - } -#endif - - set_file_api_mode (current_codepage); - - MALLOC_CHECK; - -#ifdef USE_SERVER - /* Incredible but true: If we use sockets and SYSV IPC shared memory, - there's a good chance that a duplicated socket in the child occupies - memory which is needed to duplicate shared memory from the parent - process, if the shared memory hasn't been duplicated already. - The same goes very likely for "normal" mmap shared memory, too, but - with SYSV IPC it was the first time observed. So, *never* fixup - fdtab before fixing up shared memory. */ - if (fixup_shms_after_fork ()) - api_fatal ("recreate_shm areas after fork failed"); -#endif - - MALLOC_CHECK; - - /* If we haven't dynamically loaded any dlls, just signal - the parent. Otherwise, load all the dlls, tell the parent - that we're done, and wait for the parent to fill in the. - loaded dlls' data/bss. */ - if (!load_dlls) - { - cygheap->fdtab.fixup_after_fork (hParent); - sync_with_parent ("performed fork fixup", false); - } - else - { - dlls.load_after_fork (hParent, first_dll); - cygheap->fdtab.fixup_after_fork (hParent); - sync_with_parent ("loaded dlls", true); - } - - ForceCloseHandle1 (fork_info->forker_finished, forker_finished); - - sigproc_init (); - - pthread::atforkchild (); - fixup_timers_after_fork (); - cygbench ("fork-child"); - ld_preload (); - fixup_hooks_after_fork (); - _my_tls.fixup_after_fork (); - cygwin_finished_initializing = true; - return 0; -} - -#define NO_SLOW_PID_REUSE -#ifndef NO_SLOW_PID_REUSE -static void -slow_pid_reuse (HANDLE h) -{ - static NO_COPY HANDLE last_fork_procs[NPIDS_HELD]; - static NO_COPY unsigned nfork_procs; - - if (nfork_procs >= (sizeof (last_fork_procs) / sizeof (last_fork_procs [0]))) - nfork_procs = 0; - /* Keep a list of handles to child processes sitting around to prevent - Windows from reusing the same pid n times in a row. Having the same pids - close in succesion confuses bash. Keeping a handle open will stop - windows from reusing the same pid. */ - if (last_fork_procs[nfork_procs]) - ForceCloseHandle1 (last_fork_procs[nfork_procs], fork_stupidity); - if (DuplicateHandle (hMainProc, h, hMainProc, &last_fork_procs[nfork_procs], - 0, FALSE, DUPLICATE_SAME_ACCESS)) - ProtectHandle1 (last_fork_procs[nfork_procs], fork_stupidity); - else - { - last_fork_procs[nfork_procs] = NULL; - system_printf ("couldn't create last_fork_proc, %E"); - } - nfork_procs++; -} -#endif - -int __stdcall -frok::parent (void *stack_here) -{ - HANDLE forker_finished; - DWORD rc; - PROCESS_INFORMATION pi = {0, NULL, 0, 0}; - child_pid = -1; - error = NULL; - this_errno = 0; - bool fix_impersonation = false; - pinfo child; - - pthread::atforkprepare (); - - int c_flags = GetPriorityClass (hMainProc); - debug_printf ("priority class %d", c_flags); - STARTUPINFO si = {0, NULL, NULL, NULL, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NULL, NULL, NULL, NULL}; - - /* If we don't have a console, then don't create a console for the - child either. */ - HANDLE console_handle = CreateFile ("CONOUT$", GENERIC_WRITE, - FILE_SHARE_WRITE, &sec_none_nih, - OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, - NULL); - - if (console_handle != INVALID_HANDLE_VALUE) - CloseHandle (console_handle); - else - c_flags |= DETACHED_PROCESS; - - /* Some file types (currently only sockets) need extra effort in the - parent after CreateProcess and before copying the datastructures - to the child. So we have to start the child in suspend state, - unfortunately, to avoid a race condition. */ - if (cygheap->fdtab.need_fixup_before ()) - c_flags |= CREATE_SUSPENDED; - - /* Remember the address of the first loaded dll and decide - if we need to load dlls. We do this here so that this - information will be available in the parent and, when - the stack is copied, in the child. */ - first_dll = dlls.start.next; - load_dlls = dlls.reload_on_fork && dlls.loaded_dlls; - - /* This will help some of the confusion. */ - fflush (stdout); - - forker_finished = CreateEvent (&sec_all, FALSE, FALSE, NULL); - if (forker_finished == NULL) - { - this_errno = geterrno_from_win_error (); - error = "unable to allocate forker_finished event"; - return -1; - } - - ProtectHandleINH (forker_finished); - - ch.forker_finished = forker_finished; - - ch.stackbottom = _tlsbase; - ch.stacktop = stack_here; - ch.stacksize = (char *) ch.stackbottom - (char *) stack_here; - debug_printf ("stack - bottom %p, top %p, size %d", - ch.stackbottom, ch.stacktop, ch.stacksize); - - si.cb = sizeof (STARTUPINFO); - si.lpReserved2 = (LPBYTE) &ch; - si.cbReserved2 = sizeof (ch); - - /* Remove impersonation */ - cygheap->user.deimpersonate (); - fix_impersonation = true; - - syscall_printf ("CreateProcess (%s, %s, 0, 0, 1, %p, 0, 0, %p, %p)", - myself->progname, myself->progname, c_flags, &si, &pi); - bool locked = __malloc_lock (); - rc = CreateProcess (myself->progname, /* image to run */ - myself->progname, /* what we send in arg0 */ - &sec_none_nih, - &sec_none_nih, - TRUE, /* inherit handles from parent */ - c_flags, - NULL, /* environment filled in later */ - 0, /* use current drive/directory */ - &si, - &pi); - - if (!rc) - { - this_errno = geterrno_from_win_error (); - error = "CreateProcessA failed"; - goto cleanup; - } - - /* Fixup the parent datastructure if needed and resume the child's - main thread. */ - if (c_flags & CREATE_SUSPENDED) - { - cygheap->fdtab.fixup_before_fork (pi.dwProcessId); - ResumeThread (pi.hThread); - } - - strace.write_childpid (ch, pi.dwProcessId); - - child_pid = cygwin_pid (pi.dwProcessId); - child.init (child_pid, 1, NULL); - - if (!child) - { - this_errno = get_errno () == ENOMEM ? ENOMEM : EAGAIN; -#ifdef DEBUGGING - error = "pinfo failed"; -#else - syscall_printf ("pinfo failed"); -#endif - goto cleanup; - } - - child->start_time = time (NULL); /* Register child's starting time. */ - child->nice = myself->nice; - - /* Initialize things that are done later in dll_crt0_1 that aren't done - for the forkee. */ - strcpy (child->progname, myself->progname); - - /* Restore impersonation */ - cygheap->user.reimpersonate (); - fix_impersonation = false; - - ProtectHandle (pi.hThread); - /* Protect the handle but name it similarly to the way it will - be called in subproc handling. */ - ProtectHandle1 (pi.hProcess, childhProc); - - /* Fill in fields in the child's process table entry. */ - child->dwProcessId = pi.dwProcessId; - child.hProcess = pi.hProcess; - - /* Hopefully, this will succeed. The alternative to doing things this - way is to reserve space prior to calling CreateProcess and then fill - it in afterwards. This requires more bookkeeping than I like, though, - so we'll just do it the easy way. So, terminate any child process if - we can't actually record the pid in the internal table. */ - if (!child.remember (false)) - { - TerminateProcess (pi.hProcess, 1); - this_errno = EAGAIN; -#ifdef DEBUGGING0 - error = "child.remember failed"; -#endif - goto cleanup; - } - -#ifndef NO_SLOW_PID_REUSE - slow_pid_reuse (pi.hProcess); -#endif - - /* Wait for subproc to initialize itself. */ - if (!ch.sync (child->pid, pi.hProcess, FORK_WAIT_TIMEOUT)) - { - this_errno = EAGAIN; - error = "died waiting for longjmp before initialization"; - goto cleanup; - } - - /* CHILD IS STOPPED */ - debug_printf ("child is alive (but stopped)"); - - /* Initialize, in order: data, bss, heap, stack, dll data, dll bss - Note: variables marked as NO_COPY will not be copied - since they are placed in a protected segment. */ - - - MALLOC_CHECK; - const void *impure_beg; - const void *impure_end; - const char *impure; - if (&_my_tls == _main_tls) - impure_beg = impure_end = impure = NULL; - else - { - impure = "impure"; - impure_beg = _impure_ptr; - impure_end = _impure_ptr + 1; - } - rc = child_copy (pi.hProcess, true, - "stack", stack_here, ch.stackbottom, - impure, impure_beg, impure_end, - NULL); - - __malloc_unlock (); - locked = false; - MALLOC_CHECK; - if (!rc) - goto cleanup; - - /* Now fill data/bss of any DLLs that were linked into the program. */ - for (dll *d = dlls.istart (DLL_LINK); d; d = dlls.inext ()) - { - debug_printf ("copying data/bss of a linked dll"); - if (!child_copy (pi.hProcess, true, - "linked dll data", d->p.data_start, d->p.data_end, - "linked dll bss", d->p.bss_start, d->p.bss_end, - NULL)) - { - this_errno = get_errno (); -#ifdef DEBUGGING - error = "fork_copy for linked dll data/bss failed"; -#endif - goto cleanup; - } - } - - /* Start thread, and wait for it to reload dlls. */ - if (!resume_child (forker_finished)) - goto cleanup; - else if (!ch.sync (child->pid, pi.hProcess, FORK_WAIT_TIMEOUT)) - { - this_errno = EAGAIN; - error = "died waiting for dll loading"; - goto cleanup; - } - - /* If DLLs were loaded in the parent, then the child has reloaded all - of them and is now waiting to have all of the individual data and - bss sections filled in. */ - if (load_dlls) - { - /* CHILD IS STOPPED */ - /* write memory of reloaded dlls */ - for (dll *d = dlls.istart (DLL_LOAD); d; d = dlls.inext ()) - { - debug_printf ("copying data/bss for a loaded dll"); - if (!child_copy (pi.hProcess, true, - "loaded dll data", d->p.data_start, d->p.data_end, - "loaded dll bss", d->p.bss_start, d->p.bss_end, - NULL)) - { - this_errno = get_errno (); -#ifdef DEBUGGING - error = "copying data/bss for a loaded dll"; -#endif - goto cleanup; - } - } - /* Start the child up again. */ - resume_child (forker_finished); - } - - ForceCloseHandle (pi.hThread); - ForceCloseHandle (forker_finished); - forker_finished = NULL; - pi.hThread = NULL; - pthread::atforkparent (); - - return child_pid; - -/* Common cleanup code for failure cases */ -cleanup: - if (fix_impersonation) - cygheap->user.reimpersonate (); - if (locked) - __malloc_unlock (); - - /* Remember to de-allocate the fd table. */ - if (pi.hProcess && !child.hProcess) - ForceCloseHandle1 (pi.hProcess, childhProc); - if (pi.hThread) - ForceCloseHandle (pi.hThread); - if (forker_finished) - ForceCloseHandle (forker_finished); - debug_printf ("returning -1"); - return -1; -} - -extern "C" int -fork () -{ - frok grouped; - MALLOC_CHECK; - - debug_printf ("entering"); - grouped.first_dll = NULL; - grouped.load_dlls = 0; - - int res; - int ischild; - - myself->set_has_pgid_children (); - - if (grouped.ch.parent == NULL) - return -1; - if (grouped.ch.subproc_ready == NULL) - { - system_printf ("unable to allocate subproc_ready event, %E"); - return -1; - } - - if (sig_send (NULL, __SIGHOLD)) - { - if (exit_state) - Sleep (INFINITE); - set_errno (EAGAIN); - return -1; - } - - ischild = setjmp (grouped.ch.jmp); - - void *esp; - __asm__ volatile ("movl %%esp,%0": "=r" (esp)); - - if (!ischild) - res = grouped.parent (esp); - else - res = grouped.child (esp); - - MALLOC_CHECK; - if (ischild || res > 0) - /* everything is ok */; - else - { - if (!grouped.error) - syscall_printf ("fork failed - child pid %d, errno %d", grouped.child_pid, grouped.this_errno); - else - { - char buf[strlen (grouped.error) + sizeof ("child %d - , errno 4294967295 ")]; - strcpy (buf, "child %d - "); - strcat (buf, grouped.error); - strcat (buf, ", errno %d"); - system_printf (buf, grouped.child_pid, grouped.this_errno); - } - - set_errno (grouped.this_errno); - } - sig_send (NULL, __SIGNOHOLD); - syscall_printf ("%d = fork()", res); - return res; -} -#ifdef DEBUGGING -void -fork_init () -{ -} -#endif /*DEBUGGING*/ - -#ifdef NEWVFORK -/* Dummy function to force second assignment below to actually be - carried out */ -static vfork_save * -get_vfork_val () -{ - return vfork_storage.val (); -} -#endif - -extern "C" int -vfork () -{ -#ifndef NEWVFORK - debug_printf ("stub called"); - return fork (); -#else - vfork_save *vf = get_vfork_val (); - char **esp, **pp; - - if (vf == NULL) - vf = vfork_storage.create (); - else if (vf->pid) - return fork (); - - // FIXME the tls stuff could introduce a signal race if a child process - // exits quickly. - if (!setjmp (vf->j)) - { - vf->pid = -1; - __asm__ volatile ("movl %%esp,%0": "=r" (vf->vfork_esp):); - __asm__ volatile ("movl %%ebp,%0": "=r" (vf->vfork_ebp):); - for (pp = (char **) vf->frame, esp = vf->vfork_esp; - esp <= vf->vfork_ebp + 2; pp++, esp++) - *pp = *esp; - vf->ctty = myself->ctty; - vf->sid = myself->sid; - vf->pgid = myself->pgid; - cygheap->ctty_on_hold = cygheap->ctty; - vf->console_count = cygheap->console_count; - debug_printf ("cygheap->ctty_on_hold %p, cygheap->console_count %d", cygheap->ctty_on_hold, cygheap->console_count); - int res = cygheap->fdtab.vfork_child_dup () ? 0 : -1; - debug_printf ("%d = vfork()", res); - _my_tls.call_signal_handler (); // FIXME: racy - vf->tls = _my_tls; - return res; - } - - vf = get_vfork_val (); - - for (pp = (char **) vf->frame, esp = vf->vfork_esp; - esp <= vf->vfork_ebp + 2; pp++, esp++) - *esp = *pp; - - cygheap->fdtab.vfork_parent_restore (); - - myself->ctty = vf->ctty; - myself->sid = vf->sid; - myself->pgid = vf->pgid; - termios_printf ("cygheap->ctty %p, cygheap->ctty_on_hold %p", cygheap->ctty, cygheap->ctty_on_hold); - cygheap->console_count = vf->console_count; - - if (vf->pid < 0) - { - int exitval = vf->exitval; - vf->pid = 0; - if ((vf->pid = fork ()) == 0) - exit (exitval); - } - - int pid = vf->pid; - vf->pid = 0; - debug_printf ("exiting vfork, pid %d", pid); - sig_dispatch_pending (); - - _my_tls.call_signal_handler (); // FIXME: racy - _my_tls = vf->tls; - return pid; -#endif -} - -/* Copy memory from one process to another. */ - -bool -child_copy (HANDLE hp, bool write, ...) -{ - va_list args; - va_start (args, write); - static const char *huh[] = {"read", "write"}; - - char *what; - while ((what = va_arg (args, char *))) - { - char *low = va_arg (args, char *); - char *high = va_arg (args, char *); - DWORD todo = wincap.chunksize () ?: high - low; - char *here; - - for (here = low; here < high; here += todo) - { - DWORD done = 0; - if (here + todo > high) - todo = high - here; - int res; - if (write) - res = WriteProcessMemory (hp, here, here, todo, &done); - else - res = ReadProcessMemory (hp, here, here, todo, &done); - debug_printf ("%s - hp %p low %p, high %p, res %d", what, hp, low, high, res); - if (!res || todo != done) - { - if (!res) - __seterrno (); - /* If this happens then there is a bug in our fork - implementation somewhere. */ - system_printf ("%s %s copy failed, %p..%p, done %d, windows pid %u, %E", - what, huh[write], low, high, done); - goto err; - } - } - } - - debug_printf ("done"); - return true; - - err: - TerminateProcess (hp, 1); - set_errno (EAGAIN); - return false; -} |