diff options
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 56b3708..fb627b7 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -4168,7 +4168,7 @@ parse_old_style_renaming (struct type *type, static struct value * ada_read_renaming_var_value (struct symbol *renaming_sym, - struct block *block) + const struct block *block) { const char *sym_name; struct expression *expr; @@ -6133,7 +6133,7 @@ ada_make_symbol_completion_list (const char *text0, const char *word, struct symtab *s; struct minimal_symbol *msymbol; struct objfile *objfile; - struct block *b, *surrounding_static_block = 0; + const struct block *b, *surrounding_static_block = 0; int i; struct block_iterator iter; struct cleanup *old_chain = make_cleanup (null_cleanup, NULL); @@ -12758,7 +12758,7 @@ static void ada_add_exceptions_from_frame (regex_t *preg, struct frame_info *frame, VEC(ada_exc_info) **exceptions) { - struct block *block = get_frame_block (frame, 0); + const struct block *block = get_frame_block (frame, 0); while (block != 0) { @@ -13444,7 +13444,7 @@ ada_get_symbol_name_cmp (const char *lookup_name) static struct value * ada_read_var_value (struct symbol *var, struct frame_info *frame) { - struct block *frame_block = NULL; + const struct block *frame_block = NULL; struct symbol *renaming_sym = NULL; /* The only case where default_read_var_value is not sufficient |