Simplify show_source_or_disasm_and_command

[deliverable/binutils-gdb.git] / gdb / f-valprint.c

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 8d9dd16f7553f925b7692acffd963108cc9cf7f0..264416ec5408e1c763ad40b21af7c8966d854a6d 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -199,7 +199,7 @@ static const struct generic_val_print_decorations f_decorations =
   ")",
   ".TRUE.",
   ".FALSE.",
-  "VOID",
+  "void",
   "{",
   "}"
 };
@@ -413,7 +413,7 @@ info_common_command_for_block (const struct block *block, const char *comname,
                value_print (val, gdb_stdout, &opts);
              }
 
-           catch (const gdb_exception_RETURN_MASK_ERROR &except)
+           catch (const gdb_exception_error &except)
              {
                printf_filtered ("<error reading variable: %s>",
                                 except.what ());