* missing/acosh.c (atanh): should set ERANGE to errno if parameter

is the boundary case. fixed [ruby-dev:35155]



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@17425 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,8 @@
+Thu Jun 19 16:49:36 2008  NAKAMURA Usaku  <usa@ruby-lang.org>
+
+	* missing/acosh.c (atanh): should set ERANGE to errno if parameter
+	  is the boundary case. fixed [ruby-dev:35155]
+
 Thu Jun 19 16:06:01 2008  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags.

missing/acosh.c

@@ -12,6 +12,7 @@
 #include <errno.h>
 #include <float.h>
 #include <math.h>
+#include "ruby.h"
 
 /* DBL_MANT_DIG must be less than 4 times of bits of int */
 #ifndef DBL_MANT_DIG
@@ -79,6 +80,14 @@ atanh(double x)
     if (z < SMALL_CRITERIA) return x;
     z = log(z > 1 ? -1 : (1 + z) / (1 - z)) / 2;
     if (neg) z = -z;
+    if (isinf(z))
+#if defined(ERANGE)
+	errno = ERANGE;
+#elif defined(EDOM)
+	errno = EDOM;
+#else
+	;
+#endif
     return z;
 }
 #endif