Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / ada / gcc-interface / targtyps.c

diff --git a/gcc/ada/gcc-interface/targtyps.c b/gcc/ada/gcc-interface/targtyps.c
index 78df4dd..cfc45e7 100644 (file)
--- a/gcc/ada/gcc-interface/targtyps.c
+++ b/gcc/ada/gcc-interface/targtyps.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                                  Body                                    *
  *                                                                          *
- *          Copyright (C) 1992-2011, Free Software Foundation, Inc.         *
+ *          Copyright (C) 1992-2012, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
@@ -54,8 +54,13 @@
 #define ADA_LONG_TYPE_SIZE LONG_TYPE_SIZE
 #endif
 
+/* If we don't have a target definition of WIDEST_HARDWARE_FP_SIZE, assume
+   DOUBLE_TYPE_SIZE.  We used to default to LONG_DOUBLE_TYPE_SIZE, which now
+   most often maps 128 bits implemented with very inefficient software
+   emulations so is incorrect as a hardware size estimate.  */
+
 #ifndef WIDEST_HARDWARE_FP_SIZE
-#define WIDEST_HARDWARE_FP_SIZE LONG_DOUBLE_TYPE_SIZE
+#define WIDEST_HARDWARE_FP_SIZE DOUBLE_TYPE_SIZE
 #endif
 
 /* The following provide a functional interface for the front end Ada code