re PR ada/19128 (Bug box while building asharp)

2004-12-30  Sohail Somani <sohail@sohailsomani.com>

	PR ada/19128
	* trans.c (gnat_to_gnu): Fix typo: Use correct return variable.

From-SVN: r92732

gcc/ada/ChangeLog

+2004-12-30  Sohail Somani <sohail@sohailsomani.com>
+
+	PR ada/19128
+	* trans.c (gnat_to_gnu): Fix typo: Use correct return variable.
+
 2004-12-23  Eric Botcazou  <ebotcazou@libertysurf.fr>
 
 	* trans.c (Attribute_to_gnu): Adjust call to get_inner_reference.

gcc/ada/trans.c

@@ -3546,7 +3546,7 @@ gnat_to_gnu (Node_Id gnat_node)
 	       are doing a call, pass that target to the call.  */
 	    if (TYPE_RETURNS_BY_TARGET_PTR_P (gnu_subprog_type)
 		&& Nkind (Expression (gnat_node)) == N_Function_Call)
-	      gnu_result = call_to_gnu (Expression (gnat_node),
+	      gnu_ret_val = call_to_gnu (Expression (gnat_node),
 					 &gnu_result_type, gnu_lhs);
 
 	    else