diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-11-18 16:24:56 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-11-18 16:24:56 +0000 |
| commit | fb52b50a920a7571af3de43d679fa42483c56a96 (patch) | |
| tree | 45ef94c714a23d36859dc3c9c965f946052c1cbc /gcc/c-family/c-semantics.c | |
| parent | cfaa55890b6f9fb5fde5c84fc51326427dc48259 (diff) | |
| download | gcc-fb52b50a920a7571af3de43d679fa42483c56a96.zip gcc-fb52b50a920a7571af3de43d679fa42483c56a96.tar.gz gcc-fb52b50a920a7571af3de43d679fa42483c56a96.tar.bz2 | |
re PR c/33193 (slopiness in __real/__imag)
gcc/
PR c/33193
* c-typeck.c (build_unary_op): Call build_real_imag_expr for
REALPART_EXPR and IMAGPART_EXPR.
gcc/c-family/
PR c/33193
* c-common.h (build_real_imag_expr): Declare.
* c-semantics.c (build_real_imag_expr): Define.
gcc/cp/
PR c/33193
* typeck.c (cp_build_unary_op): Call build_real_imag_expr for
REALPART_EXPR and IMAGPART_EXPR.
gcc/testsuite/
PR c/33193
* c-c++-common/pr33193.c: New test.
From-SVN: r166909
Diffstat (limited to 'gcc/c-family/c-semantics.c')
| -rw-r--r-- | gcc/c-family/c-semantics.c | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/gcc/c-family/c-semantics.c b/gcc/c-family/c-semantics.c index 0eccd51..d26d871 100644 --- a/gcc/c-family/c-semantics.c +++ b/gcc/c-family/c-semantics.c @@ -140,3 +140,35 @@ build_case_label (location_t loc, { return build_stmt (loc, CASE_LABEL_EXPR, low_value, high_value, label_decl); } + +/* Build a REALPART_EXPR or IMAGPART_EXPR, according to CODE, from ARG. */ + +tree +build_real_imag_expr (location_t location, enum tree_code code, tree arg) +{ + tree ret; + tree arg_type = TREE_TYPE (arg); + + gcc_assert (code == REALPART_EXPR || code == IMAGPART_EXPR); + + if (TREE_CODE (arg_type) == COMPLEX_TYPE) + { + ret = build1 (code, TREE_TYPE (TREE_TYPE (arg)), arg); + SET_EXPR_LOCATION (ret, location); + } + else if (INTEGRAL_TYPE_P (arg_type) || SCALAR_FLOAT_TYPE_P (arg_type)) + { + ret = (code == REALPART_EXPR + ? arg + : omit_one_operand_loc (location, arg_type, + integer_zero_node, arg)); + } + else + { + error_at (location, "wrong type argument to %s", + code == REALPART_EXPR ? "__real" : "__imag"); + ret = error_mark_node; + } + + return ret; +} |