From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2126) id A34A03AAA070; Sat, 14 Mar 2020 00:04:53 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org A34A03AAA070 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1584144293; bh=phrcFLdGMsBvP5PdHpmfzEYt5Oa49OEcna0N7RpG2EU=; h=From:To:Subject:Date:From; b=KVyjNh2F1i28JS7CgVg0M7o+sXN97Rb8ozYxWjHP0sr9y2Sp6OYQ+S7mM6hufkzEH hbUlLZ4O789KmDZgLE07/U2RhpncH+0UrCZ99LLz4KrMZlagBTSPnqK6k1+WI4SpBv Orw+oHDXaM35Nzk+NTSk/tOj6oARLGCrLOjZiJUs= 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] Use common_val_print in f-valprint.c X-Act-Checkin: binutils-gdb X-Git-Author: Tom Tromey X-Git-Refname: refs/heads/master X-Git-Oldrev: 040f66bd2d6aea4d35a2e5cb88b499799ee4c466 X-Git-Newrev: 72a45c938438f33bf8e7de6a5f068ba31c8c1e36 Message-Id: <20200314000453.A34A03AAA070@sourceware.org> Date: Sat, 14 Mar 2020 00:04:53 +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:04:53 -0000 https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=72a45c938438f33bf8e7de6a5f068ba31c8c1e36 commit 72a45c938438f33bf8e7de6a5f068ba31c8c1e36 Author: Tom Tromey Date: Fri Mar 13 17:39:52 2020 -0600 Use common_val_print in f-valprint.c This changes a couple spots in f-valprint.c to use common_val_print rather than val_print. gdb/ChangeLog 2020-03-13 Tom Tromey * f-valprint.c (f77_print_array_1, f_val_print): Use common_val_print. Diff: --- gdb/ChangeLog | 5 +++++ gdb/f-valprint.c | 11 +++-------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 21444545b44..6cda7481b8c 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2020-03-13 Tom Tromey + + * f-valprint.c (f77_print_array_1, f_val_print): Use + common_val_print. + 2020-03-13 Tom Tromey * riscv-tdep.c (riscv_print_one_register_info): Use diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 0393ddfa8ab..bbc09cd5606 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -156,10 +156,7 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type, { struct value *elt = value_subscript ((struct value *)val, i); - val_print (value_type (elt), - value_embedded_offset (elt), - value_address (elt), stream, recurse, - elt, options, current_language); + common_val_print (elt, stream, recurse, options, current_language); if (i != upperbound) fprintf_filtered (stream, ", "); @@ -346,10 +343,8 @@ f_val_print (struct type *type, int embedded_offset, fputs_filtered (" = ", stream); } - val_print (value_type (field), - value_embedded_offset (field), - value_address (field), stream, recurse + 1, - field, options, current_language); + common_val_print (field, stream, recurse + 1, + options, current_language); ++printed_field; }