gdb

	* python/py-inferior.c (python_inferior_exit): Use inferior's exit
	code fields.
	* python/py-exitedevent.c (create_exited_event_object): Change
	type of 'exit_code'.  Optionally add exit_code attribute.
	(emit_exited_event): Change type of 'exit_code'.
	* python/py-event.h (emit_exited_event): Update.
	* mi/mi-interp.c (mi_inferior_exit): Print exit code.
	* infrun.c (handle_inferior_event): Set exit code fields on
	inferior.
	* inferior.h (struct inferior) <has_exit_code, exit_code>: New
	fields.
	* inferior.c (exit_inferior_1): Initialize new fields.
gdb/doc
	* gdb.texinfo (GDB/MI Async Records): Document 'exit-code' field.
	(Events In Python): Note that exit_code is optional.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 64dc47b79919df5c24e8a0542670d4b4c74ea603..72592f0b22e7cf162311e5351682b37f4ccd96f1 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,18 @@
+2011-06-03  Tom Tromey  <tromey@redhat.com>
+
+       * python/py-inferior.c (python_inferior_exit): Use inferior's exit
+       code fields.
+       * python/py-exitedevent.c (create_exited_event_object): Change
+       type of 'exit_code'.  Optionally add exit_code attribute.
+       (emit_exited_event): Change type of 'exit_code'.
+       * python/py-event.h (emit_exited_event): Update.
+       * mi/mi-interp.c (mi_inferior_exit): Print exit code.
+       * infrun.c (handle_inferior_event): Set exit code fields on
+       inferior.
+       * inferior.h (struct inferior) <has_exit_code, exit_code>: New
+       fields.
+       * inferior.c (exit_inferior_1): Initialize new fields.
+
 2011-05-26  Pedro Alves  <pedro@codesourcery.com>
 
        * alpha-tdep.c (alpha_cannot_fetch_register): Don't return true

diff --git a/gdb/doc/ChangeLog b/gdb/doc/ChangeLog
index 1cc17e9f23c12f5212c9d6a2a42ed4ae41fe1369..02b8e62eb2c55fa3ae0c56b9e5bfc8e2d6d79b24 100644 (file)
--- a/gdb/doc/ChangeLog
+++ b/gdb/doc/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-03  Tom Tromey  <tromey@redhat.com>
+
+       * gdb.texinfo (GDB/MI Async Records): Document 'exit-code' field.
+       (Events In Python): Note that exit_code is optional.
+
 2011-05-17  Joel Brobecker  <brobecker@adacore.com>
 
        * gdb.texinfo (GDB/MI Output Records): Fix menu entry for

diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo
index 6b5ceccf4335dd053e3963f0a035e178f88ec5f6..e3d824e1750c7a920201f19e18a4237d0b84407a 100644 (file)
--- a/gdb/doc/gdb.texinfo
+++ b/gdb/doc/gdb.texinfo
@@ -22055,7 +22055,9 @@ inherited attribute refer to @code{gdb.ThreadEvent} above.
 
 @item events.exited
 Emits @code{events.ExitedEvent} which indicates that the inferior has exited.
-@code{events.ExitedEvent} has one attribute:
+@code{events.ExitedEvent} has one optional attribute.  This attribute
+will exist only in the case that the inferior exited with some
+status.
 @table @code
 @defivar ExitedEvent exit_code
 An integer representing the exit code which the inferior has returned.
@@ -25102,11 +25104,12 @@ was attached to a program.  The @var{id} field contains the
 @value{GDBN} identifier of the thread group.  The @var{pid} field
 contains process identifier, specific to the operating system.
 
-@itemx =thread-group-exited,id="@var{id}"
+@item =thread-group-exited,id="@var{id}"[,exit-code="@var{code}"]
 A thread group is no longer associated with a running program,
 either because the program has exited, or because it was detached
 from.  The @var{id} field contains the @value{GDBN} identifier of the
-thread group.
+thread group.  @var{code} is the exit code of the inferior; it exists
+only when the inferior exited with some code.
 
 @item =thread-created,id="@var{id}",group-id="@var{gid}"
 @itemx =thread-exited,id="@var{id}",group-id="@var{gid}"

diff --git a/gdb/inferior.c b/gdb/inferior.c
index db4dd41e6b57c8294a8a8e0195bde86760e77710..48bb1814fc39d7f093eae33e47611b5351e1e61b 100644 (file)
--- a/gdb/inferior.c
+++ b/gdb/inferior.c
@@ -280,6 +280,9 @@ exit_inferior_1 (struct inferior *inftoex, int silent)
       inf->vfork_parent->vfork_child = NULL;
       inf->vfork_parent = NULL;
     }
+
+  inf->has_exit_code = 0;
+  inf->exit_code = 0;
 }
 
 void

diff --git a/gdb/inferior.h b/gdb/inferior.h
index f8adb6cce98ea545b72df4d41ad7a5295639587d..acae0f7f737cf4ee5cb64a29ad3e6e1a1c036ed8 100644 (file)
--- a/gdb/inferior.h
+++ b/gdb/inferior.h
@@ -509,6 +509,11 @@ struct inferior
   /* Private data used by the target vector implementation.  */
   struct private_inferior *private;
 
