* 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.

4 files changed, 7 insertions, 41 deletions

diff --git a/gdb/mi/ChangeLog b/gdb/mi/ChangeLog
index 3e6768a3c01..eff8fdb3043 100644
--- 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 0d50d13826f..72440a66c78 100644
--- 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 00961315007..45bb59ab6bd 100644
--- 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 9aa5c612fa2..fcea9f15e46 100644
--- 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