diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2010-03-11 03:14:21 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2010-03-11 03:14:21 +0000 |
commit | 5b8af7521f8c5f1c218157250d07604bf1b56101 (patch) | |
tree | 89fe812310e4770fecf5c0ea99aa0c0ed9a6134b /missing/signbit.c | |
parent | 9c0119c4bdc31b90fdd236c816aa02504934f94b (diff) |
* missing/signbit.c: added.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@26871 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'missing/signbit.c')
-rw-r--r-- | missing/signbit.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/missing/signbit.c b/missing/signbit.c new file mode 100644 index 0000000000..2f7ce8c601 --- /dev/null +++ b/missing/signbit.c @@ -0,0 +1,19 @@ +#include <limits.h> +#include "ruby.h" + +int +signbit(double x) +{ + enum {double_per_long = sizeof(double) / sizeof(long)}; + enum {long_msb = sizeof(long) * CHAR_BIT - 1}; + union {double d; unsigned long i[double_per_long];} u; + unsigned long l; + + u.d = x; +#ifdef WORDS_BIGENDIAN + l = u.i[0]; +#else + l = u.i[double_per_long - 1]; +#endif + return (int)(l >> long_msb); +} |