about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--stdlib/strtol.c93
1 files changed, 60 insertions, 33 deletions
diff --git a/stdlib/strtol.c b/stdlib/strtol.c
index a6c19578a2..8c5bbc22be 100644
--- a/stdlib/strtol.c
+++ b/stdlib/strtol.c
@@ -17,55 +17,77 @@ License along with the GNU C Library; see the file COPYING.LIB.  If
 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
 Cambridge, MA 02139, USA.  */
 
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
 #include <ctype.h>
-#include <limits.h>
-#include <stddef.h>
-#include <stdlib.h>
 #include <errno.h>
-#include "../locale/localeinfo.h"
+#include <limits.h>
 
+#ifdef STDC_HEADERS
+# include <stddef.h>
+# include <stdlib.h>
+#else
+# ifndef NULL
+#  define NULL 0
+# endif
+#endif
+
+#ifdef _LIBC
+# define USE_NUMBER_GROUPING
+#endif
+
+#ifdef USE_NUMBER_GROUPING
+# include "../locale/localeinfo.h"
+#endif
 
 /* Nonzero if we are defining `strtoul' or `strtouq', operating on
    unsigned integers.  */
 #ifndef UNSIGNED
-#define	UNSIGNED	0
-#define INT		LONG int
+# define UNSIGNED 0
+# define INT LONG int
 #else
-#define	strtol		strtoul
-#define INT		unsigned LONG int
+# define strtol strtoul
+# define INT unsigned LONG int
 #endif
 
 /* If QUAD is defined, we are defining `strtoq' or `strtouq',
    operating on `long long int's.  */
 #ifdef QUAD
-#if UNSIGNED
-#define strtoul		strtouq
+# if UNSIGNED
+#  define strtoul strtouq
+# else
+#  define strtol strtoq
+# endif
+# define LONG long long
+# undef LONG_MIN
+# define LONG_MIN LONG_LONG_MIN
+# undef LONG_MAX
+# define LONG_MAX LONG_LONG_MAX
+# undef ULONG_MAX
+# define ULONG_MAX ULONG_LONG_MAX
+# if __GNUC__ == 2 && __GNUC_MINOR__ < 7
+   /* Work around gcc bug with using this constant.  */
+   static const unsigned long long int maxquad = ULONG_LONG_MAX;
+#  undef ULONG_MAX
+#  define ULONG_MAX maxquad
+# endif
 #else
-#define strtol		strtoq
-#endif
-#define	LONG		long long
-#undef	LONG_MIN
-#define	LONG_MIN	LONG_LONG_MIN
-#undef	LONG_MAX
-#define LONG_MAX	LONG_LONG_MAX
-#undef	ULONG_MAX
-#define ULONG_MAX	ULONG_LONG_MAX
-#if __GNUC__ == 2 && __GNUC_MINOR__ < 7
-/* Work around gcc bug with using this constant.  */
-static const unsigned long long int maxquad = ULONG_LONG_MAX;
-#undef	ULONG_MAX
-#define ULONG_MAX	maxquad
+# define LONG long
 #endif
+
+#ifdef __STDC__
+# define INTERNAL(x) INTERNAL1(x)
+# define INTERNAL1(x) __##x##_internal
 #else
-#define	LONG	long
+# define INTERNAL(x) __/**/x/**/_internal
 #endif
 
-
-#define INTERNAL(x) INTERNAL1(x)
-#define INTERNAL1(x) __##x##_internal
-
+#ifdef USE_NUMBER_GROUPING
 /* This file defines a function to check for correct grouping.  */
-#include "grouping.h"
+# include "grouping.h"
+#endif
 
 
 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
@@ -91,6 +113,7 @@ INTERNAL (strtol) (nptr, endptr, base, group)
   const char *save, *end;
   int overflow;
 
+#ifdef USE_NUMBER_GROUPING
   /* The thousands character of the current locale.  */
   wchar_t thousands;
   /* The numeric grouping specification of the current locale,
@@ -114,7 +137,7 @@ INTERNAL (strtol) (nptr, endptr, base, group)
     }
   else
     grouping = NULL;
-
+#endif
 
   if (base < 0 || base == 1 || base > 36)
     base = 10;
@@ -162,6 +185,7 @@ INTERNAL (strtol) (nptr, endptr, base, group)
   /* Save the pointer so we can check later if anything happened.  */
   save = s;
 
+#ifdef USE_NUMBER_GROUPING
   if (group)
     {
       /* Find the end of the digit string and check its grouping.  */
@@ -176,6 +200,7 @@ INTERNAL (strtol) (nptr, endptr, base, group)
 	end = correctly_grouped_prefix (s, end, thousands, grouping);
     }
   else
+#endif
     end = NULL;
 
   cutoff = ULONG_MAX / (unsigned LONG int) base;
@@ -214,7 +239,7 @@ INTERNAL (strtol) (nptr, endptr, base, group)
   if (endptr != NULL)
     *endptr = (char *) s;
 
-#if	!UNSIGNED
+#if !UNSIGNED
   /* Check for a value that is within the range of
      `unsigned LONG int', but outside the range of `LONG int'.  */
   if (i > (negative ?
@@ -225,7 +250,7 @@ INTERNAL (strtol) (nptr, endptr, base, group)
   if (overflow)
     {
       errno = ERANGE;
-#if	UNSIGNED
+#if UNSIGNED
       return ULONG_MAX;
 #else
       return negative ? LONG_MIN : LONG_MAX;
@@ -244,7 +269,9 @@ noconv:
 
 /* External user entry point.  */
 
+#ifdef weak_symbol
 weak_symbol (strtol)
+#endif
 
 INT
 strtol (nptr, endptr, base)