d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fixed typo

Browse source
This commit is contained in:
ceriel 1988-07-25 12:30:52 +00:00
parent e5c19866eb
commit e98a670850
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/basic/lib/exp.c
View file

@ -17,7 +17,7 @@ floor(x)
extern double _fif(); extern double _fif();
double val; 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 /* this also works if _fif always returns a positive
fractional part fractional part
*/ */

2
lang/cem/libcc/math/exp.c
View file

@ -42,7 +42,7 @@ exp(x)
return M_MIN_D; return M_MIN_D;
} }
if (x >= M_LN_MAX_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; return M_MAX_D;
} }

2
lang/pc/libpc/exp.c
View file

@ -18,7 +18,7 @@ floor(x)
extern double _fif(); extern double _fif();
double val; 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 /* this also works if _fif always returns a positive
fractional part fractional part
*/ */