From: Patrick Palka <patrick@parcs.ath.cx>
Date: Fri, 14 Nov 2014 19:04:50 +0000 (-0500)
Subject: checkpoint: print index of new checkpoint in response message
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6f9d33d89858fce0278af93658fcaef8d76f33cb;p=binutils-gdb.git

checkpoint: print index of new checkpoint in response message

This way the user can know the index of the latest checkpoint without
having to run "info checkpoints" afterwards.

gdb/ChangeLog:

	* linux-fork.c (checkpoint_command): Print index of new
	checkpoint in response message.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 2adf23bfa90..e16f28ff60b 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-23  Patrick Palka  <patrick@parcs.ath.cx>
+
+	Pushed by Joel Brobecker  <brobecker@adacore.com>
+	* linux-fork.c (checkpoint_command): Print index of new
+	checkpoint in response message.
+
 2014-11-23  Yao Qi  <yao@codesourcery.com>
 
 	* valprint.c (read_string): Move local variables 'found_nul',
diff --git a/gdb/linux-fork.c b/gdb/linux-fork.c
index 835e6127833..d7eaeb1d869 100644
--- a/gdb/linux-fork.c
+++ b/gdb/linux-fork.c
@@ -690,12 +690,15 @@ checkpoint_command (char *args, int from_tty)
 
   retpid = value_as_long (ret);
   get_last_target_status (&last_target_ptid, &last_target_waitstatus);
+
+  fp = find_fork_pid (retpid);
+
   if (from_tty)
     {
       int parent_pid;
 
-      printf_filtered (_("checkpoint: fork returned pid %ld.\n"),
-		       (long) retpid);
+      printf_filtered (_("checkpoint %d: fork returned pid %ld.\n"),
+		       fp != NULL ? fp->num : -1, (long) retpid);
       if (info_verbose)
 	{
 	  parent_pid = ptid_get_lwp (last_target_ptid);
@@ -706,7 +709,6 @@ checkpoint_command (char *args, int from_tty)
 	}
     }
 
-  fp = find_fork_pid (retpid);
   if (!fp)
     error (_("Failed to find new fork"));
   fork_save_infrun_state (fp, 1);