diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 079828e..dc85f3b 100644 --- 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 b561bf0..eeb5b4e 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 |