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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
$NetBSD: patch-aa,v 1.2 2011/04/17 07:46:05 asau Exp $
--- Numeric.c.orig 1999-02-09 08:05:13.000000000 +0300
+++ Numeric.c 2011-03-30 20:17:55.000000000 +0400
@@ -591,7 +591,7 @@
return len;
}
-static bigdig qdiv (bigdig *a, bigreg b, bigdig *c, bigreg *r, int la)
+static bigdig qdiv__ (bigdig *a, bigreg b, bigdig *c, bigreg *r, int la)
{
int i;
bigreg d;
@@ -1212,11 +1212,11 @@
(void) normalize (d, &ld, 0);
} else if (gcd [0] != 1) {
PROVIDE_BIGNUM (tmp_n, ln);
- if (qdiv (n, gcd [0], tmp_n_dig, &r, ln) == 0)
+ if (qdiv__ (n, gcd [0], tmp_n_dig, &r, ln) == 0)
--ln;
n = tmp_n_dig;
PROVIDE_BIGNUM (tmp_d, ld);
- if (qdiv (d, gcd [0], tmp_d_dig, &r, ld) == 0)
+ if (qdiv__ (d, gcd [0], tmp_d_dig, &r, ld) == 0)
--ld;
d = tmp_d_dig;
} else {
@@ -1939,7 +1939,7 @@
PROVIDE_BIGNUM (tmp1, a->nlength);
PROVIDE_BIGNUM (tmp2, 1);
l1 = a->nlength;
- qdiv (a->dig, a->dig [a->nlength], tmp1_dig, &rr, a->nlength);
+ qdiv__ (a->dig, a->dig [a->nlength], tmp1_dig, &rr, a->nlength);
tmp2_dig [0] = rr;
(void) normalize (tmp1_dig, &l1, 0);
r = tmp2_dig;
@@ -2407,7 +2407,7 @@
bigdig_copy (a, tmp1_dig, la);
s = strg;
while (la > 1 || tmp1_dig [0] > 0) {
- if (qdiv (tmp1_dig, 10000, tmp1_dig, &r, la) == 0)
+ if (qdiv__ (tmp1_dig, 10000, tmp1_dig, &r, la) == 0)
--la;
sprintf (buf, "%04u", (unsigned) r);
for (i = 3; i >= 0; i--)
@@ -3312,7 +3312,7 @@
PROVIDE_BIGNUM (tmp1, lq);
qq = tmp1_dig;
}
- if (qdiv (a->dig, bb, qq, &rr, lq) == 0)
+ if (qdiv__ (a->dig, bb, qq, &rr, lq) == 0)
--lq;
if (r != NULL)
*r = ScmLongToNumber (a->sign ? - (long) rr : rr);
|