1995-01-12 23:10:48 +00:00
|
|
|
|
/* Tcl/Tk interface routines.
|
1997-03-19 23:39:20 +00:00
|
|
|
|
Copyright 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
|
1995-01-12 23:10:48 +00:00
|
|
|
|
|
|
|
|
|
Written by Stu Grossman <grossman@cygnus.com> of Cygnus Support.
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
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
|
1995-08-02 03:41:12 +00:00
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "inferior.h"
|
|
|
|
|
#include "command.h"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "symfile.h"
|
|
|
|
|
#include "objfiles.h"
|
|
|
|
|
#include "target.h"
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "tracepoint.h"
|
|
|
|
|
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
#include <winuser.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
#include <tcl.h>
|
|
|
|
|
#include <tk.h>
|
1997-07-10 07:15:26 +00:00
|
|
|
|
#include <itcl.h>
|
|
|
|
|
#include <tix.h>
|
1997-12-01 20:53:02 +00:00
|
|
|
|
#include "guitcl.h"
|
1997-07-10 07:15:26 +00:00
|
|
|
|
|
|
|
|
|
#ifdef IDE
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* start-sanitize-ide */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
#include "event.h"
|
|
|
|
|
#include "idetcl.h"
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#include "ilutk.h"
|
|
|
|
|
/* end-sanitize-ide */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1995-05-19 14:15:48 +00:00
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
#include <stdarg.h>
|
|
|
|
|
#else
|
1994-11-02 00:50:12 +00:00
|
|
|
|
#include <varargs.h>
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
#endif
|
1994-11-02 00:50:12 +00:00
|
|
|
|
#include <signal.h>
|
|
|
|
|
#include <fcntl.h>
|
1994-09-13 16:24:01 +00:00
|
|
|
|
#include <unistd.h>
|
1994-12-16 01:07:35 +00:00
|
|
|
|
#include <setjmp.h>
|
|
|
|
|
#include "top.h"
|
1994-12-24 00:32:14 +00:00
|
|
|
|
#include <sys/ioctl.h>
|
* configure.in: Check for working mmap, ansi headers, string.h,
strings.h, and memory.h.
* configure: Regenerated.
* gdb_stat.h: New file, "portable" <sys/stat.h>.
* gdb_string.h: New file, "portable" <string.h>.
* altos-xdep.c, arm-tdep.c, arm-xdep.c, convex-tdep.c,
convex-xdep.c, coredep.c, cxux-nat.c, dbxread.c, exec.c,
gould-xdep.c, hppa-tdep.c, i386aix-nat.c, i386b-nat.c,
i386mach-nat.c, i386v-nat.c, infptrace.c, m88k-nat.c, main.c,
mdebugread.c, objfiles.c, os9kread.c, procfs.c, pyr-xdep.c,
rs6000-nat.c, source.c, standalone.c, stuff.c, sun386-nat.c,
symfile.c, symm-nat.c, symm-tdep.c, symtab.c, top.c, ultra3-nat.c,
ultra3-xdep.c, umax-xdep.c, xcoffread.c: Include "gdb_stat.h"
instead of <sys/stat.h>.
* alpha-tdep.c, breakpoint.c, buildsym.c, c-typeprint.c,
ch-typeprint.c, coffread.c, command.c, core-sol2.c, core-svr4.c,
core.c, corelow.c, cp-valprint.c, dbxread.c, dcache.c, demangle.c,
dpx2-nat.c, dstread.c, dwarfread.c, elfread.c, environ.c, eval.c,
exec.c, f-lang.c, f-typeprint.c, f-valprint.c, findvar.c,
fork-child.c, gdbtypes.c, hpread.c, i386-tdep.c, infcmd.c,
inflow.c, infptrace.c, infrun.c, irix5-nat.c, language.c,
m2-typeprint.c, main.c, mdebugread.c, minsyms.c, mipsread.c,
monitor.c, nlmread.c, objfiles.c, os9kread.c, osfsolib.c, parse.c,
printcmd.c, procfs.c, regex.c, remote-adapt.c, remote-arc.c,
remote-array.c, remote-bug.c, remote-e7000.c, remote-eb.c,
remote-es.c, remote-hms.c, remote-mm.c, remote-os9k.c,
remote-pa.c, remote-sim.c, remote-st.c, remote-udi.c,
remote-utils.c, remote-vx.c, remote-vx29k.c, remote-vx68.c,
remote-vx960.c, remote-vxmips.c, remote-vxsparc.c, remote.c,
solib.c, somread.c, source.c, stabsread.c, stack.c, symfile.c,
symmisc.c, symtab.c, target.c, top.c, typeprint.c, utils.c,
valarith.c, valops.c, valprint.c, values.c, xcoffread.c: Include
"gdb_string.h" instead of <string.h>.
* gdbtk.c: Likewise.
* config/xm-sysv4.h, i386/xm-ptx.h, m68k/xm-sun3os4.h,
sparc/xm-sun4os4.h (HAVE_MMAP): Removed.
* config/xm-lynx.h, config/i386/xm-ptx.h,
config/m68k/nm-apollo68b.h, config/m68k/xm-hp300hpux.h,
config/mips/xm-irix3.h, config/mips/xm-mips.h,
config/mips/xm-news-mips.h, config/mips/xm-riscos.h,
config/pa/hppah.h, config/rs6000/xm-rs6000.h,
config/sparc/xm-sun4os4.h, config/sparc/xm-sun4sol2.h,
config/vax/xm-vaxbsd.h, config/vax/xm-vaxult.h,
config/vax/xm-vaxult2.h (MEM_FNS_DECLARED): Removed.
* config/mips/xm-irix3.h, config/mips/xm-mips.h,
config/pa/xm-hppah.h (memcpy, memset): Removed declarations.
1995-08-01 20:14:27 +00:00
|
|
|
|
#include "gdb_string.h"
|
1995-01-06 01:55:45 +00:00
|
|
|
|
#include "dis-asm.h"
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include "gdbcmd.h"
|
1994-12-24 00:32:14 +00:00
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#ifndef WINNT
|
1994-12-24 00:32:14 +00:00
|
|
|
|
#ifndef FIOASYNC
|
1994-12-19 08:01:45 +00:00
|
|
|
|
#include <sys/stropts.h>
|
|
|
|
|
#endif
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef __CYGWIN32__
|
|
|
|
|
#include <sys/time.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#ifdef WINNT
|
|
|
|
|
#define GDBTK_PATH_SEP ";"
|
|
|
|
|
#else
|
|
|
|
|
#define GDBTK_PATH_SEP ":"
|
|
|
|
|
#endif
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1996-04-05 18:27:08 +00:00
|
|
|
|
/* Some versions (1.3.79, 1.3.81) of Linux don't support SIOCSPGRP the way
|
1996-05-08 23:34:34 +00:00
|
|
|
|
gdbtk wants to use it... */
|
1996-04-05 18:27:08 +00:00
|
|
|
|
#ifdef __linux__
|
|
|
|
|
#undef SIOCSPGRP
|
|
|
|
|
#endif
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
int gdbtk_load_hash PARAMS ((char *, unsigned long));
|
|
|
|
|
int (*ui_load_progress_hook) PARAMS ((char *, unsigned long));
|
|
|
|
|
|
1996-07-26 03:01:51 +00:00
|
|
|
|
static void null_routine PARAMS ((int));
|
|
|
|
|
static void gdbtk_flush PARAMS ((FILE *));
|
|
|
|
|
static void gdbtk_fputs PARAMS ((const char *, FILE *));
|
|
|
|
|
static int gdbtk_query PARAMS ((const char *, va_list));
|
|
|
|
|
static char *gdbtk_readline PARAMS ((char *));
|
1997-07-10 07:15:26 +00:00
|
|
|
|
static void gdbtk_init PARAMS ((char *));
|
1996-07-26 03:01:51 +00:00
|
|
|
|
static void tk_command_loop PARAMS ((void));
|
|
|
|
|
static void gdbtk_call_command PARAMS ((struct cmd_list_element *, char *, int));
|
|
|
|
|
static int gdbtk_wait PARAMS ((int, struct target_waitstatus *));
|
|
|
|
|
static void x_event PARAMS ((int));
|
|
|
|
|
static void gdbtk_interactive PARAMS ((void));
|
|
|
|
|
static void cleanup_init PARAMS ((int));
|
|
|
|
|
static void tk_command PARAMS ((char *, int));
|
|
|
|
|
static int gdb_disassemble PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int compare_lines PARAMS ((const PTR, const PTR));
|
|
|
|
|
static int gdbtk_dis_asm_read_memory PARAMS ((bfd_vma, bfd_byte *, int, disassemble_info *));
|
1997-03-19 23:39:20 +00:00
|
|
|
|
static int gdb_path_conv PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
1996-07-26 03:01:51 +00:00
|
|
|
|
static int gdb_stop PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
static int gdb_confirm_quit PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int gdb_force_quit PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
1996-07-26 03:01:51 +00:00
|
|
|
|
static int gdb_listfiles PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
1997-08-17 07:47:55 +00:00
|
|
|
|
static int gdb_listfuncs PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
1996-07-26 03:01:51 +00:00
|
|
|
|
static int call_wrapper PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int gdb_cmd PARAMS ((ClientData, Tcl_Interp *, int, char *argv[]));
|
|
|
|
|
static int gdb_fetch_registers PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static void gdbtk_readline_end PARAMS ((void));
|
|
|
|
|
static int gdb_changed_register_list PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static void register_changed_p PARAMS ((int, void *));
|
|
|
|
|
static int gdb_get_breakpoint_list PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int gdb_get_breakpoint_info PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static void breakpoint_notify PARAMS ((struct breakpoint *, const char *));
|
|
|
|
|
static void gdbtk_create_breakpoint PARAMS ((struct breakpoint *));
|
|
|
|
|
static void gdbtk_delete_breakpoint PARAMS ((struct breakpoint *));
|
|
|
|
|
static void gdbtk_modify_breakpoint PARAMS ((struct breakpoint *));
|
|
|
|
|
static int gdb_loc PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int gdb_eval PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int gdb_sourcelines PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static int map_arg_registers PARAMS ((int, char *[], void (*) (int, void *), void *));
|
|
|
|
|
static void get_register_name PARAMS ((int, void *));
|
|
|
|
|
static int gdb_regnames PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
|
|
|
|
|
static void get_register PARAMS ((int, void *));
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
static int gdb_target_has_execution_command PARAMS ((ClientData, Tcl_Interp *, int, char *argv[]));
|
|
|
|
|
static int gdb_load_info PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_get_vars_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_get_function_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_get_line_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_get_file_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_tracepoint_exists_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_get_tracepoint_info PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_actions_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
|
|
|
|
static int gdb_prompt_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
1997-12-05 20:17:13 +00:00
|
|
|
|
static int gdb_find_file_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
1997-12-11 03:05:13 +00:00
|
|
|
|
static int gdb_get_tracepoint_list PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
static void gdbtk_create_tracepoint PARAMS ((struct tracepoint *));
|
|
|
|
|
static void gdbtk_delete_tracepoint PARAMS ((struct tracepoint *));
|
|
|
|
|
static void tracepoint_notify PARAMS ((struct tracepoint *, const char *));
|
1996-07-26 03:01:51 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
/* Handle for TCL interpreter */
|
1996-04-05 21:52:38 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
static Tcl_Interp *interp = NULL;
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifndef WINNT
|
1994-10-21 00:59:20 +00:00
|
|
|
|
static int x_fd; /* X network socket */
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#endif
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1996-04-05 21:52:38 +00:00
|
|
|
|
/* 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. */
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
1996-04-05 21:52:38 +00:00
|
|
|
|
static int running_now;
|
|
|
|
|
|
|
|
|
|
/* 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. */
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
static int disassemble_from_exec = -1;
|
|
|
|
|
|
1997-08-01 19:24:55 +00:00
|
|
|
|
#ifndef _WIN32
|
|
|
|
|
|
|
|
|
|
/* Supply malloc calls for tcl/tk. We do not want to do this on
|
|
|
|
|
Windows, because Tcl_Alloc is probably in a DLL which will not call
|
|
|
|
|
the mmalloc routines. */
|
1995-06-20 17:41:11 +00:00
|
|
|
|
|
|
|
|
|
char *
|
1996-11-19 07:40:18 +00:00
|
|
|
|
Tcl_Alloc (size)
|
1995-06-20 17:41:11 +00:00
|
|
|
|
unsigned int size;
|
|
|
|
|
{
|
|
|
|
|
return xmalloc (size);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
Tcl_Realloc (ptr, size)
|
|
|
|
|
char *ptr;
|
|
|
|
|
unsigned int size;
|
|
|
|
|
{
|
|
|
|
|
return xrealloc (ptr, size);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
Tcl_Free(ptr)
|
|
|
|
|
char *ptr;
|
|
|
|
|
{
|
|
|
|
|
free (ptr);
|
|
|
|
|
}
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#endif /* ! _WIN32 */
|
1997-08-01 19:24:55 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
static void
|
|
|
|
|
null_routine(arg)
|
|
|
|
|
int arg;
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
|
|
|
|
|
/* On Windows, if we hold a file open, other programs can't write to
|
|
|
|
|
it. In particular, we don't want to hold the executable open,
|
|
|
|
|
because it will mean that people have to get out of the debugging
|
|
|
|
|
session in order to remake their program. So we close it, although
|
|
|
|
|
this will cost us if and when we need to reopen it. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
close_bfds ()
|
|
|
|
|
{
|
|
|
|
|
struct objfile *o;
|
|
|
|
|
|
|
|
|
|
ALL_OBJFILES (o)
|
|
|
|
|
{
|
|
|
|
|
if (o->obfd != NULL)
|
|
|
|
|
bfd_cache_close (o->obfd);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (exec_bfd != NULL)
|
|
|
|
|
bfd_cache_close (exec_bfd);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* _WIN32 */
|
|
|
|
|
|
1994-12-19 08:01:45 +00:00
|
|
|
|
/* The following routines deal with stdout/stderr data, which is created by
|
|
|
|
|
{f}printf_{un}filtered and friends. gdbtk_fputs and gdbtk_flush are the
|
|
|
|
|
lowest level of these routines and capture all output from the rest of GDB.
|
|
|
|
|
Normally they present their data to tcl via callbacks to the following tcl
|
|
|
|
|
routines: gdbtk_tcl_fputs, gdbtk_tcl_fputs_error, and gdbtk_flush. These
|
|
|
|
|
in turn call tk routines to update the display.
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
1994-12-19 08:01:45 +00:00
|
|
|
|
Under some circumstances, you may want to collect the output so that it can
|
|
|
|
|
be returned as the value of a tcl procedure. This can be done by
|
|
|
|
|
surrounding the output routines with calls to start_saving_output and
|
|
|
|
|
finish_saving_output. The saved data can then be retrieved with
|
|
|
|
|
get_saved_output (but this must be done before the call to
|
|
|
|
|
finish_saving_output). */
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* Dynamic string for output. */
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
static Tcl_DString *result_ptr;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
/* Dynamic string for stderr. This is only used if result_ptr is
|
|
|
|
|
NULL. */
|
|
|
|
|
|
|
|
|
|
static Tcl_DString *error_string_ptr;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_flush (stream)
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
#if 0
|
1994-12-16 01:07:35 +00:00
|
|
|
|
/* Force immediate screen update */
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
Tcl_VarEval (interp, "gdbtk_tcl_flush", NULL);
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
#endif
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-09-13 16:24:01 +00:00
|
|
|
|
static void
|
1994-12-16 01:07:35 +00:00
|
|
|
|
gdbtk_fputs (ptr, stream)
|
1994-09-13 16:24:01 +00:00
|
|
|
|
const char *ptr;
|
1994-12-16 01:07:35 +00:00
|
|
|
|
FILE *stream;
|
1994-09-13 16:24:01 +00:00
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
if (result_ptr)
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_DStringAppend (result_ptr, (char *) ptr, -1);
|
|
|
|
|
else if (error_string_ptr != NULL && stream == gdb_stderr)
|
|
|
|
|
Tcl_DStringAppend (error_string_ptr, (char *) ptr, -1);
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
else
|
1994-12-16 01:07:35 +00:00
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DString str;
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringInit (&str);
|
1994-09-13 16:24:01 +00:00
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppend (&str, "gdbtk_tcl_fputs", -1);
|
1995-04-11 15:14:07 +00:00
|
|
|
|
Tcl_DStringAppendElement (&str, (char *)ptr);
|
1994-09-13 16:24:01 +00:00
|
|
|
|
|
1997-07-10 07:15:26 +00:00
|
|
|
|
Tcl_Eval (interp, Tcl_DStringValue (&str));
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringFree (&str);
|
|
|
|
|
}
|
1994-09-13 16:24:01 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
static int
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
gdbtk_query (query, args)
|
1996-07-26 03:01:51 +00:00
|
|
|
|
const char *query;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
va_list args;
|
|
|
|
|
{
|
1996-01-24 06:27:59 +00:00
|
|
|
|
char buf[200], *merge[2];
|
|
|
|
|
char *command;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
long val;
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
vsprintf (buf, query, args);
|
1996-01-24 06:27:59 +00:00
|
|
|
|
merge[0] = "gdbtk_tcl_query";
|
|
|
|
|
merge[1] = buf;
|
|
|
|
|
command = Tcl_Merge (2, merge);
|
|
|
|
|
Tcl_Eval (interp, command);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_Free (command);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
val = atol (interp->result);
|
|
|
|
|
return val;
|
|
|
|
|
}
|
* defs.h (read_command_lines, query_hook): Update prototypes.
(readline_begin_hook, readline_hook, readline_end_hook): Declare.
* breakpoint.c (commands_command): Build message in temporary buffer
and pass that, as well as tty control flag, to read_command_lines.
* top.c (readline_begin_hook, readline_hook, readline_end_hook):
Define here.
(command_loop): Check for non-NULL instream before looping.
(command_line_input): Use readline_hook when appropriate, to get
user input from a GUI window.
(read_next_line): Also build prompt if getting user input from a GUI.
(recurse_read_control_structure): Fix typo in comment.
(read_command_lines): Use passed in prompt and tty flag to decide how
to build message. Use readline_begin_hook when appropriate, to set
up a GUI interaction window. Just return head, whether NULL or not,
after using readline_end_hook to complete GUI interaction.
(define_command, document_command): Build message in a temporary
buffer and pass it to read_command_lines, along with tty flag.
* gdbtk.c (gdbtk_readline_begin, gdbtk_readline, gdbtk_readline_end):
New functions.
(tk_command_loop): Set instream to NULL to enable Tk user interaction.
(gdbtk_init): Set readline_begin_hook, readline_hook,
and readline_end_hook.
* gdbtk.tcl (gdbtk_tcl_readline_begin, gdbtk_tcl_readline,
gdbtk_tcl_readline_end): New functions.
(tclsh): Pack scroll bar on right side of window, not left.
PR 9385
1996-05-20 02:05:55 +00:00
|
|
|
|
|
|
|
|
|
/* VARARGS */
|
|
|
|
|
static void
|
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
|
|
|
|
gdbtk_readline_begin (char *format, ...)
|
|
|
|
|
#else
|
|
|
|
|
gdbtk_readline_begin (va_alist)
|
|
|
|
|
va_dcl
|
|
|
|
|
#endif
|
|
|
|
|
{
|
|
|
|
|
va_list args;
|
|
|
|
|
char buf[200], *merge[2];
|
|
|
|
|
char *command;
|
|
|
|
|
|
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
|
|
|
|
va_start (args, format);
|
|
|
|
|
#else
|
|
|
|
|
char *format;
|
|
|
|
|
va_start (args);
|
|
|
|
|
format = va_arg (args, char *);
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
vsprintf (buf, format, args);
|
|
|
|
|
merge[0] = "gdbtk_tcl_readline_begin";
|
|
|
|
|
merge[1] = buf;
|
|
|
|
|
command = Tcl_Merge (2, merge);
|
|
|
|
|
Tcl_Eval (interp, command);
|
|
|
|
|
free (command);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
gdbtk_readline (prompt)
|
|
|
|
|
char *prompt;
|
|
|
|
|
{
|
|
|
|
|
char *merge[2];
|
|
|
|
|
char *command;
|
1996-11-19 16:38:48 +00:00
|
|
|
|
int result;
|
* defs.h (read_command_lines, query_hook): Update prototypes.
(readline_begin_hook, readline_hook, readline_end_hook): Declare.
* breakpoint.c (commands_command): Build message in temporary buffer
and pass that, as well as tty control flag, to read_command_lines.
* top.c (readline_begin_hook, readline_hook, readline_end_hook):
Define here.
(command_loop): Check for non-NULL instream before looping.
(command_line_input): Use readline_hook when appropriate, to get
user input from a GUI window.
(read_next_line): Also build prompt if getting user input from a GUI.
(recurse_read_control_structure): Fix typo in comment.
(read_command_lines): Use passed in prompt and tty flag to decide how
to build message. Use readline_begin_hook when appropriate, to set
up a GUI interaction window. Just return head, whether NULL or not,
after using readline_end_hook to complete GUI interaction.
(define_command, document_command): Build message in a temporary
buffer and pass it to read_command_lines, along with tty flag.
* gdbtk.c (gdbtk_readline_begin, gdbtk_readline, gdbtk_readline_end):
New functions.
(tk_command_loop): Set instream to NULL to enable Tk user interaction.
(gdbtk_init): Set readline_begin_hook, readline_hook,
and readline_end_hook.
* gdbtk.tcl (gdbtk_tcl_readline_begin, gdbtk_tcl_readline,
gdbtk_tcl_readline_end): New functions.
(tclsh): Pack scroll bar on right side of window, not left.
PR 9385
1996-05-20 02:05:55 +00:00
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
close_bfds ();
|
|
|
|
|
#endif
|
|
|
|
|
|
* defs.h (read_command_lines, query_hook): Update prototypes.
(readline_begin_hook, readline_hook, readline_end_hook): Declare.
* breakpoint.c (commands_command): Build message in temporary buffer
and pass that, as well as tty control flag, to read_command_lines.
* top.c (readline_begin_hook, readline_hook, readline_end_hook):
Define here.
(command_loop): Check for non-NULL instream before looping.
(command_line_input): Use readline_hook when appropriate, to get
user input from a GUI window.
(read_next_line): Also build prompt if getting user input from a GUI.
(recurse_read_control_structure): Fix typo in comment.
(read_command_lines): Use passed in prompt and tty flag to decide how
to build message. Use readline_begin_hook when appropriate, to set
up a GUI interaction window. Just return head, whether NULL or not,
after using readline_end_hook to complete GUI interaction.
(define_command, document_command): Build message in a temporary
buffer and pass it to read_command_lines, along with tty flag.
* gdbtk.c (gdbtk_readline_begin, gdbtk_readline, gdbtk_readline_end):
New functions.
(tk_command_loop): Set instream to NULL to enable Tk user interaction.
(gdbtk_init): Set readline_begin_hook, readline_hook,
and readline_end_hook.
* gdbtk.tcl (gdbtk_tcl_readline_begin, gdbtk_tcl_readline,
gdbtk_tcl_readline_end): New functions.
(tclsh): Pack scroll bar on right side of window, not left.
PR 9385
1996-05-20 02:05:55 +00:00
|
|
|
|
merge[0] = "gdbtk_tcl_readline";
|
|
|
|
|
merge[1] = prompt;
|
|
|
|
|
command = Tcl_Merge (2, merge);
|
1996-11-19 16:38:48 +00:00
|
|
|
|
result = Tcl_Eval (interp, command);
|
|
|
|
|
free (command);
|
|
|
|
|
if (result == TCL_OK)
|
* defs.h (read_command_lines, query_hook): Update prototypes.
(readline_begin_hook, readline_hook, readline_end_hook): Declare.
* breakpoint.c (commands_command): Build message in temporary buffer
and pass that, as well as tty control flag, to read_command_lines.
* top.c (readline_begin_hook, readline_hook, readline_end_hook):
Define here.
(command_loop): Check for non-NULL instream before looping.
(command_line_input): Use readline_hook when appropriate, to get
user input from a GUI window.
(read_next_line): Also build prompt if getting user input from a GUI.
(recurse_read_control_structure): Fix typo in comment.
(read_command_lines): Use passed in prompt and tty flag to decide how
to build message. Use readline_begin_hook when appropriate, to set
up a GUI interaction window. Just return head, whether NULL or not,
after using readline_end_hook to complete GUI interaction.
(define_command, document_command): Build message in a temporary
buffer and pass it to read_command_lines, along with tty flag.
* gdbtk.c (gdbtk_readline_begin, gdbtk_readline, gdbtk_readline_end):
New functions.
(tk_command_loop): Set instream to NULL to enable Tk user interaction.
(gdbtk_init): Set readline_begin_hook, readline_hook,
and readline_end_hook.
* gdbtk.tcl (gdbtk_tcl_readline_begin, gdbtk_tcl_readline,
gdbtk_tcl_readline_end): New functions.
(tclsh): Pack scroll bar on right side of window, not left.
PR 9385
1996-05-20 02:05:55 +00:00
|
|
|
|
{
|
|
|
|
|
return (strdup (interp -> result));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
gdbtk_fputs (interp -> result, gdb_stdout);
|
|
|
|
|
gdbtk_fputs ("\n", gdb_stdout);
|
|
|
|
|
return (NULL);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_readline_end ()
|
|
|
|
|
{
|
|
|
|
|
Tcl_Eval (interp, "gdbtk_tcl_readline_end");
|
|
|
|
|
}
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
static void
|
1995-05-19 14:15:48 +00:00
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
dsprintf_append_element (Tcl_DString *dsp, char *format, ...)
|
|
|
|
|
#else
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
dsprintf_append_element (va_alist)
|
|
|
|
|
va_dcl
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
#endif
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
{
|
|
|
|
|
va_list args;
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
char buf[1024];
|
|
|
|
|
|
1995-05-19 14:15:48 +00:00
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
va_start (args, format);
|
|
|
|
|
#else
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DString *dsp;
|
|
|
|
|
char *format;
|
|
|
|
|
|
|
|
|
|
va_start (args);
|
|
|
|
|
dsp = va_arg (args, Tcl_DString *);
|
|
|
|
|
format = va_arg (args, char *);
|
* utils.c (fprintf_filtered, fprintf_unfiltered, fprintfi_filtered,
printf_filtered, printf_unfiltered, printfi_filtered, query, warning,
error, fatal, fatal_dump_core): Use stdarg.h macros when compiling
with an ANSI compiler.
* complain.c (complain): Likewise.
* language.c (type_error, range_error): Likewise.
* monitor.c (monitor_printf, monitor_printf_noecho): Likewise.
* remote-array.c (printf_monitor, debuglogs): Likewise.
* remote-mips.c (mips_error): Likewise.
* remote-os9k.c (printf_monitor): Likewise.
* remote-st.c (printf_stdebug): Likewise.
* gdbtk.c (gdbtk_query): Likewise.
* defs.h, complain.h, language.h, monitor.h: Add prototypes to
match above changes.
* printcmd.c: Remove uneeded #include <varargs.h>.
* remote-e7000.c: Likewise.
* f-typeprint.c (f_type_print_base): Fix typo found by above
changes.
1995-05-18 23:45:31 +00:00
|
|
|
|
#endif
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
|
|
|
|
|
vsprintf (buf, format, args);
|
|
|
|
|
|
|
|
|
|
Tcl_DStringAppendElement (dsp, buf);
|
|
|
|
|
}
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
static int
|
|
|
|
|
gdb_path_conv (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
#ifdef WINNT
|
|
|
|
|
char pathname[256], *ptr;
|
|
|
|
|
if (argc != 2)
|
|
|
|
|
error ("wrong # args");
|
|
|
|
|
cygwin32_conv_to_full_win32_path (argv[1], pathname);
|
|
|
|
|
for (ptr = pathname; *ptr; ptr++)
|
|
|
|
|
{
|
|
|
|
|
if (*ptr == '\\')
|
|
|
|
|
*ptr = '/';
|
|
|
|
|
}
|
|
|
|
|
#else
|
|
|
|
|
char *pathname = argv[1];
|
|
|
|
|
#endif
|
|
|
|
|
Tcl_DStringAppend (result_ptr, pathname, strlen(pathname));
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
static int
|
|
|
|
|
gdb_get_breakpoint_list (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
extern struct breakpoint *breakpoint_chain;
|
|
|
|
|
|
|
|
|
|
if (argc != 1)
|
|
|
|
|
error ("wrong # args");
|
|
|
|
|
|
|
|
|
|
for (b = breakpoint_chain; b; b = b->next)
|
|
|
|
|
if (b->type == bp_breakpoint)
|
|
|
|
|
dsprintf_append_element (result_ptr, "%d", b->number);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_breakpoint_info (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
static char *bptypes[] = {"breakpoint", "hardware breakpoint", "until",
|
|
|
|
|
"finish", "watchpoint", "hardware watchpoint",
|
|
|
|
|
"read watchpoint", "access watchpoint",
|
|
|
|
|
"longjmp", "longjmp resume", "step resume",
|
|
|
|
|
"through sigtramp", "watchpoint scope",
|
|
|
|
|
"call dummy" };
|
1997-06-07 09:38:31 +00:00
|
|
|
|
static char *bpdisp[] = {"delete", "delstop", "disable", "donttouch"};
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
struct command_line *cmd;
|
|
|
|
|
int bpnum;
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
extern struct breakpoint *breakpoint_chain;
|
1997-11-26 23:50:45 +00:00
|
|
|
|
char *funcname, *filename;
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
if (argc != 2)
|
|
|
|
|
error ("wrong # args");
|
|
|
|
|
|
|
|
|
|
bpnum = atoi (argv[1]);
|
|
|
|
|
|
|
|
|
|
for (b = breakpoint_chain; b; b = b->next)
|
|
|
|
|
if (b->number == bpnum)
|
|
|
|
|
break;
|
|
|
|
|
|
1995-03-09 00:43:41 +00:00
|
|
|
|
if (!b || b->type != bp_breakpoint)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("Breakpoint #%d does not exist", bpnum);
|
|
|
|
|
|
|
|
|
|
sal = find_pc_line (b->address, 0);
|
|
|
|
|
|
1997-11-26 23:50:45 +00:00
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
|
|
|
|
if (filename == NULL)
|
|
|
|
|
filename = "N/A";
|
1997-11-27 14:10:03 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, filename);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
find_pc_partial_function (b->address, &funcname, NULL, NULL);
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, funcname);
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
dsprintf_append_element (result_ptr, "%d", sal.line);
|
|
|
|
|
dsprintf_append_element (result_ptr, "0x%lx", b->address);
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, bptypes[b->type]);
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, b->enable == enabled ? "1" : "0");
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, bpdisp[b->disposition]);
|
|
|
|
|
dsprintf_append_element (result_ptr, "%d", b->ignore_count);
|
|
|
|
|
|
|
|
|
|
Tcl_DStringStartSublist (result_ptr);
|
|
|
|
|
for (cmd = b->commands; cmd; cmd = cmd->next)
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, cmd->line);
|
|
|
|
|
Tcl_DStringEndSublist (result_ptr);
|
|
|
|
|
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, b->cond_string);
|
|
|
|
|
|
|
|
|
|
dsprintf_append_element (result_ptr, "%d", b->thread);
|
|
|
|
|
dsprintf_append_element (result_ptr, "%d", b->hit_count);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
static void
|
|
|
|
|
breakpoint_notify(b, action)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
const char *action;
|
|
|
|
|
{
|
1997-08-08 07:13:16 +00:00
|
|
|
|
char buf[256];
|
1994-07-28 22:07:02 +00:00
|
|
|
|
int v;
|
1997-07-10 07:15:26 +00:00
|
|
|
|
struct symtab_and_line sal;
|
1997-11-26 23:50:45 +00:00
|
|
|
|
char *filename;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
if (b->type != bp_breakpoint)
|
|
|
|
|
return;
|
|
|
|
|
|
1996-01-24 06:27:59 +00:00
|
|
|
|
/* We ensure that ACTION contains no special Tcl characters, so we
|
|
|
|
|
can do this. */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
sal = find_pc_line (b->address, 0);
|
1997-11-26 23:50:45 +00:00
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
|
|
|
|
if (filename == NULL)
|
|
|
|
|
filename = "N/A";
|
1997-07-10 07:15:26 +00:00
|
|
|
|
sprintf (buf, "gdbtk_tcl_breakpoint %s %d 0x%lx %d {%s}", action, b->number,
|
1997-11-26 23:50:45 +00:00
|
|
|
|
(long)b->address, sal.line, filename);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
v = Tcl_Eval (interp, buf);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
if (v != TCL_OK)
|
|
|
|
|
{
|
1994-12-19 08:01:45 +00:00
|
|
|
|
gdbtk_fputs (interp->result, gdb_stdout);
|
|
|
|
|
gdbtk_fputs ("\n", gdb_stdout);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_create_breakpoint(b)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
breakpoint_notify (b, "create");
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_delete_breakpoint(b)
|
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
breakpoint_notify (b, "delete");
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
gdbtk_modify_breakpoint(b)
|
1994-07-28 22:07:02 +00:00
|
|
|
|
struct breakpoint *b;
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
breakpoint_notify (b, "modify");
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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;
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
char *funcname;
|
1994-09-13 16:24:01 +00:00
|
|
|
|
CORE_ADDR pc;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
if (!have_full_symbols () && !have_partial_symbols ())
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, "No symbol table is loaded", TCL_STATIC);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
1994-07-28 22:07:02 +00: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 01:32:34 +00:00
|
|
|
|
pc = selected_frame ? selected_frame->pc : stop_pc;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
sal = find_pc_line (pc, 0);
|
|
|
|
|
}
|
|
|
|
|
else if (argc == 2)
|
|
|
|
|
{
|
|
|
|
|
struct symtabs_and_lines sals;
|
1994-09-13 16:24:01 +00:00
|
|
|
|
int nelts;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
sals = decode_line_spec (argv[1], 1);
|
|
|
|
|
|
1994-09-13 16:24:01 +00:00
|
|
|
|
nelts = sals.nelts;
|
|
|
|
|
sal = sals.sals[0];
|
|
|
|
|
free (sals.sals);
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
if (sals.nelts != 1)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("Ambiguous line spec");
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1994-09-13 16:24:01 +00:00
|
|
|
|
pc = sal.pc;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("wrong # args");
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
if (sal.symtab)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, sal.symtab->filename);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
else
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, "");
|
1994-09-13 16:24:01 +00:00
|
|
|
|
|
|
|
|
|
find_pc_partial_function (pc, &funcname, NULL, NULL);
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, funcname);
|
1994-09-13 16:24:01 +00:00
|
|
|
|
|
1994-09-16 22:57:37 +00:00
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
1997-11-26 23:50:45 +00:00
|
|
|
|
if (filename == NULL)
|
|
|
|
|
filename = "N/A";
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, filename);
|
1994-09-13 16:24:01 +00:00
|
|
|
|
|
1995-03-09 00:43:41 +00:00
|
|
|
|
dsprintf_append_element (result_ptr, "%d", sal.line); /* line number */
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1997-07-10 07:15:26 +00:00
|
|
|
|
dsprintf_append_element (result_ptr, "0x%s", paddr_nz(pc)); /* PC in current frame */
|
|
|
|
|
|
|
|
|
|
dsprintf_append_element (result_ptr, "0x%s", paddr_nz(stop_pc)); /* Real PC */
|
1994-09-13 16:24:01 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1995-01-06 01:55:45 +00:00
|
|
|
|
/* This implements the TCL command `gdb_eval'. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_eval (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
struct expression *expr;
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
value_ptr val;
|
|
|
|
|
|
|
|
|
|
if (argc != 2)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("wrong # args");
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
expr = parse_expression (argv[1]);
|
|
|
|
|
|
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
|
|
|
|
|
|
|
|
|
val = evaluate_expression (expr);
|
|
|
|
|
|
|
|
|
|
val_print (VALUE_TYPE (val), VALUE_CONTENTS (val), VALUE_ADDRESS (val),
|
|
|
|
|
gdb_stdout, 0, 0, 0, 0);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
/* gdb_get_mem addr form size num aschar*/
|
|
|
|
|
/* dump a block of memory */
|
|
|
|
|
/* addr: address of data to dump */
|
|
|
|
|
/* form: a char indicating format */
|
|
|
|
|
/* size: size of each element; 1,2,4, or 8 bytes*/
|
|
|
|
|
/* num: the number of 'size' elements to return */
|
|
|
|
|
/* acshar: an optional ascii character to use in ASCII dump */
|
|
|
|
|
/* returns a list of 'num' elements followed by an optional */
|
|
|
|
|
/* ASCII dump */
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_mem (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int size, asize, num, i, j;
|
|
|
|
|
CORE_ADDR addr, saved_addr, ptr;
|
|
|
|
|
int format;
|
|
|
|
|
struct type *val_type;
|
|
|
|
|
value_ptr vptr;
|
|
|
|
|
char c, buff[128], aschar;
|
|
|
|
|
|
|
|
|
|
if (argc != 6)
|
|
|
|
|
error ("wrong # args");
|
|
|
|
|
|
|
|
|
|
addr = (CORE_ADDR)strtoul(argv[1],(char **)NULL,0);
|
|
|
|
|
saved_addr = addr;
|
|
|
|
|
format = *argv[2];
|
|
|
|
|
size = (int)strtoul(argv[3],(char **)NULL,0);
|
|
|
|
|
num = (int)strtoul(argv[4],(char **)NULL,0);
|
|
|
|
|
aschar = *argv[5];
|
|
|
|
|
|
|
|
|
|
switch (size) {
|
|
|
|
|
case 1:
|
|
|
|
|
val_type = builtin_type_char;
|
|
|
|
|
asize = 'b';
|
|
|
|
|
break;
|
|
|
|
|
case 2:
|
|
|
|
|
val_type = builtin_type_short;
|
|
|
|
|
asize = 'h';
|
|
|
|
|
break;
|
|
|
|
|
case 4:
|
|
|
|
|
val_type = builtin_type_int;
|
|
|
|
|
asize = 'w';
|
|
|
|
|
break;
|
|
|
|
|
case 8:
|
|
|
|
|
val_type = builtin_type_long_long;
|
|
|
|
|
asize = 'g';
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
val_type = builtin_type_char;
|
|
|
|
|
asize = 'b';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (i=0; i < num; i++)
|
|
|
|
|
{
|
|
|
|
|
vptr = value_at (val_type, addr, (asection *)NULL);
|
|
|
|
|
print_scalar_formatted (VALUE_CONTENTS(vptr), val_type, format, asize, gdb_stdout);
|
|
|
|
|
fputs_unfiltered (" ", gdb_stdout);
|
|
|
|
|
addr += size;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (aschar)
|
|
|
|
|
{
|
|
|
|
|
val_type = builtin_type_char;
|
|
|
|
|
ptr = saved_addr;
|
|
|
|
|
buff[0] = '"';
|
|
|
|
|
i = 1;
|
|
|
|
|
for (j=0; j < num*size; j++)
|
|
|
|
|
{
|
|
|
|
|
c = *(char *)VALUE_CONTENTS(value_at (val_type, ptr, (asection *)NULL));
|
|
|
|
|
if (c < 32 || c > 126)
|
|
|
|
|
c = aschar;
|
|
|
|
|
if (c == '"')
|
|
|
|
|
buff[i++] = '\\';
|
|
|
|
|
buff[i++] = c;
|
|
|
|
|
ptr++;
|
|
|
|
|
}
|
|
|
|
|
buff[i++] = '"';
|
|
|
|
|
buff[i] = 0;
|
|
|
|
|
fputs_unfiltered (buff, gdb_stdout);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1994-11-14 16:59:16 +00: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;
|
|
|
|
|
|
|
|
|
|
if (argc != 2)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("wrong # args");
|
1994-11-14 16:59:16 +00:00
|
|
|
|
|
|
|
|
|
symtab = lookup_symtab (argv[1]);
|
|
|
|
|
|
|
|
|
|
if (!symtab)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("No such file");
|
1994-11-14 16:59:16 +00:00
|
|
|
|
|
|
|
|
|
/* If there's no linetable, or no entries, then we are done. */
|
|
|
|
|
|
|
|
|
|
if (!symtab->linetable
|
|
|
|
|
|| symtab->linetable->nitems == 0)
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, "");
|
1994-11-14 16:59:16 +00:00
|
|
|
|
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;
|
|
|
|
|
|
1995-03-09 00:43:41 +00:00
|
|
|
|
dsprintf_append_element (result_ptr, "%d", le->line);
|
1994-11-14 16:59:16 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-12 20:50:08 +00:00
|
|
|
|
static int
|
|
|
|
|
map_arg_registers (argc, argv, func, argp)
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
void (*func) PARAMS ((int regnum, void *argp));
|
1994-12-12 20:50:08 +00:00
|
|
|
|
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
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("bad register number");
|
1994-12-12 20:50:08 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
static void
|
1994-12-12 20:50:08 +00:00
|
|
|
|
get_register_name (regnum, argp)
|
|
|
|
|
int regnum;
|
|
|
|
|
void *argp; /* Ignored */
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, reg_names[regnum]);
|
1994-12-12 20:50:08 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-11-14 16:59:16 +00: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 20:50:08 +00:00
|
|
|
|
argc--;
|
|
|
|
|
argv++;
|
|
|
|
|
|
1996-07-26 03:01:51 +00:00
|
|
|
|
return map_arg_registers (argc, argv, get_register_name, NULL);
|
1994-12-12 20:50:08 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#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
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
static void
|
1994-12-12 20:50:08 +00:00
|
|
|
|
get_register (regnum, fp)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
int regnum;
|
1994-12-12 20:50:08 +00:00
|
|
|
|
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))
|
|
|
|
|
{
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, "Optimized out");
|
1994-12-12 20:50:08 +00:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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));
|
|
|
|
|
|
1996-06-21 17:03:22 +00:00
|
|
|
|
if (format == 'r')
|
|
|
|
|
{
|
|
|
|
|
int j;
|
|
|
|
|
printf_filtered ("0x");
|
|
|
|
|
for (j = 0; j < REGISTER_RAW_SIZE (regnum); j++)
|
|
|
|
|
{
|
|
|
|
|
register int idx = TARGET_BYTE_ORDER == BIG_ENDIAN ? j
|
|
|
|
|
: REGISTER_RAW_SIZE (regnum) - 1 - j;
|
|
|
|
|
printf_filtered ("%02x", (unsigned char)raw_buffer[idx]);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
val_print (REGISTER_VIRTUAL_TYPE (regnum), virtual_buffer, 0,
|
|
|
|
|
gdb_stdout, format, 1, 0, Val_pretty_default);
|
1994-12-12 20:50:08 +00:00
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppend (result_ptr, " ", -1);
|
1994-12-12 20:50:08 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_fetch_registers (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int format;
|
|
|
|
|
|
|
|
|
|
if (argc < 2)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("wrong # args");
|
1994-11-14 16:59:16 +00:00
|
|
|
|
|
1994-12-12 20:50:08 +00:00
|
|
|
|
argc--;
|
|
|
|
|
argv++;
|
1994-11-14 16:59:16 +00:00
|
|
|
|
|
1994-12-12 20:50:08 +00:00
|
|
|
|
argc--;
|
|
|
|
|
format = **argv++;
|
|
|
|
|
|
1996-07-26 03:01:51 +00:00
|
|
|
|
return map_arg_registers (argc, argv, get_register, (void *) format);
|
1994-12-12 20:50:08 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This contains the previous values of the registers, since the last call to
|
|
|
|
|
gdb_changed_register_list. */
|
|
|
|
|
|
|
|
|
|
static char old_regs[REGISTER_BYTES];
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
static void
|
1994-12-12 20:50:08 +00:00
|
|
|
|
register_changed_p (regnum, argp)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
int regnum;
|
1994-12-12 20:50:08 +00:00
|
|
|
|
void *argp; /* Ignored */
|
|
|
|
|
{
|
|
|
|
|
char raw_buffer[MAX_REGISTER_RAW_SIZE];
|
|
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
|
1996-04-05 21:52:38 +00:00
|
|
|
|
/* Found a changed register. Save new value and return its number. */
|
1994-12-12 20:50:08 +00:00
|
|
|
|
|
|
|
|
|
memcpy (&old_regs[REGISTER_BYTE (regnum)], raw_buffer,
|
|
|
|
|
REGISTER_RAW_SIZE (regnum));
|
|
|
|
|
|
1995-03-09 00:43:41 +00:00
|
|
|
|
dsprintf_append_element (result_ptr, "%d", regnum);
|
1994-12-12 20:50:08 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_changed_register_list (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
argc--;
|
|
|
|
|
argv++;
|
|
|
|
|
|
|
|
|
|
return map_arg_registers (argc, argv, register_changed_p, NULL);
|
1994-11-14 16:59:16 +00:00
|
|
|
|
}
|
|
|
|
|
|
1996-04-05 21:52:38 +00:00
|
|
|
|
/* This implements the TCL command `gdb_cmd', which sends its argument into
|
1994-07-28 22:07:02 +00:00
|
|
|
|
the GDB command scanner. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_cmd (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_DString *save_ptr = NULL;
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
if (argc != 2)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("wrong # args");
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1996-04-05 21:52:38 +00:00
|
|
|
|
if (running_now)
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* for the load instruction (and possibly others later) we
|
|
|
|
|
set result_ptr to NULL so gdbtk_fputs() will not buffer
|
|
|
|
|
all the data until the command is finished. */
|
|
|
|
|
|
1997-12-11 03:05:13 +00:00
|
|
|
|
if (strncmp ("load ", argv[1], 5) == 0
|
|
|
|
|
|| strncmp ("while ", argv[1], 6) == 0)
|
|
|
|
|
{
|
|
|
|
|
Tcl_DStringAppend (result_ptr, "", -1);
|
|
|
|
|
save_ptr = result_ptr;
|
|
|
|
|
result_ptr = NULL;
|
|
|
|
|
}
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
1994-12-16 01:07:35 +00:00
|
|
|
|
execute_command (argv[1], 1);
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
bpstat_do_actions (&stop_bpstat);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
if (save_ptr)
|
|
|
|
|
result_ptr = save_ptr;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1997-05-08 01:00:39 +00:00
|
|
|
|
/* Client of call_wrapper - this routine performs the actual call to
|
|
|
|
|
the client function. */
|
|
|
|
|
|
|
|
|
|
struct wrapped_call_args
|
|
|
|
|
{
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
Tcl_CmdProc *func;
|
|
|
|
|
int argc;
|
|
|
|
|
char **argv;
|
|
|
|
|
int val;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
wrapped_call (args)
|
|
|
|
|
struct wrapped_call_args *args;
|
|
|
|
|
{
|
|
|
|
|
args->val = (*args->func) (args->func, args->interp, args->argc, args->argv);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
1994-12-16 01:07:35 +00: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[];
|
|
|
|
|
{
|
1997-05-08 01:00:39 +00:00
|
|
|
|
struct wrapped_call_args wrapped_args;
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DString result, *old_result_ptr;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_DString error_string, *old_error_string_ptr;
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
|
|
|
|
|
Tcl_DStringInit (&result);
|
|
|
|
|
old_result_ptr = result_ptr;
|
|
|
|
|
result_ptr = &result;
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_DStringInit (&error_string);
|
|
|
|
|
old_error_string_ptr = error_string_ptr;
|
|
|
|
|
error_string_ptr = &error_string;
|
|
|
|
|
|
1997-05-08 01:00:39 +00:00
|
|
|
|
wrapped_args.func = (Tcl_CmdProc *)clientData;
|
|
|
|
|
wrapped_args.interp = interp;
|
|
|
|
|
wrapped_args.argc = argc;
|
|
|
|
|
wrapped_args.argv = argv;
|
|
|
|
|
wrapped_args.val = 0;
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
1997-05-08 01:00:39 +00:00
|
|
|
|
if (!catch_errors (wrapped_call, &wrapped_args, "", RETURN_MASK_ALL))
|
1994-12-16 01:07:35 +00:00
|
|
|
|
{
|
1997-05-08 01:00:39 +00:00
|
|
|
|
wrapped_args.val = TCL_ERROR; /* Flag an error for TCL */
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
|
|
|
|
gdb_flush (gdb_stderr); /* Flush error output */
|
|
|
|
|
|
1995-01-06 01:55:45 +00:00
|
|
|
|
gdb_flush (gdb_stdout); /* Sometimes error output comes here as well */
|
|
|
|
|
|
1996-04-05 21:52:38 +00:00
|
|
|
|
/* 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. */
|
1994-12-16 01:07:35 +00:00
|
|
|
|
|
1997-02-10 21:52:46 +00:00
|
|
|
|
running_now = 0;
|
1996-01-24 06:27:59 +00:00
|
|
|
|
Tcl_Eval (interp, "gdbtk_tcl_idle");
|
1994-12-16 01:07:35 +00:00
|
|
|
|
}
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
if (Tcl_DStringLength (&error_string) == 0)
|
|
|
|
|
{
|
|
|
|
|
Tcl_DStringResult (interp, &result);
|
|
|
|
|
Tcl_DStringFree (&error_string);
|
|
|
|
|
}
|
|
|
|
|
else if (Tcl_DStringLength (&result) == 0)
|
|
|
|
|
{
|
|
|
|
|
Tcl_DStringResult (interp, &error_string);
|
|
|
|
|
Tcl_DStringFree (&result);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Tcl_ResetResult (interp);
|
|
|
|
|
Tcl_AppendResult (interp, Tcl_DStringValue (&result),
|
|
|
|
|
Tcl_DStringValue (&error_string), (char *) NULL);
|
|
|
|
|
Tcl_DStringFree (&result);
|
|
|
|
|
Tcl_DStringFree (&error_string);
|
|
|
|
|
}
|
|
|
|
|
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
result_ptr = old_result_ptr;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
error_string_ptr = old_error_string_ptr;
|
|
|
|
|
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
close_bfds ();
|
|
|
|
|
#endif
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
|
1997-05-08 01:00:39 +00:00
|
|
|
|
return wrapped_args.val;
|
1994-12-16 01:07:35 +00:00
|
|
|
|
}
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
static int
|
|
|
|
|
gdb_listfiles (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
struct objfile *objfile;
|
|
|
|
|
struct partial_symtab *psymtab;
|
1994-12-19 08:01:45 +00:00
|
|
|
|
struct symtab *symtab;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
ALL_PSYMTABS (objfile, psymtab)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, psymtab->filename);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1994-12-19 08:01:45 +00:00
|
|
|
|
ALL_SYMTABS (objfile, symtab)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_DStringAppendElement (result_ptr, symtab->filename);
|
1994-12-19 08:01:45 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1997-08-17 07:47:55 +00:00
|
|
|
|
static int
|
|
|
|
|
gdb_listfuncs (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
struct symtab *symtab;
|
|
|
|
|
struct blockvector *bv;
|
|
|
|
|
struct block *b;
|
|
|
|
|
struct symbol *sym;
|
|
|
|
|
int i,j;
|
|
|
|
|
|
|
|
|
|
if (argc != 2)
|
|
|
|
|
error ("wrong # args");
|
|
|
|
|
|
|
|
|
|
symtab = lookup_symtab (argv[1]);
|
|
|
|
|
|
|
|
|
|
if (!symtab)
|
|
|
|
|
error ("No such file");
|
|
|
|
|
|
|
|
|
|
bv = BLOCKVECTOR (symtab);
|
|
|
|
|
for (i = GLOBAL_BLOCK; i <= STATIC_BLOCK; i++)
|
|
|
|
|
{
|
|
|
|
|
b = BLOCKVECTOR_BLOCK (bv, i);
|
|
|
|
|
/* Skip the sort if this block is always sorted. */
|
|
|
|
|
if (!BLOCK_SHOULD_SORT (b))
|
|
|
|
|
sort_block_syms (b);
|
|
|
|
|
for (j = 0; j < BLOCK_NSYMS (b); j++)
|
|
|
|
|
{
|
|
|
|
|
sym = BLOCK_SYM (b, j);
|
|
|
|
|
if (SYMBOL_CLASS (sym) == LOC_BLOCK)
|
|
|
|
|
{
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, SYMBOL_NAME(sym));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1994-10-21 00:59:20 +00:00
|
|
|
|
static int
|
|
|
|
|
gdb_stop (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
1997-05-08 01:00:39 +00:00
|
|
|
|
if (target_stop)
|
|
|
|
|
target_stop ();
|
|
|
|
|
else
|
|
|
|
|
quit_flag = 1; /* hope something sees this */
|
1994-12-19 08:01:45 +00:00
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
1994-10-21 00:59:20 +00:00
|
|
|
|
}
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
/* Prepare to accept a new executable file. This is called when we
|
|
|
|
|
want to clear away everything we know about the old file, without
|
|
|
|
|
asking the user. The Tcl code will have already asked the user if
|
|
|
|
|
necessary. After this is called, we should be able to run the
|
|
|
|
|
`file' command without getting any questions. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_clear_file (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
if (inferior_pid != 0 && target_has_execution)
|
|
|
|
|
{
|
|
|
|
|
if (attach_flag)
|
|
|
|
|
target_detach (NULL, 0);
|
|
|
|
|
else
|
|
|
|
|
target_kill ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (target_has_execution)
|
|
|
|
|
pop_target ();
|
|
|
|
|
|
|
|
|
|
symbol_file_command (NULL, 0);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Ask the user to confirm an exit request. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_confirm_quit (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int ret;
|
|
|
|
|
|
|
|
|
|
ret = quit_confirm ();
|
|
|
|
|
Tcl_DStringAppendElement (result_ptr, ret ? "1" : "0");
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Quit without asking for confirmation. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_force_quit (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
quit_force ((char *) NULL, 1);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
/* This implements the TCL command `gdb_disassemble'. */
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1995-01-06 01:55:45 +00:00
|
|
|
|
static int
|
|
|
|
|
gdbtk_dis_asm_read_memory (memaddr, myaddr, len, info)
|
|
|
|
|
bfd_vma memaddr;
|
|
|
|
|
bfd_byte *myaddr;
|
|
|
|
|
int len;
|
|
|
|
|
disassemble_info *info;
|
|
|
|
|
{
|
|
|
|
|
extern struct target_ops exec_ops;
|
|
|
|
|
int res;
|
|
|
|
|
|
|
|
|
|
errno = 0;
|
|
|
|
|
res = xfer_memory (memaddr, myaddr, len, 0, &exec_ops);
|
|
|
|
|
|
|
|
|
|
if (res == len)
|
|
|
|
|
return 0;
|
|
|
|
|
else
|
|
|
|
|
if (errno == 0)
|
|
|
|
|
return EIO;
|
|
|
|
|
else
|
|
|
|
|
return errno;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We need a different sort of line table from the normal one cuz we can't
|
|
|
|
|
depend upon implicit line-end pc's for lines. This is because of the
|
|
|
|
|
reordering we are about to do. */
|
|
|
|
|
|
|
|
|
|
struct my_line_entry {
|
|
|
|
|
int line;
|
|
|
|
|
CORE_ADDR start_pc;
|
|
|
|
|
CORE_ADDR end_pc;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
compare_lines (mle1p, mle2p)
|
|
|
|
|
const PTR mle1p;
|
|
|
|
|
const PTR mle2p;
|
|
|
|
|
{
|
|
|
|
|
struct my_line_entry *mle1, *mle2;
|
|
|
|
|
int val;
|
|
|
|
|
|
|
|
|
|
mle1 = (struct my_line_entry *) mle1p;
|
|
|
|
|
mle2 = (struct my_line_entry *) mle2p;
|
|
|
|
|
|
|
|
|
|
val = mle1->line - mle2->line;
|
|
|
|
|
|
|
|
|
|
if (val != 0)
|
|
|
|
|
return val;
|
|
|
|
|
|
|
|
|
|
return mle1->start_pc - mle2->start_pc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_disassemble (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR pc, low, high;
|
|
|
|
|
int mixed_source_and_assembly;
|
1996-01-23 17:21:16 +00:00
|
|
|
|
static disassemble_info di;
|
|
|
|
|
static int di_initialized;
|
|
|
|
|
|
|
|
|
|
if (! di_initialized)
|
|
|
|
|
{
|
1996-07-15 23:54:39 +00:00
|
|
|
|
INIT_DISASSEMBLE_INFO_NO_ARCH (di, gdb_stdout,
|
|
|
|
|
(fprintf_ftype) fprintf_unfiltered);
|
1996-07-26 18:10:18 +00:00
|
|
|
|
di.flavour = bfd_target_unknown_flavour;
|
1996-01-23 17:21:16 +00:00
|
|
|
|
di.memory_error_func = dis_asm_memory_error;
|
|
|
|
|
di.print_address_func = dis_asm_print_address;
|
|
|
|
|
di_initialized = 1;
|
|
|
|
|
}
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
1996-07-15 23:54:39 +00:00
|
|
|
|
di.mach = tm_print_insn_info.mach;
|
|
|
|
|
if (TARGET_BYTE_ORDER == BIG_ENDIAN)
|
1997-04-21 21:01:28 +00:00
|
|
|
|
di.endian = BFD_ENDIAN_BIG;
|
1996-07-15 23:54:39 +00:00
|
|
|
|
else
|
1997-04-21 21:01:28 +00:00
|
|
|
|
di.endian = BFD_ENDIAN_LITTLE;
|
1996-07-15 23:54:39 +00:00
|
|
|
|
|
1995-01-06 01:55:45 +00:00
|
|
|
|
if (argc != 3 && argc != 4)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("wrong # args");
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
if (strcmp (argv[1], "source") == 0)
|
|
|
|
|
mixed_source_and_assembly = 1;
|
|
|
|
|
else if (strcmp (argv[1], "nosource") == 0)
|
|
|
|
|
mixed_source_and_assembly = 0;
|
|
|
|
|
else
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("First arg must be 'source' or 'nosource'");
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
low = parse_and_eval_address (argv[2]);
|
|
|
|
|
|
|
|
|
|
if (argc == 3)
|
|
|
|
|
{
|
|
|
|
|
if (find_pc_partial_function (low, NULL, &low, &high) == 0)
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
error ("No function contains specified address");
|
1995-01-06 01:55:45 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
high = parse_and_eval_address (argv[3]);
|
|
|
|
|
|
|
|
|
|
/* If disassemble_from_exec == -1, then we use the following heuristic to
|
|
|
|
|
determine whether or not to do disassembly from target memory or from the
|
|
|
|
|
exec file:
|
|
|
|
|
|
|
|
|
|
If we're debugging a local process, read target memory, instead of the
|
|
|
|
|
exec file. This makes disassembly of functions in shared libs work
|
|
|
|
|
correctly.
|
|
|
|
|
|
|
|
|
|
Else, we're debugging a remote process, and should disassemble from the
|
1996-04-05 21:52:38 +00:00
|
|
|
|
exec file for speed. However, this is no good if the target modifies its
|
1995-01-06 01:55:45 +00:00
|
|
|
|
code (for relocation, or whatever).
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
if (disassemble_from_exec == -1)
|
|
|
|
|
if (strcmp (target_shortname, "child") == 0
|
1995-04-15 21:01:31 +00:00
|
|
|
|
|| strcmp (target_shortname, "procfs") == 0
|
|
|
|
|
|| strcmp (target_shortname, "vxprocess") == 0)
|
1995-01-06 01:55:45 +00:00
|
|
|
|
disassemble_from_exec = 0; /* It's a child process, read inferior mem */
|
|
|
|
|
else
|
|
|
|
|
disassemble_from_exec = 1; /* It's remote, read the exec file */
|
|
|
|
|
|
|
|
|
|
if (disassemble_from_exec)
|
1995-02-03 19:35:54 +00:00
|
|
|
|
di.read_memory_func = gdbtk_dis_asm_read_memory;
|
|
|
|
|
else
|
|
|
|
|
di.read_memory_func = dis_asm_read_memory;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
/* If just doing straight assembly, all we need to do is disassemble
|
|
|
|
|
everything between low and high. If doing mixed source/assembly, we've
|
|
|
|
|
got a totally different path to follow. */
|
|
|
|
|
|
|
|
|
|
if (mixed_source_and_assembly)
|
|
|
|
|
{ /* Come here for mixed source/assembly */
|
|
|
|
|
/* The idea here is to present a source-O-centric view of a function to
|
|
|
|
|
the user. This means that things are presented in source order, with
|
|
|
|
|
(possibly) out of order assembly immediately following. */
|
|
|
|
|
struct symtab *symtab;
|
|
|
|
|
struct linetable_entry *le;
|
|
|
|
|
int nlines;
|
1995-01-24 21:49:11 +00:00
|
|
|
|
int newlines;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
struct my_line_entry *mle;
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
int i;
|
|
|
|
|
int out_of_order;
|
1995-01-24 21:49:11 +00:00
|
|
|
|
int next_line;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
symtab = find_pc_symtab (low); /* Assume symtab is valid for whole PC range */
|
|
|
|
|
|
|
|
|
|
if (!symtab)
|
|
|
|
|
goto assembly_only;
|
|
|
|
|
|
|
|
|
|
/* First, convert the linetable to a bunch of my_line_entry's. */
|
|
|
|
|
|
|
|
|
|
le = symtab->linetable->item;
|
|
|
|
|
nlines = symtab->linetable->nitems;
|
|
|
|
|
|
|
|
|
|
if (nlines <= 0)
|
|
|
|
|
goto assembly_only;
|
|
|
|
|
|
|
|
|
|
mle = (struct my_line_entry *) alloca (nlines * sizeof (struct my_line_entry));
|
|
|
|
|
|
|
|
|
|
out_of_order = 0;
|
|
|
|
|
|
1995-01-24 21:49:11 +00:00
|
|
|
|
/* Copy linetable entries for this function into our data structure, creating
|
|
|
|
|
end_pc's and setting out_of_order as appropriate. */
|
|
|
|
|
|
|
|
|
|
/* First, skip all the preceding functions. */
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < nlines - 1 && le[i].pc < low; i++) ;
|
|
|
|
|
|
|
|
|
|
/* Now, copy all entries before the end of this function. */
|
|
|
|
|
|
|
|
|
|
newlines = 0;
|
|
|
|
|
for (; i < nlines - 1 && le[i].pc < high; i++)
|
1995-01-06 01:55:45 +00:00
|
|
|
|
{
|
1995-01-24 21:49:11 +00:00
|
|
|
|
if (le[i].line == le[i + 1].line
|
|
|
|
|
&& le[i].pc == le[i + 1].pc)
|
|
|
|
|
continue; /* Ignore duplicates */
|
|
|
|
|
|
|
|
|
|
mle[newlines].line = le[i].line;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
if (le[i].line > le[i + 1].line)
|
|
|
|
|
out_of_order = 1;
|
1995-01-24 21:49:11 +00:00
|
|
|
|
mle[newlines].start_pc = le[i].pc;
|
|
|
|
|
mle[newlines].end_pc = le[i + 1].pc;
|
|
|
|
|
newlines++;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
}
|
|
|
|
|
|
1995-01-24 21:49:11 +00:00
|
|
|
|
/* If we're on the last line, and it's part of the function, then we need to
|
|
|
|
|
get the end pc in a special way. */
|
|
|
|
|
|
|
|
|
|
if (i == nlines - 1
|
|
|
|
|
&& le[i].pc < high)
|
|
|
|
|
{
|
|
|
|
|
mle[newlines].line = le[i].line;
|
|
|
|
|
mle[newlines].start_pc = le[i].pc;
|
|
|
|
|
sal = find_pc_line (le[i].pc, 0);
|
|
|
|
|
mle[newlines].end_pc = sal.end;
|
|
|
|
|
newlines++;
|
|
|
|
|
}
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
/* Now, sort mle by line #s (and, then by addresses within lines). */
|
|
|
|
|
|
|
|
|
|
if (out_of_order)
|
1995-01-24 21:49:11 +00:00
|
|
|
|
qsort (mle, newlines, sizeof (struct my_line_entry), compare_lines);
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
/* Now, for each line entry, emit the specified lines (unless they have been
|
|
|
|
|
emitted before), followed by the assembly code for that line. */
|
|
|
|
|
|
1995-01-24 21:49:11 +00:00
|
|
|
|
next_line = 0; /* Force out first line */
|
|
|
|
|
for (i = 0; i < newlines; i++)
|
1995-01-06 01:55:45 +00:00
|
|
|
|
{
|
1995-01-24 21:49:11 +00:00
|
|
|
|
/* Print out everything from next_line to the current line. */
|
|
|
|
|
|
|
|
|
|
if (mle[i].line >= next_line)
|
1995-01-06 01:55:45 +00:00
|
|
|
|
{
|
1995-01-24 21:49:11 +00:00
|
|
|
|
if (next_line != 0)
|
|
|
|
|
print_source_lines (symtab, next_line, mle[i].line + 1, 0);
|
1995-01-06 01:55:45 +00:00
|
|
|
|
else
|
1995-01-24 21:49:11 +00:00
|
|
|
|
print_source_lines (symtab, mle[i].line, mle[i].line + 1, 0);
|
|
|
|
|
|
|
|
|
|
next_line = mle[i].line + 1;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
}
|
1995-01-24 21:49:11 +00:00
|
|
|
|
|
1995-01-06 01:55:45 +00:00
|
|
|
|
for (pc = mle[i].start_pc; pc < mle[i].end_pc; )
|
|
|
|
|
{
|
|
|
|
|
QUIT;
|
|
|
|
|
fputs_unfiltered (" ", gdb_stdout);
|
|
|
|
|
print_address (pc, gdb_stdout);
|
|
|
|
|
fputs_unfiltered (":\t ", gdb_stdout);
|
1995-02-06 04:39:14 +00:00
|
|
|
|
pc += (*tm_print_insn) (pc, &di);
|
1995-01-06 01:55:45 +00:00
|
|
|
|
fputs_unfiltered ("\n", gdb_stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
assembly_only:
|
|
|
|
|
for (pc = low; pc < high; )
|
|
|
|
|
{
|
|
|
|
|
QUIT;
|
|
|
|
|
fputs_unfiltered (" ", gdb_stdout);
|
|
|
|
|
print_address (pc, gdb_stdout);
|
|
|
|
|
fputs_unfiltered (":\t ", gdb_stdout);
|
1995-02-06 04:39:14 +00:00
|
|
|
|
pc += (*tm_print_insn) (pc, &di);
|
1995-01-06 01:55:45 +00:00
|
|
|
|
fputs_unfiltered ("\n", gdb_stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
gdb_flush (gdb_stdout);
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
tk_command (cmd, from_tty)
|
|
|
|
|
char *cmd;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
1994-12-19 08:01:45 +00:00
|
|
|
|
int retval;
|
|
|
|
|
char *result;
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
1996-05-14 02:11:53 +00:00
|
|
|
|
/* Catch case of no argument, since this will make the tcl interpreter dump core. */
|
|
|
|
|
if (cmd == NULL)
|
|
|
|
|
error_no_arg ("tcl command to interpret");
|
|
|
|
|
|
1994-12-19 08:01:45 +00:00
|
|
|
|
retval = Tcl_Eval (interp, cmd);
|
|
|
|
|
|
|
|
|
|
result = strdup (interp->result);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1994-12-19 08:01:45 +00:00
|
|
|
|
old_chain = make_cleanup (free, result);
|
|
|
|
|
|
|
|
|
|
if (retval != TCL_OK)
|
|
|
|
|
error (result);
|
|
|
|
|
|
|
|
|
|
printf_unfiltered ("%s\n", result);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
cleanup_init (ignored)
|
|
|
|
|
int ignored;
|
|
|
|
|
{
|
|
|
|
|
if (interp != NULL)
|
|
|
|
|
Tcl_DeleteInterp (interp);
|
|
|
|
|
interp = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
1994-09-16 22:57:37 +00: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 00:59:20 +00:00
|
|
|
|
/* Come here when there is activity on the X file descriptor. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
x_event (signo)
|
|
|
|
|
int signo;
|
|
|
|
|
{
|
|
|
|
|
/* Process pending events */
|
|
|
|
|
|
1997-03-13 20:39:56 +00:00
|
|
|
|
while (Tcl_DoOneEvent (TCL_DONT_WAIT|TCL_ALL_EVENTS) != 0);
|
1994-10-21 00:59:20 +00:00
|
|
|
|
}
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef __CYGWIN32__
|
|
|
|
|
|
|
|
|
|
/* For Cygwin32, we use a timer to periodically check for Windows
|
|
|
|
|
messages. FIXME: It would be better to not poll, but to instead
|
|
|
|
|
rewrite the target_wait routines to serve as input sources.
|
|
|
|
|
Unfortunately, that will be a lot of work. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_start_timer ()
|
|
|
|
|
{
|
|
|
|
|
sigset_t nullsigmask;
|
|
|
|
|
struct sigaction action;
|
|
|
|
|
struct itimerval it;
|
|
|
|
|
|
|
|
|
|
sigemptyset (&nullsigmask);
|
|
|
|
|
|
|
|
|
|
action.sa_handler = x_event;
|
|
|
|
|
action.sa_mask = nullsigmask;
|
|
|
|
|
action.sa_flags = 0;
|
|
|
|
|
sigaction (SIGALRM, &action, NULL);
|
|
|
|
|
|
|
|
|
|
it.it_interval.tv_sec = 0;
|
|
|
|
|
/* Check for messages twice a second. */
|
|
|
|
|
it.it_interval.tv_usec = 500 * 1000;
|
|
|
|
|
it.it_value.tv_sec = 0;
|
|
|
|
|
it.it_value.tv_usec = 500 * 1000;
|
|
|
|
|
|
|
|
|
|
setitimer (ITIMER_REAL, &it, NULL);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_stop_timer ()
|
|
|
|
|
{
|
|
|
|
|
sigset_t nullsigmask;
|
|
|
|
|
struct sigaction action;
|
|
|
|
|
struct itimerval it;
|
|
|
|
|
|
|
|
|
|
sigemptyset (&nullsigmask);
|
|
|
|
|
|
|
|
|
|
action.sa_handler = SIG_IGN;
|
|
|
|
|
action.sa_mask = nullsigmask;
|
|
|
|
|
action.sa_flags = 0;
|
|
|
|
|
sigaction (SIGALRM, &action, NULL);
|
|
|
|
|
|
|
|
|
|
it.it_interval.tv_sec = 0;
|
|
|
|
|
it.it_interval.tv_usec = 0;
|
|
|
|
|
it.it_value.tv_sec = 0;
|
|
|
|
|
it.it_value.tv_usec = 0;
|
|
|
|
|
setitimer (ITIMER_REAL, &it, NULL);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* This hook function is called whenever we want to wait for the
|
|
|
|
|
target. */
|
|
|
|
|
|
1994-10-21 00:59:20 +00:00
|
|
|
|
static int
|
|
|
|
|
gdbtk_wait (pid, ourstatus)
|
|
|
|
|
int pid;
|
|
|
|
|
struct target_waitstatus *ourstatus;
|
|
|
|
|
{
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifndef WINNT
|
1994-12-24 00:32:14 +00:00
|
|
|
|
struct sigaction action;
|
|
|
|
|
static sigset_t nullsigmask = {0};
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
1994-12-24 00:32:14 +00:00
|
|
|
|
#ifndef SA_RESTART
|
|
|
|
|
/* Needed for SunOS 4.1.x */
|
|
|
|
|
#define SA_RESTART 0
|
1994-12-19 08:01:45 +00:00
|
|
|
|
#endif
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1994-12-24 00:32:14 +00:00
|
|
|
|
action.sa_handler = x_event;
|
|
|
|
|
action.sa_mask = nullsigmask;
|
|
|
|
|
action.sa_flags = SA_RESTART;
|
|
|
|
|
sigaction(SIGIO, &action, NULL);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#endif /* WINNT */
|
|
|
|
|
|
|
|
|
|
#ifdef __CYGWIN32__
|
|
|
|
|
gdbtk_start_timer ();
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#endif
|
1994-12-24 00:32:14 +00:00
|
|
|
|
|
1994-10-21 00:59:20 +00:00
|
|
|
|
pid = target_wait (pid, ourstatus);
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef __CYGWIN32__
|
|
|
|
|
gdbtk_stop_timer ();
|
|
|
|
|
#endif
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#ifndef WINNT
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
action.sa_handler = SIG_IGN;
|
1997-03-19 23:39:20 +00:00
|
|
|
|
sigaction(SIGIO, &action, NULL);
|
|
|
|
|
#endif
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
{
|
1996-04-05 21:52:38 +00:00
|
|
|
|
running_now = 0;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
if (cmdblk->class == class_run || cmdblk->class == class_trace)
|
1994-10-21 00:59:20 +00:00
|
|
|
|
{
|
1996-04-05 21:52:38 +00:00
|
|
|
|
running_now = 1;
|
1996-01-24 06:27:59 +00:00
|
|
|
|
Tcl_Eval (interp, "gdbtk_tcl_busy");
|
1994-10-21 00:59:20 +00:00
|
|
|
|
(*cmdblk->function.cfunc)(arg, from_tty);
|
1996-04-05 21:52:38 +00:00
|
|
|
|
running_now = 0;
|
1997-07-10 07:15:26 +00:00
|
|
|
|
Tcl_Eval (interp, "gdbtk_tcl_idle");
|
1994-10-21 00:59:20 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
(*cmdblk->function.cfunc)(arg, from_tty);
|
|
|
|
|
}
|
|
|
|
|
|
1996-05-17 02:36:13 +00:00
|
|
|
|
/* This function is called instead of gdb's internal command loop. This is the
|
|
|
|
|
last chance to do anything before entering the main Tk event loop. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
tk_command_loop ()
|
|
|
|
|
{
|
* defs.h (read_command_lines, query_hook): Update prototypes.
(readline_begin_hook, readline_hook, readline_end_hook): Declare.
* breakpoint.c (commands_command): Build message in temporary buffer
and pass that, as well as tty control flag, to read_command_lines.
* top.c (readline_begin_hook, readline_hook, readline_end_hook):
Define here.
(command_loop): Check for non-NULL instream before looping.
(command_line_input): Use readline_hook when appropriate, to get
user input from a GUI window.
(read_next_line): Also build prompt if getting user input from a GUI.
(recurse_read_control_structure): Fix typo in comment.
(read_command_lines): Use passed in prompt and tty flag to decide how
to build message. Use readline_begin_hook when appropriate, to set
up a GUI interaction window. Just return head, whether NULL or not,
after using readline_end_hook to complete GUI interaction.
(define_command, document_command): Build message in a temporary
buffer and pass it to read_command_lines, along with tty flag.
* gdbtk.c (gdbtk_readline_begin, gdbtk_readline, gdbtk_readline_end):
New functions.
(tk_command_loop): Set instream to NULL to enable Tk user interaction.
(gdbtk_init): Set readline_begin_hook, readline_hook,
and readline_end_hook.
* gdbtk.tcl (gdbtk_tcl_readline_begin, gdbtk_tcl_readline,
gdbtk_tcl_readline_end): New functions.
(tclsh): Pack scroll bar on right side of window, not left.
PR 9385
1996-05-20 02:05:55 +00:00
|
|
|
|
extern GDB_FILE *instream;
|
|
|
|
|
|
|
|
|
|
/* We no longer want to use stdin as the command input stream */
|
|
|
|
|
instream = NULL;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
if (Tcl_Eval (interp, "gdbtk_tcl_preloop") != TCL_OK)
|
|
|
|
|
{
|
|
|
|
|
char *msg;
|
|
|
|
|
|
|
|
|
|
/* Force errorInfo to be set up propertly. */
|
|
|
|
|
Tcl_AddErrorInfo (interp, "");
|
|
|
|
|
|
|
|
|
|
msg = Tcl_GetVar (interp, "errorInfo", TCL_GLOBAL_ONLY);
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
MessageBox (NULL, msg, NULL, MB_OK | MB_ICONERROR | MB_TASKMODAL);
|
|
|
|
|
#else
|
|
|
|
|
fputs_unfiltered (msg, gdb_stderr);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
close_bfds ();
|
|
|
|
|
#endif
|
|
|
|
|
|
1996-05-17 02:36:13 +00:00
|
|
|
|
Tk_MainLoop ();
|
|
|
|
|
}
|
|
|
|
|
|
1997-08-08 20:07:14 +00:00
|
|
|
|
/* gdbtk_init installs this function as a final cleanup. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_cleanup (dummy)
|
|
|
|
|
PTR dummy;
|
|
|
|
|
{
|
|
|
|
|
Tcl_Finalize ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Initialize gdbtk. */
|
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
static void
|
1997-07-10 07:15:26 +00:00
|
|
|
|
gdbtk_init ( argv0 )
|
|
|
|
|
char *argv0;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
1997-08-09 00:19:16 +00:00
|
|
|
|
char *lib, *gdbtk_lib, *gdbtk_lib_tmp, *gdbtk_file;
|
1997-03-19 23:39:20 +00:00
|
|
|
|
int i, found_main;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifndef WINNT
|
1994-12-24 00:32:14 +00:00
|
|
|
|
struct sigaction action;
|
|
|
|
|
static sigset_t nullsigmask = {0};
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#endif
|
1997-07-10 07:15:26 +00:00
|
|
|
|
#ifdef IDE
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* start-sanitize-ide */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
struct ide_event_handle *h;
|
|
|
|
|
const char *errmsg;
|
|
|
|
|
char *libexecdir;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* end-sanitize-ide */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
#endif
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1996-08-23 07:57:10 +00:00
|
|
|
|
/* If there is no DISPLAY environment variable, Tk_Init below will fail,
|
|
|
|
|
causing gdb to abort. If instead we simply return here, gdb will
|
|
|
|
|
gracefully degrade to using the command line interface. */
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#ifndef WINNT
|
1996-08-23 07:57:10 +00:00
|
|
|
|
if (getenv ("DISPLAY") == NULL)
|
|
|
|
|
return;
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#endif
|
1996-08-23 07:57:10 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
old_chain = make_cleanup (cleanup_init, 0);
|
|
|
|
|
|
|
|
|
|
/* First init tcl and tk. */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
Tcl_FindExecutable (argv0);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
interp = Tcl_CreateInterp ();
|
|
|
|
|
|
|
|
|
|
if (!interp)
|
|
|
|
|
error ("Tcl_CreateInterp failed");
|
|
|
|
|
|
|
|
|
|
if (Tcl_Init(interp) != TCL_OK)
|
|
|
|
|
error ("Tcl_Init failed: %s", interp->result);
|
|
|
|
|
|
1997-08-08 20:07:14 +00:00
|
|
|
|
make_final_cleanup (gdbtk_cleanup, NULL);
|
1997-07-10 07:15:26 +00:00
|
|
|
|
|
1997-08-08 20:07:14 +00:00
|
|
|
|
/* Initialize the Paths variable. */
|
1997-08-09 00:19:16 +00:00
|
|
|
|
if (ide_initialize_paths (interp, "gdbtcl") != TCL_OK)
|
1997-08-08 20:07:14 +00:00
|
|
|
|
error ("ide_initialize_paths failed: %s", interp->result);
|
|
|
|
|
|
1997-12-01 20:53:02 +00:00
|
|
|
|
#ifdef IDE
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* start-sanitize-ide */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
/* Find the directory where we expect to find idemanager. We ignore
|
|
|
|
|
errors since it doesn't really matter if this fails. */
|
|
|
|
|
libexecdir = Tcl_GetVar2 (interp, "Paths", "libexecdir", TCL_GLOBAL_ONLY);
|
|
|
|
|
|
|
|
|
|
IluTk_Init ();
|
|
|
|
|
|
1997-08-11 16:49:53 +00:00
|
|
|
|
h = ide_event_init_from_environment (&errmsg, libexecdir);
|
1997-07-10 07:15:26 +00:00
|
|
|
|
if (h == NULL)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "can't initialize event system: ", errmsg,
|
|
|
|
|
(char *) NULL);
|
|
|
|
|
fprintf(stderr, "WARNING: ide_event_init_client failed: %s\n", interp->result);
|
1997-08-08 20:07:14 +00:00
|
|
|
|
|
|
|
|
|
Tcl_SetVar (interp, "GDBTK_IDE", "0", 0);
|
1997-07-10 07:15:26 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (ide_create_tclevent_command (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_create_tclevent_command failed: %s", interp->result);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
1997-07-10 07:15:26 +00:00
|
|
|
|
if (ide_create_edit_command (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_create_edit_command failed: %s", interp->result);
|
|
|
|
|
|
|
|
|
|
if (ide_create_property_command (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_create_property_command failed: %s", interp->result);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
if (ide_create_build_command (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_create_build_command failed: %s", interp->result);
|
|
|
|
|
|
|
|
|
|
if (ide_create_window_register_command (interp, h, "gdb-restore")
|
|
|
|
|
!= TCL_OK)
|
1997-08-08 20:07:14 +00:00
|
|
|
|
error ("ide_create_window_register_command failed: %s",
|
|
|
|
|
interp->result);
|
|
|
|
|
|
|
|
|
|
if (ide_create_window_command (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_create_window_command failed: %s", interp->result);
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
if (ide_create_exit_command (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_create_exit_command failed: %s", interp->result);
|
|
|
|
|
|
|
|
|
|
if (ide_create_help_command (interp) != TCL_OK)
|
|
|
|
|
error ("ide_create_help_command failed: %s", interp->result);
|
|
|
|
|
|
1997-07-10 07:15:26 +00:00
|
|
|
|
/*
|
|
|
|
|
if (ide_initialize (interp, "gdb") != TCL_OK)
|
|
|
|
|
error ("ide_initialize failed: %s", interp->result);
|
|
|
|
|
*/
|
1997-08-08 20:07:14 +00:00
|
|
|
|
|
|
|
|
|
Tcl_SetVar (interp, "GDBTK_IDE", "1", 0);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_SetVar (interp, "IDE", "1", TCL_GLOBAL_ONLY);
|
1997-07-10 07:15:26 +00:00
|
|
|
|
}
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
/* end-sanitize-ide */
|
1997-07-10 07:15:26 +00:00
|
|
|
|
#else
|
|
|
|
|
Tcl_SetVar (interp, "GDBTK_IDE", "0", 0);
|
|
|
|
|
#endif /* IDE */
|
|
|
|
|
|
1997-08-08 20:07:14 +00:00
|
|
|
|
/* We don't want to open the X connection until we've done all the
|
|
|
|
|
IDE initialization. Otherwise, goofy looking unfinished windows
|
|
|
|
|
pop up when ILU drops into the TCL event loop. */
|
|
|
|
|
|
|
|
|
|
if (Tk_Init(interp) != TCL_OK)
|
|
|
|
|
error ("Tk_Init failed: %s", interp->result);
|
|
|
|
|
|
|
|
|
|
if (Itcl_Init(interp) == TCL_ERROR)
|
|
|
|
|
error ("Itcl_Init failed: %s", interp->result);
|
|
|
|
|
|
|
|
|
|
if (Tix_Init(interp) != TCL_OK)
|
|
|
|
|
error ("Tix_Init failed: %s", interp->result);
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef __CYGWIN32__
|
|
|
|
|
/* On Windows, create a sizebox widget command */
|
|
|
|
|
if (ide_create_sizebox_command (interp) != TCL_OK)
|
|
|
|
|
error ("sizebox creation failed");
|
|
|
|
|
if (ide_create_winprint_command (interp) != TCL_OK)
|
|
|
|
|
error ("windows print code initialization failed");
|
|
|
|
|
/* start-sanitize-ide */
|
|
|
|
|
/* An interface to ShellExecute. */
|
|
|
|
|
if (ide_create_shell_execute_command (interp) != TCL_OK)
|
|
|
|
|
error ("shell execute command initialization failed");
|
1997-12-11 04:18:47 +00:00
|
|
|
|
/* end-sanitize-ide */
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1994-12-16 01:07:35 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_cmd", call_wrapper, gdb_cmd, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_loc", call_wrapper, gdb_loc, NULL);
|
1997-03-19 23:39:20 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_path_conv", call_wrapper, gdb_path_conv, NULL);
|
1994-12-16 01:07:35 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_sourcelines", call_wrapper, gdb_sourcelines,
|
|
|
|
|
NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_listfiles", call_wrapper, gdb_listfiles,
|
1994-12-12 20:50:08 +00:00
|
|
|
|
NULL);
|
1997-08-17 07:47:55 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_listfuncs", call_wrapper, gdb_listfuncs,
|
|
|
|
|
NULL);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_get_mem", call_wrapper, gdb_get_mem,
|
|
|
|
|
NULL);
|
1994-12-16 01:07:35 +00: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);
|
1995-01-06 01:55:45 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_disassemble", call_wrapper,
|
|
|
|
|
gdb_disassemble, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_eval", call_wrapper, gdb_eval, NULL);
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_get_breakpoint_list", call_wrapper,
|
|
|
|
|
gdb_get_breakpoint_list, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_get_breakpoint_info", call_wrapper,
|
|
|
|
|
gdb_get_breakpoint_info, NULL);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
Tcl_CreateCommand (interp, "gdb_clear_file", call_wrapper,
|
|
|
|
|
gdb_clear_file, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_confirm_quit", call_wrapper,
|
|
|
|
|
gdb_confirm_quit, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_force_quit", call_wrapper,
|
|
|
|
|
gdb_force_quit, NULL);
|
|
|
|
|
Tcl_CreateCommand (interp, "gdb_target_has_execution",
|
|
|
|
|
gdb_target_has_execution_command,
|
|
|
|
|
NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_load_info", gdb_load_info, NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_locals", gdb_get_vars_command,
|
|
|
|
|
(ClientData) 0, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_args", gdb_get_vars_command,
|
|
|
|
|
(ClientData) 1, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_function", gdb_get_function_command,
|
|
|
|
|
NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_line", gdb_get_line_command,
|
|
|
|
|
NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_file", gdb_get_file_command,
|
|
|
|
|
NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_tracepoint_exists",
|
|
|
|
|
gdb_tracepoint_exists_command, NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_tracepoint_info",
|
|
|
|
|
gdb_get_tracepoint_info, NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_actions",
|
|
|
|
|
gdb_actions_command, NULL, NULL);
|
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_prompt",
|
|
|
|
|
gdb_prompt_command, NULL, NULL);
|
1997-12-05 20:17:13 +00:00
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_find_file",
|
|
|
|
|
gdb_find_file_command, NULL, NULL);
|
1997-12-11 03:05:13 +00:00
|
|
|
|
Tcl_CreateObjCommand (interp, "gdb_get_tracepoint_list",
|
|
|
|
|
gdb_get_tracepoint_list, NULL, NULL);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
1996-05-17 02:36:13 +00:00
|
|
|
|
command_loop_hook = tk_command_loop;
|
1996-07-26 03:01:51 +00:00
|
|
|
|
print_frame_info_listing_hook =
|
|
|
|
|
(void (*) PARAMS ((struct symtab *, int, int, int))) null_routine;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
query_hook = gdbtk_query;
|
|
|
|
|
flush_hook = gdbtk_flush;
|
|
|
|
|
create_breakpoint_hook = gdbtk_create_breakpoint;
|
|
|
|
|
delete_breakpoint_hook = gdbtk_delete_breakpoint;
|
* annotate.c, breakpoint.c, defs.h, gdbtk.c, top.c: Replace
enable/disable_breakpoint_hook with modify_breakpoint_hook.
* gdbtk.c: General cleanups, get rid of unused variables. Redo
handling of stdout/stderr to just return output as the result of
the tcl command that caused the output. Cleanup -Wall stuff.
* (breakpoint_notify): Now returns just action and breakpoint
number.
* (gdb_get_breakpoint_list): New routine. Does the obvious.
* (gdb_get_breakpoint_info): Mostly derived from the old
breakpoint_notify, but returns lots more info.
* (dsprintf_append_element): Helper routine, works like printf,
but appends a tcl element onto the specified DString. Good for
building up lists as return values.
* (gdbtk_enable/disable_breakpoint): Go away. Replaced with
gdbtk_modify_breakpoint.
* (*many routines*): Use new result protocol.
* (call_wrapper): Make sure that recursive calls don't trash results.
* gdbtk.tcl: New windows, autocmd, and breakpoints.
* (gdbtk_tcl_fputs): Don't use $current_output_win redirection
anymore. It's not needed (in fact, this routine may not be needed
anymore).
* (gdbtk_tcl_breakpoint): Change to reflect new breakpoint
notification protocol.
* (gdbtk_tcl_busy gdbtk_tcl_idle): Straighten out buttons, remove
catches.
* (interactive_cmd): Use this wrapper around button invocations
of many commands. This will catch errors and put the results into
the command window. It also updates all the other windows.
* Also, change reliefs of most things to sunken. This actually
looks better.
* (create_file_win): Fix margin binding to allow breakpoints to
work again.
* (create_asm_win): Use return value of gdb_disassemble instead
of implicit I/O to the command window.
* (create_command_window): Use new result protocol to get output
from commands.
1995-02-15 01:45:39 +00:00
|
|
|
|
modify_breakpoint_hook = gdbtk_modify_breakpoint;
|
1995-01-06 01:55:45 +00:00
|
|
|
|
interactive_hook = gdbtk_interactive;
|
|
|
|
|
target_wait_hook = gdbtk_wait;
|
|
|
|
|
call_command_hook = gdbtk_call_command;
|
* defs.h (read_command_lines, query_hook): Update prototypes.
(readline_begin_hook, readline_hook, readline_end_hook): Declare.
* breakpoint.c (commands_command): Build message in temporary buffer
and pass that, as well as tty control flag, to read_command_lines.
* top.c (readline_begin_hook, readline_hook, readline_end_hook):
Define here.
(command_loop): Check for non-NULL instream before looping.
(command_line_input): Use readline_hook when appropriate, to get
user input from a GUI window.
(read_next_line): Also build prompt if getting user input from a GUI.
(recurse_read_control_structure): Fix typo in comment.
(read_command_lines): Use passed in prompt and tty flag to decide how
to build message. Use readline_begin_hook when appropriate, to set
up a GUI interaction window. Just return head, whether NULL or not,
after using readline_end_hook to complete GUI interaction.
(define_command, document_command): Build message in a temporary
buffer and pass it to read_command_lines, along with tty flag.
* gdbtk.c (gdbtk_readline_begin, gdbtk_readline, gdbtk_readline_end):
New functions.
(tk_command_loop): Set instream to NULL to enable Tk user interaction.
(gdbtk_init): Set readline_begin_hook, readline_hook,
and readline_end_hook.
* gdbtk.tcl (gdbtk_tcl_readline_begin, gdbtk_tcl_readline,
gdbtk_tcl_readline_end): New functions.
(tclsh): Pack scroll bar on right side of window, not left.
PR 9385
1996-05-20 02:05:55 +00:00
|
|
|
|
readline_begin_hook = gdbtk_readline_begin;
|
|
|
|
|
readline_hook = gdbtk_readline;
|
|
|
|
|
readline_end_hook = gdbtk_readline_end;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
ui_load_progress_hook = gdbtk_load_hash;
|
|
|
|
|
create_tracepoint_hook = gdbtk_create_tracepoint;
|
|
|
|
|
delete_tracepoint_hook = gdbtk_delete_tracepoint;
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifndef WINNT
|
1994-11-02 00:50:12 +00:00
|
|
|
|
/* Get the file descriptor for the X server */
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1996-08-02 02:43:27 +00:00
|
|
|
|
x_fd = ConnectionNumber (Tk_Display (Tk_MainWindow (interp)));
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
|
|
|
|
/* Setup for I/O interrupts */
|
|
|
|
|
|
1994-12-24 00:32:14 +00:00
|
|
|
|
action.sa_mask = nullsigmask;
|
|
|
|
|
action.sa_flags = 0;
|
|
|
|
|
action.sa_handler = SIG_IGN;
|
|
|
|
|
sigaction(SIGIO, &action, NULL);
|
|
|
|
|
|
|
|
|
|
#ifdef FIOASYNC
|
|
|
|
|
i = 1;
|
|
|
|
|
if (ioctl (x_fd, FIOASYNC, &i))
|
|
|
|
|
perror_with_name ("gdbtk_init: ioctl FIOASYNC failed");
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1995-04-06 21:08:05 +00:00
|
|
|
|
#ifdef SIOCSPGRP
|
1994-12-24 00:32:14 +00:00
|
|
|
|
i = getpid();
|
|
|
|
|
if (ioctl (x_fd, SIOCSPGRP, &i))
|
|
|
|
|
perror_with_name ("gdbtk_init: ioctl SIOCSPGRP failed");
|
1995-04-11 15:14:07 +00:00
|
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
#ifdef F_SETOWN
|
|
|
|
|
i = getpid();
|
|
|
|
|
if (fcntl (x_fd, F_SETOWN, i))
|
|
|
|
|
perror_with_name ("gdbtk_init: fcntl F_SETOWN failed");
|
|
|
|
|
#endif /* F_SETOWN */
|
|
|
|
|
#endif /* !SIOCSPGRP */
|
1994-12-19 08:01:45 +00:00
|
|
|
|
#else
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#ifndef WINNT
|
1994-12-19 08:01:45 +00:00
|
|
|
|
if (ioctl (x_fd, I_SETSIG, S_INPUT|S_RDNORM) < 0)
|
1994-12-24 00:32:14 +00:00
|
|
|
|
perror_with_name ("gdbtk_init: ioctl I_SETSIG failed");
|
1997-03-19 23:39:20 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1994-12-24 00:32:14 +00:00
|
|
|
|
#endif /* ifndef FIOASYNC */
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#endif /* WINNT */
|
1994-10-21 00:59:20 +00:00
|
|
|
|
|
1994-07-28 22:07:02 +00:00
|
|
|
|
add_com ("tk", class_obscure, tk_command,
|
|
|
|
|
"Send a command directly into tk.");
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
|
|
|
|
Tcl_LinkVar (interp, "disassemble-from-exec", (char *)&disassemble_from_exec,
|
|
|
|
|
TCL_LINK_INT);
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
/* find the gdb tcl library and source main.tcl */
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
gdbtk_lib = getenv ("GDBTK_LIBRARY");
|
|
|
|
|
if (!gdbtk_lib)
|
|
|
|
|
if (access ("gdbtcl/main.tcl", R_OK) == 0)
|
|
|
|
|
gdbtk_lib = "gdbtcl";
|
1995-01-06 01:55:45 +00:00
|
|
|
|
else
|
1997-03-19 23:39:20 +00:00
|
|
|
|
gdbtk_lib = GDBTK_LIBRARY;
|
|
|
|
|
|
1997-08-09 00:19:16 +00:00
|
|
|
|
gdbtk_lib_tmp = xstrdup (gdbtk_lib);
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
found_main = 0;
|
|
|
|
|
/* see if GDBTK_LIBRARY is a path list */
|
|
|
|
|
lib = strtok (gdbtk_lib_tmp, GDBTK_PATH_SEP);
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (Tcl_VarEval (interp, "lappend auto_path ", lib, NULL) != TCL_OK)
|
|
|
|
|
{
|
|
|
|
|
fputs_unfiltered (Tcl_GetVar (interp, "errorInfo", 0), gdb_stderr);
|
|
|
|
|
error ("");
|
|
|
|
|
}
|
|
|
|
|
if (!found_main)
|
|
|
|
|
{
|
1997-08-09 00:19:16 +00:00
|
|
|
|
gdbtk_file = concat (lib, "/main.tcl", (char *) NULL);
|
1997-03-19 23:39:20 +00:00
|
|
|
|
if (access (gdbtk_file, R_OK) == 0)
|
|
|
|
|
{
|
|
|
|
|
found_main++;
|
|
|
|
|
Tcl_SetVar (interp, "GDBTK_LIBRARY", lib, 0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
1997-06-13 14:51:32 +00:00
|
|
|
|
while ((lib = strtok (NULL, ":")) != NULL);
|
1997-08-09 00:19:16 +00:00
|
|
|
|
|
|
|
|
|
free (gdbtk_lib_tmp);
|
|
|
|
|
|
|
|
|
|
if (!found_main)
|
|
|
|
|
{
|
|
|
|
|
/* Try finding it with the auto path. */
|
|
|
|
|
|
|
|
|
|
static const char script[] ="\
|
|
|
|
|
proc gdbtk_find_main {} {\n\
|
|
|
|
|
global auto_path GDBTK_LIBRARY\n\
|
|
|
|
|
foreach dir $auto_path {\n\
|
|
|
|
|
set f [file join $dir main.tcl]\n\
|
|
|
|
|
if {[file exists $f]} then {\n\
|
|
|
|
|
set GDBTK_LIBRARY $dir\n\
|
|
|
|
|
return $f\n\
|
|
|
|
|
}\n\
|
|
|
|
|
}\n\
|
|
|
|
|
return ""\n\
|
|
|
|
|
}\n\
|
|
|
|
|
gdbtk_find_main";
|
|
|
|
|
|
|
|
|
|
if (Tcl_GlobalEval (interp, (char *) script) != TCL_OK)
|
|
|
|
|
{
|
|
|
|
|
fputs_unfiltered (Tcl_GetVar (interp, "errorInfo", 0), gdb_stderr);
|
|
|
|
|
error ("");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (interp->result[0] != '\0')
|
|
|
|
|
{
|
|
|
|
|
gdbtk_file = xstrdup (interp->result);
|
|
|
|
|
found_main++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
if (!found_main)
|
|
|
|
|
{
|
|
|
|
|
fputs_unfiltered_hook = NULL; /* Force errors to stdout/stderr */
|
|
|
|
|
if (getenv("GDBTK_LIBRARY"))
|
|
|
|
|
{
|
|
|
|
|
fprintf_unfiltered (stderr, "Unable to find main.tcl in %s\n",getenv("GDBTK_LIBRARY"));
|
|
|
|
|
fprintf_unfiltered (stderr,
|
|
|
|
|
"Please set GDBTK_LIBRARY to a path that includes the GDB tcl files.\n");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fprintf_unfiltered (stderr, "Unable to find main.tcl in %s\n", GDBTK_LIBRARY);
|
|
|
|
|
fprintf_unfiltered (stderr, "You might want to set GDBTK_LIBRARY\n");
|
|
|
|
|
}
|
|
|
|
|
error("");
|
|
|
|
|
}
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
1995-01-12 01:09:34 +00:00
|
|
|
|
/* 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;
|
|
|
|
|
|
1997-03-19 23:39:20 +00:00
|
|
|
|
if (Tcl_EvalFile (interp, gdbtk_file) != TCL_OK)
|
1995-01-12 01:09:34 +00:00
|
|
|
|
{
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
char *msg;
|
|
|
|
|
|
|
|
|
|
/* Force errorInfo to be set up propertly. */
|
|
|
|
|
Tcl_AddErrorInfo (interp, "");
|
|
|
|
|
|
|
|
|
|
msg = Tcl_GetVar (interp, "errorInfo", TCL_GLOBAL_ONLY);
|
|
|
|
|
|
1995-01-12 01:09:34 +00:00
|
|
|
|
fputs_unfiltered_hook = NULL; /* Force errors to stdout/stderr */
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef _WIN32
|
|
|
|
|
MessageBox (NULL, msg, NULL, MB_OK | MB_ICONERROR | MB_TASKMODAL);
|
|
|
|
|
#else
|
|
|
|
|
fputs_unfiltered (msg, gdb_stderr);
|
|
|
|
|
#endif
|
1995-01-26 02:27:06 +00:00
|
|
|
|
|
|
|
|
|
error ("");
|
1995-01-12 01:09:34 +00:00
|
|
|
|
}
|
1995-01-06 01:55:45 +00:00
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
#ifdef IDE
|
|
|
|
|
/* start-sanitize-ide */
|
|
|
|
|
/* Don't do this until we have initialized. Otherwise, we may get a
|
|
|
|
|
run command before we are ready for one. */
|
|
|
|
|
if (ide_run_server_init (interp, h) != TCL_OK)
|
|
|
|
|
error ("ide_run_server_init failed: %s", interp->result);
|
|
|
|
|
/* end-sanitize-ide */
|
|
|
|
|
#endif
|
|
|
|
|
|
1997-08-09 00:19:16 +00:00
|
|
|
|
free (gdbtk_file);
|
|
|
|
|
|
1995-01-06 01:55:45 +00:00
|
|
|
|
discard_cleanups (old_chain);
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|
|
|
|
|
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
static int
|
|
|
|
|
gdb_target_has_execution_command (clientData, interp, argc, argv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int argc;
|
|
|
|
|
char *argv[];
|
|
|
|
|
{
|
|
|
|
|
int result = 0;
|
|
|
|
|
|
|
|
|
|
if (target_has_execution && inferior_pid != 0)
|
|
|
|
|
result = 1;
|
|
|
|
|
|
|
|
|
|
Tcl_SetIntObj (Tcl_GetObjResult (interp), result);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* gdb_load_info - returns information about the file about to be downloaded */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_load_info (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
bfd *loadfile_bfd;
|
|
|
|
|
struct cleanup *old_cleanups;
|
|
|
|
|
asection *s;
|
|
|
|
|
Tcl_Obj *ob[2];
|
|
|
|
|
Tcl_Obj *res[16];
|
|
|
|
|
int i = 0;
|
|
|
|
|
|
|
|
|
|
char *filename = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
|
|
|
|
|
loadfile_bfd = bfd_openr (filename, gnutarget);
|
|
|
|
|
if (loadfile_bfd == NULL)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewStringObj ("Open failed", -1));
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
old_cleanups = make_cleanup (bfd_close, loadfile_bfd);
|
|
|
|
|
|
|
|
|
|
if (!bfd_check_format (loadfile_bfd, bfd_object))
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewStringObj ("Bad Object File", -1));
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (s = loadfile_bfd->sections; s; s = s->next)
|
|
|
|
|
{
|
|
|
|
|
if (s->flags & SEC_LOAD)
|
|
|
|
|
{
|
|
|
|
|
bfd_size_type size = bfd_get_section_size_before_reloc (s);
|
|
|
|
|
if (size > 0)
|
|
|
|
|
{
|
|
|
|
|
ob[0] = Tcl_NewStringObj((char *)bfd_get_section_name(loadfile_bfd, s), -1);
|
|
|
|
|
ob[1] = Tcl_NewLongObj ((long)size);
|
|
|
|
|
res[i++] = Tcl_NewListObj (2, ob);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewListObj (i, res));
|
|
|
|
|
do_cleanups (old_cleanups);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
gdbtk_load_hash (section, num)
|
|
|
|
|
char *section;
|
|
|
|
|
unsigned long num;
|
|
|
|
|
{
|
|
|
|
|
int result;
|
|
|
|
|
char buf[128];
|
|
|
|
|
sprintf (buf, "download_hash %s %ld", section, num);
|
|
|
|
|
result = Tcl_Eval (interp, buf);
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* gdb_get_vars_command -
|
|
|
|
|
*
|
|
|
|
|
* Implements the "gdb_get_locals" and "gdb_get_args" tcl commands. This
|
|
|
|
|
* function sets the Tcl interpreter's result to a list of variable names
|
|
|
|
|
* depending on clientData. If clientData is one, the result is a list of
|
|
|
|
|
* arguments; zero returns a list of locals -- all relative to the block
|
|
|
|
|
* specified as an argument to the command. Valid commands include
|
|
|
|
|
* anything decode_line_1 can handle (like "main.c:2", "*0x02020202",
|
|
|
|
|
* and "main").
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_vars_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
Tcl_Obj *result;
|
|
|
|
|
struct symtabs_and_lines sals;
|
|
|
|
|
struct symbol *sym;
|
|
|
|
|
struct block *block;
|
|
|
|
|
char **canonical, *args;
|
|
|
|
|
int i, nsyms, arguments;
|
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp,
|
|
|
|
|
"wrong # of args: should be \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" function:line|function|line|*addr\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
arguments = (int) clientData;
|
|
|
|
|
args = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
|
|
|
|
|
if (sals.nelts == 0)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp,
|
|
|
|
|
"error decoding line", NULL);
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Initialize a list that will hold the results */
|
|
|
|
|
result = Tcl_NewListObj (0, NULL);
|
|
|
|
|
|
|
|
|
|
/* Resolve all line numbers to PC's */
|
|
|
|
|
for (i = 0; i < sals.nelts; i++)
|
|
|
|
|
resolve_sal_pc (&sals.sals[i]);
|
|
|
|
|
|
|
|
|
|
block = block_for_pc (sals.sals[0].pc);
|
|
|
|
|
while (block != 0)
|
|
|
|
|
{
|
|
|
|
|
nsyms = BLOCK_NSYMS (block);
|
|
|
|
|
for (i = 0; i < nsyms; i++)
|
|
|
|
|
{
|
|
|
|
|
sym = BLOCK_SYM (block, i);
|
|
|
|
|
switch (SYMBOL_CLASS (sym)) {
|
|
|
|
|
default:
|
|
|
|
|
case LOC_UNDEF: /* catches errors */
|
|
|
|
|
case LOC_CONST: /* constant */
|
|
|
|
|
case LOC_STATIC: /* static */
|
|
|
|
|
case LOC_REGISTER: /* register */
|
|
|
|
|
case LOC_TYPEDEF: /* local typedef */
|
|
|
|
|
case LOC_LABEL: /* local label */
|
|
|
|
|
case LOC_BLOCK: /* local function */
|
|
|
|
|
case LOC_CONST_BYTES: /* loc. byte seq. */
|
|
|
|
|
case LOC_UNRESOLVED: /* unresolved static */
|
|
|
|
|
case LOC_OPTIMIZED_OUT: /* optimized out */
|
|
|
|
|
break;
|
|
|
|
|
case LOC_ARG: /* argument */
|
|
|
|
|
case LOC_REF_ARG: /* reference arg */
|
|
|
|
|
case LOC_REGPARM: /* register arg */
|
|
|
|
|
case LOC_REGPARM_ADDR: /* indirect register arg */
|
|
|
|
|
case LOC_LOCAL_ARG: /* stack arg */
|
|
|
|
|
case LOC_BASEREG_ARG: /* basereg arg */
|
|
|
|
|
if (arguments)
|
|
|
|
|
Tcl_ListObjAppendElement (interp, result,
|
|
|
|
|
Tcl_NewStringObj (SYMBOL_NAME (sym), -1));
|
|
|
|
|
break;
|
|
|
|
|
case LOC_LOCAL: /* stack local */
|
|
|
|
|
case LOC_BASEREG: /* basereg local */
|
|
|
|
|
if (!arguments)
|
|
|
|
|
Tcl_ListObjAppendElement (interp, result,
|
|
|
|
|
Tcl_NewStringObj (SYMBOL_NAME (sym), -1));
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (BLOCK_FUNCTION (block))
|
|
|
|
|
break;
|
|
|
|
|
else
|
|
|
|
|
block = BLOCK_SUPERBLOCK (block);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Tcl_SetObjResult (interp, result);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_line_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
Tcl_Obj *result;
|
|
|
|
|
struct symtabs_and_lines sals;
|
|
|
|
|
char *args, **canonical;
|
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "wrong # of args: should be \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" linespec\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
args = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
|
|
|
|
|
if (sals.nelts == 1)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewIntObj (sals.sals[0].line));
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Tcl_SetResult (interp, "N/A", TCL_STATIC);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_file_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
Tcl_Obj *result;
|
|
|
|
|
struct symtabs_and_lines sals;
|
|
|
|
|
char *args, **canonical;
|
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "wrong # of args: should be \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" linespec\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
args = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
|
|
|
|
|
if (sals.nelts == 1)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, sals.sals[0].symtab->filename, TCL_VOLATILE);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Tcl_SetResult (interp, "N/A", TCL_STATIC);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_function_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
Tcl_Obj *result;
|
|
|
|
|
char *function;
|
|
|
|
|
struct symtabs_and_lines sals;
|
|
|
|
|
char *args, **canonical;
|
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "wrong # of args: should be \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" linespec\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
args = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
|
|
|
|
|
if (sals.nelts == 1)
|
|
|
|
|
{
|
|
|
|
|
resolve_sal_pc (&sals.sals[0]);
|
|
|
|
|
find_pc_partial_function (sals.sals[0].pc, &function, NULL, NULL);
|
|
|
|
|
if (function != NULL)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, function, TCL_VOLATILE);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Tcl_SetResult (interp, "N/A", TCL_STATIC);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_tracepoint_info (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
int tpnum;
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
struct action_line *al;
|
|
|
|
|
Tcl_Obj *list, *action_list;
|
1997-12-09 00:25:07 +00:00
|
|
|
|
char *filename, *funcname;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
char tmp[19];
|
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
error ("wrong # args");
|
|
|
|
|
|
|
|
|
|
Tcl_GetIntFromObj (NULL, objv[1], &tpnum);
|
|
|
|
|
|
|
|
|
|
ALL_TRACEPOINTS (tp)
|
|
|
|
|
if (tp->number == tpnum)
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
if (tp == NULL)
|
|
|
|
|
error ("Tracepoint #%d does not exist", tpnum);
|
|
|
|
|
|
|
|
|
|
list = Tcl_NewListObj (0, NULL);
|
1997-12-09 00:25:07 +00:00
|
|
|
|
sal = find_pc_line (tp->address, 0);
|
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
|
|
|
|
if (filename == NULL)
|
|
|
|
|
filename = "N/A";
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list,
|
|
|
|
|
Tcl_NewStringObj (filename, -1));
|
|
|
|
|
find_pc_partial_function (tp->address, &funcname, NULL, NULL);
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewStringObj (funcname, -1));
|
1997-12-11 03:05:13 +00:00
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (sal.line));
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
sprintf (tmp, "0x%08x", tp->address);
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewStringObj (tmp, -1));
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->enabled));
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->pass_count));
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->step_count));
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->thread));
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->hit_count));
|
|
|
|
|
|
|
|
|
|
/* Append a list of actions */
|
|
|
|
|
action_list = Tcl_NewListObj (0, NULL);
|
|
|
|
|
for (al = tp->actions; al != NULL; al = al->next)
|
|
|
|
|
{
|
|
|
|
|
Tcl_ListObjAppendElement (interp, action_list,
|
|
|
|
|
Tcl_NewStringObj (al->action, -1));
|
|
|
|
|
}
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, action_list);
|
|
|
|
|
|
|
|
|
|
Tcl_SetObjResult (interp, list);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_create_tracepoint (tp)
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
{
|
|
|
|
|
tracepoint_notify (tp, "create");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gdbtk_delete_tracepoint (tp)
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
{
|
|
|
|
|
tracepoint_notify (tp, "delete");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
tracepoint_notify(tp, action)
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
const char *action;
|
|
|
|
|
{
|
|
|
|
|
char buf[256];
|
|
|
|
|
int v;
|
1997-12-09 00:25:07 +00:00
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
char *filename;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
/* We ensure that ACTION contains no special Tcl characters, so we
|
|
|
|
|
can do this. */
|
1997-12-09 00:25:07 +00:00
|
|
|
|
sal = find_pc_line (tp->address, 0);
|
|
|
|
|
|
|
|
|
|
filename = symtab_to_filename (sal.symtab);
|
|
|
|
|
if (filename == NULL)
|
|
|
|
|
filename = "N/A";
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
sprintf (buf, "gdbtk_tcl_tracepoint %s %d 0x%lx %d {%s}", action, tp->number,
|
1997-12-09 00:25:07 +00:00
|
|
|
|
(long)tp->address, sal.line, filename);
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
v = Tcl_Eval (interp, buf);
|
|
|
|
|
|
|
|
|
|
if (v != TCL_OK)
|
|
|
|
|
{
|
|
|
|
|
gdbtk_fputs (interp->result, gdb_stdout);
|
|
|
|
|
gdbtk_fputs ("\n", gdb_stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* returns -1 if not found, tracepoint # if found */
|
|
|
|
|
int
|
|
|
|
|
tracepoint_exists (char * args)
|
|
|
|
|
{
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
char **canonical;
|
|
|
|
|
struct symtabs_and_lines sals;
|
|
|
|
|
char *file = NULL;
|
|
|
|
|
int result = -1;
|
|
|
|
|
|
|
|
|
|
sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
|
|
|
|
|
if (sals.nelts == 1)
|
|
|
|
|
{
|
|
|
|
|
resolve_sal_pc (&sals.sals[0]);
|
|
|
|
|
file = xmalloc (strlen (sals.sals[0].symtab->dirname)
|
|
|
|
|
+ strlen (sals.sals[0].symtab->filename) + 1);
|
|
|
|
|
if (file != NULL)
|
|
|
|
|
{
|
|
|
|
|
strcpy (file, sals.sals[0].symtab->dirname);
|
|
|
|
|
strcat (file, sals.sals[0].symtab->filename);
|
|
|
|
|
|
|
|
|
|
ALL_TRACEPOINTS (tp)
|
|
|
|
|
{
|
|
|
|
|
if (tp->address == sals.sals[0].pc)
|
|
|
|
|
result = tp->number;
|
|
|
|
|
else if (tp->source_file != NULL
|
|
|
|
|
&& strcmp (tp->source_file, file) == 0
|
|
|
|
|
&& sals.sals[0].line == tp->line_number)
|
|
|
|
|
|
|
|
|
|
result = tp->number;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (file != NULL)
|
|
|
|
|
free (file);
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_actions_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
Tcl_Obj **actions;
|
|
|
|
|
int nactions, i, len;
|
|
|
|
|
char *number, *args, *action;
|
1998-01-02 17:01:29 +00:00
|
|
|
|
long step_count;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
struct action_line *next = NULL, *temp;
|
|
|
|
|
|
|
|
|
|
if (objc != 3)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "wrong # args: should be: \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" number actions\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
args = number = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
tp = get_tracepoint_by_number (&args);
|
|
|
|
|
if (tp == NULL)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "Tracepoint \"", number, "\" does not exist");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free any existing actions */
|
|
|
|
|
for (temp = tp->actions; temp != NULL; temp = temp->next)
|
|
|
|
|
{
|
|
|
|
|
if (temp->action)
|
|
|
|
|
free (temp->action);
|
|
|
|
|
free (temp);
|
|
|
|
|
}
|
1998-01-02 17:01:29 +00:00
|
|
|
|
step_count = 0;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
|
|
|
|
|
Tcl_ListObjGetElements (interp, objv[2], &nactions, &actions);
|
|
|
|
|
for (i = 0; i < nactions; i++)
|
|
|
|
|
{
|
|
|
|
|
temp = xmalloc (sizeof (struct action_line));
|
|
|
|
|
temp->next = NULL;
|
|
|
|
|
action = Tcl_GetStringFromObj (actions[i], &len);
|
|
|
|
|
temp->action = savestring (action, len);
|
1998-01-02 17:01:29 +00:00
|
|
|
|
if (sscanf (temp->action, "while-stepping %d", &step_count) !=0)
|
|
|
|
|
tp->step_count = step_count;
|
* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on
the directory name
* Merge (lots) with foundry-971118-build
* Makefile.in (install-only): install the new gdbtk, not the old
* top.h: add declaration of get_prompt
* top.c (get_prompt): new function
* gdbtk.c (gdbtk_call_command): also run idle hooks for class_trace
commands
(gdbtk_init): add new commands "gdb_get_locals", "gdb_get_args",
"gdb_get_function", "gdb_get_line", "gdb_get_file",
"gdb_tracepoint_exists", "gdb_get_tracepoint_info", "gdb_actions",
and "gdb_prompt"
(gdb_get_vars_command): new function
(gdb_get_line_command): new function
(gdb_get_file_command): new function
(gdb_get_function_command): new function
(gdb_get_tracepoint_info): new function
(gdbtk_create_tracepoint): new function
(gdbtk_delete_tracepoint): new function
(tracepoint_notify): new function
(tracepoint_exists): new function
(gdb_actions_command): new function
(gdb_tracepoint_exists_command): new function
(gdb_prompt_command): new function
* main.tcl: initialize gdbtk_state(readline)
* console.tcl (invoke): get realine working
(activate): add prompt argument for readline
(setprompt): add prompt argument for readline
* interface.tcl (gdbtk_tcl_readline): hack to get readline working
* lots: Merge with foundry-971118-build
* console.tcl (setprompt): get prompt from gdb
* prefs.tcl (pref_set_defaults): add tracepoint defaults
* interface.tcl (gdbtk_tcl_tracepoint): new function
* src.tcl (constructor): set default behavior of left click, make
a tracepoint dot, too
(fill_files): "new" function: ripped out of "location"
(location): use fill_files instead
(do_bp): add support for tracepoints
(bp_line): add support for tracepoints
(set_tracepoint): new function
(config_win): add "Set tracepoint here" to right-click menu
* actiondlg.tcl: new file to help with tracepoint data collection actions
* tracedlg.tcl: new file to help with tracepoints
1997-11-26 22:38:10 +00:00
|
|
|
|
if (next == NULL)
|
|
|
|
|
{
|
|
|
|
|
tp->actions = temp;
|
|
|
|
|
next = temp;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
next->next = temp;
|
|
|
|
|
next = temp;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gdb_tracepoint_exists_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
char * args;
|
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "wrong # of args: should be \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" function:line|function|line|*addr\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
args = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewIntObj (tracepoint_exists (args)));
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the prompt to the interpreter */
|
|
|
|
|
static int
|
|
|
|
|
gdb_prompt_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetResult (interp, get_prompt (), TCL_VOLATILE);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1997-12-11 03:05:13 +00:00
|
|
|
|
/* return a list of all tracepoint numbers in interpreter */
|
|
|
|
|
static int
|
|
|
|
|
gdb_get_tracepoint_list (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
Tcl_Obj *list;
|
|
|
|
|
struct tracepoint *tp;
|
|
|
|
|
|
|
|
|
|
list = Tcl_NewListObj (0, NULL);
|
|
|
|
|
|
|
|
|
|
ALL_TRACEPOINTS (tp)
|
|
|
|
|
Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->number));
|
|
|
|
|
|
|
|
|
|
Tcl_SetObjResult (interp, list);
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
1997-12-05 20:17:13 +00:00
|
|
|
|
|
|
|
|
|
/* This is stolen from source.c */
|
|
|
|
|
#ifdef CRLF_SOURCE_FILES
|
|
|
|
|
|
|
|
|
|
/* Define CRLF_SOURCE_FILES in an xm-*.h file if source files on the
|
|
|
|
|
host use \r\n rather than just \n. Defining CRLF_SOURCE_FILES is
|
|
|
|
|
much faster than defining LSEEK_NOT_LINEAR. */
|
|
|
|
|
|
|
|
|
|
#ifndef O_BINARY
|
|
|
|
|
#define O_BINARY 0
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#define OPEN_MODE (O_RDONLY | O_BINARY)
|
|
|
|
|
|
|
|
|
|
#else /* ! defined (CRLF_SOURCE_FILES) */
|
|
|
|
|
|
|
|
|
|
#define OPEN_MODE O_RDONLY
|
|
|
|
|
|
|
|
|
|
#endif /* ! defined (CRLF_SOURCE_FILES) */
|
|
|
|
|
|
|
|
|
|
/* Find the pathname to a file, searching the source_dir */
|
|
|
|
|
/* we may actually need to use openp to find the the full pathname
|
|
|
|
|
so we don't have any "../" et al in it. */
|
|
|
|
|
static int
|
|
|
|
|
gdb_find_file_command (clientData, interp, objc, objv)
|
|
|
|
|
ClientData clientData;
|
|
|
|
|
Tcl_Interp *interp;
|
|
|
|
|
int objc;
|
|
|
|
|
Tcl_Obj *CONST objv[];
|
|
|
|
|
{
|
|
|
|
|
char *file, *filename;
|
1997-12-11 03:05:13 +00:00
|
|
|
|
struct symtab *st = NULL;
|
1997-12-05 20:17:13 +00:00
|
|
|
|
|
|
|
|
|
if (objc != 2)
|
|
|
|
|
{
|
|
|
|
|
Tcl_AppendResult (interp, "wrong # of args: should be \"",
|
|
|
|
|
Tcl_GetStringFromObj (objv[0], NULL),
|
|
|
|
|
" filename\"");
|
|
|
|
|
return TCL_ERROR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* try something simple first */
|
|
|
|
|
file = Tcl_GetStringFromObj (objv[1], NULL);
|
|
|
|
|
if (access (file, R_OK) == 0)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewStringObj (file, -1));
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1997-12-11 03:05:13 +00:00
|
|
|
|
/* We really need a symtab for this to work... */
|
|
|
|
|
st = lookup_symtab (file);
|
|
|
|
|
if (st != NULL)
|
1997-12-05 20:17:13 +00:00
|
|
|
|
{
|
1997-12-11 03:05:13 +00:00
|
|
|
|
filename = symtab_to_filename (st);
|
|
|
|
|
if (filename != NULL)
|
|
|
|
|
{
|
|
|
|
|
Tcl_SetObjResult (interp, Tcl_NewStringObj (filename, -1));
|
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
1997-12-05 20:17:13 +00:00
|
|
|
|
}
|
1997-12-11 03:05:13 +00:00
|
|
|
|
|
|
|
|
|
Tcl_SetResult (interp, "", TCL_STATIC);
|
1997-12-05 20:17:13 +00:00
|
|
|
|
return TCL_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1996-05-08 23:34:34 +00:00
|
|
|
|
/* Come here during initialize_all_files () */
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
_initialize_gdbtk ()
|
|
|
|
|
{
|
1994-10-26 22:45:13 +00:00
|
|
|
|
if (use_windows)
|
|
|
|
|
{
|
|
|
|
|
/* Tell the rest of the world that Gdbtk is now set up. */
|
1994-07-28 22:07:02 +00:00
|
|
|
|
|
1994-10-26 22:45:13 +00:00
|
|
|
|
init_ui_hook = gdbtk_init;
|
|
|
|
|
}
|
1994-07-28 22:07:02 +00:00
|
|
|
|
}
|