trans.c (gnat_to_gnu): Fix typo in latest change.

	* gcc-interface/trans.c (gnat_to_gnu) <N_Simple_Return_Statement>: Fix
	typo in latest change.

From-SVN: r224066

gcc/ada/ChangeLog

+2015-06-03  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/trans.c (gnat_to_gnu) <N_Simple_Return_Statement>: Fix
+	typo in latest change.
+
 2015-06-01  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/Makefile.in: Fix ARM/Darwin configuration.

gcc/ada/gcc-interface/trans.c

@@ -6809,7 +6809,7 @@ gnat_to_gnu (Node_Id gnat_node)
 	       self-referential since we want to allocate the fixed size.  */
 	    if (TREE_CODE (gnu_ret_val) == COMPONENT_REF
 		&& type_is_padding_self_referential
-		   (TREE_OPERAND (gnu_ret_val, 0)))
+		   (TREE_TYPE (TREE_OPERAND (gnu_ret_val, 0))))
 	      gnu_ret_val = TREE_OPERAND (gnu_ret_val, 0);
 
 	    /* If the function returns by direct reference, return a pointer