patches/gmp/4.2.4/110-mpf_set_str.patch
author Anthony Foiani <anthony.foiani@gmail.com>
Thu May 19 23:06:16 2011 +0200 (2011-05-19)
changeset 2461 ec30b191f0e3
permissions -rw-r--r--
complibs/ppl: build only C and C++ interfaces for PPL

By default, PPL wants to build interfaces for any of a variety of
langauges it finds on the local host (python, java, possibly perl, also
more esoteric languages such as ocaml and prolog).

These extra interfaces can double the compile time for the library. For
single-process builds, I found a savings of more than 40%:

default / j1: 716s total, 143.2s avg, 0.52s stdev
just_c / j1: 406s total, 81.2s avg, 0.33s stdev
just_c_cpp / j1: 413s total, 82.6s avg, 0.22s stdev

And for multi-process builds, it approached 50%:

default / j4: 625s total, 125.0s avg, 0.57s stdev
just_c / j4: 338s total, 67.6s avg, 1.25s stdev
just_c_cpp / j4: 327s total, 65.4s avg, 0.36s stdev

Since the PPL we build within ct-ng is only used by GCC, we only need to
build the C and C++ interfaces.

Signed-Off-By: Anthony Foiani <anthony.foiani@gmail.com>
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;