BSD 4_3_Tahoe release

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

diff --git a/usr/src/usr.lib/libm/jn.c b/usr/src/usr.lib/libm/jn.c
index 27c9be0..e03c6fd 100644 (file)
--- a/usr/src/usr.lib/libm/jn.c
+++ b/usr/src/usr.lib/libm/jn.c
@@ -1,6 +1,12 @@
+/*
+ * Copyright (c) 1985 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+

 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)jn.c       4.2 (Berkeley) 8/21/85";
-#endif not lint
+static char sccsid[] = "@(#)jn.c       5.2 (Berkeley) 4/29/88";
+#endif /* not lint */

 
 /*
        floating point Bessel's function of
 
 /*
        floating point Bessel's function of


@@ -35,11 +41,11 @@ static char sccsid[] = "@(#)jn.c    4.2 (Berkeley) 8/21/85";
 */
 
 #include <math.h>
 */
 
 #include <math.h>

-#ifdef VAX
+#if defined(vax)||defined(tahoe)

 #include <errno.h>
 #include <errno.h>

-#else  /* IEEE double */
+#else  /* defined(vax)||defined(tahoe) */

 static double zero = 0.e0;
 static double zero = 0.e0;

-#endif
+#endif /* defined(vax)||defined(tahoe) */

 
 double
 jn(n,x) int n; double x;{
 
 double
 jn(n,x) int n; double x;{


@@ -91,12 +97,12 @@ yn(n,x) int n; double x;{
        double y0(), y1();
 
        if (x <= 0) {
        double y0(), y1();
 
        if (x <= 0) {

-#ifdef VAX
+#if defined(vax)||defined(tahoe)

                extern double infnan();
                return(infnan(EDOM));   /* NaN */
                extern double infnan();
                return(infnan(EDOM));   /* NaN */

-#else  /* IEEE double */
+#else  /* defined(vax)||defined(tahoe) */

                return(zero/zero);      /* IEEE machines: invalid operation */
                return(zero/zero);      /* IEEE machines: invalid operation */

-#endif
+#endif /* defined(vax)||defined(tahoe) */

        }
        sign = 1;
        if(n<0){
        }
        sign = 1;
        if(n<0){