yann@1250: Original patch from: mpf_set_str.c.4.diff
yann@1250: 
yann@1250: -= BEGIN original header =-
yann@1250: -= END original header =-
yann@1250: 
yann@1250: diff -durN gmp-4.2.4.orig/mpf/set_str.c gmp-4.2.4/mpf/set_str.c
yann@1250: --- gmp-4.2.4.orig/mpf/set_str.c	2008-08-25 16:11:37.000000000 +0200
yann@1250: +++ gmp-4.2.4/mpf/set_str.c	2009-03-08 18:36:16.000000000 +0100
yann@1250: @@ -137,7 +137,12 @@
yann@1250:        c = (unsigned char) *++str;
yann@1250:      }
yann@1250:  
yann@1250: +  /* Default base to decimal.  */
yann@1250: +  if (base == 0)
yann@1250: +    base = 10;
yann@1250: +
yann@1250:    exp_base = base;
yann@1250: +
yann@1250:    if (base < 0)
yann@1250:      {
yann@1250:        exp_base = 10;
yann@1250: @@ -165,10 +170,6 @@
yann@1250:  	return -1;
yann@1250:      }
yann@1250:  
yann@1250: -  /* Default base to decimal.  */
yann@1250: -  if (base == 0)
yann@1250: -    base = 10;
yann@1250: -
yann@1250:    /* Locate exponent part of the input.  Look from the right of the string,
yann@1250:       since the exponent is usually a lot shorter than the mantissa.  */
yann@1250:    expptr = NULL;