[c-family] Fix PR ada/119265

[Eric Botcazou]

This plugs a small loophole in the pattern matching done by -fdump-ada-spec.

Tested on x86-64/Linux, applied on mainline, 14 and 13 branches.


2025-03-13  Eric Botcazou  <ebotca...@adacore.com>

        PR ada/119265
        * c-ada-spec.cc (dump_ada_node) <INTEGER_TYPE>: Deal with typedefs
        of unsigned __int128.

-- 
Eric Botcazou
diff --git a/gcc/c-family/c-ada-spec.cc b/gcc/c-family/c-ada-spec.cc
index 152fb2093df..c7ae032230a 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,