blob: 192461164087a233ba489a6ab3a488ab95aa7b1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
*** gmp-4.2.2.orig/mpf/set_str.c 30 Aug 2007 18:19:41 -0000
--- gmp-4.2.2/mpf/set_str.c 10 Dec 2007 04:47:18 -0000
*************** mpf_set_str (mpf_ptr x, const char *str,
*** 272,277 ****
if (expptr != 0)
! /* FIXME: Should do some error checking here. */
! exp_in_base = strtol (expptr, (char **) 0, exp_base);
else
exp_in_base = 0;
--- 272,298 ----
if (expptr != 0)
! {
! /* 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;
|
