* alpha-tdep.c (alpha_extract_return_value): Handle IEEE Quad floats.

        (alpha_store_return_value): Error on IEEE Quad floats.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a12fee0271c6d5417360bc611219bd2809c9a026..2460477268d403b8c81f939fe5625586668c529c 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-02  Richard Henderson  <rth@redhat.com>
 
+        * alpha-tdep.c (alpha_extract_return_value): Handle IEEE Quad floats.
+        (alpha_store_return_value): Error on IEEE Quad floats.
+
         * alpha-tdep.c (alpha_extract_return_value): Convert to regcache.
         (alpha_extract_struct_value_address): Likewise.
         (alpha_store_return_value): Likewise.

diff --git a/gdb/alpha-tdep.c b/gdb/alpha-tdep.c
index c45e6590a6dea965cd151a11891c28250a051ac0..e97ff30b524f47c8f30fecca94a059adce57c76e 100644 (file)
--- a/gdb/alpha-tdep.c
+++ b/gdb/alpha-tdep.c
@@ -401,6 +401,11 @@ alpha_extract_return_value (struct type *valtype, struct regcache *regcache,
          regcache_cooked_read (regcache, ALPHA_FP0_REGNUM, valbuf);
          break;
 
+       case 16:
+         regcache_cooked_read_unsigned (regcache, ALPHA_V0_REGNUM, &l);
+         read_memory (l, valbuf, 16);
+         break;
+
        default:
          abort ();
        }
@@ -450,6 +455,12 @@ alpha_store_return_value (struct type *valtype, struct regcache *regcache,
          regcache_cooked_write (regcache, ALPHA_FP0_REGNUM, valbuf);
          break;
 
+       case 16:
+         /* FIXME: 128-bit long doubles are returned like structures:
+            by writing into indirect storage provided by the caller
+            as the first argument.  */
+         error ("Cannot set a 128-bit long double return value.");
+
        default:
          abort ();
        }