OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(truthvalue_conversion): Handle COMPLEX_EXPR. 

From-SVN: r3638
This commit is contained in:
Richard Stallman 1993-03-04 19:36:42 +00:00
parent 1cc1b11a2e
commit 766f6c304d
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/c-common.c
View File

@ -373,7 +373,13 @@ convert_and_check (type, expr)
tree t = convert (type, expr);
if (TREE_CODE (t) == INTEGER_CST)
{
if (TREE_CONSTANT_OVERFLOW (t))
if (TREE_UNSIGNED (TREE_TYPE (expr))
&& !TREE_UNSIGNED (type)
&& TREE_CODE (TREE_TYPE (expr)) == INTEGER_TYPE
&& TYPE_PRECISION (type) == TYPE_PRECISION (TREE_TYPE (expr)))
/* No warning for converting 0x80000000 to int. */
TREE_CONSTANT_OVERFLOW (t) = 0;
else if (TREE_CONSTANT_OVERFLOW (t))
{
pedwarn ("overflow in implicit constant conversion");
TREE_CONSTANT_OVERFLOW (t) = 0;
@ -829,7 +835,8 @@ shorten_compare (op0_ptr, op1_ptr, restype_ptr, rescode_ptr)
TYPE is already properly set. */
}
else if (real1 && real2
&& TYPE_PRECISION (TREE_TYPE (primop0)) == TYPE_PRECISION (TREE_TYPE (primop1)))
&& (TYPE_PRECISION (TREE_TYPE (primop0))
== TYPE_PRECISION (TREE_TYPE (primop1))))
type = TREE_TYPE (primop0);
/* If args' natural types are both narrower than nominal type
@ -959,6 +966,12 @@ truthvalue_conversion (expr)
else
return integer_one_node;
case COMPLEX_EXPR:
return build_binary_op (TRUTH_ANDIF_EXPR,
truthvalue_conversion (TREE_REALPART (expr)),
truthvalue_conversion (TREE_IMAGPART (expr)),
0);
case NEGATE_EXPR:
case ABS_EXPR:
case FLOAT_EXPR: