tree-vrp.c (simplify_truth_ops_using_ranges): Fix types.

2008-09-12  Richard Guenther  <rguenther@suse.de>

	* tree-vrp.c (simplify_truth_ops_using_ranges): Fix types.

	fortran/
	* trans-intrinsic.c (gfc_conv_intrinsic_transfer): Use
	build_fold_addr_expr to properly mark the argument
	addressable.

From-SVN: r140313

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 43420dd23cc9ff08ff38b45cfe5750d7a668a35b..5e66ff672d6bdbe744c15e6633d597e276f590ff 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-12  Richard Guenther  <rguenther@suse.de>
+
+       * tree-vrp.c (simplify_truth_ops_using_ranges): Fix types.
+
 2008-09-12  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR rtl-optimization/37424

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 954d5cdb6ea9563f37fcdab8533c400db69a3e13..796d36d07893c2dee7666973597ed572b8ecbf0f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-12  Richard Guenther  <rguenther@suse.de>
+
+       * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Use
+       build_fold_addr_expr to properly mark the argument
+       addressable.
+
 2008-09-11  Daniel Kraft  <d@domob.eu>
 
        PR fortran/36214

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index aa5ee45a00ba671d86b061799755f232d31f636e..f5f9922b68d73fd2cefcaa6e73074756a67f6b5d 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -3718,7 +3718,7 @@ gfc_conv_intrinsic_transfer (gfc_se * se, gfc_expr * expr)
       moldsize = size_in_bytes (type);
 
       /* Use memcpy to do the transfer.  */
-      tmp = fold_build1 (ADDR_EXPR, build_pointer_type (type), tmpdecl);
+      tmp = build_fold_addr_expr (tmpdecl);
       tmp = build_call_expr (built_in_decls[BUILT_IN_MEMCPY], 3,
                             fold_convert (pvoid_type_node, tmp),
                             fold_convert (pvoid_type_node, ptr),

diff --git a/gcc/tree-vrp.c b/gcc/tree-vrp.c
index fffa224ff43340a17cc5bc38273996ac1197fdac..31d7f10aa1348a6242b236b6c51c241a91951ee5 100644 (file)
--- a/gcc/tree-vrp.c
+++ b/gcc/tree-vrp.c
@@ -6319,9 +6319,8 @@ simplify_truth_ops_using_ranges (gimple_stmt_iterator *gsi, gimple stmt)
   if (rhs_code == TRUTH_NOT_EXPR)
     {
       rhs_code = NE_EXPR;
-      op1 = integer_one_node;
+      op1 = build_int_cst (TREE_TYPE (op0), 1);
     }
-
   else
     {
       op1 = gimple_assign_rhs2 (stmt);