crosstool-ng: patches/gmp/4.2.2/100-mpf_set

scripts: fix dumping execution backtrace

Dumping the backtrace has been broken since changeset #652e56d6d35a:
scripts: execute each steps in a subshell

We can spawn sub-sub-shells in some cases.

The way the fault handler works is to dump the backtrace, but to avoid
printing it once for every sub-shell (which could get quite confusing),
it simply exits when it detects that it is being run in a sub-shell,
leaving to the top-level shell the work to dump the backtrace.

Because each step is executed in its own sub-shell, the variable arrays
that contain the step name, the source file and line number, are lost
when exiting the per-step sub-shell.

Hence, the backtrace is currently limited to printing only the top-level
main procedure of the shell.

Fix this thus:
- when dumping the bckatraces for the steps & the functions, remember
it was dumped, and only dump it if it was not already dumped
- at the top-level shell, print the hints

Also, rename the top-level step label.

Reported-by: Benoît Thébaudeau <benoit.thebaudeau@advansee.com>
Signed-off-by: "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
(transplanted from 4193d6e6a17430a177fa88c287879c2c35e319f3)

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

     2 Re-diffed to match crosstool-NG conventions.

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

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

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

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

     8        }

    10      if (expptr != 0)

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

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

    13 +      {

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

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

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

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

    18 +	dig = digit_value[c];

    19 +	if (dig >= exp_base)

    20 +	  {

    21 +	    TMP_FREE;

    22 +	    return -1;

    23 +	  }

    24 +	exp_in_base = dig;

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

    26 +	dig = digit_value[c];

    27 +	while (dig < exp_base)

    28 +	  {

    29 +	    exp_in_base = exp_in_base * exp_base;

    30 +	    exp_in_base += dig;

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

    32 +	    dig = digit_value[c];

    33 +	  }

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

    35 +      }

    36      else

    37        exp_in_base = 0;

    38      if (dotpos != 0)

author	"Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
	Tue Dec 13 23:32:39 2011 +0100 (2011-12-13)
branch	1.13
changeset 2847	c0bf2319af08
parent 466	7f9bbf94b0bb
permissions	-rw-r--r--