+  /* HAS_EXIT_CODE is true if the inferior exited with an exit code.
+     In this case, the EXIT_CODE field is also valid.  */
+  int has_exit_code;
+  LONGEST exit_code;
+
   /* We keep a count of the number of times the user has requested a
      particular syscall to be tracked, and pass this information to the
      target.  This lets capable targets implement filtering directly.  */

diff --git a/gdb/infrun.c b/gdb/infrun.c
index 867d4122686831905482855da0a8cd94a0795bb3..cd834819d69197d140ab01afb9ae72499f307c52 100644 (file)
--- a/gdb/infrun.c
+++ b/gdb/infrun.c
@@ -3232,6 +3232,11 @@ handle_inferior_event (struct execution_control_state *ecs)
          that the user can inspect this again later.  */
       set_internalvar_integer (lookup_internalvar ("_exitcode"),
                               (LONGEST) ecs->ws.value.integer);
+
+      /* Also record this in the inferior itself.  */
+      current_inferior ()->has_exit_code = 1;
+      current_inferior ()->exit_code = (LONGEST) ecs->ws.value.integer;
+
       gdb_flush (gdb_stdout);
       target_mourn_inferior ();
       singlestep_breakpoints_inserted_p = 0;

diff --git a/gdb/mi/mi-interp.c b/gdb/mi/mi-interp.c
index 23c60f6521bfb95b16e32dfb9fde933e2413951f..5e01abc7a1330da507f0857188330965ced62a6d 100644 (file)
--- a/gdb/mi/mi-interp.c
+++ b/gdb/mi/mi-interp.c
@@ -359,8 +359,14 @@ mi_inferior_exit (struct inferior *inf)
   struct mi_interp *mi = top_level_interpreter_data ();
 
   target_terminal_ours ();
-  fprintf_unfiltered (mi->event_channel, "thread-group-exited,id=\"i%d\"",
-                     inf->num);
+  if (inf->has_exit_code)
+    fprintf_unfiltered (mi->event_channel,
+                       "thread-group-exited,id=\"i%d\",exit-code=\"%s\"",
+                       inf->num, int_string (inf->exit_code, 8, 0, 0, 1));
+  else
+    fprintf_unfiltered (mi->event_channel,
+                       "thread-group-exited,id=\"i%d\"", inf->num);
+
   gdb_flush (mi->event_channel);  
 }
 

diff --git a/gdb/python/py-event.h b/gdb/python/py-event.h
index bc955210a3a831a8ece558bc8f54a028e5d79d96..f4b3ee2569633af0ee31845ddcec275812ba3114 100644 (file)
--- a/gdb/python/py-event.h
+++ b/gdb/python/py-event.h
@@ -104,7 +104,7 @@ typedef struct
 } event_object;
 
 extern int emit_continue_event (ptid_t ptid);
-extern int emit_exited_event (LONGEST exit_code);
+extern int emit_exited_event (const LONGEST *exit_code);
 
 extern int evpy_emit_event (PyObject *event,
                             eventregistry_object *registry);

diff --git a/gdb/python/py-exitedevent.c b/gdb/python/py-exitedevent.c
index 457a4fe73eb37f336b6d55e96dd99977558f6076..08150e567f923457ff5d8d2a9a4302a784bb312f 100644 (file)
--- a/gdb/python/py-exitedevent.c
+++ b/gdb/python/py-exitedevent.c
@@ -21,8 +21,8 @@
 
 static PyTypeObject exited_event_object_type;
 
-PyObject *
-create_exited_event_object (LONGEST exit_code)
+static PyObject *
+create_exited_event_object (const LONGEST *exit_code)
 {
   PyObject *exited_event;
 
@@ -31,9 +31,10 @@ create_exited_event_object (LONGEST exit_code)
   if (!exited_event)
     goto fail;
 
-  if (evpy_add_attribute (exited_event,
-                          "exit_code",
-                          PyLong_FromLongLong (exit_code)) < 0)
+  if (exit_code
+      && evpy_add_attribute (exited_event,
+                            "exit_code",
+                            PyLong_FromLongLong (*exit_code)) < 0)
     goto fail;
 
   return exited_event;
@@ -47,7 +48,7 @@ create_exited_event_object (LONGEST exit_code)
    will create a new Python exited event object.  */
 
 int
-emit_exited_event (LONGEST exit_code)
+emit_exited_event (const LONGEST *exit_code)
 {
   PyObject *event;
 

diff --git a/gdb/python/py-inferior.c b/gdb/python/py-inferior.c
index 45f5f04c07e365ecc694aa08640a559a25f50856..da0a4b68156ce246e89959c08e025e13844d2489 100644 (file)
--- a/gdb/python/py-inferior.c
+++ b/gdb/python/py-inferior.c
@@ -112,18 +112,14 @@ static void
 python_inferior_exit (struct inferior *inf)
 {
   struct cleanup *cleanup;
-  LONGEST exit_code = -1;
-  ptid_t ptidp;
-  struct target_waitstatus status;
+  const LONGEST *exit_code = NULL;
 
   cleanup = ensure_python_env (target_gdbarch, current_language);
 
-  get_last_target_status (&ptidp, &status);
+  if (inf->has_exit_code)
+    exit_code = &inf->exit_code;
 
-  exit_code = status.value.integer;
-
-  if (exit_code >= 0
-      && emit_exited_event (exit_code) < 0)
+  if (emit_exited_event (exit_code) < 0)
     gdbpy_print_stack ();
 
   do_cleanups (cleanup);