* gdbtk.c (tk_command): Catch case where no argument is given

since this will cause the tcl interpreter to dump core.
This commit is contained in:
Fred Fish 1996-05-14 02:11:53 +00:00
parent efb33f6b07
commit 572977a552
2 changed files with 13 additions and 0 deletions

View file

@ -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);