diff options
| author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2013-01-21 16:46:12 +0000 |
|---|---|---|
| committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2013-01-21 16:46:12 +0000 |
| commit | 5a352474f94fb3d8b8d81cd5000eb2d10ad7c656 (patch) | |
| tree | 45479d53cf38bc535f3b1a06be98f81fd33edaca /gdb/f-valprint.c | |
| parent | 822b8bf46be64f9055e3d4b944323881f102fd8d (diff) | |
gdb/
Fix gdb.fortran/common-block.exp crash in PIE mode.
* dwarf2read.c (new_symbol_full) <DW_TAG_common_block>: Use
LOC_COMMON_BLOCK.
* f-valprint.c (info_common_command_for_block): Expect
LOC_COMMON_BLOCK in gdb_assert.
* symtab.h (struct general_symbol_info): Update comment for the
common_block member.
(domain_enum): Extend comment for the COMMON_BLOCK_DOMAIN member.
(enum address_class): New member LOC_COMMON_BLOCK.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 22cca8328f..d01d6ec7a4 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -427,7 +427,7 @@ info_common_command_for_block (struct block *block, const char *comname, struct common_block *common = SYMBOL_VALUE_COMMON_BLOCK (sym); size_t index; - gdb_assert (SYMBOL_CLASS (sym) == LOC_STATIC); + gdb_assert (SYMBOL_CLASS (sym) == LOC_COMMON_BLOCK); if (comname && (!SYMBOL_LINKAGE_NAME (sym) || strcmp (comname, SYMBOL_LINKAGE_NAME (sym)) != 0)) |