From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 16 Jan 2024 11:15:31 +0000 (+0100)
Subject: Fix crash of -fdump-ada-spec in a pathological case
X-Git-Tag: basepoints/gcc-15~2864
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=cf420e7b98d845323fad8280aea4ede60d3d96fe;p=thirdparty%2Fgcc.git

Fix crash of -fdump-ada-spec in a pathological case

gcc/c-family/
	PR ada/113397
	* c-ada-spec.cc (check_type_name_conflict): Add guard for the
	presence of DECL_NAME on a TYPE_DECL.
---

diff --git a/gcc/c-family/c-ada-spec.cc b/gcc/c-family/c-ada-spec.cc
index 7d886c0f92e9..4b245ed69754 100644
--- a/gcc/c-family/c-ada-spec.cc
+++ b/gcc/c-family/c-ada-spec.cc
@@ -1566,6 +1566,8 @@ check_type_name_conflict (pretty_printer *buffer, tree t)
 	s = "";
       else if (TREE_CODE (TYPE_NAME (tmp)) == IDENTIFIER_NODE)
 	s = IDENTIFIER_POINTER (TYPE_NAME (tmp));
+      else if (!DECL_NAME (TYPE_NAME (tmp)))
+	s = "";
       else
 	s = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (tmp)));