static int gdbtk_interpreter_resume (void *data) { static int started = 0; struct gdbtk_interp_data *d = (struct gdbtk_interp_data *) data; gdbtk_add_hooks (); gdb_stdout = d->_stdout; gdb_stderr = d->_stderr; gdb_stdlog = d->_stdlog; gdb_stdtarg = d->_stdtarg; gdb_stdtargin = d->_stdtargin; deprecated_command_loop_hook = gdbtk_command_loop; /* 2003-02-11 keiths: We cannot actually source our main Tcl file in our interpreter's init function because any errors that may get generated will go to the wrong gdb_stderr. Instead of hacking our interpreter init function to force gdb_stderr to our ui_file, we defer sourcing the startup file until now, when gdb is ready to let our interpreter run. */ if (!started) { started = 1; gdbtk_source_start_file (); } return 1; }
void gdbtk_interp::resume () { static int started = 0; gdbtk_add_hooks (); gdb_stdout = _stdout; gdb_stderr = _stderr; gdb_stdlog = _stdlog; gdb_stdtarg = _stdtarg; gdb_stdtargin = _stdtargin; /* 2003-02-11 keiths: We cannot actually source our main Tcl file in our interpreter's init function because any errors that may get generated will go to the wrong gdb_stderr. Instead of hacking our interpreter init function to force gdb_stderr to our ui_file, we defer sourcing the startup file until now, when gdb is ready to let our interpreter run. */ if (!started) { started = 1; gdbtk_source_start_file (); } }