From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2126) id 22E8E394B02F; Sat, 14 Mar 2020 00:08:29 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 22E8E394B02F DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1584144509; bh=X/aGsaNReFg01/cJ4fP5q9AAMXg7rP7W5KYWIBd7V4I=; h=From:To:Subject:Date:From; b=b4JlFtY2A/d+oVb+WdJtt1kan5p3rmtSQbwBNTXNncUoH77Ssji2/Lo6WRT5lZMXC p6OaXaKse/k05Tkvg+gn/ybGFvmYJV1oN9Mh/rfDsYbcQUdy4/e+SLEe87d7YIi+AZ tmLdRXA1SL6AnpEW5P8Y07omOp1LZx0yMtJIz0rM= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Tom Tromey To: gdb-cvs@sourceware.org Subject: [binutils-gdb] Rewrite ada_value_print_1 floating point case X-Act-Checkin: binutils-gdb X-Git-Author: Tom Tromey X-Git-Refname: refs/heads/master X-Git-Oldrev: 416595d6409b1bd2e2f9862c133ca764688da77f X-Git-Newrev: b9fa6e07980f901f2a3f99b7eed4356d3209a3c4 Message-Id: <20200314000829.22E8E394B02F@sourceware.org> Date: Sat, 14 Mar 2020 00:08:29 +0000 (GMT) X-BeenThere: gdb-cvs@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 14 Mar 2020 00:08:29 -0000 https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=b9fa6e07980f901f2a3f99b7eed4356d3209a3c4 commit b9fa6e07980f901f2a3f99b7eed4356d3209a3c4 Author: Tom Tromey Date: Fri Mar 13 17:39:52 2020 -0600 Rewrite ada_value_print_1 floating point case This rewrites the TYPE_CODE_FLT case in ada_value_print_1 to be purely value-based. gdb/ChangeLog 2020-03-13 Tom Tromey * ada-valprint.c (ada_value_print_1) : Rewrite. Diff: --- gdb/ChangeLog | 4 ++++ gdb/ada-valprint.c | 11 ++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index c5c060f3613..ebeedb598e6 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,7 @@ +2020-03-13 Tom Tromey + + * ada-valprint.c (ada_value_print_1) : Rewrite. + 2020-03-13 Tom Tromey * ada-valprint.c (ada_value_print_ptr): New function. diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 2cb7334b4ec..e0ef410bf0d 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -1294,9 +1294,14 @@ ada_value_print_1 (struct value *val, struct ui_file *stream, int recurse, break; case TYPE_CODE_FLT: - ada_val_print_flt (type, valaddr, 0, 0, - address, stream, recurse, val, - options); + if (options->format) + { + common_val_print (val, stream, recurse, options, + language_def (language_c)); + break; + } + + ada_print_floating (valaddr, type, stream); break; case TYPE_CODE_UNION: