put in include for <math.h> so they will return doubles

SCCS-vsn: usr.bin/pascal/libpc/SQRT.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/SEED.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/LN.c 1.2

diff --git a/usr/src/usr.bin/pascal/libpc/LN.c b/usr/src/usr.bin/pascal/libpc/LN.c
index d5042a2..e512a34 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/LN.c
+++ b/usr/src/usr.bin/pascal/libpc/LN.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)LN.c 1.1 %G%";
+static char sccsid[] = "@(#)LN.c 1.2 %G%";

 
 #include "h01errs.h"
 
 
 #include "h01errs.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/SEED.c b/usr/src/usr.bin/pascal/libpc/SEED.c
index ce65893..aa672b2 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SEED.c
+++ b/usr/src/usr.bin/pascal/libpc/SEED.c
@@ -1,6 +1,9 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)SEED.c 1.1 %G%";
+static char sccsid[] = "@(#)SEED.c 1.2 %G%";
+
+#include <math.h>
+#include <math.h>

 
 SEED(value)
 
 
 SEED(value)
 

diff --git a/usr/src/usr.bin/pascal/libpc/SQRT.c b/usr/src/usr.bin/pascal/libpc/SQRT.c
index aebeedb..be9819e 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SQRT.c
+++ b/usr/src/usr.bin/pascal/libpc/SQRT.c
@@ -1,15 +1,16 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)SQRT.c 1.1 %G%";
+static char sccsid[] = "@(#)SQRT.c 1.2 %G%";

 
 #include "h01errs.h"
 
 #include "h01errs.h"

+#include <math.h>

 
 double
 SQRT(value)
 
        double  value;
 {
 
 double
 SQRT(value)
 
        double  value;
 {

-       if (value <= 0) {
+       if (value < 0) {

                ERROR(ESQRT, value);
                return;
        }
                ERROR(ESQRT, value);
                return;
        }