Fall back on double functions if __NO_LONG_DOUBLE_MATH.
authordrepper <drepper>
Mon, 28 Dec 1998 14:25:17 +0000 (14:25 +0000)
committerdrepper <drepper>
Mon, 28 Dec 1998 14:25:17 +0000 (14:25 +0000)
stdlib/strtold.c
stdlib/strtold_l.c
wcsmbs/wcstold.c
wcsmbs/wcstold_l.c

index 32e7e90..c808efc 100644 (file)
@@ -1,16 +1,19 @@
+#include <math.h>
+
+#ifndef __NO_LONG_DOUBLE_MATH
 /* The actual implementation for all floating point sizes is in strtod.c.
    These macros tell it to produce the `long double' version, `strtold'.  */
 
-#define        FLOAT           long double
-#define        FLT             LDBL
-#ifdef USE_IN_EXTENDED_LOCALE_MODEL
-# define STRTOF                __strtold_l
-#else
-# define STRTOF                strtold
-#endif
-#define        MPN2FLOAT       __mpn_construct_long_double
-#define        FLOAT_HUGE_VAL  HUGE_VALL
-#define SET_MANTISSA(flt, mant) \
+# define FLOAT         long double
+# define FLT           LDBL
+# ifdef USE_IN_EXTENDED_LOCALE_MODEL
+#  define STRTOF       __strtold_l
+# else
+#  define STRTOF       strtold
+# endif
+# define MPN2FLOAT     __mpn_construct_long_double
+# define FLOAT_HUGE_VAL        HUGE_VALL
+# define SET_MANTISSA(flt, mant) \
   do { union ieee854_long_double u;                                          \
        u.d = (flt);                                                          \
        if ((mant & 0x7fffffffffffffffULL) == 0)                                      \
        (flt) = u.d;                                                          \
   } while (0)
 
-#include "strtod.c"
+# include "strtod.c"
+#else
+/* There is no `long double' type, use the `double' implementations.  */
+long double
+__strtold_internal (const char *nptr, char **endptr, int group)
+{
+  return __strtod_internal (nptr, endptr, group);
+}
+
+long double
+strtold (const char *nptr, char **endptr)
+{
+  return __strtod_internal (nptr, endptr, 0);
+}
+#endif
index 2a1f1f5..3a48c62 100644 (file)
    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.  */
 
-#define USE_IN_EXTENDED_LOCALE_MODEL   1
+#include <math.h>
+
+#ifndef __NO_LONG_DOUBLE_MATH
 
 #include <xlocale.h>
+#define USE_IN_EXTENDED_LOCALE_MODEL   1
 
 extern long double ____strtold_l_internal (const char *, char **, int,
                                           __locale_t);
 extern unsigned long long int ____strtoull_l_internal (const char *, char **,
                                                       int, int, __locale_t);
 
-#include <strtold.c>
+# include <strtold.c>
+
+#else
+/* There is no `long double' type, use the `double' implementations.  */
+long double
+____strtold_l_internal (const char *nptr, char **endptr, int group,
+                       __locale_t loc)
+{
+  return ____strtod_l_internal (nptr, endptr, group, loc);
+}
+
+long double
+__strtold_l (const char *nptr, char **endptr, __locale_t loc)
+{
+  return __strtod_internal (nptr, endptr, 0, loc);
+}
+#endif
index fc8c010..89e8de8 100644 (file)
@@ -1,4 +1,4 @@
-/* Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+/* Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1996.
 
    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.  */
 
+#include <math.h>
 
+#ifndef __NO_LONG_DOUBLE_MATH
 /* The actual implementation for all floating point sizes is in strtod.c.
    These macros tell it to produce the `long double' version, `wcstold'.  */
 
-#define        FLOAT           long double
-#define        FLT             LDBL
-#ifdef USE_IN_EXTENDED_LOCALE_MODEL
-# define STRTOF                __wcstold_l
-#else
-# define STRTOF                wcstold
-#endif
-#define        MPN2FLOAT       __mpn_construct_long_double
-#define        FLOAT_HUGE_VAL  HUGE_VALL
-#define        USE_WIDE_CHAR   1
-#define SET_MANTISSA(flt, mant) \
+# define FLOAT         long double
+# define FLT           LDBL
+# ifdef USE_IN_EXTENDED_LOCALE_MODEL
+#  define STRTOF       __wcstold_l
+# else
+#  define STRTOF       wcstold
+# endif
+# define MPN2FLOAT     __mpn_construct_long_double
+# define FLOAT_HUGE_VAL        HUGE_VALL
+# define USE_WIDE_CHAR 1
+# define SET_MANTISSA(flt, mant) \
   do { union ieee854_long_double u;                                          \
        u.d = (flt);                                                          \
        if ((mant & 0x7fffffffffffffffULL) == 0)                                      \
        (flt) = u.d;                                                          \
   } while (0)
 
-#include <stdlib/strtod.c>
+# include <stdlib/strtod.c>
+#else
+/* There is no `long double' type, use the `double' implementations.  */
+long double
+__wcstold_internal (const wchar_t *nptr, wchar_t **endptr, int group)
+{
+  return __wcstod_internal (nptr, endptr, group);
+}
+
+long double
+wcstold (const wchar_t *nptr, wchar_t **endptr)
+{
+  return __wcstod_internal (nptr, endptr, 0);
+}
+#endif
index f92ec78..8f62725 100644 (file)
    Boston, MA 02111-1307, USA.  */
 
 #define __need_wchar_t
+#include <math.h>
 #include <stddef.h>
 #include <locale.h>
 
-#define USE_IN_EXTENDED_LOCALE_MODEL   1
+#ifndef __NO_LONG_DOUBLE_MATH
+
+# define USE_IN_EXTENDED_LOCALE_MODEL  1
 
 extern long double ____wcstold_l_internal (const wchar_t *, wchar_t **, int,
                                           __locale_t);
@@ -30,4 +33,19 @@ extern unsigned long long int ____wcstoull_l_internal (const wchar_t *,
                                                       wchar_t **, int, int,
                                                       __locale_t);
 
-#include <wcstold.c>
+# include <wcstold.c>
+#else
+/* There is no `long double' type, use the `double' implementations.  */
+long double
+____wcstold_l_internal (const wchar_t *nptr, wchar_t **endptr, int group,
+                       __locale_t loc)
+{
+  return ____wcstod_l_internal (nptr, endptr, group, loc);
+}
+
+long double
+__wcstold_l (const wchar_t *nptr, wchar_t **endptr, __locale_t loc)
+{
+  return __wcstod_internal (nptr, endptr, 0, loc);
+}
+#endif