2003-08-08 Andrew Cagney <cagney@redhat.com>

	* interps.c (interp_set): Check for a NULL "old_interp".

Index: mi/ChangeLog
2003-08-08  Andrew Cagney  <cagney@redhat.com>

	* mi-main.c (captured_mi_execute_command): Add "mi2" and "mi3" to
	interpreters that hack around CLI.
	* mi-interp.c (mi3_command_loop): New function.
	(mi_interpreter_resume): Check for "mi3", default to "mi2".

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c7685fb..207eff5 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2003-08-08  Andrew Cagney  <cagney@redhat.com>
+
+       * interps.c (interp_set): Check for a NULL "old_interp".
+
 2003-08-08  H.J. Lu  <hongjiu.lu@intel.com>
 
        * Makefile.in (FLAGS_TO_PASS): Add DESTDIR.

diff --git a/gdb/interps.c b/gdb/interps.c
index 6df1d4b..82e9af6 100644 (file)
--- a/gdb/interps.c
+++ b/gdb/interps.c
@@ -183,7 +183,7 @@ interp_set (struct interp *interp)
   if (interp->procs->resume_proc != NULL
       && (!interp->procs->resume_proc (interp->data)))
     {
-      if (!interp_set (old_interp))
+      if (old_interp == NULL || !interp_set (old_interp))
        internal_error (__FILE__, __LINE__,
                        "Failed to initialize new interp \"%s\" %s",
                        interp->name, "and could not restore old interp!\n");

diff --git a/gdb/mi/ChangeLog b/gdb/mi/ChangeLog
index 3122136..520ad4d 100644 (file)
--- a/gdb/mi/ChangeLog
+++ b/gdb/mi/ChangeLog
@@ -1,3 +1,10 @@
+2003-08-08  Andrew Cagney  <cagney@redhat.com>
+
+       * mi-main.c (captured_mi_execute_command): Add "mi2" and "mi3" to
+       interpreters that hack around CLI.
+       * mi-interp.c (mi3_command_loop): New function.
+       (mi_interpreter_resume): Check for "mi3", default to "mi2".
+
 2003-08-07  Andrew Cagney  <cagney@redhat.com>
 
        * mi-interp.c (_initialize_mi_interp): Register "mi2" and "mi3".

diff --git a/gdb/mi/mi-interp.c b/gdb/mi/mi-interp.c
index e00e329..b72d7ef 100644 (file)
--- a/gdb/mi/mi-interp.c
+++ b/gdb/mi/mi-interp.c
@@ -60,6 +60,7 @@ static int mi_interp_query_hook (const char *ctlstr, va_list ap);
 static char *mi_interp_read_one_line_hook (char *prompt, int repeat,
                                           char *anno);
 
+static void mi3_command_loop (void);
 static void mi2_command_loop (void);
 static void mi1_command_loop (void);
 
@@ -133,10 +134,12 @@ mi_interpreter_resume (void *data)
   /* If we're _the_ interpreter, take control. */
   if (current_interp_named_p (INTERP_MI1))
     command_loop_hook = mi1_command_loop;
-  else if (current_interp_named_p (INTERP_MI))
+  else if (current_interp_named_p (INTERP_MI2))
     command_loop_hook = mi2_command_loop;
+  else if (current_interp_named_p (INTERP_MI3))
+    command_loop_hook = mi3_command_loop;
   else
-    return 0;
+    command_loop_hook = mi2_command_loop;
 
   return 1;
 }
@@ -334,6 +337,12 @@ mi2_command_loop (void)
 }
 
 static void
+mi3_command_loop (void)
+{
+  mi_command_loop (3);
+}
+
+static void
 mi_command_loop (int mi_version)
 {
 #if 0

diff --git a/gdb/mi/mi-main.c b/gdb/mi/mi-main.c
index 29eccac..40d3699 100644 (file)
--- a/gdb/mi/mi-main.c
+++ b/gdb/mi/mi-main.c
@@ -1161,7 +1161,9 @@ captured_mi_execute_command (struct ui_out *uiout, void *data)
 
       /* If we changed interpreters, DON'T print out anything. */
       if (current_interp_named_p (INTERP_MI)
-         || current_interp_named_p (INTERP_MI1))
+         || current_interp_named_p (INTERP_MI1)
+         || current_interp_named_p (INTERP_MI2)
+         || current_interp_named_p (INTERP_MI3))
        {
          /* print the result */
          /* FIXME: Check for errors here. */