From: ebotcazou Date: Wed, 3 Jun 2015 09:22:09 +0000 (+0000) Subject: * gcc-interface/trans.c (gnat_to_gnu) : Fix X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d54316dc61bf5f4fd17bed70b9a98ede274c4e4d;p=thirdparty%2Fgcc.git * gcc-interface/trans.c (gnat_to_gnu) : 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 079828ec3f97..dc85f3bb3922 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2015-06-03 Eric Botcazou + + * gcc-interface/trans.c (gnat_to_gnu) : Fix + typo in latest change. + 2015-06-01 Eric Botcazou * 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 b561bf015a32..eeb5b4e707de 100644 --- 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