diff options
| author | Pierre Muller <muller@sourceware.org> | 2010-05-03 13:38:27 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2010-05-03 13:38:27 +0000 |
| commit | 278582cb37ac74c4ffeec3dc6c4730510063ca56 (patch) | |
| tree | 5c70f1b2fa02c228a05756441241bcd43e3e95ac /gdb/p-valprint.c | |
| parent | 44273c5bcc2cbf5df3e85f095e0f048d85a6edf3 (diff) | |
| download | gdb-278582cb37ac74c4ffeec3dc6c4730510063ca56.zip gdb-278582cb37ac74c4ffeec3dc6c4730510063ca56.tar.gz gdb-278582cb37ac74c4ffeec3dc6c4730510063ca56.tar.bz2 | |
PR pascal/11349.
* p-valprint.c (pascal_value_print): Always dereference a value with
type code TYPE_CODE_REF.
Diffstat (limited to 'gdb/p-valprint.c')
| -rw-r--r-- | gdb/p-valprint.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index d38aa42..98908af 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -544,6 +544,9 @@ pascal_value_print (struct value *val, struct ui_file *stream, const struct value_print_options *options) { struct type *type = value_type (val); + struct value_print_options opts = *options; + + opts.deref_ref = 1; /* If it is a pointer, indicate what it points to. @@ -570,7 +573,7 @@ pascal_value_print (struct value *val, struct ui_file *stream, fprintf_filtered (stream, ") "); } } - return common_val_print (val, stream, 0, options, current_language); + return common_val_print (val, stream, 0, &opts, current_language); } |