From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 18 Sep 2013 10:35:53 +0000 (+0000)
Subject: * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Abstract_State>: New.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d2c03c72c00a8103d8e7b27d17eb1321f22f8373;p=gcc.git

* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Abstract_State>: New.

From-SVN: r202690
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fb4789cc932..686f62cc863 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2013-09-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Abstract_State>: New.
+
 2013-09-18  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/trans.c (gigi): Remove dead code.
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 26342e2a012..456d7ab7ad9 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -4812,6 +4812,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
       saved = true;
       break;
 
+    case E_Abstract_State:
+      /* This is a SPARK annotation that only reaches here when compiling in
+	 ASIS mode and has no characteristics to annotate.  */
+      gcc_assert (type_annotate_only);
+      return error_mark_node;
+
     default:
       gcc_unreachable ();
     }