Original patch from http://gmplib.org/patches/mpf_set_str.c.diff

Re-diffed to match crosstool-NG conventions.

diff -dur gmp-4.2.2.orig/mpf/set_str.c gmp-4.2.2/mpf/set_str.c

--- gmp-4.2.2.orig/mpf/set_str.c	2007-08-30 20:31:40.000000000 +0200

+++ gmp-4.2.2/mpf/set_str.c	2008-01-28 23:05:29.000000000 +0100

@@ -271,8 +271,29 @@

       }

     if (expptr != 0)

-      /* FIXME: Should do some error checking here.  */

-      exp_in_base = strtol (expptr, (char **) 0, exp_base);

+      {

+	/* Scan and convert the exponent, in base exp_base.  */

+	long dig, neg = -(long) ('-' == expptr[0]);

+	expptr -= neg;			/* conditional increment */

+	c = (unsigned char) *expptr++;

+	dig = digit_value[c];

+	if (dig >= exp_base)

+	  {

+	    TMP_FREE;

+	    return -1;

+	  }

+	exp_in_base = dig;

+	c = (unsigned char) *expptr++;

+	dig = digit_value[c];

+	while (dig < exp_base)

+	  {

+	    exp_in_base = exp_in_base * exp_base;

+	    exp_in_base += dig;

+	    c = (unsigned char) *expptr++;

+	    dig = digit_value[c];

+	  }

+	exp_in_base = (exp_in_base ^ neg) - neg; /* conditional negation */

+      }

     else

       exp_in_base = 0;

     if (dotpos != 0)