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

gcc/ada/ChangeLog

+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

gcc/ada/gcc-interface/decl.c

@@ -1117,6 +1117,10 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 			   as we have a VAR_DECL for the pointer we make.  */
 		      }
 
+		    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);