From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 16 Mar 2015 09:18:38 +0000 (+0000)
Subject: decl.c (gnat_to_gnu_entity): Do not short-circuit the regular handling.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c8dbf886e992daca83e878f3397909a0f7a33d93;p=gcc.git

decl.c (gnat_to_gnu_entity): Do not short-circuit the regular handling.

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Abstract_State>: Do not
	short-circuit the regular handling.

From-SVN: r221446
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 42f91b7bbea..0977c485a2b 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-16  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Abstract_State>: Do not
+	short-circuit the regular handling.
+
 2015-03-13  Robert Dewar  <dewar@adacore.com>
 
 	* exp_unst.adb (Note_Uplevel_Reference): Eliminate duplicate
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 06031b131c8..90ffcb30344 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -4800,9 +4800,11 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 
     case E_Abstract_State:
       /* This is a SPARK annotation that only reaches here when compiling in
-	 ASIS mode and has no characteristics to annotate.  */
+	 ASIS mode.  */
       gcc_assert (type_annotate_only);
-      return error_mark_node;
+      gnu_decl = error_mark_node;
+      saved = true;
+      break;
 
     default:
       gcc_unreachable ();