diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-06-06 09:44:11 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-06-06 09:44:11 +0000 |
| commit | 62801a777ae288d0b01792ec8f85cded7b6d9df3 (patch) | |
| tree | d8b7d032b53a272332300754ebabd26c255b7dfb /gcc/ada/gcc-interface/utils2.c | |
| parent | f1ff07ec096c3b59ef3d883e00dd4a840314eaf8 (diff) | |
| download | gcc-62801a777ae288d0b01792ec8f85cded7b6d9df3.zip gcc-62801a777ae288d0b01792ec8f85cded7b6d9df3.tar.gz gcc-62801a777ae288d0b01792ec8f85cded7b6d9df3.tar.bz2 | |
utils2.c (build_call_alloc_dealloc): Do not substitute placeholder expressions here but...
* gcc-interface/utils2.c (build_call_alloc_dealloc): Do not substitute
placeholder expressions here but...
* gcc-interface/trans.c (gnat_to_gnu) <N_Free_Statement>: ...here.
Make an exception to the protection of a CALL_EXPR result with an
unconstrained type only in the same cases as Call_to_gnu.
From-SVN: r237125
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 67799df..a0804e8 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -2268,8 +2268,6 @@ build_call_alloc_dealloc (tree gnu_obj, tree gnu_size, tree gnu_type, Entity_Id gnat_proc, Entity_Id gnat_pool, Node_Id gnat_node) { - gnu_size = SUBSTITUTE_PLACEHOLDER_IN_EXPR (gnu_size, gnu_obj); - /* Explicit proc to call ? This one is assumed to deal with the type alignment constraints. */ if (Present (gnat_proc)) |