diff options
| author | Joel Brobecker <brobecker@adacore.com> | 2013-12-19 15:27:00 +0400 |
|---|---|---|
| committer | Joel Brobecker <brobecker@adacore.com> | 2014-01-07 08:17:38 +0400 |
| commit | 3a92c861bbbd25cb894942f79d0c6f7f8bbd1de6 (patch) | |
| tree | c85b692d59768921ad18966564154a8000e1476f /gdb/ada-valprint.c | |
| parent | cd1630f983e42527bc1b68b2f430b41ffadd16c4 (diff) | |
| download | gdb-3a92c861bbbd25cb894942f79d0c6f7f8bbd1de6.zip gdb-3a92c861bbbd25cb894942f79d0c6f7f8bbd1de6.tar.gz gdb-3a92c861bbbd25cb894942f79d0c6f7f8bbd1de6.tar.bz2 | |
ada_val_print_1: Go through val_print instead of recursive call to self.
This is to standardize a little bit how printing is done, and in
particular make sure that everyone goes through val_print when
printing sub-objects. This helps making sure that standard features
handled by val_print get activated when expected.
gdb/ChangeLog:
* ada-valprint.c (ada_val_print_1): Replace calls to
ada_val_print_1 by calls to val_print.
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 66cda39..ff0fa66 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -811,11 +811,9 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr, fprintf_filtered (stream, "0x0"); } else - ada_val_print_1 (value_type (val), - value_contents_for_printing (val), - value_embedded_offset (val), - value_address (val), stream, recurse, - val, options, language); + val_print (value_type (val), value_contents_for_printing (val), + value_embedded_offset (val), value_address (val), + stream, recurse, val, options, language); value_free_to_mark (mark); return; } @@ -873,17 +871,14 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr, = value_from_contents_and_address (type, valaddr + offset, 0); struct value *v = value_cast (target_type, v1); - ada_val_print_1 (target_type, - value_contents_for_printing (v), - value_embedded_offset (v), 0, - stream, recurse + 1, v, options, - language); + val_print (target_type, value_contents_for_printing (v), + value_embedded_offset (v), 0, stream, + recurse + 1, v, options, language); } else - ada_val_print_1 (TYPE_TARGET_TYPE (type), - valaddr, offset, - address, stream, recurse, - original_value, options, language); + val_print (TYPE_TARGET_TYPE (type), valaddr, offset, + address, stream, recurse, original_value, + options, language); return; } else |