* alpha-tdep.c (alpha_gdbarch_init): Set coerce_float_to_double

to standard_coerce_float_to_double.
* config/alpha/tm-alpha.h (COERCE_FLOAT_TO_DOUBLE): Remove.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 4e6b9261e9e1f224867c511d10cdbe954768e3c5..f98f3433bb86abf00696a3980bc2dfbdedfd8610 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-21  Jason Thorpe  <thorpej@wasabisystems.com>
+
+       * alpha-tdep.c (alpha_gdbarch_init): Set coerce_float_to_double
+       to standard_coerce_float_to_double.
+       * config/alpha/tm-alpha.h (COERCE_FLOAT_TO_DOUBLE): Remove.
+
 2002-04-21  Jason Thorpe  <thorpej@wasabisystems.com>
 
        * alpha-tdep.h (gdbarch_tdep): Add vm_min_address member.

diff --git a/gdb/alpha-tdep.c b/gdb/alpha-tdep.c
index dfefa46fde214a0ff8dee67d942091927f1bb8a9..b2454a492cc77e762c4e695a5b3bdf829eb82146 100644 (file)
--- a/gdb/alpha-tdep.c
+++ b/gdb/alpha-tdep.c
@@ -2058,6 +2058,10 @@ alpha_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
 
   set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
 
+  /* Floats are always passed as doubles.  */
+  set_gdbarch_coerce_float_to_double (gdbarch,
+                                      standard_coerce_float_to_double);
+
   set_gdbarch_decr_pc_after_break (gdbarch, 4);
   set_gdbarch_frame_args_skip (gdbarch, 0);
 

diff --git a/gdb/config/alpha/tm-alpha.h b/gdb/config/alpha/tm-alpha.h
index 450b2ec376bb4c67d78fbc7be0f4874140c60c8c..d1806f537c8e6da2a71484c9e77084ec64897d4b 100644 (file)
--- a/gdb/config/alpha/tm-alpha.h
+++ b/gdb/config/alpha/tm-alpha.h
@@ -103,19 +103,6 @@ extern struct frame_info *alpha_setup_arbitrary_frame (int, CORE_ADDR *);
    where the function itself actually starts.  If not, return 0.  */
 #define SKIP_TRAMPOLINE_CODE(pc)  find_solib_trampoline_target (pc)
 
-/* If the current gcc for for this target does not produce correct debugging
-   information for float parameters, both prototyped and unprototyped, then
-   define this macro.  This forces gdb to  always assume that floats are
-   passed as doubles and then converted in the callee.
-
-   For the alpha, it appears that the debug info marks the parameters as
-   floats regardless of whether the function is prototyped, but the actual
-   values are always passed in as doubles.  Thus by setting this to 1, both
-   types of calls will work. */
-
-#define COERCE_FLOAT_TO_DOUBLE(formal, actual) \
-  standard_coerce_float_to_double ((formal), (actual))
-
 /* Return TRUE if procedure descriptor PROC is a procedure descriptor
    that refers to a dynamically generated sigtramp function.