185 lines
4.7 KiB
C
185 lines
4.7 KiB
C
/* Fork a Unix child process, and set up to debug it, for GDB.
|
|
|
|
Copyright (C) 1990-2018 Free Software Foundation, Inc.
|
|
|
|
Contributed by Cygnus Support.
|
|
|
|
This file is part of GDB.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 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 General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
#include "defs.h"
|
|
#include "inferior.h"
|
|
#include "gdbcmd.h"
|
|
#include "terminal.h"
|
|
#include "gdbthread.h"
|
|
#include "top.h"
|
|
#include "job-control.h"
|
|
#include "filestuff.h"
|
|
#include "nat/fork-inferior.h"
|
|
#include "common/common-inferior.h"
|
|
|
|
/* The exec-wrapper, if any, that will be used when starting the
|
|
inferior. */
|
|
|
|
static char *exec_wrapper = NULL;
|
|
|
|
/* See common/common-inferior.h. */
|
|
|
|
const char *
|
|
get_exec_wrapper ()
|
|
{
|
|
return exec_wrapper;
|
|
}
|
|
|
|
/* See nat/fork-inferior.h. */
|
|
|
|
void
|
|
gdb_flush_out_err ()
|
|
{
|
|
gdb_flush (main_ui->m_gdb_stdout);
|
|
gdb_flush (main_ui->m_gdb_stderr);
|
|
}
|
|
|
|
/* The ui structure that will be saved on 'prefork_hook' and
|
|
restored on 'postfork_hook'. */
|
|
static struct ui *saved_ui = NULL;
|
|
|
|
/* See nat/fork-inferior.h. */
|
|
|
|
void
|
|
prefork_hook (const char *args)
|
|
{
|
|
const char *inferior_io_terminal = get_inferior_io_terminal ();
|
|
|
|
gdb_assert (saved_ui == NULL);
|
|
/* Retain a copy of our UI, since the child will replace this value
|
|
and if we're vforked, we have to restore it. */
|
|
saved_ui = current_ui;
|
|
|
|
/* Tell the terminal handling subsystem what tty we plan to run on;
|
|
it will just record the information for later. */
|
|
new_tty_prefork (inferior_io_terminal);
|
|
}
|
|
|
|
/* See nat/fork-inferior.h. */
|
|
|
|
void
|
|
postfork_hook (pid_t pid)
|
|
{
|
|
struct inferior *inf;
|
|
|
|
if (!have_inferiors ())
|
|
init_thread_list ();
|
|
|
|
inf = current_inferior ();
|
|
|
|
inferior_appeared (inf, pid);
|
|
|
|
/* Needed for wait_for_inferior stuff. */
|
|
inferior_ptid = ptid_t (pid);
|
|
|
|
gdb_assert (saved_ui != NULL);
|
|
current_ui = saved_ui;
|
|
saved_ui = NULL;
|
|
|
|
new_tty_postfork ();
|
|
}
|
|
|
|
/* See nat/fork-inferior.h. */
|
|
|
|
void
|
|
postfork_child_hook ()
|
|
{
|
|
/* This is set to the result of setpgrp, which if vforked, will be
|
|
visible to you in the parent process. It's only used by humans
|
|
for debugging. */
|
|
static int debug_setpgrp = 657473;
|
|
|
|
/* Make sure we switch to main_ui here in order to be able to
|
|
use the fprintf_unfiltered/warning/error functions. */
|
|
current_ui = main_ui;
|
|
|
|
/* Create a new session for the inferior process, if necessary.
|
|
It will also place the inferior in a separate process group. */
|
|
if (create_tty_session () <= 0)
|
|
{
|
|
/* No session was created, but we still want to run the inferior
|
|
in a separate process group. */
|
|
debug_setpgrp = gdb_setpgid ();
|
|
if (debug_setpgrp == -1)
|
|
perror (_("setpgrp failed in child"));
|
|
}
|
|
|
|
/* Ask the tty subsystem to switch to the one we specified
|
|
earlier (or to share the current terminal, if none was
|
|
specified). */
|
|
new_tty ();
|
|
}
|
|
|
|
/* See inferior.h. */
|
|
|
|
ptid_t
|
|
gdb_startup_inferior (pid_t pid, int num_traps)
|
|
{
|
|
ptid_t ptid = startup_inferior (pid, num_traps, NULL, NULL);
|
|
|
|
/* Mark all threads non-executing. */
|
|
set_executing (ptid, 0);
|
|
|
|
return ptid;
|
|
}
|
|
|
|
/* Implement the "unset exec-wrapper" command. */
|
|
|
|
static void
|
|
unset_exec_wrapper_command (const char *args, int from_tty)
|
|
{
|
|
xfree (exec_wrapper);
|
|
exec_wrapper = NULL;
|
|
}
|
|
|
|
static void
|
|
show_startup_with_shell (struct ui_file *file, int from_tty,
|
|
struct cmd_list_element *c, const char *value)
|
|
{
|
|
fprintf_filtered (file,
|
|
_("Use of shell to start subprocesses is %s.\n"),
|
|
value);
|
|
}
|
|
|
|
void
|
|
_initialize_fork_child (void)
|
|
{
|
|
add_setshow_filename_cmd ("exec-wrapper", class_run, &exec_wrapper, _("\
|
|
Set a wrapper for running programs.\n\
|
|
The wrapper prepares the system and environment for the new program."),
|
|
_("\
|
|
Show the wrapper for running programs."), NULL,
|
|
NULL, NULL,
|
|
&setlist, &showlist);
|
|
|
|
add_cmd ("exec-wrapper", class_run, unset_exec_wrapper_command,
|
|
_("Disable use of an execution wrapper."),
|
|
&unsetlist);
|
|
|
|
add_setshow_boolean_cmd ("startup-with-shell", class_support,
|
|
&startup_with_shell, _("\
|
|
Set use of shell to start subprocesses. The default is on."), _("\
|
|
Show use of shell to start subprocesses."), NULL,
|
|
NULL,
|
|
show_startup_with_shell,
|
|
&setlist, &showlist);
|
|
}
|