OSDN Git Service

Fix PR c++/45383
[pf3gnuchains/gcc-fork.git] / gcc / cp / cvt.c
index 646610a..c6335a2 100644 (file)
@@ -88,7 +88,7 @@ cp_convert_to_pointer (tree type, tree expr)
       intype = complete_type (intype);
       if (!COMPLETE_TYPE_P (intype))
        {
-         error ("can't convert from incomplete type %qT to %qT",
+         error ("can%'t convert from incomplete type %qT to %qT",
                 intype, type);
          return error_mark_node;
        }
@@ -176,7 +176,7 @@ cp_convert_to_pointer (tree type, tree expr)
   else if ((TYPE_PTRMEM_P (type) && TYPE_PTRMEM_P (intype))
           || (TYPE_PTRMEMFUNC_P (type) && TYPE_PTRMEMFUNC_P (intype)))
     return convert_ptrmem (type, expr, /*allow_inverse_p=*/false,
-                          /*c_cast_p=*/false);
+                          /*c_cast_p=*/false, tf_warning_or_error);
   else if (TYPE_PTRMEMFUNC_P (intype))
     {
       if (!warn_pmf2ptr)
@@ -196,11 +196,11 @@ cp_convert_to_pointer (tree type, tree expr)
       return error_mark_node;
     }
 
