This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Re: [PATCH 11/348] Fix -Wshadow warnings
- From: Joel Brobecker <brobecker at adacore dot com>
- To: Andrey Smirnov <andrew dot smirnov at gmail dot com>
- Cc: gdb-patches at sourceware dot org
- Date: Thu, 29 Mar 2012 11:27:45 -0700
- Subject: Re: [PATCH 11/348] Fix -Wshadow warnings
- References: <87pqgokcf3.fsf@gmail.com>
Andrey,
> 2011-11-19 Andrey Smirnov <andrew.smirnov@gmail.com>
>
> + * ada-lang.c (ada_lookup_encoded_symbol): Fix -Wshadow warnings.
> +
[...]
> ada_lookup_encoded_symbol (const char *name, const struct block *block0,
> - domain_enum namespace, struct block **block_found)
> + domain_enum namespace, struct block **found_block)
> {
> struct ada_symbol_info *candidates;
> int n_candidates;
> @@ -5064,8 +5064,8 @@ ada_lookup_encoded_symbol (const char *name, const struct block *block0,
> if (n_candidates == 0)
> return NULL;
>
> - if (block_found != NULL)
> - *block_found = candidates[0].block;
> + if (found_block != NULL)
> + *found_block = candidates[0].block;
In this case, the warning was a useful one, but I fixed it differently,
by reworking a bit the function's API.
Attached is what I checked in (tested on x86_64-linux).
--
Joel
>From 632839de273c944f0b365492f3d3d202e118ce38 Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@adacore.com>
Date: Thu, 29 Mar 2012 10:52:01 -0700
Subject: [PATCH] Make ada_lookup_encoded_symbol "return" a struct ada_symbol_info
This makes ada_lookup_encoded_symbol more consistent with other functions
such as ada_lookup_symbol_list, and also makes it clearer in the code
using that function that symbol and block are related.
gdb/ChangeLog:
* ada-lang.c (ada_lookup_encoded_symbol): Now returns void.
Replace block_found argument by symbol_info. Adjust
implementation accordingly. Add function documentation.
(ada_lookup_symbol): Adjust to new ada_lookup_encoded_symbol.
Fix documentation.
* ada-lang.h (ada_lookup_encoded_symbol): Update declaration.
* ada-exp.y (write_object_renaming): Adjust to new
ada_lookup_encoded_symbol API.
---
gdb/ChangeLog | 11 +++++++++++
gdb/ada-exp.y | 33 ++++++++++++++++-----------------
gdb/ada-lang.c | 42 ++++++++++++++++++++++++++----------------
gdb/ada-lang.h | 6 +++---
4 files changed, 56 insertions(+), 36 deletions(-)
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 981fda7..0c50bc8 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,16 @@
2012-03-29 Joel Brobecker <brobecker@adacore.com>
+ * ada-lang.c (ada_lookup_encoded_symbol): Now returns void.
+ Replace block_found argument by symbol_info. Adjust
+ implementation accordingly. Add function documentation.
+ (ada_lookup_symbol): Adjust to new ada_lookup_encoded_symbol.
+ Fix documentation.
+ * ada-lang.h (ada_lookup_encoded_symbol): Update declaration.
+ * ada-exp.y (write_object_renaming): Adjust to new
+ ada_lookup_encoded_symbol API.
+
+2012-03-29 Joel Brobecker <brobecker@adacore.com>
+
* ada-lang.h (struct ada_symbol_info): Reformat. Improve
documentation.
diff --git a/gdb/ada-exp.y b/gdb/ada-exp.y
index 226cc1d..0fa1812 100644
--- a/gdb/ada-exp.y
+++ b/gdb/ada-exp.y
@@ -867,8 +867,7 @@ write_object_renaming (struct block *orig_left_context,
{
char *name;
enum { SIMPLE_INDEX, LOWER_BOUND, UPPER_BOUND } slice_state;
- struct symbol *sym;
- struct block *block;
+ struct ada_symbol_info sym_info;
if (max_depth <= 0)
error (_("Could not find renamed symbol"));
@@ -877,29 +876,28 @@ write_object_renaming (struct block *orig_left_context,
orig_left_context = get_selected_block (NULL);
name = obsavestring (renamed_entity, renamed_entity_len, &temp_parse_space);
- sym = ada_lookup_encoded_symbol (name, orig_left_context, VAR_DOMAIN,
- &block);
- if (sym == NULL)
+ ada_lookup_encoded_symbol (name, orig_left_context, VAR_DOMAIN, &sym_info);
+ if (sym_info.sym == NULL)
error (_("Could not find renamed variable: %s"), ada_decode (name));
- else if (SYMBOL_CLASS (sym) == LOC_TYPEDEF)
+ else if (SYMBOL_CLASS (sym_info.sym) == LOC_TYPEDEF)
/* We have a renaming of an old-style renaming symbol. Don't
trust the block information. */
- block = orig_left_context;
+ sym_info.block = orig_left_context;
{
const char *inner_renamed_entity;
int inner_renamed_entity_len;
const char *inner_renaming_expr;
- switch (ada_parse_renaming (sym, &inner_renamed_entity,
+ switch (ada_parse_renaming (sym_info.sym, &inner_renamed_entity,
&inner_renamed_entity_len,
&inner_renaming_expr))
{
case ADA_NOT_RENAMING:
- write_var_from_sym (orig_left_context, block, sym);
+ write_var_from_sym (orig_left_context, sym_info.block, sym_info.sym);
break;
case ADA_OBJECT_RENAMING:
- write_object_renaming (block,
+ write_object_renaming (sym_info.block,
inner_renamed_entity, inner_renamed_entity_len,
inner_renaming_expr, max_depth - 1);
break;
@@ -939,7 +937,7 @@ write_object_renaming (struct block *orig_left_context,
{
const char *end;
char *index_name;
- struct symbol *index_sym;
+ struct ada_symbol_info index_sym_info;
end = strchr (renaming_expr, 'X');
if (end == NULL)
@@ -950,14 +948,15 @@ write_object_renaming (struct block *orig_left_context,
&temp_parse_space);
renaming_expr = end;
- index_sym = ada_lookup_encoded_symbol (index_name, NULL,
- VAR_DOMAIN, &block);
- if (index_sym == NULL)
+ ada_lookup_encoded_symbol (index_name, NULL, VAR_DOMAIN,
+ &index_sym_info);
+ if (index_sym_info.sym == NULL)
error (_("Could not find %s"), index_name);
- else if (SYMBOL_CLASS (index_sym) == LOC_TYPEDEF)
+ else if (SYMBOL_CLASS (index_sym_info.sym) == LOC_TYPEDEF)
/* Index is an old-style renaming symbol. */
- block = orig_left_context;
- write_var_from_sym (NULL, block, index_sym);
+ index_sym_info.block = orig_left_context;
+ write_var_from_sym (NULL, index_sym_info.block,
+ index_sym_info.sym);
}
if (slice_state == SIMPLE_INDEX)
{
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 78a0261..146401e 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -5191,42 +5191,52 @@ ada_iterate_over_symbols (const struct block *block,
}
}
-struct symbol *
-ada_lookup_encoded_symbol (const char *name, const struct block *block0,
- domain_enum namespace, struct block **block_found)
+/* The result is as for ada_lookup_symbol_list with FULL_SEARCH set
+ to 1, but choosing the first symbol found if there are multiple
+ choices.
+
+ The result is stored in *SYMBOL_INFO, which must be non-NULL.
+ If no match is found, SYMBOL_INFO->SYM is set to NULL. */
+
+void
+ada_lookup_encoded_symbol (const char *name, const struct block *block,
+ domain_enum namespace,
+ struct ada_symbol_info *symbol_info)
{
struct ada_symbol_info *candidates;
int n_candidates;
- n_candidates = ada_lookup_symbol_list (name, block0, namespace, &candidates,
+ gdb_assert (symbol_info != NULL);
+ memset (symbol_info, 0, sizeof (struct ada_symbol_info));
+
+ n_candidates = ada_lookup_symbol_list (name, block, namespace, &candidates,
1);
if (n_candidates == 0)
- return NULL;
-
- if (block_found != NULL)
- *block_found = candidates[0].block;
+ return;
- return fixup_symbol_section (candidates[0].sym, NULL);
-}
+ *symbol_info = candidates[0];
+ symbol_info->sym = fixup_symbol_section (symbol_info->sym, NULL);
+}
/* Return a symbol in DOMAIN matching NAME, in BLOCK0 and enclosing
scope and in global scopes, or NULL if none. NAME is folded and
encoded first. Otherwise, the result is as for ada_lookup_symbol_list,
choosing the first symbol if there are multiple choices.
- *IS_A_FIELD_OF_THIS is set to 0 and *SYMTAB is set to the symbol
- table in which the symbol was found (in both cases, these
- assignments occur only if the pointers are non-null). */
+ If IS_A_FIELD_OF_THIS is not NULL, it is set to zero. */
+
struct symbol *
ada_lookup_symbol (const char *name, const struct block *block0,
domain_enum namespace, int *is_a_field_of_this)
{
+ struct ada_symbol_info symbol_info;
+
if (is_a_field_of_this != NULL)
*is_a_field_of_this = 0;
- return
- ada_lookup_encoded_symbol (ada_encode (ada_fold_name (name)),
- block0, namespace, NULL);
+ ada_lookup_encoded_symbol (ada_encode (ada_fold_name (name)),
+ block0, namespace, &symbol_info);
+ return symbol_info.sym;
}
static struct symbol *
diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index cbca3db..9a93c50 100644
--- a/gdb/ada-lang.h
+++ b/gdb/ada-lang.h
@@ -235,9 +235,9 @@ extern char *ada_fold_name (const char *);
extern struct symbol *ada_lookup_symbol (const char *, const struct block *,
domain_enum, int *);
-extern struct symbol *
-ada_lookup_encoded_symbol (const char *, const struct block *,
- domain_enum namespace, struct block **);
+extern void ada_lookup_encoded_symbol
+ (const char *name, const struct block *block, domain_enum namespace,
+ struct ada_symbol_info *symbol_info);
extern struct minimal_symbol *ada_lookup_simple_minsym (const char *);
--
1.7.1