fixed typo

diff --git a/lang/basic/lib/exp.c b/lang/basic/lib/exp.c
index 4b4a121..b9cf5d0 100644 (file)
--- a/lang/basic/lib/exp.c
+++ b/lang/basic/lib/exp.c
@@ -17,7 +17,7 @@ floor(x)
        extern double _fif();
        double val;
 
-       return _fif(x, 1,0, &val) < 0 ? val - 1.0 : val ;
+       return _fif(x, 1.0, &val) < 0 ? val - 1.0 : val ;
        /*      this also works if _fif always returns a positive
                fractional part
        */

diff --git a/lang/cem/libcc/math/exp.c b/lang/cem/libcc/math/exp.c
index 737ae23..2d52ed5 100644 (file)
--- a/lang/cem/libcc/math/exp.c
+++ b/lang/cem/libcc/math/exp.c
@@ -42,7 +42,7 @@ exp(x)
                return M_MIN_D;
        }
        if (x >= M_LN_MAX_D) {
-               if (x < M_LN_MAX_D) errno = ERANGE;
+               if (x > M_LN_MAX_D) errno = ERANGE;
                return M_MAX_D;
        }
 

diff --git a/lang/pc/libpc/exp.c b/lang/pc/libpc/exp.c
index 2fea299..504b4a1 100644 (file)
--- a/lang/pc/libpc/exp.c
+++ b/lang/pc/libpc/exp.c
@@ -18,7 +18,7 @@ floor(x)
        extern double _fif();
        double val;
 
-       return _fif(x, 1,0, &val) < 0 ? val - 1.0 : val ;
+       return _fif(x, 1.0, &val) < 0 ? val - 1.0 : val ;
        /*      this also works if _fif always returns a positive
                fractional part
        */