diff options
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index c2aca71..e841edf 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -443,19 +443,22 @@ info_common_command_for_block (const struct block *block, const char *comname, for (index = 0; index < common->n_entries; index++) { struct value *val = NULL; - volatile struct gdb_exception except; printf_filtered ("%s = ", SYMBOL_PRINT_NAME (common->contents[index])); - TRY_CATCH (except, RETURN_MASK_ERROR) + TRY { val = value_of_variable (common->contents[index], block); value_print (val, gdb_stdout, &opts); } - if (except.reason < 0) - printf_filtered ("<error reading variable: %s>", except.message); + CATCH (except, RETURN_MASK_ERROR) + { + printf_filtered ("<error reading variable: %s>", except.message); + } + END_CATCH + putchar_filtered ('\n'); } } |