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 --git a/gcc/c-family/c-ada-spec.cc b/gcc/c-family/c-ada-spec.cc
index e56ef10f443a360974fb9ced24e55a2d0f6d7e62..0f54f904b6a5d292f23a8153b47e616343ead5b3 100644 (file)
--- a/gcc/c-family/c-ada-spec.cc
+++ b/gcc/c-family/c-ada-spec.cc
@@ -2193,8 +2193,8 @@ dump_ada_node (pretty_printer *buffer, 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 (buffer, TYPE_NAME (node), node,