microblaze: Remove duplicate F_{S,G}ETPIPE_SZ

[uclinux-h8/uClibc.git] / libm / s_tanh.c

diff --git a/libm/s_tanh.c b/libm/s_tanh.c
index edadbfe..89ee271 100644 (file)
--- a/libm/s_tanh.c
+++ b/libm/s_tanh.c
@@ -1,4 +1,3 @@
-/* @(#)s_tanh.c 5.1 93/09/24 */
 /*
  * ====================================================
  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
@@ -10,10 +9,6 @@
  * ====================================================
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_tanh.c,v 1.7 1995/05/10 20:48:22 jtc Exp $";
-#endif
-
 /* Tanh(x)
  * Return the Hyperbolic Tangent of x
  *
@@ -41,19 +36,9 @@ static char rcsid[] = "$NetBSD: s_tanh.c,v 1.7 1995/05/10 20:48:22 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-
-#ifdef __STDC__
 static const double one=1.0, two=2.0, tiny = 1.0e-300;
-#else
-static double one=1.0, two=2.0, tiny = 1.0e-300;
-#endif
 
-#ifdef __STDC__
-       double tanh(double x)
-#else
-       double tanh(x)
-       double x;
-#endif
+double tanh(double x)
 {
        double t,z;
        int32_t jx,ix;