diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-09-11 18:28:05 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-09-11 18:28:05 +0000 |
| commit | d8e38554672516173980b6f245781ef36767780a (patch) | |
| tree | 687bf8a11600a3aefc37f9c57880e09c771778f0 /gcc/ada/gcc-interface/trans.c | |
| parent | bf0b8cbee52bf89f558d515a05b2fa5d03e9080d (diff) | |
| download | gcc-d8e38554672516173980b6f245781ef36767780a.zip gcc-d8e38554672516173980b6f245781ef36767780a.tar.gz gcc-d8e38554672516173980b6f245781ef36767780a.tar.bz2 | |
trans.c (build_return_expr): Use void_type_node for MODIFY_EXPR.
* gcc-interface/trans.c (build_return_expr): Use void_type_node for
MODIFY_EXPR.
* gcc-interface/utils2.c (build_binary_op) <MODIFY_EXPR>: Assert that
the result type is null if ENABLE_CHECKING. Set operation_type at the
end unconditionally if not set in the previous cases.
Use build2 and void_type_node for MODIFY_EXPR.
(build_allocator): Use NULL_TREE for MODIFY_EXPR.
From-SVN: r178761
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 13df71f..b831918 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2482,7 +2482,7 @@ build_return_expr (tree ret_obj, tree ret_val) if (operation_type != TREE_TYPE (ret_val)) ret_val = convert (operation_type, ret_val); - result_expr = build2 (MODIFY_EXPR, operation_type, ret_obj, ret_val); + result_expr = build2 (MODIFY_EXPR, void_type_node, ret_obj, ret_val); } else result_expr = ret_obj; |