diff options
| author | Jim Ingham <jingham@apple.com> | 1999-01-30 04:20:31 +0000 |
|---|---|---|
| committer | Jim Ingham <jingham@apple.com> | 1999-01-30 04:20:31 +0000 |
| commit | 1d70b547cb62cd3b23dfc5df091e119eed78ccc7 (patch) | |
| tree | 4ca7435e9d36882ac5e3a01836242f0c9636aff7 /gdb/gdbtk.c | |
| parent | b845066654fb6cf4ec1ffb9724e035364286924c (diff) | |
| download | fsf-binutils-gdb-1d70b547cb62cd3b23dfc5df091e119eed78ccc7.zip fsf-binutils-gdb-1d70b547cb62cd3b23dfc5df091e119eed78ccc7.tar.gz fsf-binutils-gdb-1d70b547cb62cd3b23dfc5df091e119eed78ccc7.tar.bz2 | |
1999-01-29 James Ingham <jingham@cygnus.com>
* gdbtk.c (gdbtk_init): Set the fputs_unfiltered_hook to
gdbtk_fputs BEFORE you eval script. The old code was setting it
to null until after you did this, but that is wrong, because it
will cause the output of CAUGHT errors to go to gdb_stderr, which
is wrong. You only want to write errors to the console if the
eval generates an error.
Diffstat (limited to 'gdb/gdbtk.c')
| -rw-r--r-- | gdb/gdbtk.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index 61075fb..3e96505 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -558,7 +558,7 @@ proc gdbtk_find_main {} {\n\ gdbtk_find_main"; #endif /* NO_TCLPRO_DEBUGGER */ - fputs_unfiltered_hook = NULL; /* Force errors to stdout/stderr */ + /* fputs_unfiltered_hook = NULL; */ /* Force errors to stdout/stderr */ /* * Set the variables for external editor, do this before eval'ing main.tcl @@ -570,7 +570,9 @@ gdbtk_find_main"; Tcl_SetVar (gdbtk_interp, "external_editor_command", external_editor_command, 0); - if (Tcl_GlobalEval (gdbtk_interp, (char *) script) != TCL_OK) + fputs_unfiltered_hook = gdbtk_fputs; + + if (Tcl_GlobalEval (gdbtk_interp, (char *) script) != TCL_OK) { char *msg; @@ -592,10 +594,6 @@ gdbtk_find_main"; } } -/* Defer setup of fputs_unfiltered_hook to near the end so that error messages - prior to this point go to stdout/stderr. */ - - fputs_unfiltered_hook = gdbtk_fputs; /* start-sanitize-ide */ #ifdef IDE |