version 1.12, 2005/07/21 12:55:58 |
version 1.12.18.1, 2008/05/18 12:30:39 |
|
|
ew_u.value = (d); \ |
ew_u.value = (d); \ |
(ix0) = ew_u.parts.msw; \ |
(ix0) = ew_u.parts.msw; \ |
(ix1) = ew_u.parts.lsw; \ |
(ix1) = ew_u.parts.lsw; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* Get the more significant 32 bit int from a double. */ |
/* Get the more significant 32 bit int from a double. */ |
|
|
|
|
ieee_double_shape_type gh_u; \ |
ieee_double_shape_type gh_u; \ |
gh_u.value = (d); \ |
gh_u.value = (d); \ |
(i) = gh_u.parts.msw; \ |
(i) = gh_u.parts.msw; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* Get the less significant 32 bit int from a double. */ |
/* Get the less significant 32 bit int from a double. */ |
|
|
|
|
ieee_double_shape_type gl_u; \ |
ieee_double_shape_type gl_u; \ |
gl_u.value = (d); \ |
gl_u.value = (d); \ |
(i) = gl_u.parts.lsw; \ |
(i) = gl_u.parts.lsw; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* Set a double from two 32 bit ints. */ |
/* Set a double from two 32 bit ints. */ |
|
|
|
|
iw_u.parts.msw = (ix0); \ |
iw_u.parts.msw = (ix0); \ |
iw_u.parts.lsw = (ix1); \ |
iw_u.parts.lsw = (ix1); \ |
(d) = iw_u.value; \ |
(d) = iw_u.value; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* Set the more significant 32 bits of a double from an int. */ |
/* Set the more significant 32 bits of a double from an int. */ |
|
|
|
|
sh_u.value = (d); \ |
sh_u.value = (d); \ |
sh_u.parts.msw = (v); \ |
sh_u.parts.msw = (v); \ |
(d) = sh_u.value; \ |
(d) = sh_u.value; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* Set the less significant 32 bits of a double from an int. */ |
/* Set the less significant 32 bits of a double from an int. */ |
|
|
|
|
sl_u.value = (d); \ |
sl_u.value = (d); \ |
sl_u.parts.lsw = (v); \ |
sl_u.parts.lsw = (v); \ |
(d) = sl_u.value; \ |
(d) = sl_u.value; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* A union which permits us to convert between a float and a 32 bit |
/* A union which permits us to convert between a float and a 32 bit |
int. */ |
int. */ |
|
|
ieee_float_shape_type gf_u; \ |
ieee_float_shape_type gf_u; \ |
gf_u.value = (d); \ |
gf_u.value = (d); \ |
(i) = gf_u.word; \ |
(i) = gf_u.word; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* Set a float from a 32 bit int. */ |
/* Set a float from a 32 bit int. */ |
|
|
|
|
ieee_float_shape_type sf_u; \ |
ieee_float_shape_type sf_u; \ |
sf_u.word = (i); \ |
sf_u.word = (i); \ |
(d) = sf_u.value; \ |
(d) = sf_u.value; \ |
} while (0) |
} while (/*CONSTCOND*/0) |
|
|
/* ieee style elementary functions */ |
/* ieee style elementary functions */ |
extern double __ieee754_sqrt __P((double)); |
extern double __ieee754_sqrt __P((double)); |