mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-11-28 06:20:30 +00:00
PR pascal/11349.
* p-valprint.c (pascal_value_print): Always dereference a value with type code TYPE_CODE_REF.
This commit is contained in:
parent
44273c5bcc
commit
278582cb37
@ -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.
|
||||
|
@ -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);
|
||||
}
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user