[Ada] Make the symbol cache per-program-space.
[deliverable/binutils-gdb.git] / gdb / macroscope.c
CommitLineData
6821892e 1/* Functions for deciding which macros are currently in scope.
ecd75fc8 2 Copyright (C) 2002-2014 Free Software Foundation, Inc.
6821892e
JB
3 Contributed by Red Hat, Inc.
4
5 This file is part of GDB.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
a9762ec7 9 the Free Software Foundation; either version 3 of the License, or
6821892e
JB
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
a9762ec7 18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
6821892e
JB
19
20#include "defs.h"
21
22#include "macroscope.h"
23#include "symtab.h"
0378c332 24#include "source.h"
6821892e
JB
25#include "target.h"
26#include "frame.h"
27#include "inferior.h"
568f8739 28#include "complaints.h"
6821892e 29
d7d9f01e
TT
30/* A table of user-defined macros. Unlike the macro tables used for
31 symtabs, this one uses xmalloc for all its allocation, not an
32 obstack, and it doesn't bcache anything; it just xmallocs things. So
33 it's perfectly possible to remove things from this, or redefine
34 things. */
35struct macro_table *macro_user_macros;
36
6821892e
JB
37
38struct macro_scope *
39sal_macro_scope (struct symtab_and_line sal)
40{
d5d6fca5 41 struct macro_source_file *main_file, *inclusion;
6821892e
JB
42 struct macro_scope *ms;
43
44 if (! sal.symtab
45 || ! sal.symtab->macro_table)
46 return 0;
47
48 ms = (struct macro_scope *) xmalloc (sizeof (*ms));
49
d5d6fca5
DJ
50 main_file = macro_main (sal.symtab->macro_table);
51 inclusion = macro_lookup_inclusion (main_file, sal.symtab->filename);
6821892e 52
568f8739
JB
53 if (inclusion)
54 {
55 ms->file = inclusion;
56 ms->line = sal.line;
57 }
58 else
59 {
60 /* There are, unfortunately, cases where a compilation unit can
61 have a symtab for a source file that doesn't appear in the
62 macro table. For example, at the moment, Dwarf doesn't have
63 any way in the .debug_macinfo section to describe the effect
64 of #line directives, so if you debug a YACC parser you'll get
65 a macro table which only mentions the .c files generated by
66 YACC, but symtabs that mention the .y files consumed by YACC.
67
68 In the long run, we should extend the Dwarf macro info
69 representation to handle #line directives, and get GCC to
70 emit it.
71
72 For the time being, though, we'll just treat these as
73 occurring at the end of the main source file. */
d5d6fca5 74 ms->file = main_file;
568f8739
JB
75 ms->line = -1;
76
77 complaint (&symfile_complaints,
e2e0b3e5
AC
78 _("symtab found for `%s', but that file\n"
79 "is not covered in the compilation unit's macro information"),
05cba821 80 symtab_to_filename_for_display (sal.symtab));
568f8739 81 }
6821892e
JB
82
83 return ms;
84}
85
86
d7d9f01e
TT
87struct macro_scope *
88user_macro_scope (void)
89{
90 struct macro_scope *ms;
b8d56208 91
d7d9f01e
TT
92 ms = XNEW (struct macro_scope);
93 ms->file = macro_main (macro_user_macros);
94 ms->line = -1;
95 return ms;
96}
97
6821892e 98struct macro_scope *
480dd42a 99default_macro_scope (void)
6821892e
JB
100{
101 struct symtab_and_line sal;
6821892e 102 struct macro_scope *ms;
206415a3 103 struct frame_info *frame;
e3eebbd7 104 CORE_ADDR pc;
6821892e 105
206415a3
DJ
106 /* If there's a selected frame, use its PC. */
107 frame = deprecated_safe_get_selected_frame ();
e3eebbd7
PA
108 if (frame && get_frame_pc_if_available (frame, &pc))
109 sal = find_pc_line (pc, 0);
110
206415a3 111 /* Fall back to the current listing position. */
6821892e
JB
112 else
113 {
114 /* Don't call select_source_symtab here. That can raise an
115 error if symbols aren't loaded, but GDB calls the expression
116 evaluator in all sorts of contexts.
117
118 For example, commands like `set width' call the expression
119 evaluator to evaluate their numeric arguments. If the
120 current language is C, then that may call this function to
121 choose a scope for macro expansion. If you don't have any
0378c332 122 symbol files loaded, then get_current_or_default would raise an
6821892e
JB
123 error. But `set width' shouldn't raise an error just because
124 it can't decide which scope to macro-expand its argument in. */
0378c332
FN
125 struct symtab_and_line cursal =
126 get_current_source_symtab_and_line ();
127
128 sal.symtab = cursal.symtab;
129 sal.line = cursal.line;
6821892e
JB
130 }
131
d7d9f01e
TT
132 ms = sal_macro_scope (sal);
133 if (! ms)
134 ms = user_macro_scope ();
135
136 return ms;
6821892e
JB
137}
138
139
140/* Look up the definition of the macro named NAME in scope at the source
141 location given by BATON, which must be a pointer to a `struct
142 macro_scope' structure. */
143struct macro_definition *
144standard_macro_lookup (const char *name, void *baton)
145{
146 struct macro_scope *ms = (struct macro_scope *) baton;
d7d9f01e
TT
147 struct macro_definition *result;
148
149 /* Give user-defined macros priority over all others. */
150 result = macro_lookup_definition (macro_main (macro_user_macros), -1, name);
151 if (! result)
152 result = macro_lookup_definition (ms->file, ms->line, name);
153 return result;
154}
155
2c0b251b
PA
156/* Provide a prototype to silence -Wmissing-prototypes. */
157extern initialize_file_ftype _initialize_macroscope;
6821892e 158
d7d9f01e
TT
159void
160_initialize_macroscope (void)
161{
233d95b5 162 macro_user_macros = new_macro_table (NULL, NULL, NULL);
d7d9f01e
TT
163 macro_set_main (macro_user_macros, "<user-defined>");
164 macro_allow_redefinitions (macro_user_macros);
6821892e 165}
This page took 1.069411 seconds and 4 git commands to generate.