1058bca748
* frame.c (pc_notcurrent): New function. (find_frame_sal): New function. * frame.h (find_frame_sal): Declare. (struct symtab_and_line): Add opaque declaration. * stack.c (print_frame_info_base): Use find_pc_line instead of find_frame_sal. (frame_info): Ditto. * ada-lang.c (find_printable_frame): Ditto. Index: tui/ChangeLog 2002-11-28 Andrew Cagney <ac131313@redhat.com> * tuiStack.c (tuiShowFrameInfo): Use find_frame_sal instead of find_pc_line.
444 lines
12 KiB
C
444 lines
12 KiB
C
/* TUI display locator.
|
||
|
||
Copyright 1998, 1999, 2000, 2001, 2002 Free Software Foundation,
|
||
Inc.
|
||
|
||
Contributed by Hewlett-Packard Company.
|
||
|
||
This file is part of GDB.
|
||
|
||
This program is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2 of the License, or
|
||
(at your option) any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 59 Temple Place - Suite 330,
|
||
Boston, MA 02111-1307, USA. */
|
||
|
||
/* FIXME: cagney/2002-02-28: The GDB coding standard indicates that
|
||
"defs.h" should be included first. Unfortunatly some systems
|
||
(currently Debian GNU/Linux) include the <stdbool.h> via <curses.h>
|
||
and they clash with "bfd.h"'s definiton of true/false. The correct
|
||
fix is to remove true/false from "bfd.h", however, until that
|
||
happens, hack around it by including "config.h" and <curses.h>
|
||
first. */
|
||
|
||
#include "config.h"
|
||
#ifdef HAVE_NCURSES_H
|
||
#include <ncurses.h>
|
||
#else
|
||
#ifdef HAVE_CURSES_H
|
||
#include <curses.h>
|
||
#endif
|
||
#endif
|
||
|
||
#include "defs.h"
|
||
#include "symtab.h"
|
||
#include "breakpoint.h"
|
||
#include "frame.h"
|
||
#include "command.h"
|
||
#include "inferior.h"
|
||
#include "target.h"
|
||
#include "top.h"
|
||
|
||
#include "tui.h"
|
||
#include "tuiData.h"
|
||
#include "tuiStack.h"
|
||
#include "tuiGeneralWin.h"
|
||
#include "tuiSource.h"
|
||
#include "tuiSourceWin.h"
|
||
#include "tui-file.h"
|
||
|
||
|
||
/* Get a printable name for the function at the address.
|
||
The symbol name is demangled if demangling is turned on.
|
||
Returns a pointer to a static area holding the result. */
|
||
static char* tui_get_function_from_frame (struct frame_info *fi);
|
||
|
||
/* Set the filename portion of the locator. */
|
||
static void tui_set_locator_filename (const char *filename);
|
||
|
||
/* Update the locator, with the provided arguments. */
|
||
static void tui_set_locator_info (const char *filename, const char *procname,
|
||
int lineno, CORE_ADDR addr);
|
||
|
||
static void tui_update_command (char *, int);
|
||
|
||
|
||
/* Create the status line to display as much information as we
|
||
can on this single line: target name, process number, current
|
||
function, current line, current PC, SingleKey mode. */
|
||
static char*
|
||
tui_make_status_line (TuiLocatorElement* loc)
|
||
{
|
||
char* string;
|
||
char line_buf[50], *pname;
|
||
char* buf;
|
||
int status_size;
|
||
int i, proc_width;
|
||
const char* pid_name;
|
||
const char* pc_buf;
|
||
int target_width;
|
||
int pid_width;
|
||
int line_width;
|
||
int pc_width;
|
||
struct ui_file *pc_out;
|
||
|
||
if (ptid_equal (inferior_ptid, null_ptid))
|
||
pid_name = "No process";
|
||
else
|
||
pid_name = target_pid_to_str (inferior_ptid);
|
||
|
||
target_width = strlen (target_shortname);
|
||
if (target_width > MAX_TARGET_WIDTH)
|
||
target_width = MAX_TARGET_WIDTH;
|
||
|
||
pid_width = strlen (pid_name);
|
||
if (pid_width > MAX_PID_WIDTH)
|
||
pid_width = MAX_PID_WIDTH;
|
||
|
||
status_size = termWidth ();
|
||
string = (char *) xmalloc (status_size + 1);
|
||
buf = (char*) alloca (status_size + 1);
|
||
|
||
/* Translate line number and obtain its size. */
|
||
if (loc->lineNo > 0)
|
||
sprintf (line_buf, "%d", loc->lineNo);
|
||
else
|
||
strcpy (line_buf, "??");
|
||
line_width = strlen (line_buf);
|
||
if (line_width < MIN_LINE_WIDTH)
|
||
line_width = MIN_LINE_WIDTH;
|
||
|
||
/* Translate PC address. */
|
||
pc_out = tui_sfileopen (128);
|
||
print_address_numeric (loc->addr, 1, pc_out);
|
||
pc_buf = tui_file_get_strbuf (pc_out);
|
||
pc_width = strlen (pc_buf);
|
||
|
||
/* First determine the amount of proc name width we have available.
|
||
The +1 are for a space separator between fields.
|
||
The -1 are to take into account the \0 counted by sizeof. */
|
||
proc_width = (status_size
|
||
- (target_width + 1)
|
||
- (pid_width + 1)
|
||
- (sizeof (PROC_PREFIX) - 1 + 1)
|
||
- (sizeof (LINE_PREFIX) - 1 + line_width + 1)
|
||
- (sizeof (PC_PREFIX) - 1 + pc_width + 1)
|
||
- (tui_current_key_mode == tui_single_key_mode
|
||
? (sizeof (SINGLE_KEY) - 1 + 1)
|
||
: 0));
|
||
|
||
/* If there is no room to print the function name, try by removing
|
||
some fields. */
|
||
if (proc_width < MIN_PROC_WIDTH)
|
||
{
|
||
proc_width += target_width + 1;
|
||
target_width = 0;
|
||
if (proc_width < MIN_PROC_WIDTH)
|
||
{
|
||
proc_width += pid_width + 1;
|
||
pid_width = 0;
|
||
if (proc_width <= MIN_PROC_WIDTH)
|
||
{
|
||
proc_width += pc_width + sizeof (PC_PREFIX) - 1 + 1;
|
||
pc_width = 0;
|
||
if (proc_width < 0)
|
||
{
|
||
proc_width += line_width + sizeof (LINE_PREFIX) - 1 + 1;
|
||
line_width = 0;
|
||
if (proc_width < 0)
|
||
proc_width = 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Now convert elements to string form */
|
||
pname = loc->procName;
|
||
|
||
/* Now create the locator line from the string version
|
||
of the elements. We could use sprintf() here but
|
||
that wouldn't ensure that we don't overrun the size
|
||
of the allocated buffer. strcat_to_buf() will. */
|
||
*string = (char) 0;
|
||
|
||
if (target_width > 0)
|
||
{
|
||
sprintf (buf, "%*.*s ",
|
||
-target_width, target_width, target_shortname);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
if (pid_width > 0)
|
||
{
|
||
sprintf (buf, "%*.*s ",
|
||
-pid_width, pid_width, pid_name);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
|
||
/* Show whether we are in SingleKey mode. */
|
||
if (tui_current_key_mode == tui_single_key_mode)
|
||
{
|
||
strcat_to_buf (string, status_size, SINGLE_KEY);
|
||
strcat_to_buf (string, status_size, " ");
|
||
}
|
||
|
||
/* procedure/class name */
|
||
if (proc_width > 0)
|
||
{
|
||
if (strlen (pname) > proc_width)
|
||
sprintf (buf, "%s%*.*s* ", PROC_PREFIX,
|
||
1 - proc_width, proc_width - 1, pname);
|
||
else
|
||
sprintf (buf, "%s%*.*s ", PROC_PREFIX,
|
||
-proc_width, proc_width, pname);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
|
||
if (line_width > 0)
|
||
{
|
||
sprintf (buf, "%s%*.*s ", LINE_PREFIX,
|
||
-line_width, line_width, line_buf);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
if (pc_width > 0)
|
||
{
|
||
strcat_to_buf (string, status_size, PC_PREFIX);
|
||
strcat_to_buf (string, status_size, pc_buf);
|
||
}
|
||
|
||
|
||
for (i = strlen (string); i < status_size; i++)
|
||
string[i] = ' ';
|
||
string[status_size] = (char) 0;
|
||
|
||
ui_file_delete (pc_out);
|
||
return string;
|
||
}
|
||
|
||
/* Get a printable name for the function at the address.
|
||
The symbol name is demangled if demangling is turned on.
|
||
Returns a pointer to a static area holding the result. */
|
||
static char*
|
||
tui_get_function_from_frame (struct frame_info *fi)
|
||
{
|
||
static char name[256];
|
||
struct ui_file *stream = tui_sfileopen (256);
|
||
char *p;
|
||
|
||
print_address_symbolic (fi->pc, stream, demangle, "");
|
||
p = tui_file_get_strbuf (stream);
|
||
|
||
/* Use simple heuristics to isolate the function name. The symbol can
|
||
be demangled and we can have function parameters. Remove them because
|
||
the status line is too short to display them. */
|
||
if (*p == '<')
|
||
p++;
|
||
strncpy (name, p, sizeof (name));
|
||
p = strchr (name, '(');
|
||
if (!p)
|
||
p = strchr (name, '>');
|
||
if (p)
|
||
*p = 0;
|
||
p = strchr (name, '+');
|
||
if (p)
|
||
*p = 0;
|
||
ui_file_delete (stream);
|
||
return name;
|
||
}
|
||
|
||
/*
|
||
** tuiShowLocatorContent()
|
||
*/
|
||
void
|
||
tuiShowLocatorContent (void)
|
||
{
|
||
char *string;
|
||
TuiGenWinInfoPtr locator;
|
||
|
||
locator = locatorWinInfoPtr ();
|
||
|
||
if (m_genWinPtrNotNull (locator) && locator->handle != (WINDOW *) NULL)
|
||
{
|
||
TuiWinElementPtr element;
|
||
|
||
element = (TuiWinElementPtr) locator->content[0];
|
||
|
||
string = tui_make_status_line (&element->whichElement.locator);
|
||
wmove (locator->handle, 0, 0);
|
||
wstandout (locator->handle);
|
||
waddstr (locator->handle, string);
|
||
wclrtoeol (locator->handle);
|
||
wstandend (locator->handle);
|
||
tuiRefreshWin (locator);
|
||
wmove (locator->handle, 0, 0);
|
||
xfree (string);
|
||
locator->contentInUse = TRUE;
|
||
}
|
||
}
|
||
|
||
|
||
/* Set the filename portion of the locator. */
|
||
static void
|
||
tui_set_locator_filename (const char *filename)
|
||
{
|
||
TuiGenWinInfoPtr locator = locatorWinInfoPtr ();
|
||
TuiLocatorElementPtr element;
|
||
|
||
if (locator->content[0] == (Opaque) NULL)
|
||
{
|
||
tui_set_locator_info (filename, NULL, 0, 0);
|
||
return;
|
||
}
|
||
|
||
element = &((TuiWinElementPtr) locator->content[0])->whichElement.locator;
|
||
element->fileName[0] = 0;
|
||
strcat_to_buf (element->fileName, MAX_LOCATOR_ELEMENT_LEN, filename);
|
||
}
|
||
|
||
/* Update the locator, with the provided arguments. */
|
||
static void
|
||
tui_set_locator_info (const char *filename, const char *procname, int lineno,
|
||
CORE_ADDR addr)
|
||
{
|
||
TuiGenWinInfoPtr locator = locatorWinInfoPtr ();
|
||
TuiLocatorElementPtr element;
|
||
|
||
/* Allocate the locator content if necessary. */
|
||
if (locator->contentSize <= 0)
|
||
{
|
||
locator->content = (OpaquePtr) allocContent (1, locator->type);
|
||
locator->contentSize = 1;
|
||
}
|
||
|
||
element = &((TuiWinElementPtr) locator->content[0])->whichElement.locator;
|
||
element->procName[0] = (char) 0;
|
||
strcat_to_buf (element->procName, MAX_LOCATOR_ELEMENT_LEN, procname);
|
||
element->lineNo = lineno;
|
||
element->addr = addr;
|
||
tui_set_locator_filename (filename);
|
||
}
|
||
|
||
/* Update only the filename portion of the locator. */
|
||
void
|
||
tuiUpdateLocatorFilename (const char *filename)
|
||
{
|
||
tui_set_locator_filename (filename);
|
||
tuiShowLocatorContent ();
|
||
}
|
||
|
||
/* Function to print the frame information for the TUI. */
|
||
void
|
||
tuiShowFrameInfo (struct frame_info *fi)
|
||
{
|
||
TuiWinInfoPtr winInfo;
|
||
register int i;
|
||
|
||
if (fi)
|
||
{
|
||
register int startLine, i;
|
||
CORE_ADDR low;
|
||
TuiGenWinInfoPtr locator = locatorWinInfoPtr ();
|
||
int sourceAlreadyDisplayed;
|
||
struct symtab_and_line sal;
|
||
|
||
find_frame_sap (fi, &sal);
|
||
|
||
sourceAlreadyDisplayed = sal.symtab != 0
|
||
&& tuiSourceIsDisplayed (sal.symtab->filename);
|
||
tui_set_locator_info (sal.symtab == 0 ? "??" : sal.symtab->filename,
|
||
tui_get_function_from_frame (fi),
|
||
sal.line,
|
||
fi->pc);
|
||
tuiShowLocatorContent ();
|
||
startLine = 0;
|
||
for (i = 0; i < (sourceWindows ())->count; i++)
|
||
{
|
||
TuiWhichElement *item;
|
||
winInfo = (TuiWinInfoPtr) (sourceWindows ())->list[i];
|
||
|
||
item = &((TuiWinElementPtr) locator->content[0])->whichElement;
|
||
if (winInfo == srcWin)
|
||
{
|
||
startLine = (item->locator.lineNo -
|
||
(winInfo->generic.viewportHeight / 2)) + 1;
|
||
if (startLine <= 0)
|
||
startLine = 1;
|
||
}
|
||
else
|
||
{
|
||
if (find_pc_partial_function (fi->pc, (char **) NULL, &low, (CORE_ADDR) NULL) == 0)
|
||
error ("No function contains program counter for selected frame.\n");
|
||
else
|
||
low = tuiGetLowDisassemblyAddress (low, fi->pc);
|
||
}
|
||
|
||
if (winInfo == srcWin)
|
||
{
|
||
TuiLineOrAddress l;
|
||
l.lineNo = startLine;
|
||
if (!(sourceAlreadyDisplayed
|
||
&& tuiLineIsDisplayed (item->locator.lineNo, winInfo, TRUE)))
|
||
tuiUpdateSourceWindow (winInfo, sal.symtab, l, TRUE);
|
||
else
|
||
{
|
||
l.lineNo = item->locator.lineNo;
|
||
tuiSetIsExecPointAt (l, winInfo);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if (winInfo == disassemWin)
|
||
{
|
||
TuiLineOrAddress a;
|
||
a.addr = low;
|
||
if (!tuiAddrIsDisplayed (item->locator.addr, winInfo, TRUE))
|
||
tuiUpdateSourceWindow (winInfo, sal.symtab, a, TRUE);
|
||
else
|
||
{
|
||
a.addr = item->locator.addr;
|
||
tuiSetIsExecPointAt (a, winInfo);
|
||
}
|
||
}
|
||
}
|
||
tuiUpdateExecInfo (winInfo);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
tui_set_locator_info (NULL, NULL, 0, (CORE_ADDR) 0);
|
||
tuiShowLocatorContent ();
|
||
for (i = 0; i < (sourceWindows ())->count; i++)
|
||
{
|
||
winInfo = (TuiWinInfoPtr) (sourceWindows ())->list[i];
|
||
tuiClearSourceContent (winInfo, EMPTY_SOURCE_PROMPT);
|
||
tuiUpdateExecInfo (winInfo);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Function to initialize gdb commands, for tui window stack manipulation. */
|
||
void
|
||
_initialize_tuiStack (void)
|
||
{
|
||
add_com ("update", class_tui, tui_update_command,
|
||
"Update the source window and locator to display the current "
|
||
"execution point.\n");
|
||
}
|
||
|
||
/* Command to update the display with the current execution point. */
|
||
static void
|
||
tui_update_command (char *arg, int from_tty)
|
||
{
|
||
char cmd[sizeof("frame 0")];
|
||
|
||
strcpy (cmd, "frame 0");
|
||
execute_command (cmd, from_tty);
|
||
}
|