diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2025-03-14 00:01:46 +0100 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2025-03-14 00:03:30 +0100 |
| commit | ab4e9fd943124f0630e560a56a5477d5d7ca2c1f (patch) | |
| tree | 5f1f22c2f576c5fa6542aef0479f3baa56c53fda | |
| parent | d774c5727d34cc9775d50e0552190f590859581b (diff) | |
| download | gcc-ab4e9fd943124f0630e560a56a5477d5d7ca2c1f.zip gcc-ab4e9fd943124f0630e560a56a5477d5d7ca2c1f.tar.gz gcc-ab4e9fd943124f0630e560a56a5477d5d7ca2c1f.tar.bz2 | |
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.
| -rw-r--r-- | gcc/c-family/c-ada-spec.cc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/c-family/c-ada-spec.cc b/gcc/c-family/c-ada-spec.cc index 152fb20..c7ae032 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, |