diff options
| author | Fernando Nasser <fnasser@redhat.com> | 2001-01-27 00:50:29 +0000 |
|---|---|---|
| committer | Fernando Nasser <fnasser@redhat.com> | 2001-01-27 00:50:29 +0000 |
| commit | ad74ab0a64ab845b16fbc7508874dc49b42ab6ae (patch) | |
| tree | 4b5593e6353c3f4abb210ef3de29f4b21867848f /gdb/gdbtk | |
| parent | 48133c852805381212b62f36580eff5c02cb27e2 (diff) | |
| download | gdb-ad74ab0a64ab845b16fbc7508874dc49b42ab6ae.tar.gz | |
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.
Diffstat (limited to 'gdb/gdbtk')
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/gdbtk/generic/gdbtk-cmds.c | 9 |
2 files changed, 13 insertions, 3 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 13f1da535ff..f1dba68491f 100644 --- 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 e3517da7183..15cc7019660 100644 --- 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); |