From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 16758 invoked by alias); 7 Jan 2014 04:22:16 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 16690 invoked by uid 89); 7 Jan 2014 04:22:16 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.4 required=5.0 tests=AWL,BAYES_00,RP_MATCHES_RCVD,SPF_PASS autolearn=ham version=3.3.2 X-HELO: rock.gnat.com Received: from rock.gnat.com (HELO rock.gnat.com) (205.232.38.15) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-SHA encrypted) ESMTPS; Tue, 07 Jan 2014 04:22:15 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id BAE7C11665F for ; Mon, 6 Jan 2014 23:22:13 -0500 (EST) Received: from rock.gnat.com ([127.0.0.1]) by localhost (rock.gnat.com [127.0.0.1]) (amavisd-new, port 10024) with LMTP id HFUmHgxmHPv6 for ; Mon, 6 Jan 2014 23:22:13 -0500 (EST) Received: from joel.gnat.com (localhost.localdomain [127.0.0.1]) by rock.gnat.com (Postfix) with ESMTP id 5325B11665E for ; Mon, 6 Jan 2014 23:22:13 -0500 (EST) Received: by joel.gnat.com (Postfix, from userid 1000) id 74D65E02E6; Tue, 7 Jan 2014 08:22:10 +0400 (RET) From: Joel Brobecker To: gdb-patches@sourceware.org Subject: [commit/Ada 03/11] ada_val_print_1: Go through val_print instead of recursive call to self. Date: Tue, 07 Jan 2014 04:22:00 -0000 Message-Id: <1389068515-10129-4-git-send-email-brobecker@adacore.com> In-Reply-To: <1389068515-10129-1-git-send-email-brobecker@adacore.com> References: <1389068515-10129-1-git-send-email-brobecker@adacore.com> X-SW-Source: 2014-01/txt/msg00117.txt.bz2 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 2866cae..ee0df63 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 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". Update calls to self accordingly. Replace calls to c_val_print by calls to val_print. 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 -- 1.8.3.2