diff options
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 0f3b2a6..935bf02 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -631,7 +631,7 @@ info_common_command_for_block (const struct block *block, const char *comname, const struct common_block *common = sym->value_common_block (); size_t index; - gdb_assert (sym->aclass () == LOC_COMMON_BLOCK); + gdb_assert (sym->loc_class () == LOC_COMMON_BLOCK); if (comname && (!sym->linkage_name () || strcmp (comname, sym->linkage_name ()) != 0)) @@ -719,9 +719,7 @@ info_common_command (const char *comname, int from_tty) } } -void _initialize_f_valprint (); -void -_initialize_f_valprint () +INIT_GDB_FILE (f_valprint) { add_info ("common", info_common_command, _("Print out the values contained in a Fortran COMMON block.")); |