BSD 4_3_Tahoe release

[unix-history] / usr / src / usr.lib / libm / tanh.c

diff --git a/usr/src/usr.lib/libm/tanh.c b/usr/src/usr.lib/libm/tanh.c
index 1de8d21..76fd878 100644 (file)
--- a/usr/src/usr.lib/libm/tanh.c
+++ b/usr/src/usr.lib/libm/tanh.c
@@ -1,19 +1,28 @@
-/* 
+/*

  * Copyright (c) 1985 Regents of the University of California.
  * Copyright (c) 1985 Regents of the University of California.

- * 
- * Use and reproduction of this software are granted  in  accordance  with
- * the terms and conditions specified in  the  Berkeley  Software  License
- * Agreement (in particular, this entails acknowledgement of the programs'
- * source, and inclusion of this notice) with the additional understanding
- * that  all  recipients  should regard themselves as participants  in  an
- * ongoing  research  project and hence should  feel  obligated  to report
- * their  experiences (good or bad) with these elementary function  codes,
- * using "sendbug 4bsd-bugs@BERKELEY", to the authors.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, Berkeley.  The name of the
+ * University may not be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ *
+ * All recipients should regard themselves as participants in an ongoing
+ * research project and hence should feel obligated to report their
+ * experiences (good or bad) with these elementary function codes, using
+ * the sendbug(8) program, to the authors.

  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)tanh.c     4.3 (Berkeley) 8/21/85";
-#endif not lint
+static char sccsid[] = "@(#)tanh.c     5.3 (Berkeley) 6/30/88";
+#endif /* not lint */

 
 /* TANH(X)
  * RETURN THE HYPERBOLIC TANGENT OF X
 
 /* TANH(X)
  * RETURN THE HYPERBOLIC TANGENT OF X


@@ -59,9 +68,9 @@ double x;
        double expm1(), t, copysign(), sign;
        int finite();
 
        double expm1(), t, copysign(), sign;
        int finite();
 

-#ifndef VAX
+#if !defined(vax)&&!defined(tahoe)

        if(x!=x) return(x);     /* x is NaN */
        if(x!=x) return(x);     /* x is NaN */

-#endif
+#endif /* !defined(vax)&&!defined(tahoe) */

 
        sign=copysign(one,x);
        x=copysign(x,one);
 
        sign=copysign(one,x);
        x=copysign(x,one);