2001-01-26 Fernando Nasser <fnasser@redhat.com>

        * generic/gdbtk-cmds.c (gdb_clear_file): Call exec_file_clear() and
        symbol_file_clear() instead of exec_file_command() and
        symbol_file_command().
        (gdb_find_file_command): Return the proper error text.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 13f1da5..f1dba68 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-26  Fernando Nasser  <fnasser@redhat.com>
+
+       * generic/gdbtk-cmds.c (gdb_clear_file): Call exec_file_clear() and
+       symbol_file_clear() instead of exec_file_command() and
+       symbol_file_command().
+       (gdb_find_file_command): Return the proper error text.
+
 2001-01-25  Fernando Nasser  <fnasser@redhat.com>
 
        * library/srcbar.itcl: New file. Implement SrcBar, a menu and toolbar

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index e3517da..15cc701 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -635,8 +635,8 @@ gdb_clear_file (clientData, interp, objc, objv)
     pop_target ();
 
   delete_command (NULL, 0);
-  exec_file_command (NULL, 0);
-  symbol_file_command (NULL, 0);
+  exec_file_clear (0);
+  symbol_file_clear (0);
 
   return TCL_OK;
 }
@@ -1344,7 +1344,10 @@ gdb_find_file_command (clientData, interp, objc, objv)
     filename = st->fullname;
 
   if (filename == NULL)
-    Tcl_SetStringObj (result_ptr->obj_ptr, "", 0);
+    {
+      Tcl_SetStringObj ( result_ptr->obj_ptr, "File not found in symtab (2)", -1);
+      return TCL_ERROR;
+    }
   else
     Tcl_SetStringObj (result_ptr->obj_ptr, filename, -1);