diff options
| author | Martin Hunt <hunt@redhat.com> | 1999-02-09 22:18:52 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 1999-02-09 22:18:52 +0000 |
| commit | 945df66affccebedf7f9bcc6b5d88850224aa241 (patch) | |
| tree | 59f862918c9f0cd674368ab5ec4e5144cd06180c /gdb/gdbtk-cmds.c | |
| parent | 8741159f8a410c65eaf66564a006812910a68b86 (diff) | |
| download | binutils-945df66affccebedf7f9bcc6b5d88850224aa241.zip binutils-945df66affccebedf7f9bcc6b5d88850224aa241.tar.gz binutils-945df66affccebedf7f9bcc6b5d88850224aa241.tar.bz2 | |
1999-02-09 Martin Hunt <hunt@cygnus.com>
* gdbtk-hooks.c: Remove gdbtk_ignorable_warning prototype.
It is in gdbtk.h.
(report_error): New function. Displays debugging information
if a hook function fails. All hook functions should probably
call this.
(gdbtk_warning): Call report_error() if there is a problem.
(gdbtk_register_changed): Call report_error() if there is a problem.
(gdbtk_memory_changed): Call report_error() if there is a problem.
(gdbtk_ignorable_warning): Pass along class argument. If there
is a problem, call report_error().
* gdbtk-cmds.c: Remove TclDebug prototype. It is in gdbtk.h.
(gdb_loadfile): Add class name to gdbtk_ignorable_warning call.
* gdbtk.c (TclDebug): Add "priority" argument. Calls "dbug"
instead of "debug". Removed non-ANSI ifdefs.
* gdbtk.h: Fixed protos for gdbtk_ignorable_warning and TclDebug.
Diffstat (limited to 'gdb/gdbtk-cmds.c')
| -rw-r--r-- | gdb/gdbtk-cmds.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c index b81c3f9..ee5d1e1 100644 --- a/gdb/gdbtk-cmds.c +++ b/gdb/gdbtk-cmds.c @@ -243,7 +243,6 @@ static void get_register_name PARAMS ((int, void *)); static int map_arg_registers PARAMS ((int, Tcl_Obj *CONST [], void (*) (int, void *), void *)); static int perror_with_name_wrapper PARAMS ((PTR args)); static void register_changed_p PARAMS ((int, void *)); -void TclDebug PARAMS ((const char *fmt, ...)); static int wrapped_call (PTR opaque_args); static void get_frame_name PARAMS ((Tcl_Interp *interp, Tcl_Obj *list, struct frame_info *fi)); @@ -2735,9 +2734,12 @@ gdb_loadfile (clientData, interp, objc, objv) mtime = bfd_get_mtime(exec_bfd); if (mtime && mtime < st.st_mtime) - gdbtk_ignorable_warning("Source file is more recent than executable.\n"); - - + { + gdbtk_ignorable_warning("file_times",\ + "Source file is more recent than executable.\n"); + } + + /* Source linenumbers don't appear to be in order, and a sort is */ /* too slow so the fastest solution is just to allocate a huge */ /* array and set the array entry for each linenumber */ |