* valops.c (value_one): Reimplement broken decimal-float case.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fff6bba1b3890a1a654cdacd3ff8d109b7ab00d1..95d41e5b47a84c04bb17d3d234b919b2595fd790 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-23  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * valops.c (value_one): Reimplement broken decimal-float case.
+
 2009-06-23  Ulrich Weigand  <uweigand@de.ibm.com>
 
        * eval.c (evaluate_subexp_standard): Use expression architecture

diff --git a/gdb/valops.c b/gdb/valops.c
index 05585c997af25c5048d045181a3699064beca34f..1d193939aad5236c67b1d2c1ddad5c173b066e97 100644 (file)
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -537,15 +537,12 @@ struct value *
 value_one (struct type *type, enum lval_type lv)
 {
   struct type *type1 = check_typedef (type);
-  struct value *val = NULL; /* avoid -Wall warning */
+  struct value *val;
 
   if (TYPE_CODE (type1) == TYPE_CODE_DECFLOAT)
     {
-      struct value *int_one = value_from_longest (builtin_type_int32, 1);
-      struct value *val;
       gdb_byte v[16];
-
-      decimal_from_integral (int_one, v, TYPE_LENGTH (builtin_type_int32));
+      decimal_from_string (v, TYPE_LENGTH (type), "1");
       val = value_from_decfloat (type, v);
     }
   else if (TYPE_CODE (type1) == TYPE_CODE_FLT)