[fusl] Remove some more tabs

fusl/src/math/tgamma.c

Index: fusl/src/math/tgamma.c
diff --git a/fusl/src/math/tgamma.c b/fusl/src/math/tgamma.c
index feb0616ec674db8028211c684652d0b5ae9b99f6..0a1e47e231e2da2fefdc1d004efb19640e53abb5 100644
--- a/fusl/src/math/tgamma.c
+++ b/fusl/src/math/tgamma.c
@@ -188,54 +188,3 @@ double tgamma(double x) {
   y = r * z * z;
   return y;
 }
-
-#if 0
-double __lgamma_r(double x, int *sign)
-{
-	double r, absx;
-
-	*sign = 1;
-
-	/* special cases */
-	if (!isfinite(x))
-		/* lgamma(nan)=nan, lgamma(+-inf)=inf */
-		return x*x;
-
-	/* integer arguments */
-	if (x == floor(x) && x <= 2) {
-		/* n <= 0: lgamma(n)=inf with divbyzero */
-		/* n == 1,2: lgamma(n)=0 */
-		if (x <= 0)
-			return 1/0.0;
-		return 0;
-	}
-
-	absx = fabs(x);
-
-	/* lgamma(x) ~ -log(|x|) for tiny |x| */
-	if (absx < 0x1p-54) {
-		*sign = 1 - 2*!!signbit(x);
-		return -log(absx);
-	}
-
-	/* use tgamma for smaller |x| */
-	if (absx < 128) {
-		x = tgamma(x);
-		*sign = 1 - 2*!!signbit(x);
-		return log(fabs(x));
-	}
-
-	/* second term (log(S)-g) could be more precise here.. */
-	/* or with stirling: (|x|-0.5)*(log(|x|)-1) + poly(1/|x|) */
-	r = (absx-0.5)*(log(absx+gmhalf)-1) + (log(S(absx)) - (gmhalf+0.5));
-	if (x < 0) {
-		/* reflection formula for negative x */
-		x = sinpi(absx);
-		*sign = 2*!!signbit(x) - 1;
-		r = log(pi/(fabs(x)*absx)) - r;
-	}
-	return r;
-}
-
-weak_alias(__lgamma_r, lgamma_r);
-#endif