From e98a6708509c069eac1af3c007c36a034adef627 Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 25 Jul 1988 12:30:52 +0000 Subject: [PATCH] fixed typo --- lang/basic/lib/exp.c | 2 +- lang/cem/libcc/math/exp.c | 2 +- lang/pc/libpc/exp.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lang/basic/lib/exp.c b/lang/basic/lib/exp.c index 4b4a1212f..b9cf5d0cc 100644 --- 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 737ae234c..2d52ed5c4 100644 --- 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 2fea29932..504b4a13e 100644 --- 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 */ -- 2.34.1