1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
usa 2008-06-19 07:51:46 +00:00
parent 6bb934c482
commit 363b0bddde
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -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> Thu Jun 19 16:06:01 2008 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags. * ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags.

9
missing/acosh.c
View File

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