mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-21 08:13:37 +08:00
4ff5d55a08
* 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.
149 lines
5.3 KiB
C
149 lines
5.3 KiB
C
/* Tcl/Tk interface routines header file.
|
|
Copyright 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
|
|
|
|
Written by Stu Grossman <grossman@cygnus.com> of Cygnus Support.
|
|
|
|
This file is part of GDB. It contains the public data that is shared between
|
|
the gdbtk startup code and the gdbtk commands.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|
|
|
#ifdef WINNT
|
|
#define GDBTK_PATH_SEP ";"
|
|
#else
|
|
#define GDBTK_PATH_SEP ":"
|
|
#endif
|
|
|
|
/* Some versions (1.3.79, 1.3.81) of Linux don't support SIOCSPGRP the way
|
|
gdbtk wants to use it... */
|
|
#ifdef __linux__
|
|
#undef SIOCSPGRP
|
|
#endif
|
|
|
|
/*
|
|
* These are the version numbers for GDBTK. There is a package require
|
|
* statement in main.tcl that checks the version. If you make an incompatible
|
|
* change to the gdb commands, or add any new commands, be sure to bump the
|
|
* version number both here and in main.tcl. This will save us the trouble of
|
|
* having a version of gdb find the wrong versions of the Tcl libraries.
|
|
*/
|
|
|
|
#define GDBTK_MAJOR_VERSION "1"
|
|
#define GDBTK_MINOR_VERSION "0"
|
|
#define GDBTK_VERSION "1.0"
|
|
|
|
/*
|
|
* These are variables that are needed in gdbtk commands.
|
|
*/
|
|
|
|
/* This variable determines where memory used for disassembly is read from.
|
|
If > 0, then disassembly comes from the exec file rather than the
|
|
target (which might be at the other end of a slow serial link). If
|
|
== 0 then disassembly comes from target. If < 0 disassembly is
|
|
automatically switched to the target if it's an inferior process,
|
|
otherwise the exec file is used. It is defined in gdbtk.c */
|
|
|
|
|
|
extern int disassemble_from_exec;
|
|
|
|
/* This variable is true when the inferior is running. Although it's
|
|
possible to disable most input from widgets and thus prevent
|
|
attempts to do anything while the inferior is running, any commands
|
|
that get through - even a simple memory read - are Very Bad, and
|
|
may cause GDB to crash or behave strangely. So, this variable
|
|
provides an extra layer of defense. It is defined in gdbtk.c */
|
|
|
|
extern int running_now;
|
|
|
|
/* These two control how the GUI behaves when tracing or loading
|
|
They are defined in gdbtk-cmds.c */
|
|
|
|
extern int No_Update;
|
|
extern int load_in_progress;
|
|
|
|
/* This is the main gdbtk interpreter. It is defined and initialized
|
|
in gdbtk.c */
|
|
|
|
extern Tcl_Interp *gdbtk_interp;
|
|
|
|
/*
|
|
* This structure controls how the gdb output is fed into call_wrapper invoked
|
|
* commands. See the explanation of gdbtk_fputs in gdbtk_hooks.c for more details.
|
|
*/
|
|
|
|
typedef struct gdbtk_result {
|
|
Tcl_Obj *obj_ptr; /* This will eventually be copied over to the
|
|
Tcl result */
|
|
int flags; /* Flag vector to control how the result is
|
|
used. */
|
|
} gdbtk_result;
|
|
|
|
/* These defines give the allowed values for the gdbtk_result.flags field. */
|
|
|
|
#define GDBTK_TO_RESULT 1 /* This controls whether output from
|
|
gdbtk_fputs goes to the command result, or
|
|
to gdbtk_tcl_fputs. */
|
|
#define GDBTK_MAKES_LIST 2 /* whether gdbtk_fputs adds the
|
|
element it is outputting as a string, or
|
|
as a separate list element. */
|
|
#define GDBTK_IN_TCL_RESULT 4 /* Indicates that the result is already in the
|
|
Tcl result. You can use this to preserve
|
|
error messages from functions like
|
|
Tcl_GetIntFromObj. You can also store the
|
|
output of a call wrapped command directly in
|
|
the Tcl result if you want, but beware, it will
|
|
not then be preserved across recursive
|
|
call_wrapper invocations. */
|
|
#define GDBTK_ERROR_STARTED 8 /* This one is just used in gdbtk_fputs. If we
|
|
see some output on stderr, we need to clear
|
|
the result we have been accumulating, or the
|
|
error and the previous successful output
|
|
will get mixed, which would be confusing. */
|
|
|
|
|
|
/* This is a pointer to the gdbtk_result struct that
|
|
we are currently filling. We use the C stack to make a stack of these
|
|
structures for nested calls to gdbtk commands that are invoked through
|
|
the call_wrapper mechanism. See that function for more details. */
|
|
|
|
extern gdbtk_result *result_ptr;
|
|
|
|
/* GDB context identifier */
|
|
extern int gdb_context;
|
|
|
|
/*
|
|
* These functions are used in all the modules of Gdbtk.
|
|
*
|
|
*/
|
|
|
|
extern int Gdbtk_Init(Tcl_Interp *interp);
|
|
extern void gdbtk_stop_timer PARAMS ((void));
|
|
extern void gdbtk_start_timer PARAMS ((void));
|
|
extern void gdbtk_ignorable_warning PARAMS ((const char *));
|
|
extern void gdbtk_interactive PARAMS ((void));
|
|
extern void x_event PARAMS ((int));
|
|
extern int gdbtk_two_elem_cmd PARAMS ((char *, char *));
|
|
|
|
#ifdef _WIN32
|
|
extern void close_bfds ();
|
|
#endif /* _WIN32 */
|
|
|
|
extern void
|
|
#ifdef ANSI_PROTOTYPES
|
|
TclDebug (const char *fmt, ...);
|
|
#else
|
|
TclDebug (va_alist);
|
|
#endif
|