[gcc r15-4656] ada: Mark XUB types as nameless

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:0eb688077f50d24e2fe21e7c9385b74b81e0a925

commit r15-4656-g0eb688077f50d24e2fe21e7c9385b74b81e0a925
Author: Tom Tromey <tro...@adacore.com>
Date:   Wed Jul 10 11:38:55 2024 -0600

    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:
---
 gcc/ada/gcc-interface/decl.cc | 2 ++
 1 file changed, 2 insertions(+)

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