From 3a92c861bbbd25cb894942f79d0c6f7f8bbd1de6 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 19 Dec 2013 15:27:00 +0400 Subject: [PATCH] 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. --- gdb/ChangeLog | 5 +++++ gdb/ada-valprint.c | 23 +++++++++-------------- 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2866cae229d..ee0df632eed 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2014-01-07 Joel Brobecker + + * ada-valprint.c (ada_val_print_1): Replace calls to + ada_val_print_1 by calls to val_print. + 2014-01-07 Joel Brobecker * ada-valprint.c (ada_val_print_1): Add parameter "language". diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 66cda39d76e..ff0fa6606fe 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 -- 2.30.2