diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-08-30 14:48:16 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-08-30 14:48:16 +0000 |
| commit | 7f6dd1021e66c83a6f5e660d64fb055540bd6530 (patch) | |
| tree | 44bb9f60f0006020005bc21393d78e37fdf53032 /gcc/ada/gcc-interface | |
| parent | e5969b734db1e79e295372588ee2d5e6731d9713 (diff) | |
| download | gcc-7f6dd1021e66c83a6f5e660d64fb055540bd6530.zip gcc-7f6dd1021e66c83a6f5e660d64fb055540bd6530.tar.gz gcc-7f6dd1021e66c83a6f5e660d64fb055540bd6530.tar.bz2 | |
trans.c (lvalue_required_p): Adjust GNU_TYPE in the recursive call.
* gcc-interface/trans.c (lvalue_required_p) <N_Slice>: Adjust GNU_TYPE
in the recursive call.
<N_Selected_Component>: Likewise.
From-SVN: r275191
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index bd861f3..5579986 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -873,12 +873,14 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant, if (Prefix (gnat_parent) != gnat_node) return 0; - return lvalue_required_p (gnat_parent, gnu_type, constant, - address_of_constant); + return lvalue_required_p (gnat_parent, + get_unpadded_type (Etype (gnat_parent)), + constant, address_of_constant); case N_Selected_Component: - return lvalue_required_p (gnat_parent, gnu_type, constant, - address_of_constant); + return lvalue_required_p (gnat_parent, + get_unpadded_type (Etype (gnat_parent)), + constant, address_of_constant); case N_Object_Renaming_Declaration: /* We need to preserve addresses through a renaming. */ |