fixed some errors

diff --git a/lang/cem/libcc/math/asin.c b/lang/cem/libcc/math/asin.c
index 6db5cbd..06bc743 100644 (file)
--- a/lang/cem/libcc/math/asin.c
+++ b/lang/cem/libcc/math/asin.c
@@ -45,25 +45,25 @@ asin_acos(x, cosfl)
                        errno = EDOM;
                        return 0;
                }
-               g = 0.5 - 0.5 * y;
-               y = - sqrt(g);
-               y += y;
+               g = 0.5 - 0.5 * x;
+               x = - sqrt(g);
+               x += x;
        }
        else {
                /* ??? avoid underflow ??? */
-               g = y * y;
+               g = x * x;
        }
-       y += y * g * POLYNOM4(g, x) / POLYNOM5(g, y);
+       x += x * g * POLYNOM4(g, p) / POLYNOM5(g, q);
        if (i == 1) {
                if (cosfl == 0 || ! negative) {
-                       y = (y + M_PI_4) + M_PI_4;
+                       x = (x + M_PI_4) + M_PI_4;
                }
                else if (cosfl && negative) {
-                       y = (y + M_PI_2) + M_PI_2;
+                       x = (x + M_PI_2) + M_PI_2;
                }
        }
-       if (! cosfl && negative) y = -y;
-       return y;
+       if (! cosfl && negative) x = -x;
+       return x;
 }
 
 double

diff --git a/lang/cem/libcc/math/tan.c b/lang/cem/libcc/math/tan.c
index 36ea0dc..a18103d 100644 (file)
--- a/lang/cem/libcc/math/tan.c
+++ b/lang/cem/libcc/math/tan.c
@@ -68,6 +68,6 @@ tan(x)
        y = x * x;
        x += x * y * POLYNOM2(y, p+1);
        y = POLYNOM4(y, q);
-       if (neg) x = -x;
+       if (negative) x = -x;
        return invert ? -y/x : x/y;
 }