diff options
| author | schwab <schwab@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-19 01:46:50 +0000 |
|---|---|---|
| committer | schwab <schwab@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-19 01:46:50 +0000 |
| commit | a0748b7d9732433c1258d463088aebc04e6283a8 (patch) | |
| tree | 511e2ebe6a5a9b3cd70413e4381c906b737049fb /gcc/c-common.c | |
| parent | 6c2f7b46e3440e5108af77ea1c48f43dc538edd6 (diff) | |
| download | gcc-a0748b7d9732433c1258d463088aebc04e6283a8.tar.gz | |
* c-common.c (truthvalue_conversion): Protect side effects in the
expression when splitting a complex value.
* fold-const.c (fold): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20580 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/c-common.c')
| -rw-r--r-- | gcc/c-common.c | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/gcc/c-common.c b/gcc/c-common.c index 9983cdbc5ef..3a22c174180 100644 --- a/gcc/c-common.c +++ b/gcc/c-common.c @@ -2670,12 +2670,15 @@ truthvalue_conversion (expr) } if (TREE_CODE (TREE_TYPE (expr)) == COMPLEX_TYPE) - return (build_binary_op - ((TREE_SIDE_EFFECTS (expr) - ? TRUTH_OR_EXPR : TRUTH_ORIF_EXPR), - truthvalue_conversion (build_unary_op (REALPART_EXPR, expr, 0)), - truthvalue_conversion (build_unary_op (IMAGPART_EXPR, expr, 0)), - 0)); + { + tree tem = save_expr (expr); + return (build_binary_op + ((TREE_SIDE_EFFECTS (expr) + ? TRUTH_OR_EXPR : TRUTH_ORIF_EXPR), + truthvalue_conversion (build_unary_op (REALPART_EXPR, tem, 0)), + truthvalue_conversion (build_unary_op (IMAGPART_EXPR, tem, 0)), + 0)); + } return build_binary_op (NE_EXPR, expr, integer_zero_node, 1); } |