From: Tom Tromey <tromey@adacore.com>
Date: Wed, 10 Jul 2024 17:38:55 +0000 (-0600)
Subject: ada: Mark XUB types as nameless
X-Git-Tag: basepoints/gcc-16~4897
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0eb688077f50d24e2fe21e7c9385b74b81e0a925;p=thirdparty%2Fgcc.git

ada: Mark XUB types as nameless

gdb does not need the name of XUB types.  This patch changes the
compiler to omit these names from the DWARF when minimal encodings are
in use.

gcc/ada/ChangeLog:

	* gcc-interface/decl.cc (gnat_to_gnu_entity): Set TYPE_NAMELESS on
	XUB types.
---

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 14b39b336bd8..256541df4113 100644
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -2393,6 +2393,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
 	/* Install all the fields into the template.  */
 	TYPE_NAME (gnu_template_type)
 	  = create_concat_name (gnat_entity, "XUB");
+	TYPE_NAMELESS (gnu_template_type)
+	  = gnat_encodings != DWARF_GNAT_ENCODINGS_ALL;
 	gnu_template_fields = NULL_TREE;
 	for (index = 0; index < ndim; index++)
 	  gnu_template_fields