diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 260b97d..3bc9c55 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -151,7 +151,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, break; } elttype = check_typedef (TYPE_TARGET_TYPE (type)); - { + addr = unpack_pointer (type, valaddr + embedded_offset); print_unpacked_pointer: elttype = check_typedef (TYPE_TARGET_TYPE (type)); @@ -249,7 +249,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, '\0' if we reached the end. val_print_string takes care including the terminating '\0' if necessary. */ return i; - } + break; case TYPE_CODE_REF: