2002-05-16 21:15:53 +00:00
|
|
|
/* Functions for deciding which macros are currently in scope.
|
2007-01-09 17:59:20 +00:00
|
|
|
Copyright (C) 2002, 2007 Free Software Foundation, Inc.
|
2002-05-16 21:15:53 +00:00
|
|
|
Contributed by Red Hat, Inc.
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-08-23 18:08:50 +00:00
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
2002-05-16 21:15:53 +00:00
|
|
|
(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
|
2007-08-23 18:08:50 +00:00
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
2002-05-16 21:15:53 +00:00
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
|
|
|
#include "macroscope.h"
|
|
|
|
#include "symtab.h"
|
2002-09-20 14:58:59 +00:00
|
|
|
#include "source.h"
|
2002-05-16 21:15:53 +00:00
|
|
|
#include "target.h"
|
|
|
|
#include "frame.h"
|
|
|
|
#include "inferior.h"
|
2002-11-07 20:43:22 +00:00
|
|
|
#include "complaints.h"
|
2002-05-16 21:15:53 +00:00
|
|
|
|
|
|
|
|
|
|
|
struct macro_scope *
|
|
|
|
sal_macro_scope (struct symtab_and_line sal)
|
|
|
|
{
|
2007-01-03 19:01:25 +00:00
|
|
|
struct macro_source_file *main_file, *inclusion;
|
2002-05-16 21:15:53 +00:00
|
|
|
struct macro_scope *ms;
|
|
|
|
|
|
|
|
if (! sal.symtab
|
|
|
|
|| ! sal.symtab->macro_table)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
ms = (struct macro_scope *) xmalloc (sizeof (*ms));
|
|
|
|
|
2007-01-03 19:01:25 +00:00
|
|
|
main_file = macro_main (sal.symtab->macro_table);
|
|
|
|
inclusion = macro_lookup_inclusion (main_file, sal.symtab->filename);
|
2002-05-16 21:15:53 +00:00
|
|
|
|
2002-11-07 20:43:22 +00:00
|
|
|
if (inclusion)
|
|
|
|
{
|
|
|
|
ms->file = inclusion;
|
|
|
|
ms->line = sal.line;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* There are, unfortunately, cases where a compilation unit can
|
|
|
|
have a symtab for a source file that doesn't appear in the
|
|
|
|
macro table. For example, at the moment, Dwarf doesn't have
|
|
|
|
any way in the .debug_macinfo section to describe the effect
|
|
|
|
of #line directives, so if you debug a YACC parser you'll get
|
|
|
|
a macro table which only mentions the .c files generated by
|
|
|
|
YACC, but symtabs that mention the .y files consumed by YACC.
|
|
|
|
|
|
|
|
In the long run, we should extend the Dwarf macro info
|
|
|
|
representation to handle #line directives, and get GCC to
|
|
|
|
emit it.
|
|
|
|
|
|
|
|
For the time being, though, we'll just treat these as
|
|
|
|
occurring at the end of the main source file. */
|
2007-01-03 19:01:25 +00:00
|
|
|
ms->file = main_file;
|
2002-11-07 20:43:22 +00:00
|
|
|
ms->line = -1;
|
|
|
|
|
|
|
|
complaint (&symfile_complaints,
|
2005-02-11 Andrew Cagney <cagney@gnu.org>
Mark up error_no_arg, query, perror_with_name, complaint, and
internal_error.
* breakpoint.c, cp-abi.c, cp-namespace.c, cp-support.c: Update.
* cris-tdep.c, dbxread.c, dictionary.c, dsrec.c: Update.
* dummy-frame.c, dve3900-rom.c, dwarf2-frame.c, dwarf2expr.c: Update.
* dwarf2read.c, dwarfread.c, elfread.c, event-loop.c: Update.
* exceptions.c, exec.c, f-lang.c, findvar.c, fork-child.c: Update.
* frame-unwind.c, frame.c, frv-linux-tdep.c, frv-tdep.c: Update.
* gdb_assert.h, gdbarch.c, gdbtypes.c, gnu-nat.c: Update.
* go32-nat.c, hppa-tdep.c, hppabsd-nat.c, hpread.c: Update.
* i386-linux-nat.c, i386-nat.c, i386-tdep.c, i386bsd-nat.c: Update.
* i386fbsd-nat.c, inf-ptrace.c, inf-ttrace.c, infcall.c: Update.
* infcmd.c, inflow.c, infptrace.c, infrun.c, inftarg.c: Update.
* interps.c, language.c, linespec.c, linux-nat.c: Update.
* m32r-linux-nat.c, m68k-tdep.c, m68kbsd-nat.c: Update.
* m68klinux-nat.c, m88kbsd-nat.c, macroexp.c, macroscope.c: Update.
* macrotab.c, maint.c, mdebugread.c, memattr.c: Update.
* mips-linux-tdep.c, mips-tdep.c, mips64obsd-nat.c: Update.
* mipsnbsd-nat.c, mn10300-tdep.c, monitor.c, nto-procfs.c: Update.
* objc-lang.c, objfiles.c, objfiles.h, ocd.c, osabi.c: Update.
* parse.c, ppc-bdm.c, ppc-linux-nat.c, ppc-sysv-tdep.c: Update.
* ppcnbsd-nat.c, ppcobsd-nat.c, printcmd.c, procfs.c: Update.
* regcache.c, reggroups.c, remote-e7000.c, remote-mips.c: Update.
* remote-rdp.c, remote-sds.c, remote-sim.c, remote-st.c: Update.
* remote-utils.c, remote.c, rs6000-nat.c, rs6000-tdep.c: Update.
* s390-nat.c, s390-tdep.c, sentinel-frame.c, serial.c: Update.
* sh-tdep.c, sh3-rom.c, sh64-tdep.c, shnbsd-nat.c: Update.
* solib-aix5.c, solib-svr4.c, solib.c, source.c: Update.
* sparc-nat.c, stabsread.c, stack.c, symfile.c, symtab.c: Update.
* symtab.h, target.c, tracepoint.c, ui-file.c, ui-out.c: Update.
* utils.c, valops.c, valprint.c, vax-nat.c, vaxbsd-nat.c: Update.
* win32-nat.c, xcoffread.c, xstormy16-tdep.c: Update.
* cli/cli-cmds.c, cli/cli-logging.c, cli/cli-script.c: Update.
* cli/cli-setshow.c, mi/mi-cmd-break.c, mi/mi-cmds.c: Update.
* mi/mi-console.c, mi/mi-getopt.c, mi/mi-out.c: Update.
* tui/tui-file.c, tui/tui-interp.c: Update.
2005-02-11 18:13:55 +00:00
|
|
|
_("symtab found for `%s', but that file\n"
|
|
|
|
"is not covered in the compilation unit's macro information"),
|
2002-11-07 20:43:22 +00:00
|
|
|
sal.symtab->filename);
|
|
|
|
}
|
2002-05-16 21:15:53 +00:00
|
|
|
|
|
|
|
return ms;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
struct macro_scope *
|
2002-05-30 00:02:03 +00:00
|
|
|
default_macro_scope (void)
|
2002-05-16 21:15:53 +00:00
|
|
|
{
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
struct macro_scope *ms;
|
* frame.c (deprecated_selected_frame): Rename to...
(selected_frame): ...this. Make static.
(get_selected_frame, select_frame): Update.
* frame.h (deprected_select_frame): Delete.
(deprecated_safe_get_selected_frame): Update comments.
* breakpoint.c, cli/cli-cmds.c, f-valprint.c, infcmd.c, inflow.c,
infrun.c, stack.c, tui/tui-disasm.c, tui/tui-source.c,
tui/tui-winsource.c, valops.c, varobj.c, findvar.c, macroscope.c,
parse.c, regcache.h, sh64-tdep.c, tui/tui-hooks.c, tui/tui-win.c,
tui/tui.c: Replace references to deprecated_selected_frame.
2007-02-27 19:46:04 +00:00
|
|
|
struct frame_info *frame;
|
2002-05-16 21:15:53 +00:00
|
|
|
|
* frame.c (deprecated_selected_frame): Rename to...
(selected_frame): ...this. Make static.
(get_selected_frame, select_frame): Update.
* frame.h (deprected_select_frame): Delete.
(deprecated_safe_get_selected_frame): Update comments.
* breakpoint.c, cli/cli-cmds.c, f-valprint.c, infcmd.c, inflow.c,
infrun.c, stack.c, tui/tui-disasm.c, tui/tui-source.c,
tui/tui-winsource.c, valops.c, varobj.c, findvar.c, macroscope.c,
parse.c, regcache.h, sh64-tdep.c, tui/tui-hooks.c, tui/tui-win.c,
tui/tui.c: Replace references to deprecated_selected_frame.
2007-02-27 19:46:04 +00:00
|
|
|
/* If there's a selected frame, use its PC. */
|
|
|
|
frame = deprecated_safe_get_selected_frame ();
|
|
|
|
if (frame)
|
|
|
|
sal = find_pc_line (get_frame_pc (frame), 0);
|
2002-05-16 21:15:53 +00:00
|
|
|
|
* frame.c (deprecated_selected_frame): Rename to...
(selected_frame): ...this. Make static.
(get_selected_frame, select_frame): Update.
* frame.h (deprected_select_frame): Delete.
(deprecated_safe_get_selected_frame): Update comments.
* breakpoint.c, cli/cli-cmds.c, f-valprint.c, infcmd.c, inflow.c,
infrun.c, stack.c, tui/tui-disasm.c, tui/tui-source.c,
tui/tui-winsource.c, valops.c, varobj.c, findvar.c, macroscope.c,
parse.c, regcache.h, sh64-tdep.c, tui/tui-hooks.c, tui/tui-win.c,
tui/tui.c: Replace references to deprecated_selected_frame.
2007-02-27 19:46:04 +00:00
|
|
|
/* Fall back to the current listing position. */
|
2002-05-16 21:15:53 +00:00
|
|
|
else
|
|
|
|
{
|
|
|
|
/* Don't call select_source_symtab here. That can raise an
|
|
|
|
error if symbols aren't loaded, but GDB calls the expression
|
|
|
|
evaluator in all sorts of contexts.
|
|
|
|
|
|
|
|
For example, commands like `set width' call the expression
|
|
|
|
evaluator to evaluate their numeric arguments. If the
|
|
|
|
current language is C, then that may call this function to
|
|
|
|
choose a scope for macro expansion. If you don't have any
|
2002-09-20 14:58:59 +00:00
|
|
|
symbol files loaded, then get_current_or_default would raise an
|
2002-05-16 21:15:53 +00:00
|
|
|
error. But `set width' shouldn't raise an error just because
|
|
|
|
it can't decide which scope to macro-expand its argument in. */
|
2002-09-20 14:58:59 +00:00
|
|
|
struct symtab_and_line cursal =
|
|
|
|
get_current_source_symtab_and_line ();
|
|
|
|
|
|
|
|
sal.symtab = cursal.symtab;
|
|
|
|
sal.line = cursal.line;
|
2002-05-16 21:15:53 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return sal_macro_scope (sal);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Look up the definition of the macro named NAME in scope at the source
|
|
|
|
location given by BATON, which must be a pointer to a `struct
|
|
|
|
macro_scope' structure. */
|
|
|
|
struct macro_definition *
|
|
|
|
standard_macro_lookup (const char *name, void *baton)
|
|
|
|
{
|
|
|
|
struct macro_scope *ms = (struct macro_scope *) baton;
|
|
|
|
|
|
|
|
return macro_lookup_definition (ms->file, ms->line, name);
|
|
|
|
}
|