94 |
LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL |
LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL |
95 |
*/ |
*/ |
96 |
#endif |
#endif |
97 |
void |
static void |
98 |
integer_decode_double(double d, int *hp, int *lp, int *ep, int *sp) |
integer_decode_double(double d, int *hp, int *lp, int *ep, int *sp) |
99 |
{ |
{ |
100 |
int h, l; |
int h, l; |
182 |
SEEEEEEEMMMMMMMMMMMMMMMMMMMMMMMM |
SEEEEEEEMMMMMMMMMMMMMMMMMMMMMMMM |
183 |
*/ |
*/ |
184 |
#endif |
#endif |
185 |
void |
static void |
186 |
integer_decode_float(double d, int *mp, int *ep, int *sp) |
integer_decode_float(double d, int *mp, int *ep, int *sp) |
187 |
{ |
{ |
188 |
float f; |
float f; |
224 |
*sp = (f > 0.0 ? 1 : -1); |
*sp = (f > 0.0 ? 1 : -1); |
225 |
} |
} |
226 |
|
|
227 |
int |
static int |
228 |
double_exponent(double d) |
double_exponent(double d) |
229 |
{ |
{ |
230 |
if (d == 0.0) |
if (d == 0.0) |
250 |
#endif |
#endif |
251 |
} |
} |
252 |
|
|
253 |
double |
static double |
254 |
set_exponent(double d, int e) |
set_exponent(double d, int e) |
255 |
{ |
{ |
256 |
double dummy; |
double dummy; |
347 |
return(x); |
return(x); |
348 |
} |
} |
349 |
|
|
350 |
object |
static object |
351 |
num_remainder(object x, object y, object q) |
num_remainder(object x, object y, object q) |
352 |
{ |
{ |
353 |
object z; |
object z; |