diff options
Diffstat (limited to 'gdb/p-valprint.c')
| -rw-r--r-- | gdb/p-valprint.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 043f98b..a66ff44 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -725,7 +725,6 @@ pascal_object_print_value (struct type *type, const gdb_byte *valaddr, const char *basename = type_name_no_tag (baseclass); const gdb_byte *base_valaddr = NULL; int thisoffset; - volatile struct gdb_exception ex; int skip = 0; if (BASETYPE_VIA_VIRTUAL (type, i)) @@ -745,17 +744,18 @@ pascal_object_print_value (struct type *type, const gdb_byte *valaddr, thisoffset = offset; - TRY_CATCH (ex, RETURN_MASK_ERROR) + TRY { boffset = baseclass_offset (type, i, valaddr, offset, address, val); } - if (ex.reason < 0) + CATCH (ex, RETURN_MASK_ERROR) { if (ex.error == NOT_AVAILABLE_ERROR) skip = -1; else skip = 1; } + END_CATCH if (skip == 0) { |