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.1.1.1 2000/11/02 11:01:53 itojun Exp $
--- Numeric.c- Thu Nov 2 19:38:25 2000
+++ Numeric.c Thu Nov 2 19:38:38 2000
@@ -504,7 +504,7 @@
}
static bigdig
- qdiv (bigdig *a, bigreg b, bigdig *c, bigreg *r, int la)
+ qdiv__ (bigdig *a, bigreg b, bigdig *c, bigreg *r, int la)
{
int i;
bigreg d;
@@ -937,11 +937,11 @@
(void) normalize (d, &ld, 0);
} else if (gcd [0] != 1) {
tmp_n = provide_bignum (tmp_n, &tmp_ln, ln);
- if (qdiv (n, gcd [0], tmp_n, &r, ln) == 0)
+ if (qdiv__ (n, gcd [0], tmp_n, &r, ln) == 0)
--ln;
n = tmp_n;
tmp_d = provide_bignum (tmp_d, &tmp_ld, ld);
- if (qdiv (d, gcd [0], tmp_d, &r, ld) == 0)
+ if (qdiv__ (d, gcd [0], tmp_d, &r, ld) == 0)
--ld;
d = tmp_d;
} else {
@@ -1428,7 +1428,7 @@
tmp1_dig = provide_bignum (tmp1_dig, &tmp1_len, a->nlength);
tmp2_dig = provide_bignum (tmp2_dig, &tmp2_len, 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;
@@ -1899,7 +1899,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--)
@@ -2729,7 +2729,7 @@
qq = ((ScmFixnum *) gcs3)->dig;
} else
qq = tmp1_dig = provide_bignum (tmp1_dig, &tmp1_len, lq);
- if (qdiv (a->dig, b->dig [0], qq, &rr, lq) == 0)
+ if (qdiv__ (a->dig, b->dig [0], qq, &rr, lq) == 0)
--lq;
if (r != NULL) {
int sign = a->sign;
|
