Libc-391.5.22.tar.gz

[apple/libc.git] / gdtoa / FreeBSD / gdtoa-strtof.c

diff --git a/gdtoa/FreeBSD/gdtoa-strtof.c b/gdtoa/FreeBSD/gdtoa-strtof.c
index bb283ae03d6d953f3637fbfceba6a6fa6b82de73..21bc6c15bfe797067779fcc27a6a9ae82be72e32 100644 (file)
--- a/gdtoa/FreeBSD/gdtoa-strtof.c
+++ b/gdtoa/FreeBSD/gdtoa-strtof.c
@@ -26,14 +26,8 @@ THIS SOFTWARE.
 
 ****************************************************************/
 
-/* Please send bug reports to
-       David M. Gay
-       Bell Laboratories, Room 2C-463
-       600 Mountain Avenue
-       Murray Hill, NJ 07974-0636
-       U.S.A.
-       dmg@bell-labs.com
- */
+/* Please send bug reports to David M. Gay (dmg at acm dot org,
+ * with " at " changed at "@" and " dot " changed to ".").     */
 
 #include "gdtoaimp.h"
 
@@ -44,11 +38,7 @@ strtof(s, sp) CONST char *s; char **sp;
 strtof(CONST char *s, char **sp)
 #endif
 {
-#ifdef Sudden_Underflow
-       static FPI fpi = { 24, 1-127-24+1,  254-127-24+1, 1, 1 };
-#else
-       static FPI fpi = { 24, 1-127-24+1,  254-127-24+1, 1, 0 };
-#endif
+       static FPI fpi = { 24, 1-127-24+1,  254-127-24+1, 1, SI };
        ULong bits[1];
        Long exp;
        int k;
@@ -75,7 +65,7 @@ strtof(CONST char *s, char **sp)
                break;
 
          case STRTOG_NaN:
-               u.L[0] = 0x7fffffff;
+               u.L[0] = f_QNAN;
          }
        if (k & STRTOG_Neg)
                u.L[0] |= 0x80000000L;