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

* complex.c (f_signbit): NaN may be signed value.

Browse Source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@20473 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
tadf 2008-12-03 16:28:17 +00:00
parent ec324872d5
commit 28c53aabca
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
Thu Dec 4 01:22:41 2008 Tadayoshi Funaba <tadf@dotrb.org>
* complex.c (f_signbit): NaN may be signed value.
Wed Dec 3 23:59:32 2008 Tanaka Akira <akr@fsij.org> Wed Dec 3 23:59:32 2008 Tanaka Akira <akr@fsij.org>
* process.c (EXEC_OPTION_DUP2_CHILD): defined. * process.c (EXEC_OPTION_DUP2_CHILD): defined.

16
complex.c
View File

@ -887,15 +887,17 @@ f_signbit(VALUE x)
switch (TYPE(x)) { switch (TYPE(x)) {
case T_FLOAT: case T_FLOAT:
#ifdef HAVE_SIGNBIT #ifdef HAVE_SIGNBIT
return f_boolcast(signbit(RFLOAT_VALUE(x))); {
double f = RFLOAT_VALUE(x);
return f_boolcast(!isnan(f) && signbit(f));
}
#else #else
{ {
char s[2]; char s[2];
(void)snprintf(s, sizeof s, "%.0f", RFLOAT_VALUE(x)); (void)snprintf(s, sizeof s, "%.0f", RFLOAT_VALUE(x));
return f_boolcast(s[0] == '-');
return f_boolcast(s[0] == '-'); }
}
#endif #endif
} }
return f_negative_p(x); return f_negative_p(x);