* s390-tdep.c (s390_extract_return_value): Returned `float' values

can simply be copied bitwise from the registers into the value
object's buffer.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1921854fc3186bf223fb4c2b2b6c9cd09a45f31a..5f245cc7aea392a24cfd903493c6ff8922363423 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,9 @@
 2001-11-14  Jim Blandy  <jimb@redhat.com>
 
+       * s390-tdep.c (s390_extract_return_value): Returned `float' values
+       can simply be copied bitwise from the registers into the value
+       object's buffer.
+
        * s390-tdep.c (s390_get_frame_info): Initialize SP's element of
        the frame's saved_regs array correctly.
 

diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c
index 2e78f2abedf2a33960b4edf37b3100215e862d5c..632261ed1f1e5e8024467c0f9aa02d12e7f225ca 100644 (file)
--- a/gdb/s390-tdep.c
+++ b/gdb/s390-tdep.c
@@ -1010,20 +1010,7 @@ s390_extract_return_value (struct type *valtype, char *regbuf, char *valbuf)
   int len = TYPE_LENGTH (valtype);
 
   if (TYPE_CODE (valtype) == TYPE_CODE_FLT)
-    {
-      if (len > (TARGET_FLOAT_BIT >> 3))
-       memcpy (valbuf, &regbuf[REGISTER_BYTE (S390_FP0_REGNUM)], len);
-      else
-       {
-         /* float */
-         DOUBLEST val;
-
-         floatformat_to_doublest (&floatformat_ieee_double_big,
-                                  &regbuf[REGISTER_BYTE (S390_FP0_REGNUM)],
-                                  &val);
-         store_floating (valbuf, len, val);
-       }
-    }
+    memcpy (valbuf, &regbuf[REGISTER_BYTE (S390_FP0_REGNUM)], len);
   else
     {
       int offset = 0;