From 278582cb37ac74c4ffeec3dc6c4730510063ca56 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Mon, 3 May 2010 13:38:27 +0000 Subject: [PATCH] PR pascal/11349. * p-valprint.c (pascal_value_print): Always dereference a value with type code TYPE_CODE_REF. --- gdb/ChangeLog | 6 ++++++ gdb/p-valprint.c | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 9c3591cd8e5..e82d0176195 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2010-05-03 Pierre Muller + + PR pascal/11349. + * p-valprint.c (pascal_value_print): Always dereference a value with + type code TYPE_CODE_REF. + 2010-05-03 Pedro Alves * remote.c (remote_notice_signals): New. diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index d38aa421f1d..98908afcb47 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); } -- 2.30.2