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

	typo in latest change.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@224066 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 079828ec3f971e4bcb10a8c86a7e5f2d5d384072..dc85f3bb39228d2ed359763e30d750e25f30fbfd 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index b561bf015a32df569742b755376d31551073d19c..eeb5b4e707ded2047a8723baba29fe5355e7cfbb 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/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