1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
/* Ada Pragma Import support.
Copyright (C) 2023-2024 Free Software Foundation, 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
the Free Software Foundation; either version 3 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, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
#include "symtab.h"
#include "value.h"
#include "dwarf2/loc.h"
/* Helper to get the imported symbol's real name. */
static const char *
get_imported_name (const struct symbol *sym)
{
return (const char *) SYMBOL_LOCATION_BATON (sym);
}
/* Implement the read_variable method from symbol_computed_ops. */
static struct value *
ada_imported_read_variable (struct symbol *symbol, const frame_info_ptr &frame)
{
const char *name = get_imported_name (symbol);
bound_minimal_symbol minsym = lookup_minimal_symbol_linkage (name, false);
if (minsym.minsym == nullptr)
error (_("could not find imported name %s"), name);
return value_at (symbol->type (), minsym.value_address ());
}
/* Implement the read_variable method from symbol_computed_ops. */
static enum symbol_needs_kind
ada_imported_get_symbol_read_needs (struct symbol *symbol)
{
return SYMBOL_NEEDS_NONE;
}
/* Implement the describe_location method from
symbol_computed_ops. */
static void
ada_imported_describe_location (struct symbol *symbol, CORE_ADDR addr,
struct ui_file *stream)
{
gdb_printf (stream, "an imported name for '%s'",
get_imported_name (symbol));
}
/* Implement the tracepoint_var_ref method from
symbol_computed_ops. */
static void
ada_imported_tracepoint_var_ref (struct symbol *symbol, struct agent_expr *ax,
struct axs_value *value)
{
/* Probably could be done, but not needed right now. */
error (_("not implemented: trace of imported Ada symbol"));
}
/* Implement the generate_c_location method from
symbol_computed_ops. */
static void
ada_imported_generate_c_location (struct symbol *symbol, string_file *stream,
struct gdbarch *gdbarch,
std::vector<bool> ®isters_used,
CORE_ADDR pc, const char *result_name)
{
/* Probably could be done, but not needed right now, and perhaps not
ever. */
error (_("not implemented: compile translation of imported Ada symbol"));
}
const struct symbol_computed_ops ada_imported_funcs =
{
ada_imported_read_variable,
nullptr,
ada_imported_get_symbol_read_needs,
ada_imported_describe_location,
0,
ada_imported_tracepoint_var_ref,
ada_imported_generate_c_location
};
/* Implement the get_block_value method from symbol_block_ops. */
static const block *
ada_alias_get_block_value (const struct symbol *sym)
{
const char *name = get_imported_name (sym);
block_symbol real_symbol = lookup_global_symbol (name, nullptr,
SEARCH_FUNCTION_DOMAIN);
if (real_symbol.symbol == nullptr)
error (_("could not find alias '%s' for function '%s'"),
name, sym->print_name ());
if (real_symbol.symbol->aclass () != LOC_BLOCK)
error (_("alias '%s' for function '%s' is not a function"),
name, sym->print_name ());
return real_symbol.symbol->value_block ();
}
const struct symbol_block_ops ada_function_alias_funcs =
{
nullptr,
nullptr,
ada_alias_get_block_value
};
|