-  if (integer_zerop (expr))
+  if (null_ptr_cst_p (expr))
     {
       if (TYPE_PTRMEMFUNC_P (type))
        return build_ptrmemfunc (TYPE_PTRMEMFUNC_FN_TYPE (type), expr, 0,
-                                /*c_cast_p=*/false);
+                                /*c_cast_p=*/false, tf_warning_or_error);
 
       if (TYPE_PTRMEM_P (type))
        {
@@ -314,7 +314,7 @@ build_up_reference (tree type, tree arg, int flags, tree decl)
         here because it needs to live as long as DECL.  */
       tree targ = arg;
 
-      arg = make_temporary_var_for_ref_to_temp (decl, TREE_TYPE (arg));
+      arg = make_temporary_var_for_ref_to_temp (decl, target_type);
 
       /* Process the initializer for the declaration.  */
       DECL_INITIAL (arg) = targ;
@@ -327,7 +327,7 @@ build_up_reference (tree type, tree arg, int flags, tree decl)
   /* If we had a way to wrap this up, and say, if we ever needed its
      address, transform all occurrences of the register, into a memory
      reference we could win better.  */
-  rval = cp_build_unary_op (ADDR_EXPR, arg, 1, tf_warning_or_error);
+  rval = cp_build_addr_expr (arg, tf_warning_or_error);
   if (rval == error_mark_node)
     return error_mark_node;
 
@@ -471,7 +471,7 @@ convert_to_reference (tree reftype, tree expr, int convtype,
        warning (0, "casting %qT to %qT does not dereference pointer",
                 intype, reftype);
 
-      rval = cp_build_unary_op (ADDR_EXPR, expr, 0, tf_warning_or_error);
+      rval = cp_build_addr_expr (expr, tf_warning_or_error);
       if (rval != error_mark_node)
        rval = convert_force (build_pointer_type (TREE_TYPE (reftype)),
                              rval, 0);
@@ -481,7 +481,7 @@ convert_to_reference (tree reftype, tree expr, int convtype,
   else
     {
       rval = convert_for_initialization (NULL_TREE, type, expr, flags,
-                                        "converting", 0, 0,
+                                        ICR_CONVERTING, 0, 0,
                                          tf_warning_or_error);
       if (rval == NULL_TREE || rval == error_mark_node)
        return rval;
@@ -543,12 +543,35 @@ force_rvalue (tree expr)
 }
 
 \f
-/* Fold away simple conversions, but make sure the result is an rvalue.  */
+/* If EXPR and ORIG are INTEGER_CSTs, return a version of EXPR that has
+   TREE_OVERFLOW set only if it is set in ORIG.  Otherwise, return EXPR
+   unchanged.  */
+
+static tree
+ignore_overflows (tree expr, tree orig)
+{
+  if (TREE_CODE (expr) == INTEGER_CST
+      && TREE_CODE (orig) == INTEGER_CST
+      && TREE_OVERFLOW (expr) != TREE_OVERFLOW (orig))
+    {
+      gcc_assert (!TREE_OVERFLOW (orig));
+      /* Ensure constant sharing.  */
+      expr = build_int_cst_wide (TREE_TYPE (expr),
+                                TREE_INT_CST_LOW (expr),
+                                TREE_INT_CST_HIGH (expr));
+    }
+  return expr;
+}
+
+/* Fold away simple conversions, but make sure TREE_OVERFLOW is set
+   properly.  */
 
 tree
 cp_fold_convert (tree type, tree expr)
 {
-  return rvalue (fold_convert (type, expr));
+  tree conv = fold_convert (type, expr);
+  conv = ignore_overflows (conv, expr);
+  return conv;
 }
 
 /* C++ conversions, preference to static cast conversions.  */
@@ -609,7 +632,10 @@ ocp_convert (tree type, tree expr, int convtype, int flags)
       return error_mark_node;
     }
 
-  e = integral_constant_value (e);
+  /* FIXME remove when moving to c_fully_fold model.  */
+  /* FIXME do we still need this test?  */
+  if (!CLASS_TYPE_P (type))
+    e = integral_constant_value (e);
   if (error_operand_p (e))
     return error_mark_node;
 
@@ -651,13 +677,14 @@ ocp_convert (tree type, tree expr, int convtype, int flags)
 
   if (code == VOID_TYPE && (convtype & CONV_STATIC))
     {
-      e = convert_to_void (e, /*implicit=*/NULL, tf_warning_or_error);
+      e = convert_to_void (e, ICV_CAST, tf_warning_or_error);
       return e;
     }
 
   if (INTEGRAL_CODE_P (code))
     {
       tree intype = TREE_TYPE (e);
+      tree converted;
 
       if (TREE_CODE (type) == ENUMERAL_TYPE)
        {
@@ -702,7 +729,10 @@ ocp_convert (tree type, tree expr, int convtype, int flags)
       if (code == BOOLEAN_TYPE)
        return cp_truthvalue_conversion (e);
 
-      return fold_if_not_in_template (convert_to_integer (type, e));
+      converted = fold_if_not_in_template (convert_to_integer (type, e));
+
+      /* Ignore any integer overflow caused by the conversion.  */
+      return ignore_overflows (converted, e);
     }
   if (NULLPTR_TYPE_P (type) && e && null_ptr_cst_p (e))
     return nullptr_node;
@@ -814,30 +844,35 @@ ocp_convert (tree type, tree expr, int convtype, int flags)
    make it impossible to ignore the reference return value from functions. We
    issue warnings in the confusing cases.
 
-   IMPLICIT is non-NULL iff an expression is being implicitly converted; it
-   is NULL when the user is explicitly converting an expression to void via
-   a cast.  When non-NULL, IMPLICIT is a string indicating the context of
-   the implicit conversion.  */
+   The IMPLICIT is ICV_CAST when the user is explicitly converting an expression
+   to void via a cast. If an expression is being implicitly converted, IMPLICIT
+   indicates the context of the implicit conversion.  */
 
 tree
-convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
+convert_to_void (tree expr, impl_conv_void implicit, tsubst_flags_t complain)
 {
-  tree exprv;
-
   if (expr == error_mark_node
       || TREE_TYPE (expr) == error_mark_node)
     return error_mark_node;
 
-  exprv = expr;
-  while (TREE_CODE (exprv) == COMPOUND_EXPR)
-    exprv = TREE_OPERAND (exprv, 1);
-  if (DECL_P (exprv) || handled_component_p (exprv))
-    /* Expr is not being 'used' here, otherwise we whould have
-       called mark_{rl}value_use use here, which would have in turn
-       called mark_exp_read.  Rather, we call mark_exp_read directly
-       to avoid some warnings when
-       -Wunused-but-set-{variable,parameter} is in effect.  */
-    mark_exp_read (exprv);
+  if (implicit == ICV_CAST)
+    mark_exp_read (expr);
+  else
+    {
+      tree exprv = expr;
+
+      while (TREE_CODE (exprv) == COMPOUND_EXPR)
+       exprv = TREE_OPERAND (exprv, 1);
+      if (DECL_P (exprv)
+         || handled_component_p (exprv)
+         || TREE_CODE (exprv) == INDIRECT_REF)
+       /* Expr is not being 'used' here, otherwise we whould have
+          called mark_{rl}value_use use here, which would have in turn
+          called mark_exp_read.  Rather, we call mark_exp_read directly
+          to avoid some warnings when
+          -Wunused-but-set-{variable,parameter} is in effect.  */
+       mark_exp_read (exprv);
+    }
 
   if (!TREE_TYPE (expr))
     return expr;
@@ -859,12 +894,17 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
        tree op1 = TREE_OPERAND (expr,1);
        tree op2 = TREE_OPERAND (expr,2);
        bool side_effects = TREE_SIDE_EFFECTS (op1) || TREE_SIDE_EFFECTS (op2);
-       tree new_op1 = convert_to_void
-         (op1, (implicit && !side_effects
-                ? "second operand of conditional" : NULL), complain);
-       tree new_op2 = convert_to_void
-         (op2, (implicit && !side_effects
-                ? "third operand of conditional" : NULL), complain);
+       tree new_op1, new_op2;
+       if (implicit != ICV_CAST && !side_effects)
+         {
+           new_op1 = convert_to_void (op1, ICV_SECOND_OF_COND, complain);
+           new_op2 = convert_to_void (op2, ICV_THIRD_OF_COND, complain);
+         }
+       else
+         {
+           new_op1 = convert_to_void (op1, ICV_CAST, complain);
+           new_op2 = convert_to_void (op2, ICV_CAST, complain);
+         }
 
        expr = build3 (COND_EXPR, TREE_TYPE (new_op1),
                       TREE_OPERAND (expr, 0), new_op1, new_op2);
@@ -875,9 +915,11 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
       {
        /* The second part of a compound expr contains the value.  */
        tree op1 = TREE_OPERAND (expr,1);
-       tree new_op1 = convert_to_void
-         (op1, (implicit && !TREE_NO_WARNING (expr)
-                ? "right-hand operand of comma" : NULL), complain);
+       tree new_op1;
+       if (implicit != ICV_CAST && !TREE_NO_WARNING (expr))
+         new_op1 = convert_to_void (op1, ICV_RIGHT_OF_COMMA, complain);
+       else
+         new_op1 = convert_to_void (op1, ICV_CAST, complain);
 
        if (new_op1 != op1)
          {
@@ -909,18 +951,133 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
        if (is_volatile && !is_complete)
           {
             if (complain & tf_warning)
-              warning (0, "object of incomplete type %qT will not be accessed in %s",
-                       type, implicit ? implicit : "void context");
+             switch (implicit)
+               {
+                 case ICV_CAST:
+                   warning (0, "conversion to void will not access "
+                               "object of incomplete type %qT", type);
+                   break;
+                 case ICV_SECOND_OF_COND:
+                   warning (0, "indirection will not access object of "
+                               "incomplete type %qT in second operand "
+                               "of conditional expression", type);
+                   break;
+                 case ICV_THIRD_OF_COND:
+                   warning (0, "indirection will not access object of "
+                               "incomplete type %qT in third operand "
+                               "of conditional expression", type);
+                   break;
+                 case ICV_RIGHT_OF_COMMA:
+                   warning (0, "indirection will not access object of "
+                               "incomplete type %qT in right operand of "
+                               "comma operator", type);
+                   break;
+                 case ICV_LEFT_OF_COMMA:
+                   warning (0, "indirection will not access object of "
+                               "incomplete type %qT in left operand of "
+                               "comma operator", type);
+                   break;
+                 case ICV_STATEMENT:
+                   warning (0, "indirection will not access object of "
+                               "incomplete type %qT in statement", type);
+                    break;
+                 case ICV_THIRD_IN_FOR:
+                   warning (0, "indirection will not access object of "
+                               "incomplete type %qT in for increment "
+                               "expression", type);
+                   break;
+                 default:
+                   gcc_unreachable ();
+               }
           }
        /* Don't load the value if this is an implicit dereference, or if
           the type needs to be handled by ctors/dtors.  */
-       else if (is_volatile && (is_reference || TREE_ADDRESSABLE (type)))
+       else if (is_volatile && is_reference)
           {
             if (complain & tf_warning)
-              warning (0, "object of type %qT will not be accessed in %s",
-                       TREE_TYPE (TREE_OPERAND (expr, 0)),
-                       implicit ? implicit : "void context");
+             switch (implicit)
+               {
+                 case ICV_CAST:
+                   warning (0, "conversion to void will not access "
+                               "object of type %qT", type);
+                   break;
+                 case ICV_SECOND_OF_COND:
+                   warning (0, "implicit dereference will not access object "
+                               "of type %qT in second operand of "
+                               "conditional expression", type);
+                   break;
+                 case ICV_THIRD_OF_COND:
+                   warning (0, "implicit dereference will not access object "
+                               "of type %qT in third operand of "
+                               "conditional expression", type);
+                   break;
+                 case ICV_RIGHT_OF_COMMA:
+                   warning (0, "implicit dereference will not access object "
+                               "of type %qT in right operand of "
+                               "comma operator", type);
+                   break;
+                 case ICV_LEFT_OF_COMMA:
+                   warning (0, "implicit dereference will not access object "
+                               "of type %qT in left operand of comma operator",
+                            type);
+                   break;
+                 case ICV_STATEMENT:
+                   warning (0, "implicit dereference will not access object "
+                               "of type %qT in statement",  type);
+                    break;
+                 case ICV_THIRD_IN_FOR:
+                   warning (0, "implicit dereference will not access object "
+                               "of type %qT in for increment expression",
+                            type);
+                   break;
+                 default:
+                   gcc_unreachable ();
+               }
           }
+       else if (is_volatile && TREE_ADDRESSABLE (type))
+         {
+           if (complain & tf_warning)
+             switch (implicit)
+               {
+                 case ICV_CAST:
+                   warning (0, "conversion to void will not access "
+                               "object of non-trivially-copyable type %qT",
+                            type);
+                   break;
+                 case ICV_SECOND_OF_COND:
+                   warning (0, "indirection will not access object of "
+                               "non-trivially-copyable type %qT in second "
+                               "operand of conditional expression", type);
+                   break;
+                 case ICV_THIRD_OF_COND:
+                   warning (0, "indirection will not access object of "
+                               "non-trivially-copyable type %qT in third "
+                               "operand of conditional expression", type);
+                   break;
+                 case ICV_RIGHT_OF_COMMA:
+                   warning (0, "indirection will not access object of "
+                               "non-trivially-copyable type %qT in right "
+                               "operand of comma operator", type);
+                   break;
+                 case ICV_LEFT_OF_COMMA:
+                   warning (0, "indirection will not access object of "
+                               "non-trivially-copyable type %qT in left "
+                               "operand of comma operator", type);
+                   break;
+                 case ICV_STATEMENT:
+                   warning (0, "indirection will not access object of "
+                               "non-trivially-copyable type %qT in statement",
+                             type);
+                    break;
+                 case ICV_THIRD_IN_FOR:
+                   warning (0, "indirection will not access object of "
+                               "non-trivially-copyable type %qT in for "
+                               "increment expression", type);
+                   break;
+                 default:
+                   gcc_unreachable ();
+               }
+         }
        if (is_reference || !is_volatile || !is_complete || TREE_ADDRESSABLE (type))
           {
             /* Emit a warning (if enabled) when the "effect-less" INDIRECT_REF
@@ -930,7 +1087,7 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
                - automatic dereferencing of references, since the user cannot
                  control it. (See also warn_if_unused_value() in stmt.c.)  */
             if (warn_unused_value
-               && implicit
+               && implicit != ICV_CAST
                 && (complain & tf_warning)
                 && !TREE_NO_WARNING (expr)
                 && !is_reference)
@@ -948,8 +1105,45 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
        int is_complete = COMPLETE_TYPE_P (complete_type (type));
 
        if (TYPE_VOLATILE (type) && !is_complete && (complain & tf_warning))
-         warning (0, "object %qE of incomplete type %qT will not be accessed in %s",
-                  expr, type, implicit ? implicit : "void context");
+         switch (implicit)
+           {
+             case ICV_CAST:
+               warning (0, "conversion to void will not access "
+                           "object %qE of incomplete type %qT", expr, type);
+               break;
+             case ICV_SECOND_OF_COND:
+               warning (0, "variable %qE of incomplete type %qT will not "
+                           "be accessed in second operand of "
+                           "conditional expression", expr, type);
+               break;
+             case ICV_THIRD_OF_COND:
+               warning (0, "variable %qE of incomplete type %qT will not "
+                           "be accessed in third operand of "
+                           "conditional expression", expr, type);
+               break;
+             case ICV_RIGHT_OF_COMMA:
+               warning (0, "variable %qE of incomplete type %qT will not "
+                           "be accessed in right operand of comma operator",
+                        expr, type);
+               break;
+             case ICV_LEFT_OF_COMMA:
+               warning (0, "variable %qE of incomplete type %qT will not "
+                           "be accessed in left operand of comma operator",
+                        expr, type);
+               break;
+             case ICV_STATEMENT:
+               warning (0, "variable %qE of incomplete type %qT will not "
+                           "be accessed in statement", expr, type);
+               break;
+             case ICV_THIRD_IN_FOR:
+               warning (0, "variable %qE of incomplete type %qT will not "
+                           "be accessed in for increment expression",
+                        expr, type);
+               break;
+             default:
+               gcc_unreachable ();
+           }
+
        break;
       }
 
@@ -988,18 +1182,81 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
        /* [over.over] enumerates the places where we can take the address
           of an overloaded function, and this is not one of them.  */
        if (complain & tf_error)
-         error ("%s cannot resolve address of overloaded function",
-                implicit ? implicit : "void cast");
+         switch (implicit)
+           {
+             case ICV_CAST:
+               error ("conversion to void "
+                      "cannot resolve address of overloaded function");
+               break;
+             case ICV_SECOND_OF_COND:
+               error ("second operand of conditional expression "
+                      "cannot resolve address of overloaded function");
+               break;
+             case ICV_THIRD_OF_COND:
+               error ("third operand of conditional expression "
+                      "cannot resolve address of overloaded function");
+               break;
+             case ICV_RIGHT_OF_COMMA:
+               error ("right operand of comma operator "
+                      "cannot resolve address of overloaded function");
+               break;
+             case ICV_LEFT_OF_COMMA:
+               error ("left operand of comma operator "
+                      "cannot resolve address of overloaded function");
+               break;
+             case ICV_STATEMENT:
+               error ("statement "
+                      "cannot resolve address of overloaded function");
+               break;
+             case ICV_THIRD_IN_FOR:
+               error ("for increment expression "
+                      "cannot resolve address of overloaded function");
+               break;
+           }
        else
          return error_mark_node;
        expr = void_zero_node;
       }
-    else if (implicit && probe == expr && is_overloaded_fn (probe))
+    else if (implicit != ICV_CAST && probe == expr && is_overloaded_fn (probe))
       {
        /* Only warn when there is no &.  */
        if (complain & tf_warning)
-         warning (OPT_Waddress, "%s is a reference, not call, to function %qE",
-                  implicit, expr);
+         switch (implicit)
+           {
+             case ICV_SECOND_OF_COND:
+               warning (OPT_Waddress,
+                        "second operand of conditional expression "
+                        "is a reference, not call, to function %qE", expr);
+               break;
+             case ICV_THIRD_OF_COND:
+               warning (OPT_Waddress,
+                        "third operand of conditional expression "
+                        "is a reference, not call, to function %qE", expr);
+               break;
+             case ICV_RIGHT_OF_COMMA:
+               warning (OPT_Waddress,
+                        "right operand of comma operator "
+                        "is a reference, not call, to function %qE", expr);
+               break;
+             case ICV_LEFT_OF_COMMA:
+               warning (OPT_Waddress,
+                        "left operand of comma operator "
+                        "is a reference, not call, to function %qE", expr);
+               break;
+             case ICV_STATEMENT:
+               warning (OPT_Waddress,
+                        "statement is a reference, not call, to function %qE",
+                        expr);
+               break;
+             case ICV_THIRD_IN_FOR:
+               warning (OPT_Waddress,
+                        "for increment expression "
+                        "is a reference, not call, to function %qE", expr);
+               break;
+             default:
+               gcc_unreachable ();
+           }
+
        if (TREE_CODE (expr) == COMPONENT_REF)
          expr = TREE_OPERAND (expr, 0);
       }
@@ -1007,7 +1264,7 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
 
   if (expr != error_mark_node && !VOID_TYPE_P (TREE_TYPE (expr)))
     {
-      if (implicit
+      if (implicit != ICV_CAST
          && warn_unused_value
          && !TREE_NO_WARNING (expr)
          && !processing_template_decl)
@@ -1016,7 +1273,35 @@ convert_to_void (tree expr, const char *implicit, tsubst_flags_t complain)
             been explicitly cast to void, so we must do so here.  */
          if (!TREE_SIDE_EFFECTS (expr)) {
             if (complain & tf_warning)
-              warning (OPT_Wunused_value, "%s has no effect", implicit);
+             switch (implicit)
+               {
+                 case ICV_SECOND_OF_COND:
+                   warning (OPT_Wunused_value,
+                            "second operand of conditional expression has no effect");
+                   break;
+                 case ICV_THIRD_OF_COND:
+                   warning (OPT_Wunused_value,
+                            "third operand of conditional expression has no effect");
+                   break;
+                 case ICV_RIGHT_OF_COMMA:
+                   warning (OPT_Wunused_value,
+                            "right operand of comma operator has no effect");
+                   break;
+                 case ICV_LEFT_OF_COMMA:
+                   warning (OPT_Wunused_value,
+                            "left operand of comma operator has no effect");
+                   break;
+                 case ICV_STATEMENT:
+                   warning (OPT_Wunused_value,
+                            "statement has no effect");
+                   break;
+                 case ICV_THIRD_IN_FOR:
+                   warning (OPT_Wunused_value,
+                            "for increment expression has no effect");
+                   break;
+                 default:
+                   gcc_unreachable ();
+               }
           }
          else
            {
@@ -1121,7 +1406,7 @@ convert_force (tree type, tree expr, int convtype)
       && TYPE_PTRMEMFUNC_P (type))
     /* compatible pointer to member functions.  */
     return build_ptrmemfunc (TYPE_PTRMEMFUNC_FN_TYPE (type), e, 1,
-                            /*c_cast_p=*/1);
+                            /*c_cast_p=*/1, tf_warning_or_error);
 
   return ocp_convert (type, e, CONV_C_CAST|convtype, LOOKUP_NORMAL);
 }
@@ -1213,14 +1498,12 @@ build_expr_type_conversion (int desires, tree expr, bool complain)
 
   /* The code for conversions from class type is currently only used for
      delete expressions.  Other expressions are handled by build_new_op.  */
-  if (!complete_type_or_else (basetype, expr))
+  if (!complete_type_or_maybe_complain (basetype, expr, complain))
     return error_mark_node;
   if (!TYPE_HAS_CONVERSION (basetype))
     return NULL_TREE;
 
-  for (conv = lookup_conversions (basetype, /*lookup_template_convs_p=*/true);
-       conv;
-       conv = TREE_CHAIN (conv))
+  for (conv = lookup_conversions (basetype); conv; conv = TREE_CHAIN (conv))
     {
       int win = 0;
       tree candidate;