From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 18 Nov 2013 09:50:25 +0000 (+0000)
Subject: decl.c (gnat_to_gnu_entity): Deal with an error mark as renamed object in type annota... 
X-Git-Tag: misc/gupc_5_2_0_release~126^2
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9adcf5b40abb931351d356213eee9e6f79865128;p=thirdparty%2Fgcc.git

decl.c (gnat_to_gnu_entity): Deal with an error mark as renamed object in type annotating mode.

	* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Deal with an
	error mark as renamed object in type annotating mode.

From-SVN: r204942
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4de8e32c8976..86000b163320 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Deal with an
+	error mark as renamed object in type annotating mode.
+
 2013-11-15  H.J. Lu  <hongjiu.lu@intel.com>
 
 	PR ada/54040
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index d38660231556..d3cc5466514c 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1117,8 +1117,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 			   as we have a VAR_DECL for the pointer we make.  */
 		      }
 
-		    gnu_expr = build_unary_op (ADDR_EXPR, gnu_type,
-					       maybe_stable_expr);
+		    if (type_annotate_only
+ 			&& TREE_CODE (maybe_stable_expr) == ERROR_MARK)
+		      gnu_expr = NULL_TREE;
+		    else
+		      gnu_expr = build_unary_op (ADDR_EXPR, gnu_type,
+						 maybe_stable_expr);
 
 		    gnu_size = NULL_TREE;
 		    used_by_ref = true;