trans.c (gnat_to_gnu): Set gnu_result to NULL_TREE on entry.

	* trans.c (gnat_to_gnu) <N_Return_Statement>: Set gnu_result
	to NULL_TREE on entry.

From-SVN: r96528

gcc/ada/ChangeLog

+2005-03-15  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* trans.c (gnat_to_gnu) <N_Return_Statement>: Set gnu_result
+	to NULL_TREE on entry.
+
 2005-03-15  Robert Dewar  <dewar@adacore.com>
 
 	* system-unixware.ads, system-linux-ia64.ads, system-freebsd-x86.ads,

gcc/ada/trans.c

@@ -3500,6 +3500,8 @@ gnat_to_gnu (Node_Id gnat_node)
 	tree gnu_ret_val = NULL_TREE;
 	/* The place to put the return value.  */
 	tree gnu_lhs;
+	/* Avoid passing error_mark_node to RETURN_EXPR.  */
+	gnu_result = NULL_TREE;
 
 	/* If we are dealing with a "return;" from an Ada procedure with
 	   parameters passed by copy in copy out, we need to return a record