55 |
|
|
56 |
#ifdef IEEEFLOAT |
#ifdef IEEEFLOAT |
57 |
u.d = d; |
u.d = d; |
58 |
|
/*FIXME 64, and 0x7f below*/ |
59 |
return (u.i[HIND] & 0x7ff00000) != 0; |
return (u.i[HIND] & 0x7ff00000) != 0; |
60 |
#else |
#else |
61 |
#error gcl_isnormal_double only implemented for IEEE |
#error gcl_isnormal_double only implemented for IEEE |
176 |
*ep = ((h & 0x7f000000) >> 24) - 64 - 14; |
*ep = ((h & 0x7f000000) >> 24) - 64 - 14; |
177 |
h = (h & 0x00ffffff); |
h = (h & 0x00ffffff); |
178 |
#endif |
#endif |
179 |
|
/*FIXME 64, note int args*/ |
180 |
if (32-BIG_RADIX) |
if (32-BIG_RADIX) |
181 |
/* shift for making bignum */ |
/* shift for making bignum */ |
182 |
{ h = h << (32-BIG_RADIX) ; |
{ h = h << (32-BIG_RADIX) ; |
339 |
{ |
{ |
340 |
int h, l, e, s; |
int h, l, e, s; |
341 |
object x; |
object x; |
342 |
object shift_integer(object x, int w); |
object shift_integer(object x, fixnum w); |
343 |
vs_mark; |
vs_mark; |
344 |
|
|
345 |
if (d == 0.0) |
if (d == 0.0) |