* linux-fork.c (forks_exist_p): Drop unnecessary extern.
(add_fork, linux_fork_killall, linux_fork_mourn_inferior) (linux_fork_detach): Ditto. (delete_fork_command): Rename to ... (delete_checkpoint_command): ... this. (detach_fork_command): Rename to ... (detach_checkpoint_command): ... this. (info_forks_command): Rename to ... (info_checkpoints_command): ... this. (_initialize_linux_fork): Remove stale comments. Adjust.
This commit is contained in:
parent
2277426b30
commit
3cb5bea934
2 changed files with 39 additions and 33 deletions
|
@ -1,3 +1,16 @@
|
||||||
|
2009-07-02 Pedro Alves <pedro@codesourcery.com>
|
||||||
|
|
||||||
|
* linux-fork.c (forks_exist_p): Drop unnecessary extern.
|
||||||
|
(add_fork, linux_fork_killall, linux_fork_mourn_inferior)
|
||||||
|
(linux_fork_detach): Ditto.
|
||||||
|
(delete_fork_command): Rename to ...
|
||||||
|
(delete_checkpoint_command): ... this.
|
||||||
|
(detach_fork_command): Rename to ...
|
||||||
|
(detach_checkpoint_command): ... this.
|
||||||
|
(info_forks_command): Rename to ...
|
||||||
|
(info_checkpoints_command): ... this.
|
||||||
|
(_initialize_linux_fork): Remove stale comments. Adjust.
|
||||||
|
|
||||||
2009-07-02 Pedro Alves <pedro@codesourcery.com>
|
2009-07-02 Pedro Alves <pedro@codesourcery.com>
|
||||||
|
|
||||||
* linux-nat.c (linux_child_follow_fork): If we're staying attached
|
* linux-nat.c (linux_child_follow_fork): If we're staying attached
|
||||||
|
|
|
@ -59,16 +59,15 @@ struct fork_info
|
||||||
|
|
||||||
/* Fork list methods: */
|
/* Fork list methods: */
|
||||||
|
|
||||||
extern int
|
int
|
||||||
forks_exist_p (void)
|
forks_exist_p (void)
|
||||||
{
|
{
|
||||||
return (fork_list != NULL);
|
return (fork_list != NULL);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Add a fork to internal fork list.
|
/* Add a fork to the internal fork list. */
|
||||||
Called from linux child_follow_fork. */
|
|
||||||
|
|
||||||
extern struct fork_info *
|
struct fork_info *
|
||||||
add_fork (pid_t pid)
|
add_fork (pid_t pid)
|
||||||
{
|
{
|
||||||
struct fork_info *fp;
|
struct fork_info *fp;
|
||||||
|
@ -319,7 +318,7 @@ fork_save_infrun_state (struct fork_info *fp, int clobber_regs)
|
||||||
|
|
||||||
/* Kill 'em all, let God sort 'em out... */
|
/* Kill 'em all, let God sort 'em out... */
|
||||||
|
|
||||||
extern void
|
void
|
||||||
linux_fork_killall (void)
|
linux_fork_killall (void)
|
||||||
{
|
{
|
||||||
/* Walk list and kill every pid. No need to treat the
|
/* Walk list and kill every pid. No need to treat the
|
||||||
|
@ -351,7 +350,7 @@ linux_fork_killall (void)
|
||||||
forks to debug. Delete the exiting one and context-switch to the
|
forks to debug. Delete the exiting one and context-switch to the
|
||||||
first available. */
|
first available. */
|
||||||
|
|
||||||
extern void
|
void
|
||||||
linux_fork_mourn_inferior (void)
|
linux_fork_mourn_inferior (void)
|
||||||
{
|
{
|
||||||
/* Wait just one more time to collect the inferior's exit status.
|
/* Wait just one more time to collect the inferior's exit status.
|
||||||
|
@ -385,7 +384,7 @@ linux_fork_mourn_inferior (void)
|
||||||
viable forks to debug. Detach and delete it and context-switch to
|
viable forks to debug. Detach and delete it and context-switch to
|
||||||
the first available. */
|
the first available. */
|
||||||
|
|
||||||
extern void
|
void
|
||||||
linux_fork_detach (char *args, int from_tty)
|
linux_fork_detach (char *args, int from_tty)
|
||||||
{
|
{
|
||||||
/* OK, inferior_ptid is the one we are detaching from. We need to
|
/* OK, inferior_ptid is the one we are detaching from. We need to
|
||||||
|
@ -416,7 +415,7 @@ linux_fork_detach (char *args, int from_tty)
|
||||||
/* Fork list <-> user interface. */
|
/* Fork list <-> user interface. */
|
||||||
|
|
||||||
static void
|
static void
|
||||||
delete_fork_command (char *args, int from_tty)
|
delete_checkpoint_command (char *args, int from_tty)
|
||||||
{
|
{
|
||||||
ptid_t ptid;
|
ptid_t ptid;
|
||||||
|
|
||||||
|
@ -428,7 +427,8 @@ delete_fork_command (char *args, int from_tty)
|
||||||
error (_("No such checkpoint id, %s"), args);
|
error (_("No such checkpoint id, %s"), args);
|
||||||
|
|
||||||
if (ptid_equal (ptid, inferior_ptid))
|
if (ptid_equal (ptid, inferior_ptid))
|
||||||
error (_("Please switch to another checkpoint before deleting the current one"));
|
error (_("\
|
||||||
|
Please switch to another checkpoint before deleting the current one"));
|
||||||
|
|
||||||
if (ptrace (PTRACE_KILL, PIDGET (ptid), 0, 0))
|
if (ptrace (PTRACE_KILL, PIDGET (ptid), 0, 0))
|
||||||
error (_("Unable to kill pid %s"), target_pid_to_str (ptid));
|
error (_("Unable to kill pid %s"), target_pid_to_str (ptid));
|
||||||
|
@ -440,7 +440,7 @@ delete_fork_command (char *args, int from_tty)
|
||||||
}
|
}
|
||||||
|
|
||||||
static void
|
static void
|
||||||
detach_fork_command (char *args, int from_tty)
|
detach_checkpoint_command (char *args, int from_tty)
|
||||||
{
|
{
|
||||||
ptid_t ptid;
|
ptid_t ptid;
|
||||||
|
|
||||||
|
@ -464,10 +464,10 @@ Please switch to another checkpoint before detaching the current one"));
|
||||||
delete_fork (ptid);
|
delete_fork (ptid);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Print information about currently known forks. */
|
/* Print information about currently known checkpoints. */
|
||||||
|
|
||||||
static void
|
static void
|
||||||
info_forks_command (char *arg, int from_tty)
|
info_checkpoints_command (char *arg, int from_tty)
|
||||||
{
|
{
|
||||||
struct gdbarch *gdbarch = get_current_arch ();
|
struct gdbarch *gdbarch = get_current_arch ();
|
||||||
struct frame_info *cur_frame;
|
struct frame_info *cur_frame;
|
||||||
|
@ -656,13 +656,6 @@ Show whether gdb will detach the child of a fork."), _("\
|
||||||
Tells gdb whether to detach the child of a fork."),
|
Tells gdb whether to detach the child of a fork."),
|
||||||
NULL, NULL, &setlist, &showlist);
|
NULL, NULL, &setlist, &showlist);
|
||||||
|
|
||||||
/* Set/show restart-auto-finish: user-settable count. Causes the
|
|
||||||
first "restart" of a fork to do some number of "finish" commands
|
|
||||||
before returning to user.
|
|
||||||
|
|
||||||
Useful because otherwise the virgin fork process will be stopped
|
|
||||||
somewhere in the un-interesting fork system call. */
|
|
||||||
|
|
||||||
/* Checkpoint command: create a fork of the inferior process
|
/* Checkpoint command: create a fork of the inferior process
|
||||||
and set it aside for later debugging. */
|
and set it aside for later debugging. */
|
||||||
|
|
||||||
|
@ -677,22 +670,22 @@ restart <n>: restore program context from a checkpoint.\n\
|
||||||
Argument 'n' is checkpoint ID, as displayed by 'info checkpoints'."));
|
Argument 'n' is checkpoint ID, as displayed by 'info checkpoints'."));
|
||||||
|
|
||||||
/* Delete checkpoint command: kill the process and remove it from
|
/* Delete checkpoint command: kill the process and remove it from
|
||||||
fork list. */
|
the fork list. */
|
||||||
|
|
||||||
add_cmd ("checkpoint", class_obscure, delete_fork_command, _("\
|
add_cmd ("checkpoint", class_obscure, delete_checkpoint_command, _("\
|
||||||
Delete a checkpoint (experimental)."),
|
Delete a checkpoint (experimental)."),
|
||||||
&deletelist);
|
&deletelist);
|
||||||
|
|
||||||
/* Detach checkpoint command: release the process to run independently,
|
/* Detach checkpoint command: release the process to run independently,
|
||||||
and remove it from the fork list. */
|
and remove it from the fork list. */
|
||||||
|
|
||||||
add_cmd ("checkpoint", class_obscure, detach_fork_command, _("\
|
add_cmd ("checkpoint", class_obscure, detach_checkpoint_command, _("\
|
||||||
Detach from a checkpoint (experimental)."),
|
Detach from a checkpoint (experimental)."),
|
||||||
&detachlist);
|
&detachlist);
|
||||||
|
|
||||||
/* Info checkpoints command: list all forks/checkpoints
|
/* Info checkpoints command: list all forks/checkpoints
|
||||||
currently under gdb's control. */
|
currently under gdb's control. */
|
||||||
|
|
||||||
add_info ("checkpoints", info_forks_command,
|
add_info ("checkpoints", info_checkpoints_command,
|
||||||
_("IDs of currently known checkpoints."));
|
_("IDs of currently known checkpoints."));
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue