2002-11-04 Elena Zannoni <ezannoni@redhat.com>

	* interps.c (set_interpreter_cmd): Remove.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 75f5ec3ae90c35736fe079cdd25f07230fb253cb..728a7cf53511645e09f6918219931bbc313a9b0c 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,7 +1,12 @@
+2002-11-04  Elena Zannoni  <ezannoni@redhat.com>
+
+       * interps.c (set_interpreter_cmd): Remove.
+
 2002-11-04  Elena Zannoni  <ezannoni@redhat.com>
 
        * interps.c (interpreter_completer): Initialize alloced.
        (struct gdb_interpreter): Reformat.
+       (set_interpreter_cmd): Remove.
 
 2002-11-04  Elena Zannoni  <ezannoni@redhat.com>
 

diff --git a/gdb/interps.c b/gdb/interps.c
index 68305bea3e140b690591aec39339d2521d63348f..2137bfd93bc2fa5e87769105d441e420b6ab7a89 100644 (file)
--- a/gdb/interps.c
+++ b/gdb/interps.c
@@ -67,8 +67,6 @@ struct gdb_interpreter
 /* Functions local to this file. */
 static void initialize_interps (void);
 
-static void set_interpreter_cmd (char *args, int from_tty,
-                                struct cmd_list_element *c);
 static void list_interpreter_cmd (char *args, int from_tty);
 static void do_set_interpreter (int not_an_fd);
 static char **interpreter_completer (char *text, char *word);
@@ -472,34 +470,6 @@ initialize_interps (void)
   /* Don't know if anything needs to be done here... */
 }
 
-/* set_interpreter_cmd - This implements "set interpreter foo". */
-
-static void
-set_interpreter_cmd (char *args, int from_tty, struct cmd_list_element *c)
-{
-  struct gdb_interpreter *interp_ptr;
-
-  dont_repeat ();
-
-  if (cmd_type (c) != set_cmd)
-    return;
-
-  interp_ptr = gdb_lookup_interpreter (interpreter_p);
-  if (interp_ptr != NULL)
-    {
-      if (!gdb_set_interpreter (interp_ptr))
-       error ("\nCould not switch to interpreter \"%s\", %s%s\".\n",
-              interp_ptr->name, "reverting to interpreter \"",
-              current_interpreter->name);
-    }
-  else
-    {
-      char *bad_name = interpreter_p;
-      interpreter_p = xstrdup (current_interpreter->name);
-      error ("Could not find interpreter \"%s\".", bad_name);
-    }
-}
-
 void
 interpreter_exec_cmd (char *args, int from_tty)
 {