FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* tracepoint.c (set_raw_tracepoint): make sure there's a trailing slash on

Browse source 
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
This commit is contained in:
Keith Seitz 1997-11-26 22:38:10 +00:00
parent 0fa555ea62
commit 018d76dddb
9 changed files with 1666 additions and 300 deletions
Download patch file Download diff file Expand all files Collapse all files

65
gdb/top.c
View file

@ -2813,8 +2813,8 @@ print_gdb_version (stream)
fprintf_filtered (stream, "\
GDB is free software, covered by the GNU General Public License, and you are\n\
welcome to change it and/or distribute copies of it under certain conditions.\n\
Type \"show copying\" to see the conditions.\n\
There is absolutely no warranty for GDB. Type \"show warranty\" for details.\n");
Type \"show copying\" to see the conditions. This version of GDB is supported This version of GDB is supported\n\
for customers of Cygnus Solutions. Type \"show warranty\" for details.\n");
/* After the required info we print the configuration information. */
@ -2851,9 +2851,41 @@ print_prompt ()
printf_unfiltered ("%s", prompt);
gdb_flush (gdb_stdout);
}
/* This replaces the above for the frontends: it returns a pointer
to the prompt. */
char *
get_prompt ()
{
return prompt;
}
/* If necessary, make the user confirm that we should quit. Return
non-zero if we should quit, zero if we shouldn't. */
int
quit_confirm ()
{
if (inferior_pid != 0 && target_has_execution)
{
char *s;
if (attach_flag)
s = "The program is running. Quit anyway (and detach it)? ";
else
s = "The program is running. Exit anyway? ";
if (! query (s))
return 0;
}
return 1;
}
/* Quit without asking for confirmation. */
void
quit_command (args, from_tty)
quit_force (args, from_tty)
char *args;
int from_tty;
{
@ -2871,20 +2903,11 @@ quit_command (args, from_tty)
if (inferior_pid != 0 && target_has_execution)
{
if (attach_flag)
{
if (query ("The program is running. Quit anyway (and detach it)? "))
target_detach (args, from_tty);
else
error ("Not confirmed.");
}
target_detach (args, from_tty);
else
{
if (query ("The program is running. Quit anyway (and kill it)? "))
target_kill ();
else
error ("Not confirmed.");
}
target_kill ();
}
/* UDI wants this, to kill the TIP. */
target_close (1);
@ -2897,6 +2920,18 @@ quit_command (args, from_tty)
exit (exit_code);
}
/* Handle the quit command. */
void
quit_command (args, from_tty)
char *args;
int from_tty;
{
if (! quit_confirm ())
error ("Not confirmed.");
quit_force (args, from_tty);
}
/* Returns whether GDB is running on a terminal and whether the user
desires that questions be asked of them on that terminal. */