From 7591d3f074716e765fe69d231ebccf7a841daa3d Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 26 Sep 2012 19:38:31 +0000 Subject: 2012-09-26 Jan Kratochvil Tom Tromey * dwarf2read.c (read_common_block): Rewrite. (new_symbol_full): Handle DW_TAG_common_block. * f-lang.c (head_common_list, find_common_for_function): Remove. * f-lang.h (struct common_entry, struct saved_f77_common, SAVED_F77_COMMON, SAVED_F77_COMMON_PTR, COMMON_ENTRY, COMMON_ENTRY_PTR, head_common_list, find_common_for_function, BLANK_COMMON_NAME_LOCAL): Remove. (struct common_block): New. * f-valprint.c (list_all_visible_commons): Remove. (info_common_command_for_block): New function. (info_common_command): Use it. * stack.c (iterate_over_block_locals): Special case for COMMON_BLOCK_DOMAIN. * symtab.h (enum domain_enum_tag) : New constant. (struct general_symbol_info) : New field. (SYMBOL_VALUE_COMMON_BLOCK): New define. gdb/testsuite 2012-09-26 Jan Kratochvil * gdb.fortran/common-block.exp: New file. * gdb.fortran/common-block.f90: New file. --- gdb/stack.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gdb/stack.c') diff --git a/gdb/stack.c b/gdb/stack.c index 2c03f42ca97..b01c8f0b077 100644 --- a/gdb/stack.c +++ b/gdb/stack.c @@ -1848,6 +1848,8 @@ iterate_over_block_locals (struct block *b, case LOC_COMPUTED: if (SYMBOL_IS_ARGUMENT (sym)) break; + if (SYMBOL_DOMAIN (sym) == COMMON_BLOCK_DOMAIN) + break; (*cb) (SYMBOL_PRINT_NAME (sym), sym, cb_data); break; -- cgit v1.2.1