From 572977a5525c76cd50ef6e7383134f7313467d5d Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Tue, 14 May 1996 02:11:53 +0000 Subject: [PATCH] * gdbtk.c (tk_command): Catch case where no argument is given since this will cause the tcl interpreter to dump core. --- gdb/ChangeLog | 9 +++++++++ gdb/gdbtk.c | 4 ++++ 2 files changed, 13 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index cba7fb3..e74f363 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +start-sanitize-gdbtk +Mon May 13 13:43:25 1996 Fred Fish + + * gdbtk.c (tk_command): Catch case where no argument is given + since this will cause the tcl interpreter to dump core. +end-sanitize-gdbtk + Mon May 13 17:40:58 1996 Jeffrey A Law (law@cygnus.com) * top.c (execute_control_command, case while_control): Allow @@ -75,7 +82,9 @@ Wed May 8 20:33:24 1996 Fred Fish (enable_delete_breakpoint): Ditto. * breakpoint.h (clear_momentary_breakpoints): Remove prototype. * symtab.c (find_pc_line): Improve comments. +start-sanitize-gdbtk * gdbtk.c: Fix a couple of misspellings. +end-sanitize-gdbtk * xcoffread.c: Ditto. Tue May 7 18:37:06 1996 Stan Shebs diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index bf5c251..08b483e 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -1009,6 +1009,10 @@ tk_command (cmd, from_tty) char *result; struct cleanup *old_chain; + /* Catch case of no argument, since this will make the tcl interpreter dump core. */ + if (cmd == NULL) + error_no_arg ("tcl command to interpret"); + retval = Tcl_Eval (interp, cmd); result = strdup (interp->result); -- 2.7.4