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

ada: Mark XUA types as artificial

gdb does not need the name of XUA types.  This patch changes the
compiler to unconditionally mark these as artificial; a subsequent
patch will arrange for the name to be omitted.

gcc/ada/ChangeLog:

	* gcc-interface/decl.cc (gnat_to_gnu_entity): Pass 'true' to
	create_type_decl when creating XUA type.
---

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 256541df4113..ba75fa330934 100644
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -2483,7 +2483,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
 	/* See the above description for the rationale.  */
 	tree gnu_tmp_decl
 	  = create_type_decl (create_concat_name (gnat_entity, "XUA"), tem,
-			      artificial_p, debug_info_p, gnat_entity);
+			      true, debug_info_p, gnat_entity);
 	TYPE_CONTEXT (tem) = gnu_fat_type;
 	TYPE_CONTEXT (TYPE_POINTER_TO (tem)) = gnu_fat_type;