$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;