2011-01-05 Michael Snyder <msnyder@vmware.com>
[deliverable/binutils-gdb.git] / gdb / valops.c
index c66c41e1243d44bdc1245d714ea1954dd38ae86e..fdbb7022aefa18d90b6f59bcb92bed8c3367cb90 100644 (file)
@@ -122,8 +122,8 @@ show_overload_resolution (struct ui_file *file, int from_tty,
                          struct cmd_list_element *c, 
                          const char *value)
 {
-  fprintf_filtered (file, _("\
-Overload resolution in evaluating C++ functions is %s.\n"),
+  fprintf_filtered (file, _("Overload resolution in evaluating "
+                           "C++ functions is %s.\n"),
                    value);
 }
 
@@ -175,9 +175,12 @@ find_function_in_inferior (const char *name, struct objfile **objf_p)
       else
        {
          if (!target_has_execution)
-           error (_("evaluation of this expression requires the target program to be active"));
+           error (_("evaluation of this expression "
+                    "requires the target program to be active"));
          else
-           error (_("evaluation of this expression requires the program to have a function \"%s\"."), name);
+           error (_("evaluation of this expression requires the "
+                    "program to have a function \"%s\"."),
+                  name);
        }
     }
 }
@@ -199,7 +202,8 @@ value_allocate_space_in_inferior (int len)
   if (value_logical_not (val))
     {
       if (!target_has_execution)
-       error (_("No memory available to program now: you need to start the target first"));
+       error (_("No memory available to program now: "
+                "you need to start the target first"));
       else
        error (_("No memory available to program: call to malloc failed"));
     }
@@ -319,8 +323,8 @@ value_cast_pointers (struct type *type, struct value *arg2)
        v2 = coerce_ref (arg2);
       else
        v2 = value_ind (arg2);
-      gdb_assert (TYPE_CODE (check_typedef (value_type (v2))) == TYPE_CODE_STRUCT
-                 && !!"Why did coercion fail?");
+      gdb_assert (TYPE_CODE (check_typedef (value_type (v2)))
+                 == TYPE_CODE_STRUCT && !!"Why did coercion fail?");
       v2 = value_cast_structs (t1, v2);
       /* At this point we have what we can have, un-dereference if needed.  */
       if (v2)
@@ -406,7 +410,8 @@ value_cast (struct type *type, struct value *arg2)
            low_bound = 0, high_bound = 0;
          new_length = val_length / element_length;
          if (val_length % element_length != 0)
