aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPierre Muller <muller@sourceware.org>2010-05-03 13:38:27 +0000
committerPierre Muller <muller@sourceware.org>2010-05-03 13:38:27 +0000
commit278582cb37ac74c4ffeec3dc6c4730510063ca56 (patch)
tree5c70f1b2fa02c228a05756441241bcd43e3e95ac
parent44273c5bcc2cbf5df3e85f095e0f048d85a6edf3 (diff)
downloadgdb-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.
-rw-r--r--gdb/ChangeLog6
-rw-r--r--gdb/p-valprint.c5
2 files changed, 10 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 9c3591c..e82d017 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-03 Pierre Muller <muller@ics.u-strasbg.fr>
+
+ PR pascal/11349.
+ * p-valprint.c (pascal_value_print): Always dereference a value with
+ type code TYPE_CODE_REF.
+
2010-05-03 Pedro Alves <pedro@codesourcery.com>
* remote.c (remote_notice_signals): New.
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);
}