[Ada] Fix typo in recent change

[Eric Botcazou]

Tested on x86_64-suse-linux, applied on the mainline.


2015-06-03  Eric Botcazou  <ebotca...@adacore.com>

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


-- 
Eric Botcazou
Index: gcc-interface/trans.c
===================================================================
--- gcc-interface/trans.c	(revision 224054)
+++ gcc-interface/trans.c	(working copy)
@@ -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