[gcc r15-8043] Plug small loophole in the pattern matching done by -fdump-ada-spec

[Eric Botcazou via Gcc-cvs]

https://gcc.gnu.org/g:ab4e9fd943124f0630e560a56a5477d5d7ca2c1f

commit r15-8043-gab4e9fd943124f0630e560a56a5477d5d7ca2c1f
Author: Eric Botcazou <ebotca...@adacore.com>
Date:   Fri Mar 14 00:01:46 2025 +0100

    Plug small loophole in the pattern matching done by -fdump-ada-spec
    
    gcc/c-family/
            PR ada/119265
            * c-ada-spec.cc (dump_ada_node) <INTEGER_TYPE>: Deal with typedefs
            of unsigned __int128.

Diff:
---
 gcc/c-family/c-ada-spec.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/c-family/c-ada-spec.cc b/gcc/c-family/c-ada-spec.cc
index 152fb2093df1..c7ae032230a8 100644
--- a/gcc/c-family/c-ada-spec.cc
+++ b/gcc/c-family/c-ada-spec.cc
@@ -2255,8 +2255,8 @@ dump_ada_node (pretty_printer *pp, tree node, tree type, 
int spc,
     case BOOLEAN_TYPE:
       if (TYPE_NAME (node)
          && !(TREE_CODE (TYPE_NAME (node)) == TYPE_DECL
-              && !strcmp (IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (node))),
-                          "__int128")))
+              && !strncmp (IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (node))),
+                          "__int128", 8)))
        {
          if (TREE_CODE (TYPE_NAME (node)) == IDENTIFIER_NODE)
            pp_ada_tree_identifier (pp, TYPE_NAME (node), node,