* mi-interp.c (mi_cmd_interpreter_set): Remove. We're not going

        to allow this.
        * mi-cmds.c: Remove "interpreter-set" command.
        * mi-cmds.h (mi_cmd_interpreter_set): Remove.

diff --git a/gdb/mi/ChangeLog b/gdb/mi/ChangeLog
index 3e6768a3c01dbcf298916a9c317221a0163c5ebd..eff8fdb3043cfeb9fe37d31402ec1757a31c3b1f 100644 (file)
--- a/gdb/mi/ChangeLog
+++ b/gdb/mi/ChangeLog
@@ -1,3 +1,10 @@
+2002-08-13  Keith Seitz  <keiths@redhat.com>
+
+       * mi-interp.c (mi_cmd_interpreter_set): Remove. We're not going
+       to allow this.
+       * mi-cmds.c: Remove "interpreter-set" command.
+       * mi-cmds.h (mi_cmd_interpreter_set): Remove.
+
 2002-08-09  Keith Seitz  <keiths@redhat.com>
 
        * gdbmi.texinfo: Document selected-frame-changed, register-update,

diff --git a/gdb/mi/mi-cmds.c b/gdb/mi/mi-cmds.c
index 0d50d13826fe15bb836e8e0506e37b6d67265007..72440a66c78949e4757ee819cc1f7cd7beed8fd8 100644 (file)
--- a/gdb/mi/mi-cmds.c
+++ b/gdb/mi/mi-cmds.c
@@ -88,7 +88,6 @@ struct mi_cmd mi_cmds[] =
   {"gdb-show", "show %s", 0},
   {"gdb-source", 0, 0},
   {"gdb-version", "show version", 0},
-  {"interpreter-set", 0, 0, mi_cmd_interpreter_set},
   {"interpreter-exec", 0, 0, mi_cmd_interpreter_exec},
   {"kod-info", 0, 0},
   {"kod-list", 0, 0},

diff --git a/gdb/mi/mi-cmds.h b/gdb/mi/mi-cmds.h
index 00961315007ff9a0247ea5780f9b9fb405697e52..45bb59ab6bd66f0412259861671481c6617cb46a 100644 (file)
--- a/gdb/mi/mi-cmds.h
+++ b/gdb/mi/mi-cmds.h
@@ -75,7 +75,6 @@ extern mi_cmd_args_ftype mi_cmd_exec_step_instruction;
 extern mi_cmd_args_ftype mi_cmd_exec_until;
 extern mi_cmd_args_ftype mi_cmd_exec_interrupt;
 extern mi_cmd_argv_ftype mi_cmd_gdb_exit;
-extern mi_cmd_argv_ftype mi_cmd_interpreter_set;
 extern mi_cmd_argv_ftype mi_cmd_interpreter_exec;
 extern mi_cmd_argv_ftype mi_cmd_stack_info_depth;
 extern mi_cmd_argv_ftype mi_cmd_stack_list_args;

diff --git a/gdb/mi/mi-interp.c b/gdb/mi/mi-interp.c
index 9aa5c612fa2e912d79675295b7376d93a3f30a34..fcea9f15e46b8f20fd8d3f145c2c4b86d3460d83 100644 (file)
--- a/gdb/mi/mi-interp.c
+++ b/gdb/mi/mi-interp.c
@@ -292,45 +292,6 @@ mi_cmd_interpreter_exec (char *command, char **argv, int argc)
   return result;
 }
 
-enum mi_cmd_result
-mi_cmd_interpreter_set (char *command, char **argv, int argc)
-{
-  struct gdb_interpreter *interp;
-  int result;
-
-  if (argc != 1)
-    {
-      xasprintf (&mi_error_message,
-                "mi_cmd_interpreter_set: wrong #of args, should be 1 ");
-      return MI_CMD_ERROR;
-    }
-  interp = gdb_lookup_interpreter (argv[0]);
-  if (interp == NULL)
-    {
-      xasprintf (&mi_error_message,
-                "mi_cmd_interpreter_set: could not find interpreter %s",
-                argv[0]);
-      return MI_CMD_ERROR;
-    }
-
-  if (interp != gdb_current_interpreter ())
-    {
-      result = gdb_set_interpreter (interp);
-      if (result != 1)
-       {
-         xasprintf (&mi_error_message,
-                    "mi_cmd_interpreter_set: error setting interpreter %s",
-                    argv[0]);
-         return MI_CMD_ERROR;
-       }
-    }
-
-  /* We don't want to put up the "done" and whatnot here, since we
-   * are going over to another interpreter.
-   */
-  return MI_CMD_QUIET;
-}
-
 /*
  * mi_insert_notify_hooks - This inserts a number of hooks that are meant to produce
  * async-notify ("=") MI messages while running commands in another interpreter