1 /* Functions for deciding which macros are currently in scope.
2 Copyright 2002 Free Software Foundation, Inc.
3 Contributed by Red Hat, Inc.
5 This file is part of GDB.
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
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
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.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
24 #include "macroscope.h"
33 sal_macro_scope (struct symtab_and_line sal
)
35 struct macro_source_file
*main
;
36 struct macro_scope
*ms
;
39 || ! sal
.symtab
->macro_table
)
42 ms
= (struct macro_scope
*) xmalloc (sizeof (*ms
));
44 main
= macro_main (sal
.symtab
->macro_table
);
45 ms
->file
= macro_lookup_inclusion (main
, sal
.symtab
->filename
);
51 "the symtab `%s' refers to a preprocessor macro table which doesn't\n"
52 "have any record of processing a file by that name.\n",
53 sal
.symtab
->filename
);
62 default_macro_scope (void)
64 struct symtab_and_line sal
;
65 struct macro_source_file
*main
;
66 struct macro_scope
*ms
;
68 /* If there's a selected frame, use its PC. */
70 sal
= find_pc_line (selected_frame
->pc
, 0);
72 /* If the target has any registers at all, then use its PC. Why we
73 would have registers but no stack, I'm not sure. */
74 else if (target_has_registers
)
75 sal
= find_pc_line (read_pc (), 0);
77 /* If all else fails, fall back to the current listing position. */
80 /* Don't call select_source_symtab here. That can raise an
81 error if symbols aren't loaded, but GDB calls the expression
82 evaluator in all sorts of contexts.
84 For example, commands like `set width' call the expression
85 evaluator to evaluate their numeric arguments. If the
86 current language is C, then that may call this function to
87 choose a scope for macro expansion. If you don't have any
88 symbol files loaded, then get_current_or_default would raise an
89 error. But `set width' shouldn't raise an error just because
90 it can't decide which scope to macro-expand its argument in. */
91 struct symtab_and_line cursal
=
92 get_current_source_symtab_and_line ();
94 sal
.symtab
= cursal
.symtab
;
95 sal
.line
= cursal
.line
;
98 return sal_macro_scope (sal
);
102 /* Look up the definition of the macro named NAME in scope at the source
103 location given by BATON, which must be a pointer to a `struct
104 macro_scope' structure. */
105 struct macro_definition
*
106 standard_macro_lookup (const char *name
, void *baton
)
108 struct macro_scope
*ms
= (struct macro_scope
*) baton
;
110 return macro_lookup_definition (ms
->file
, ms
->line
, name
);
This page took 0.031932 seconds and 4 git commands to generate.