소스 검색

fixed typo

ceriel 36 년 전
부모
커밋
b34adc2dda
3개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 1 1
      lang/basic/lib/exp.c
  2. 1 1
      lang/cem/libcc/math/exp.c
  3. 1 1
      lang/pc/libpc/exp.c

+ 1 - 1
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
 	*/

+ 1 - 1
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;
 	}
 

+ 1 - 1
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
 	*/