From: Jim Blandy <jimb@codesourcery.com>
Date: Tue, 13 Nov 2001 17:26:46 +0000 (+0000)
Subject: * s390-tdep.c (s390_gdbarch_init): Register the function
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0adb2abaa621ef0ef840d2a5605e3fb76dc1770c;p=binutils-gdb.git

* s390-tdep.c (s390_gdbarch_init): Register the function
`standard_coerce_float_to_double', since GCC for the S/390 follows
the standard rules for passing floats.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d5c14c777e8..5e7641cc067 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,9 @@
 2001-11-13  Jim Blandy  <jimb@redhat.com>
 
+	* s390-tdep.c (s390_gdbarch_init): Register the function
+	`standard_coerce_float_to_double', since GCC for the S/390 follows
+	the standard rules for passing floats.
+
 	* valops.c (default_coerce_float_to_double,
 	standard_coerce_float_to_double): Doc fixes.
 
diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c
index 5f34b395b7c..e682880c97b 100644
--- a/gdb/s390-tdep.c
+++ b/gdb/s390-tdep.c
@@ -1454,6 +1454,8 @@ s390_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   set_gdbarch_sizeof_call_dummy_words (gdbarch,
                                        sizeof (s390_call_dummy_words));
   set_gdbarch_call_dummy_words (gdbarch, s390_call_dummy_words);
+  set_gdbarch_coerce_float_to_double (gdbarch,
+                                      standard_coerce_float_to_double);
 
   switch (info.bfd_arch_info->mach)
     {