From e431cec90a19d6da1c33c675678b42f5f37c478c Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 18 May 1989 16:48:28 +0000
Subject: [PATCH] fixed some errors

---
 lang/cem/libcc/math/asin.c | 18 +++++++++---------
 lang/cem/libcc/math/tan.c  |  2 +-
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lang/cem/libcc/math/asin.c b/lang/cem/libcc/math/asin.c
index 6db5cbd9f..06bc743fb 100644
--- 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 36ea0dc1d..a18103d07 100644
--- 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;
 }
-- 
2.34.1