1994-07-29 00:07:02 +02:00
|
|
|
|
/* TK interface routines.
|
|
|
|
|
Copyright 1994 Free Software Foundation, Inc.
|
|
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
|
|
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "inferior.h"
|
|
|
|
|
#include "command.h"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "symfile.h"
|
|
|
|
|
#include "objfiles.h"
|
|
|
|
|
#include "target.h"
|
|
|
|
|
#include <tcl.h>
|
|
|
|
|
#include <tk.h>
|
1994-11-02 01:50:12 +01:00
|
|
|
|
#include <varargs.h>
|
|
|
|
|
#include <signal.h>
|
|
|
|
|
#include <fcntl.h>
|
1994-09-13 18:24:01 +02:00
|
|
|
|
#include <unistd.h>
|
1994-12-16 02:07:35 +01:00
|
|
|
|
#include <setjmp.h>
|
|
|
|
|
#include "top.h"
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
/* Non-zero means that we're doing the gdbtk interface. */
|
|
|
|
|
int gdbtk = 0;
|
|
|
|
|
|
|
|
|
|
/* Non-zero means we are reloading breakpoints, etc from the
|
|
|
|
|
Gdbtk kernel, and we should suppress various messages */
|
|
|
|
|
static int gdbtk_reloading = 0;
|
|
|
|
|
|
|
|
|
|
/* Handle for TCL interpreter */
|
|
|
|
|
static Tcl_Interp *interp = NULL;
|
|
|
|
|
|
|
|
|
|
/* Handle for TK main window */
|
|
|
|
|
static Tk_Window mainWindow = NULL;
|
|
|
|
|
|
1994-10-21 01:59:20 +01:00
|
|
|
|
static int x_fd; /* X network socket */
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
static void
|
|
|
|
|
null_routine(arg)
|
|
|
|
|
int arg;
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
static char *saved_output_buf = NULL; /* Start of output buffer */
|
|
|
|
|
static char *saved_output_data_end = NULL; /* Ptr to nul at end of data */
|
|
|
|
|
static int saved_output_buf_free = 0; /* Amount of free space in buffer */
|
|
|
|
|
static char saved_output_static_buf[200]; /* Default buffer */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
start_saving_output ()
|
|
|
|
|
{
|
|
|
|
|
if (saved_output_buf)
|
|
|
|
|
abort (); /* Should always be zero at this point */
|
|
|
|
|
|
|
|
|
|
saved_output_buf = saved_output_static_buf;
|
|
|
|
|
saved_output_data_end = saved_output_buf;
|
|
|
|
|
*saved_output_data_end = '\000';
|
|
|
|
|
saved_output_buf_free = sizeof saved_output_static_buf - 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
save_output (ptr)
|
|
|
|
|
const char *ptr;
|
|
|
|
|
{
|
|
|
|
|
int len;
|
|
|
|
|
int needed, data_len;
|
|
|
|
|
|
|
|
|
|
len = strlen (ptr);
|
|
|
|
|
|
|
|
|
|
if (len <= saved_output_buf_free)
|
|
|
|
|
{
|
|
|
|
|
strcpy (saved_output_data_end, ptr);
|
|
|
|
|
saved_output_data_end += len;
|
|
|
|
|
saved_output_buf_free -= len;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
data_len = saved_output_data_end - saved_output_buf;
|
|
|
|
|
needed = (data_len + len + 1) * 2;
|
|
|
|
|
|
|
|
|
|
if (saved_output_buf == saved_output_static_buf)
|
|
|
|
|
{
|
|
|
|
|
char *tmp;
|
|
|
|
|
|
|
|
|
|
tmp = xmalloc (needed);
|
|
|
|
|
strcpy (tmp, saved_output_buf);
|
|
|
|
|
saved_output_buf = tmp;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
saved_output_buf = xrealloc (saved_output_buf, needed);
|
|
|
|
|
|
|
|
|
|
saved_output_data_end = saved_output_buf + data_len;
|
|
|
|
|
saved_output_buf_free = (needed - data_len) - 1;
|
|
|
|
|
|
|
|
|
|
save_output (ptr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#define get_saved_output() saved_output_buf
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
finish_saving_output ()
|
|
|
|
|
{
|
|
|
|
|
if (saved_output_buf != saved_output_static_buf)
|
|
|
|
|
free (saved_output_buf);
|
|
|
|
|
|
|
|
|
|
saved_output_buf = NULL;
|
|
|
|
|
}
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
/* This routine redirects the output of fputs_unfiltered so that
|
|
|
|
|
the user can see what's going on in his debugger window. */
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
static char holdbuf[200];
|
|
|
|
|
static char *holdbufp = holdbuf;
|
|
|
|
|
static int holdfree = sizeof (holdbuf);
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
static void
|
1994-09-13 18:24:01 +02:00
|
|
|
|
flush_holdbuf ()
|
1994-07-29 00:07:02 +02:00
|
|
|
|
{
|
1994-09-13 18:24:01 +02:00
|
|
|
|
if (holdbufp == holdbuf)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_fputs ", "{", holdbuf, "}", NULL);
|
|
|
|
|
holdbufp = holdbuf;
|
|
|
|
|
holdfree = sizeof (holdbuf);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_flush (stream)
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
1994-12-16 02:07:35 +01:00
|
|
|
|
if (stream != gdb_stdout || saved_output_buf)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* Flush output from C to tcl land. */
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
flush_holdbuf ();
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
/* Force immediate screen update */
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_flush", NULL);
|
|
|
|
|
}
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
static void
|
1994-12-16 02:07:35 +01:00
|
|
|
|
gdbtk_fputs (ptr, stream)
|
1994-09-13 18:24:01 +02:00
|
|
|
|
const char *ptr;
|
1994-12-16 02:07:35 +01:00
|
|
|
|
FILE *stream;
|
1994-09-13 18:24:01 +02:00
|
|
|
|
{
|
|
|
|
|
int len;
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
if (stream != gdb_stdout)
|
|
|
|
|
{
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_fputs_error ", "{", ptr, "}", NULL);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (saved_output_buf)
|
|
|
|
|
{
|
|
|
|
|
save_output (ptr);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
len = strlen (ptr) + 1;
|
|
|
|
|
|
|
|
|
|
if (len > holdfree)
|
|
|
|
|
{
|
|
|
|
|
flush_holdbuf ();
|
|
|
|
|
|
|
|
|
|
if (len > sizeof (holdbuf))
|
|
|
|
|
{
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_fputs ", "{", ptr, "}", NULL);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
strncpy (holdbufp, ptr, len);
|
|
|
|
|
holdbufp += len - 1;
|
|
|
|
|
holdfree -= len - 1;
|
|
|
|
|
}
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
static int
|
|
|
|
|
gdbtk_query (args)
|
|
|
|
|
va_list args;
|
|
|
|
|
{
|
|
|
|
|
char *query;
|
|
|
|
|
char buf[200];
|
|
|
|
|
long val;
|
|
|
|
|
|
|
|
|
|
query = va_arg (args, char *);
|
|
|
|
|
|
|
|
|
|
vsprintf(buf, query, args);
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_query ", "{", buf, "}", NULL);
|
|
|
|
|
|
|
|
|
|
val = atol (interp->result);
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
breakpoint_notify(b, action)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
const char *action;
|
|
|
|
|
{
|
|
|
|
|
struct symbol *sym;
|
1994-09-13 18:24:01 +02:00
|
|
|
|
char bpnum[50], line[50], pc[50];
|
1994-07-29 00:07:02 +02:00
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
char *filename;
|
|
|
|
|
int v;
|
|
|
|
|
|
|
|
|
|
if (b->type != bp_breakpoint)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
sal = find_pc_line (b->address, 0);
|
|
|
|
|
|
1994-09-17 00:57:37 +02:00
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
sprintf (bpnum, "%d", b->number);
|
|
|
|
|
sprintf (line, "%d", sal.line);
|
1994-09-13 18:24:01 +02:00
|
|
|
|
sprintf (pc, "0x%x", b->address);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
v = Tcl_VarEval (interp,
|
|
|
|
|
"gdbtk_tcl_breakpoint ",
|
|
|
|
|
action,
|
|
|
|
|
" ", bpnum,
|
|
|
|
|
" ", filename,
|
|
|
|
|
" ", line,
|
1994-09-13 18:24:01 +02:00
|
|
|
|
" ", pc,
|
1994-07-29 00:07:02 +02:00
|
|
|
|
NULL);
|
|
|
|
|
|
|
|
|
|
if (v != TCL_OK)
|
|
|
|
|
{
|
|
|
|
|
gdbtk_fputs (interp->result);
|
|
|
|
|
gdbtk_fputs ("\n");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_create_breakpoint(b)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
|
|
|
|
breakpoint_notify(b, "create");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_delete_breakpoint(b)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
|
|
|
|
breakpoint_notify(b, "delete");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_enable_breakpoint(b)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
|
|
|
|
breakpoint_notify(b, "enable");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_disable_breakpoint(b)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
|
|
|
|
breakpoint_notify(b, "disable");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This implements the TCL command `gdb_loc', which returns a list consisting
|
|
|
|
|
of the source and line number associated with the current pc. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_loc (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
char *filename;
|
|
|
|
|
char buf[100];
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
char *funcname;
|
1994-09-13 18:24:01 +02:00
|
|
|
|
CORE_ADDR pc;
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
if (argc == 1)
|
|
|
|
|
{
|
Replace useless FRAME, FRAME_ADDR types with struct frame_info *
and CORE_ADDR, respectively.
* frame.h (FRAME, FRAME_INFO_ID, FRAME_ADDR): Remove.
* blockframe.c (get_frame_info): Remove.
* a29k-tdep.c, alpha-tdep.c, blockframe.c, breakpoint.c,
breakpoint.h, energize.c, findvar.c, gdbtk.c, gould-pinsn.c,
h8300-tdep.c, h8500-tdep.c, hppa-tdep.c, i386-tdep.c, i960-tdep.c,
infcmd.c, inferior.h, infrun.c, m68k-tdep.c, m88k-tdep.c,
mips-tdep.c, nindy-tdep.c, printcmd.c, pyr-tdep.c, rs6000-tdep.c,
sh-tdep.c, sparc-tdep.c, stack.c, valops.c, z8k-tdep.c,
config/a29k/tm-a29k.h, config/alpha/tm-alpha.h,
config/gould/tm-pn.h, config/h8300/tm-h8300.h,
config/h8500/tm-h8500.h, config/mips/tm-mips.h,
config/ns32k/tm-merlin.h, config/ns32k/tm-umax.h,
config/pyr/tm-pyr.h, config/sparc/tm-sparc.h): Replace FRAME with
struct frame_info * everywhere, replace FRAME_ADDR with CORE_ADDR,
rename variables consistently (using `frame' or `fi'), remove
calls to get_frame_info and FRAME_INFO_ID, remove comments about
FRAME and FRAME_ADDR cruftiness.
1994-11-04 02:32:34 +01:00
|
|
|
|
pc = selected_frame ? selected_frame->pc : stop_pc;
|
1994-07-29 00:07:02 +02:00
|
|
|
|
sal = find_pc_line (pc, 0);
|
|
|
|
|
}
|
|
|
|
|
else if (argc == 2)
|
|
|
|
|
{
|
|
|
|
|
struct symtabs_and_lines sals;
|
1994-09-13 18:24:01 +02:00
|
|
|
|
int nelts;
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
sals = decode_line_spec (argv[1], 1);
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
nelts = sals.nelts;
|
|
|
|
|
sal = sals.sals[0];
|
|
|
|
|
free (sals.sals);
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
if (sals.nelts != 1)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "Ambiguous line spec", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
pc = sal.pc;
|
1994-07-29 00:07:02 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "wrong # args", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (sal.symtab)
|
|
|
|
|
Tcl_AppendElement (interp, sal.symtab->filename);
|
|
|
|
|
else
|
|
|
|
|
Tcl_AppendElement (interp, "");
|
1994-09-13 18:24:01 +02:00
|
|
|
|
|
|
|
|
|
find_pc_partial_function (pc, &funcname, NULL, NULL);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
Tcl_AppendElement (interp, funcname);
|
1994-09-13 18:24:01 +02:00
|
|
|
|
|
1994-09-17 00:57:37 +02:00
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
Tcl_AppendElement (interp, filename);
|
1994-09-13 18:24:01 +02:00
|
|
|
|
|
|
|
|
|
sprintf (buf, "%d", sal.line);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
Tcl_AppendElement (interp, buf); /* line number */
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
sprintf (buf, "0x%x", pc);
|
|
|
|
|
Tcl_AppendElement (interp, buf); /* PC */
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1994-11-14 17:59:16 +01:00
|
|
|
|
/* This implements the TCL command `gdb_sourcelines', which returns a list of
|
|
|
|
|
all of the lines containing executable code for the specified source file
|
|
|
|
|
(ie: lines where you can put breakpoints). */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_sourcelines (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
struct symtab *symtab;
|
|
|
|
|
struct linetable_entry *le;
|
|
|
|
|
int nlines;
|
|
|
|
|
char buf[100];
|
|
|
|
|
|
|
|
|
|
if (argc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "wrong # args", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
symtab = lookup_symtab (argv[1]);
|
|
|
|
|
|
|
|
|
|
if (!symtab)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "No such file", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If there's no linetable, or no entries, then we are done. */
|
|
|
|
|
|
|
|
|
|
if (!symtab->linetable
|
|
|
|
|
|| symtab->linetable->nitems == 0)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendElement (interp, "");
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
le = symtab->linetable->item;
|
|
|
|
|
nlines = symtab->linetable->nitems;
|
|
|
|
|
|
|
|
|
|
for (;nlines > 0; nlines--, le++)
|
|
|
|
|
{
|
|
|
|
|
/* If the pc of this line is the same as the pc of the next line, then
|
|
|
|
|
just skip it. */
|
|
|
|
|
if (nlines > 1
|
|
|
|
|
&& le->pc == (le + 1)->pc)
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "%d", le->line);
|
|
|
|
|
Tcl_AppendElement (interp, buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-12 21:50:08 +01:00
|
|
|
|
static int
|
|
|
|
|
map_arg_registers (argc, argv, func, argp)
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
int (*func) PARAMS ((int regnum, void *argp));
|
|
|
|
|
void *argp;
|
|
|
|
|
{
|
|
|
|
|
int regnum;
|
|
|
|
|
|
|
|
|
|
/* Note that the test for a valid register must include checking the
|
|
|
|
|
reg_names array because NUM_REGS may be allocated for the union of the
|
|
|
|
|
register sets within a family of related processors. In this case, the
|
|
|
|
|
trailing entries of reg_names will change depending upon the particular
|
|
|
|
|
processor being debugged. */
|
|
|
|
|
|
|
|
|
|
if (argc == 0) /* No args, just do all the regs */
|
|
|
|
|
{
|
|
|
|
|
for (regnum = 0;
|
|
|
|
|
regnum < NUM_REGS
|
|
|
|
|
&& reg_names[regnum] != NULL
|
|
|
|
|
&& *reg_names[regnum] != '\000';
|
|
|
|
|
regnum++)
|
|
|
|
|
func (regnum, argp);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Else, list of register #s, just do listed regs */
|
|
|
|
|
for (; argc > 0; argc--, argv++)
|
|
|
|
|
{
|
|
|
|
|
regnum = atoi (*argv);
|
|
|
|
|
|
|
|
|
|
if (regnum >= 0
|
|
|
|
|
&& regnum < NUM_REGS
|
|
|
|
|
&& reg_names[regnum] != NULL
|
|
|
|
|
&& *reg_names[regnum] != '\000')
|
|
|
|
|
func (regnum, argp);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "bad register number", TCL_STATIC);
|
|
|
|
|
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
get_register_name (regnum, argp)
|
|
|
|
|
int regnum;
|
|
|
|
|
void *argp; /* Ignored */
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendElement (interp, reg_names[regnum]);
|
|
|
|
|
}
|
|
|
|
|
|
1994-11-14 17:59:16 +01:00
|
|
|
|
/* This implements the TCL command `gdb_regnames', which returns a list of
|
|
|
|
|
all of the register names. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_regnames (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
1994-12-12 21:50:08 +01:00
|
|
|
|
argc--;
|
|
|
|
|
argv++;
|
|
|
|
|
|
|
|
|
|
return map_arg_registers (argc, argv, get_register_name, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifndef REGISTER_CONVERTIBLE
|
|
|
|
|
#define REGISTER_CONVERTIBLE(x) (0 != 0)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef REGISTER_CONVERT_TO_VIRTUAL
|
|
|
|
|
#define REGISTER_CONVERT_TO_VIRTUAL(x, y, z, a)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef INVALID_FLOAT
|
|
|
|
|
#define INVALID_FLOAT(x, y) (0 != 0)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
get_register (regnum, fp)
|
|
|
|
|
void *fp;
|
|
|
|
|
{
|
|
|
|
|
char raw_buffer[MAX_REGISTER_RAW_SIZE];
|
|
|
|
|
char virtual_buffer[MAX_REGISTER_VIRTUAL_SIZE];
|
|
|
|
|
int format = (int)fp;
|
|
|
|
|
|
|
|
|
|
if (read_relative_register_raw_bytes (regnum, raw_buffer))
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendElement (interp, "Optimized out");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
start_saving_output (); /* Start collecting stdout */
|
1994-12-12 21:50:08 +01:00
|
|
|
|
|
|
|
|
|
/* Convert raw data to virtual format if necessary. */
|
|
|
|
|
|
|
|
|
|
if (REGISTER_CONVERTIBLE (regnum))
|
|
|
|
|
{
|
|
|
|
|
REGISTER_CONVERT_TO_VIRTUAL (regnum, REGISTER_VIRTUAL_TYPE (regnum),
|
|
|
|
|
raw_buffer, virtual_buffer);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (regnum));
|
|
|
|
|
|
|
|
|
|
val_print (REGISTER_VIRTUAL_TYPE (regnum), virtual_buffer, 0,
|
|
|
|
|
gdb_stdout, format, 1, 0, Val_pretty_default);
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
Tcl_AppendElement (interp, get_saved_output ());
|
1994-12-12 21:50:08 +01:00
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
finish_saving_output (); /* Set stdout back to normal */
|
1994-12-12 21:50:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_fetch_registers (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int format;
|
|
|
|
|
|
|
|
|
|
if (argc < 2)
|
1994-11-14 17:59:16 +01:00
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "wrong # args", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-12 21:50:08 +01:00
|
|
|
|
argc--;
|
|
|
|
|
argv++;
|
1994-11-14 17:59:16 +01:00
|
|
|
|
|
1994-12-12 21:50:08 +01:00
|
|
|
|
argc--;
|
|
|
|
|
format = **argv++;
|
|
|
|
|
|
|
|
|
|
return map_arg_registers (argc, argv, get_register, format);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This contains the previous values of the registers, since the last call to
|
|
|
|
|
gdb_changed_register_list. */
|
|
|
|
|
|
|
|
|
|
static char old_regs[REGISTER_BYTES];
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
register_changed_p (regnum, argp)
|
|
|
|
|
void *argp; /* Ignored */
|
|
|
|
|
{
|
|
|
|
|
char raw_buffer[MAX_REGISTER_RAW_SIZE];
|
|
|
|
|
char buf[100];
|
|
|
|
|
|
|
|
|
|
if (read_relative_register_raw_bytes (regnum, raw_buffer))
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (memcmp (&old_regs[REGISTER_BYTE (regnum)], raw_buffer,
|
|
|
|
|
REGISTER_RAW_SIZE (regnum)) == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* Found a changed register. Save new value and return it's number. */
|
|
|
|
|
|
|
|
|
|
memcpy (&old_regs[REGISTER_BYTE (regnum)], raw_buffer,
|
|
|
|
|
REGISTER_RAW_SIZE (regnum));
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "%d", regnum);
|
|
|
|
|
Tcl_AppendElement (interp, buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_changed_register_list (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int format;
|
|
|
|
|
|
|
|
|
|
argc--;
|
|
|
|
|
argv++;
|
|
|
|
|
|
|
|
|
|
return map_arg_registers (argc, argv, register_changed_p, NULL);
|
1994-11-14 17:59:16 +01:00
|
|
|
|
}
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
/* This implements the TCL command `gdb_cmd', which sends it's argument into
|
|
|
|
|
the GDB command scanner. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_cmd (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
if (argc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "wrong # args", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
execute_command (argv[1], 1);
|
1994-10-21 01:59:20 +01:00
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
bpstat_do_actions (&stop_bpstat);
|
|
|
|
|
|
1994-09-13 18:24:01 +02:00
|
|
|
|
/* Drain all buffered command output */
|
|
|
|
|
|
|
|
|
|
gdb_flush (gdb_stdout);
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
/* This routine acts as a top-level for all GDB code called by tcl/Tk. It
|
|
|
|
|
handles cleanups, and calls to return_to_top_level (usually via error).
|
|
|
|
|
This is necessary in order to prevent a longjmp out of the bowels of Tk,
|
|
|
|
|
possibly leaving things in a bad state. Since this routine can be called
|
|
|
|
|
recursively, it needs to save and restore the contents of the jmp_buf as
|
|
|
|
|
necessary. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
call_wrapper (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int val;
|
|
|
|
|
struct cleanup *saved_cleanup_chain;
|
|
|
|
|
Tcl_CmdProc *func;
|
|
|
|
|
jmp_buf saved_error_return;
|
|
|
|
|
|
|
|
|
|
func = (Tcl_CmdProc *)clientData;
|
|
|
|
|
memcpy (saved_error_return, error_return, sizeof (jmp_buf));
|
|
|
|
|
|
|
|
|
|
saved_cleanup_chain = save_cleanups ();
|
|
|
|
|
|
|
|
|
|
if (!setjmp (error_return))
|
|
|
|
|
val = func (clientData, interp, argc, argv);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
val = TCL_ERROR; /* Flag an error for TCL */
|
|
|
|
|
|
|
|
|
|
finish_saving_output (); /* Restore stdout to normal */
|
|
|
|
|
|
|
|
|
|
gdb_flush (gdb_stderr); /* Flush error output */
|
|
|
|
|
|
|
|
|
|
/* In case of an error, we may need to force the GUI into idle mode because
|
|
|
|
|
gdbtk_call_command may have bombed out while in the command routine. */
|
|
|
|
|
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_idle", NULL);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
do_cleanups (ALL_CLEANUPS);
|
|
|
|
|
|
|
|
|
|
restore_cleanups (saved_cleanup_chain);
|
|
|
|
|
|
|
|
|
|
memcpy (error_return, saved_error_return, sizeof (jmp_buf));
|
|
|
|
|
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
static int
|
|
|
|
|
gdb_listfiles (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int val;
|
|
|
|
|
struct objfile *objfile;
|
|
|
|
|
struct partial_symtab *psymtab;
|
|
|
|
|
|
|
|
|
|
ALL_PSYMTABS (objfile, psymtab)
|
|
|
|
|
Tcl_AppendElement (interp, psymtab->filename);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
1994-10-21 01:59:20 +01:00
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_stop (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
* corelow.c, exec.c, inftarg.c, m3-nat.c, op50-rom.c, procfs.c,
remote-adapt.c, remote-e7000.c, remote-eb.c, remote-es.c,
remote-hms.c, remote-mips.c, remote-mm.c, remote-mon.c,
remote-nindy.c, remote-os9k.c, remote-pa.c, remote-sim.c,
remote-st.c, remote-udi.c, remote-vx.c, remote-z8k.c, remote.c,
w89k-rom.c, target.c, target.h: Add support for target_stop().
* gdbtk.c (gdb_stop): Switch to target_stop().
1994-11-03 23:41:12 +01:00
|
|
|
|
target_stop ();
|
1994-10-21 01:59:20 +01:00
|
|
|
|
}
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
tk_command (cmd, from_tty)
|
|
|
|
|
char *cmd;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
Tcl_VarEval (interp, cmd, NULL);
|
|
|
|
|
|
|
|
|
|
gdbtk_fputs (interp->result);
|
|
|
|
|
gdbtk_fputs ("\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
cleanup_init (ignored)
|
|
|
|
|
int ignored;
|
|
|
|
|
{
|
|
|
|
|
if (mainWindow != NULL)
|
|
|
|
|
Tk_DestroyWindow (mainWindow);
|
|
|
|
|
mainWindow = NULL;
|
|
|
|
|
|
|
|
|
|
if (interp != NULL)
|
|
|
|
|
Tcl_DeleteInterp (interp);
|
|
|
|
|
interp = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
1994-09-17 00:57:37 +02:00
|
|
|
|
/* Come here during long calculations to check for GUI events. Usually invoked
|
|
|
|
|
via the QUIT macro. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_interactive ()
|
|
|
|
|
{
|
|
|
|
|
/* Tk_DoOneEvent (TK_DONT_WAIT|TK_IDLE_EVENTS); */
|
|
|
|
|
}
|
|
|
|
|
|
1994-10-21 01:59:20 +01:00
|
|
|
|
/* Come here when there is activity on the X file descriptor. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
x_event (signo)
|
|
|
|
|
int signo;
|
|
|
|
|
{
|
|
|
|
|
/* Process pending events */
|
|
|
|
|
|
|
|
|
|
while (Tk_DoOneEvent (TK_DONT_WAIT|TK_ALL_EVENTS) != 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdbtk_wait (pid, ourstatus)
|
|
|
|
|
int pid;
|
|
|
|
|
struct target_waitstatus *ourstatus;
|
|
|
|
|
{
|
|
|
|
|
signal (SIGIO, x_event);
|
|
|
|
|
|
|
|
|
|
pid = target_wait (pid, ourstatus);
|
|
|
|
|
|
|
|
|
|
signal (SIGIO, SIG_IGN);
|
|
|
|
|
|
|
|
|
|
return pid;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This is called from execute_command, and provides a wrapper around
|
|
|
|
|
various command routines in a place where both protocol messages and
|
|
|
|
|
user input both flow through. Mostly this is used for indicating whether
|
|
|
|
|
the target process is running or not.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_call_command (cmdblk, arg, from_tty)
|
|
|
|
|
struct cmd_list_element *cmdblk;
|
|
|
|
|
char *arg;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
if (cmdblk->class == class_run)
|
|
|
|
|
{
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_busy", NULL);
|
|
|
|
|
(*cmdblk->function.cfunc)(arg, from_tty);
|
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_idle", NULL);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
(*cmdblk->function.cfunc)(arg, from_tty);
|
|
|
|
|
}
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
static void
|
|
|
|
|
gdbtk_init ()
|
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
char *gdbtk_filename;
|
1994-10-21 01:59:20 +01:00
|
|
|
|
int i;
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
old_chain = make_cleanup (cleanup_init, 0);
|
|
|
|
|
|
|
|
|
|
/* First init tcl and tk. */
|
|
|
|
|
|
|
|
|
|
interp = Tcl_CreateInterp ();
|
|
|
|
|
|
|
|
|
|
if (!interp)
|
|
|
|
|
error ("Tcl_CreateInterp failed");
|
|
|
|
|
|
|
|
|
|
mainWindow = Tk_CreateMainWindow (interp, NULL, "gdb", "Gdb");
|
|
|
|
|
|
|
|
|
|
if (!mainWindow)
|
|
|
|
|
return; /* DISPLAY probably not set */
|
|
|
|
|
|
|
|
|
|
if (Tcl_Init(interp) != TCL_OK)
|
|
|
|
|
error ("Tcl_Init failed: %s", interp->result);
|
|
|
|
|
|
|
|
|
|
if (Tk_Init(interp) != TCL_OK)
|
|
|
|
|
error ("Tk_Init failed: %s", interp->result);
|
|
|
|
|
|
1994-12-16 02:07:35 +01:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_cmd", call_wrapper, gdb_cmd, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_loc", call_wrapper, gdb_loc, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_sourcelines", call_wrapper, gdb_sourcelines,
|
|
|
|
|
NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_listfiles", call_wrapper, gdb_listfiles,
|
1994-12-12 21:50:08 +01:00
|
|
|
|
NULL);
|
1994-12-16 02:07:35 +01:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_stop", call_wrapper, gdb_stop, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_regnames", call_wrapper, gdb_regnames, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_fetch_registers", call_wrapper,
|
|
|
|
|
gdb_fetch_registers, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_changed_register_list", call_wrapper,
|
|
|
|
|
gdb_changed_register_list, NULL);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
gdbtk_filename = getenv ("GDBTK_FILENAME");
|
1994-09-13 18:24:01 +02:00
|
|
|
|
if (!gdbtk_filename)
|
|
|
|
|
if (access ("gdbtk.tcl", R_OK) == 0)
|
|
|
|
|
gdbtk_filename = "gdbtk.tcl";
|
|
|
|
|
else
|
|
|
|
|
gdbtk_filename = GDBTK_FILENAME;
|
|
|
|
|
|
|
|
|
|
if (Tcl_EvalFile (interp, gdbtk_filename) != TCL_OK)
|
|
|
|
|
error ("Failure reading %s: %s", gdbtk_filename, interp->result);
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
1994-11-02 01:50:12 +01:00
|
|
|
|
/* Get the file descriptor for the X server */
|
1994-10-21 01:59:20 +01:00
|
|
|
|
|
1994-11-02 01:50:12 +01:00
|
|
|
|
x_fd = ConnectionNumber (Tk_Display (mainWindow));
|
1994-10-21 01:59:20 +01:00
|
|
|
|
|
|
|
|
|
/* Setup for I/O interrupts */
|
|
|
|
|
|
|
|
|
|
signal (SIGIO, SIG_IGN);
|
|
|
|
|
|
|
|
|
|
i = fcntl (x_fd, F_GETFL, 0);
|
|
|
|
|
fcntl (x_fd, F_SETFL, i|FASYNC);
|
|
|
|
|
fcntl (x_fd, F_SETOWN, getpid());
|
|
|
|
|
|
1994-07-29 00:07:02 +02:00
|
|
|
|
command_loop_hook = Tk_MainLoop;
|
|
|
|
|
fputs_unfiltered_hook = gdbtk_fputs;
|
|
|
|
|
print_frame_info_listing_hook = null_routine;
|
|
|
|
|
query_hook = gdbtk_query;
|
|
|
|
|
flush_hook = gdbtk_flush;
|
|
|
|
|
create_breakpoint_hook = gdbtk_create_breakpoint;
|
|
|
|
|
delete_breakpoint_hook = gdbtk_delete_breakpoint;
|
|
|
|
|
enable_breakpoint_hook = gdbtk_enable_breakpoint;
|
|
|
|
|
disable_breakpoint_hook = gdbtk_disable_breakpoint;
|
1994-09-17 00:57:37 +02:00
|
|
|
|
interactive_hook = gdbtk_interactive;
|
1994-10-21 01:59:20 +01:00
|
|
|
|
target_wait_hook = gdbtk_wait;
|
|
|
|
|
call_command_hook = gdbtk_call_command;
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
|
|
|
|
discard_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
add_com ("tk", class_obscure, tk_command,
|
|
|
|
|
"Send a command directly into tk.");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Come here during initialze_all_files () */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
_initialize_gdbtk ()
|
|
|
|
|
{
|
1994-10-26 23:45:13 +01:00
|
|
|
|
if (use_windows)
|
|
|
|
|
{
|
|
|
|
|
/* Tell the rest of the world that Gdbtk is now set up. */
|
1994-07-29 00:07:02 +02:00
|
|
|
|
|
1994-10-26 23:45:13 +01:00
|
|
|
|
init_ui_hook = gdbtk_init;
|
|
|
|
|
}
|
1994-07-29 00:07:02 +02:00
|
|
|
|
}
|