-           warning (_("array element type size does not divide object size in cast"));
+           warning (_("array element type size does not "
+                      "divide object size in cast"));
          /* FIXME-type-allocation: need a way to free this type when
             we are done with it.  */
          range_type = create_range_type ((struct type *) NULL,
@@ -758,7 +763,8 @@ value_dynamic_cast (struct type *type, struct value *arg)
        {
          arg_type = check_typedef (TYPE_TARGET_TYPE (arg_type));
          if (TYPE_CODE (arg_type) != TYPE_CODE_CLASS)
-           error (_("Argument to dynamic_cast does not have pointer to class type"));
+           error (_("Argument to dynamic_cast does "
+                    "not have pointer to class type"));
        }
 
       /* Handle NULL pointers.  */
@@ -1058,8 +1064,9 @@ value_fetch_lazy (struct value *val)
          regnum = VALUE_REGNUM (val);
          gdbarch = get_frame_arch (frame);
 
-         fprintf_unfiltered (gdb_stdlog, "\
-{ value_fetch_lazy (frame=%d,regnum=%d(%s),...) ",
+         fprintf_unfiltered (gdb_stdlog,
+                             "{ value_fetch_lazy "
+                             "(frame=%d,regnum=%d(%s),...) ",
                              frame_relative_level (frame), regnum,
                              user_reg_map_regnum_to_name (gdbarch, regnum));
 
@@ -1180,7 +1187,8 @@ value_assign (struct value *toval, struct value *fromval)
              changed_len = TYPE_LENGTH (type);
 
            if (changed_len > (int) sizeof (LONGEST))
-             error (_("Can't handle bitfields which don't fit in a %d bit word."),
+             error (_("Can't handle bitfields which "
+                      "don't fit in a %d bit word."),
                     (int) sizeof (LONGEST) * HOST_CHAR_BIT);
 
            read_memory (changed_addr, buffer, changed_len);
@@ -1239,7 +1247,8 @@ value_assign (struct value *toval, struct value *fromval)
                  / HOST_CHAR_BIT;
 
                if (changed_len > (int) sizeof (LONGEST))
-                 error (_("Can't handle bitfields which don't fit in a %d bit word."),
+                 error (_("Can't handle bitfields which "
+                          "don't fit in a %d bit word."),
                         (int) sizeof (LONGEST) * HOST_CHAR_BIT);
 
                get_frame_register_bytes (frame, value_reg, offset,
@@ -1479,9 +1488,9 @@ value_must_coerce_to_target (struct value *val)
     }
 }
 
-/* Make sure that VAL lives in target memory if it's supposed to.  For instance,
-   strings are constructed as character arrays in GDB's storage, and this
-   function copies them to the target.  */
+/* Make sure that VAL lives in target memory if it's supposed to.  For
+   instance, strings are constructed as character arrays in GDB's
+   storage, and this function copies them to the target.  */
 
 struct value *
 value_coerce_to_target (struct value *val)
@@ -1838,7 +1847,8 @@ typecmp (int staticp, int varargs, int nargs,
 
       if (TYPE_CODE (tt1) == TYPE_CODE_REF
       /* We should be doing hairy argument matching, as below.  */
-         && (TYPE_CODE (check_typedef (TYPE_TARGET_TYPE (tt1))) == TYPE_CODE (tt2)))
+         && (TYPE_CODE (check_typedef (TYPE_TARGET_TYPE (tt1)))
+             == TYPE_CODE (tt2)))
        {
          if (TYPE_CODE (tt2) == TYPE_CODE_ARRAY)
            t2[i] = value_coerce_array (t2[i]);
@@ -1911,7 +1921,8 @@ search_struct_field (const char *name, struct value *arg1, int offset,
              {
                v = value_static_field (type, i);
                if (v == 0)
-                 error (_("field %s is nonexistent or has been optimized out"),
+                 error (_("field %s is nonexistent or "
+                          "has been optimized out"),
                         name);
              }
            else
@@ -2080,7 +2091,8 @@ search_struct_method (const char *name, struct value **arg1p,
          name_matched = 1;
          check_stub_method_group (type, i);
          if (j > 0 && args == 0)
-           error (_("cannot resolve overloaded method `%s': no arguments supplied"), name);
+           error (_("cannot resolve overloaded method "
+                    "`%s': no arguments supplied"), name);
          else if (j == 0 && args == 0)
            {
              v = value_fn_field (arg1p, f, j, type, offset);
@@ -2202,7 +2214,8 @@ value_struct_elt (struct value **argp, struct value **args,
 
   if (TYPE_CODE (t) != TYPE_CODE_STRUCT
       && TYPE_CODE (t) != TYPE_CODE_UNION)
-    error (_("Attempt to extract a component of a value that is not a %s."), err);
+    error (_("Attempt to extract a component of a value that is not a %s."),
+          err);
 
   /* Assume it's not, unless we see that it is.  */
   if (static_memfuncp)
@@ -2240,7 +2253,8 @@ value_struct_elt (struct value **argp, struct value **args,
   
   if (v == (struct value *) - 1)
     {
-      error (_("One of the arguments you tried to pass to %s could not be converted to what the function wants."), name);
+      error (_("One of the arguments you tried to pass to %s could not "
+              "be converted to what the function wants."), name);
     }
   else if (v == 0)
     {
@@ -2368,7 +2382,8 @@ value_find_oload_method_list (struct value **argp, const char *method,
 
   if (TYPE_CODE (t) != TYPE_CODE_STRUCT
       && TYPE_CODE (t) != TYPE_CODE_UNION)
-    error (_("Attempt to extract a component of a value that is not a struct or union"));
+    error (_("Attempt to extract a component of a "
+            "value that is not a struct or union"));
 
   return find_method_list (argp, method, 0, t, num_fns, 
                           basetype, boffset);
@@ -2524,7 +2539,8 @@ find_overload_match (struct type **arg_types, int nargs,
             the function part.  Do not try this for non-functions (e.g.
             function pointers).  */
           if (qualified_name
-              && TYPE_CODE (check_typedef (SYMBOL_TYPE (fsym))) == TYPE_CODE_FUNC)
+              && TYPE_CODE (check_typedef (SYMBOL_TYPE (fsym)))
+             == TYPE_CODE_FUNC)
             {
              char *temp;
 
@@ -2594,7 +2610,8 @@ find_overload_match (struct type **arg_types, int nargs,
          case 1: /* Incomparable top contenders.  */
            /* This is an error incompatible candidates
               should not have been proposed.  */
-           error (_("Internal error: incompatible overload candidates proposed"));
+           error (_("Internal error: incompatible "
+                    "overload candidates proposed"));
            break;
          case 2: /* Function champion.  */
            method_oload_champ = -1;
@@ -2632,12 +2649,14 @@ find_overload_match (struct type **arg_types, int nargs,
   else if (match_quality == NON_STANDARD)
     {
       if (method == METHOD)
-       warning (_("Using non-standard conversion to match method %s%s%s to supplied arguments"),
+       warning (_("Using non-standard conversion to match "
+                  "method %s%s%s to supplied arguments"),
                 obj_type_name,
                 (obj_type_name && *obj_type_name) ? "::" : "",
                 name);
       else
-       warning (_("Using non-standard conversion to match function %s to supplied arguments"),
+       warning (_("Using non-standard conversion to match "
+                  "function %s to supplied arguments"),
                 func_name);
     }
 
@@ -2917,19 +2936,20 @@ find_oload_champ (struct type **arg_types, int nargs, int method,
        {
          if (method)
            fprintf_filtered (gdb_stderr,
-                             "Overloaded method instance %s, # of parms %d\n", 
+                             "Overloaded method instance %s, # of parms %d\n",
                              fns_ptr[ix].physname, nparms);
          else
            fprintf_filtered (gdb_stderr,
-                             "Overloaded function instance %s # of parms %d\n",
+                             "Overloaded function instance "
+                             "%s # of parms %d\n",
                              SYMBOL_DEMANGLED_NAME (oload_syms[ix]), 
                              nparms);
          for (jj = 0; jj < nargs - static_offset; jj++)
            fprintf_filtered (gdb_stderr,
                              "...Badness @ %d : %d\n", 
                              jj, bv->rank[jj].rank);
-         fprintf_filtered (gdb_stderr,
-                           "Overload resolution champion is %d, ambiguous? %d\n", 
+         fprintf_filtered (gdb_stderr, "Overload resolution "
+                           "champion is %d, ambiguous? %d\n", 
                            oload_champ, oload_ambiguous);
        }
     }
@@ -3137,7 +3157,8 @@ value_struct_elt_for_reference (struct type *domain, int offset,
 
   if (TYPE_CODE (t) != TYPE_CODE_STRUCT
       && TYPE_CODE (t) != TYPE_CODE_UNION)
-    error (_("Internal error: non-aggregate type to value_struct_elt_for_reference"));
+    error (_("Internal error: non-aggregate type "
+            "to value_struct_elt_for_reference"));
 
   for (i = TYPE_NFIELDS (t) - 1; i >= TYPE_N_BASECLASSES (t); i--)
     {
@@ -3205,12 +3226,14 @@ value_struct_elt_for_reference (struct type *domain, int offset,
              for (j = 0; j < len; ++j)
                {
                  if (compare_parameters (TYPE_FN_FIELD_TYPE (f, j), intype, 0)
-                     || compare_parameters (TYPE_FN_FIELD_TYPE (f, j), intype, 1))
+                     || compare_parameters (TYPE_FN_FIELD_TYPE (f, j),
+                                            intype, 1))
                    break;
                }
 
              if (j == len)
-               error (_("no member function matches that type instantiation"));
+               error (_("no member function matches "
+                        "that type instantiation"));
            }
          else
            {
@@ -3231,7 +3254,8 @@ value_struct_elt_for_reference (struct type *domain, int offset,
                  /* Desired method is ambiguous if more than one
                     method is defined.  */
                  if (j != -1)
-                   error (_("non-unique member `%s' requires type instantiation"), name);
+                   error (_("non-unique member `%s' requires "
+                            "type instantiation"), name);
 
                  j = ii;
                }
@@ -3443,7 +3467,8 @@ value_full_object (struct value *argp,
   /* Check if object is in memory */
   if (VALUE_LVAL (argp) != lval_memory)
     {
-      warning (_("Couldn't retrieve complete object of RTTI type %s; object may be in register(s)."), 
+      warning (_("Couldn't retrieve complete object of RTTI "
+                "type %s; object may be in register(s)."), 
               TYPE_NAME (real_type));
 
       return argp;
@@ -3508,7 +3533,7 @@ value_of_local (const char *name, int complain)
   if (sym == NULL)
     {
       if (complain)
-       error (_("current stack frame does not contain a variable named `%s'"), 
+       error (_("current stack frame does not contain a variable named `%s'"),
               name);
       else
        return NULL;
This page took 0.030442 seconds and 4 git commands to generate.