patches/gmp/4.2.4/110-mpf_set_str.patch
author "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
Sun Mar 08 18:04:56 2009 +0000 (2009-03-08)
changeset 1250 7aca73e68147
permissions -rw-r--r--
Add patchset for MGP-4.2.4, from upstream.

/trunk/patches/gmp/4.2.4/120-perfpow.patch | 149 149 0 0 ++++++++++++++++++++++
/trunk/patches/gmp/4.2.4/110-mpf_set_str.patch | 32 32 0 0 +++++
/trunk/patches/gmp/4.2.4/100-mpf_eq.patch | 219 219 0 0 ++++++++++++++++++++++++++++++++
3 files changed, 400 insertions(+)
yann@1250
     1
Original patch from: mpf_set_str.c.4.diff
yann@1250
     2
yann@1250
     3
-= BEGIN original header =-
yann@1250
     4
-= END original header =-
yann@1250
     5
yann@1250
     6
diff -durN gmp-4.2.4.orig/mpf/set_str.c gmp-4.2.4/mpf/set_str.c
yann@1250
     7
--- gmp-4.2.4.orig/mpf/set_str.c	2008-08-25 16:11:37.000000000 +0200
yann@1250
     8
+++ gmp-4.2.4/mpf/set_str.c	2009-03-08 18:36:16.000000000 +0100
yann@1250
     9
@@ -137,7 +137,12 @@
yann@1250
    10
       c = (unsigned char) *++str;
yann@1250
    11
     }
yann@1250
    12
 
yann@1250
    13
+  /* Default base to decimal.  */
yann@1250
    14
+  if (base == 0)
yann@1250
    15
+    base = 10;
yann@1250
    16
+
yann@1250
    17
   exp_base = base;
yann@1250
    18
+
yann@1250
    19
   if (base < 0)
yann@1250
    20
     {
yann@1250
    21
       exp_base = 10;
yann@1250
    22
@@ -165,10 +170,6 @@
yann@1250
    23
 	return -1;
yann@1250
    24
     }
yann@1250
    25
 
yann@1250
    26
-  /* Default base to decimal.  */
yann@1250
    27
-  if (base == 0)
yann@1250
    28
-    base = 10;
yann@1250
    29
-
yann@1250
    30
   /* Locate exponent part of the input.  Look from the right of the string,
yann@1250
    31
      since the exponent is usually a lot shorter than the mantissa.  */
yann@1250
    32
   expptr = NULL;