From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from rock.gnat.com (rock.gnat.com [IPv6:2620:20:4000:0:a9e:1ff:fe9b:1d1]) by sourceware.org (Postfix) with ESMTP id B8BA13940CEA for ; Wed, 11 Mar 2020 14:31:10 +0000 (GMT) Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id 81FCF56117; Wed, 11 Mar 2020 10:31:10 -0400 (EDT) X-Virus-Scanned: Debian amavisd-new at gnat.com 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 DgvE2+meH119; Wed, 11 Mar 2020 10:31:10 -0400 (EDT) Received: from murgatroyd.Home (184-96-250-69.hlrn.qwest.net [184.96.250.69]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by rock.gnat.com (Postfix) with ESMTPSA id 3DA27560A3; Wed, 11 Mar 2020 10:31:10 -0400 (EDT) From: Tom Tromey To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [pushed] Fix comment in ada-typeprint.c Date: Wed, 11 Mar 2020 08:31:08 -0600 Message-Id: <20200311143108.18099-1-tromey@adacore.com> X-Mailer: git-send-email 2.21.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-26.9 required=5.0 tests=BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, SPF_HELO_NONE, SPF_PASS autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 11 Mar 2020 14:31:11 -0000 A comment in ada-typeprint.c mentions the Unchecked_Variant pragma. However, this does not exist, and the comment should actually mention Unchecked_Union. gdb/ChangeLog 2020-03-11 Tom Tromey * ada-typeprint.c (print_choices): Fix comment. --- gdb/ChangeLog | 4 ++++ gdb/ada-typeprint.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gdb/ada-typeprint.c b/gdb/ada-typeprint.c index db4634c0f3b..9f0ac259a16 100644 --- a/gdb/ada-typeprint.c +++ b/gdb/ada-typeprint.c @@ -456,7 +456,7 @@ print_array_type (struct type *type, struct ui_file *stream, int show, values. Return non-zero if the field is an encoding of discriminant values, as in a standard variant record, and 0 if the field is not so encoded (as happens with single-component variants - in types annotated with pragma Unchecked_Variant). */ + in types annotated with pragma Unchecked_Union). */ static int print_choices (struct type *type, int field_num, struct ui_file *stream, -- 2.21.1