From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 26 Sep 2018 09:17:10 +0000 (+0000)
Subject: [Ada] ICE on array of task type with -gnatct
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4453a8221c65f386ae361670fa932643521374d7;p=gcc.git

[Ada] ICE on array of task type with -gnatct

2018-09-26  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Task_Type>: In
	-gnatct mode, process the discriminants only for a definition.

From-SVN: r264610
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 83685b4d077..a0252f8d1af 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-09-26  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Task_Type>: In
+	-gnatct mode, process the discriminants only for a definition.
+
 2018-09-26  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* repinfo.adb (List_Record_Layout): Be prepared for JSON output.
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index c15b0c8ef2e..8dd62f73d5e 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -4158,7 +4158,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
 	 part of the associated body so they need to be translated.  */
       if (type_annotate_only && gnat_equiv_type == gnat_entity)
 	{
-	  if (Has_Discriminants (gnat_entity)
+	  if (definition
+	      && Has_Discriminants (gnat_entity)
 	      && Root_Type (gnat_entity) == gnat_entity)
 	    {
 	      tree gnu_field_list = NULL_TREE;