From 4ff5d55a081fbb280b68d912bf3a4b5f26541b5c Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Sun, 30 Aug 1998 07:53:29 +0000 Subject: Sun Aug 30 00:49:18 1998 Martin M. Hunt * gdbtk-cmds.c (Gdbtk_Init): Link C variable gdb_context with tcl variable gdb_context_id. * gdbtk-hooks.c (gdbtk_context_change): Implement new hook called context_hook. Called when threads change. * gdbtk.c: Initialize gdb_context. * gdbtk.h: Declare gdb_context. * infrun (wait_for_inferior): Call context_hook. * thread.c (thread_command): Call context_hook. * defs.h: Declare context_hook. --- gdb/gdbtk.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gdb/gdbtk.c') diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index e8d31ad..c59821f 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -102,21 +102,21 @@ Tcl_Interp *gdbtk_interp = NULL; static int gdbtk_timer_going = 0; +/* linked variable used to tell tcl what the current thread is */ +int gdb_context = 0; + /* This variable is true when the inferior is running. See note in * gdbtk.h for details. */ - int running_now; /* This variable determines where memory used for disassembly is read from. * See note in gdbtk.h for details. */ - int disassemble_from_exec = -1; /* This variable holds the name of a Tcl file which should be sourced by the interpreter when it goes idle at startup. Used with the testsuite. */ - static char *gdbtk_source_filename = NULL; #ifndef _WIN32 -- cgit v1.1