exponent
int exponent, zeros;
exponent = 64 - zeros;
exponent = 63 - zeros;
ux.extu_exp = EXT_EXP_BIAS + exponent;
int mantissa, exponent;
exponent = (int)((prec >> 0) & 0x0f) % 10;
val = mantissa * poweroften[exponent];
int exponent;
for (exponent = 0; exponent < 9; exponent++)
if (cmval < poweroften[exponent+1])
mantissa = cmval / poweroften[exponent];
retval = (mantissa << 4) | exponent;
expsize = exponent(expstr, expt - 1, expchar);
static int exponent(CHAR_T *, int, int);
uint64_t exponent;
exponent = (uint64_t)strtoull(t, NULL, 10);
if (exponent == 0) {
for ( ; (exponent & 1) == 0 ; exponent >>= 1) {
for (exponent >>= 1 ; exponent > 0 ; exponent >>= 1) {
if (exponent & 1) {
#define Sgl_isone_roundbit(sgl_value,exponent) \
((Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) >> 31)
#define Sgl_isone_stickybit(sgl_value,exponent) \
(exponent < (SGL_P - 2) ? \
Sall(sgl_value) << (SGL_EXP_LENGTH + 2 + exponent) : false)
#define Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent) \
(exponent < (DBL_P-33) ? \
Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
(exponent < (DBL_P-1) ? Dallp2(dbl_valueB) << (exponent + (33-DBL_P)) : \
#define Dbl_isoverflow_to_int(exponent,dbl_valueA,dbl_valueB) \
((exponent > SGL_FX_MAX_EXP + 1) || Dsign(dbl_valueA)==0 || \
#define Dbl_isone_roundbit(dbl_valueA,dbl_valueB,exponent) \
((exponent < (DBL_P - 33) ? \
Dallp1(dbl_valueA) >> ((30 - DBL_EXP_LENGTH) - exponent) : \
Dallp2(dbl_valueB) >> ((DBL_P - 2) - exponent)) & 1)
#define Dbl_isone_stickybit(dbl_valueA,dbl_valueB,exponent) \
(exponent < (DBL_P-34) ? \
(Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
(exponent<(DBL_P-2) ? (Dallp2(dbl_valueB) << (exponent + (34-DBL_P))) : \
#define Int_from_sgl_mantissa(sgl_value,exponent) \
(unsigned)(Sall(sgl_value) << SGL_EXP_LENGTH)>>(31 - exponent)
#define Int_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent) \
if (exponent < 31) Dallp1(dbl_valueA) >>= 30 - exponent; \
#define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB) \
if (exponent <= 31) { \
Dintp2(dresultB) = (unsigned)Sall(sgl_value) >> (31 - exponent); \
Dintp1(dresultA) = Sall(sgl_value) >> (63 - exponent); \
Dintp2(dresultB) = Sall(sgl_value) << (exponent - 31); \
#define Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \
{if (exponent < 32) { \
if (exponent <= 20) \
Dintp2(destB) = Dallp1(dbl_valueA) >> (20-(exponent)); \
(52-(exponent)),Dintp2(destB)); \
if (exponent <= 52) { \
Dintp1(destA) = Dallp1(dbl_valueA) >> (52-(exponent)); \
if (exponent == 52) Dintp2(destB) = Dallp2(dbl_valueB); \
52-exponent,Dintp2(destB)); \
84-exponent,Dintp1(destA)); \
Dintp2(destB) = Dallp2(dbl_valueB) << ((exponent)-52); \
#define Sgl_isinexact_to_fix(sgl_value,exponent) \
((exponent < (SGL_P - 1)) ? \
(Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) : false)
#define Dbl_setwrapped_exponent(dbl_value,exponent,op) \
Deposit_dexponent(dbl_value,(exponent op DBL_WRAP))
#define Dbl_normalize(dbl_opndA,dbl_opndB,exponent) \
exponent -= 8; \
exponent -= 4; \
exponent -= 1; \
#define Dbl_denormalize(opndp1,opndp2,exponent,guard,sticky,inexact) \
if (exponent >= (1-DBL_P)) { \
if (exponent >= -31) { \
guard = (Dallp2(opndp2) >> (-(exponent))) & 1; \
if (exponent < 0) sticky |= Dallp2(opndp2) << (32+exponent); \
if (exponent > -31) { \
Variable_shift_double(opndp1,opndp2,1-exponent,opndp2); \
Dallp1(opndp1) >>= 1-exponent; \
guard = (Dallp1(opndp1) >> (-32-(exponent))) & 1; \
if (exponent == -32) sticky |= Dallp2(opndp2); \
else sticky |= (Dallp2(opndp2) | Dallp1(opndp1) << (64+(exponent))); \
Dallp2(opndp2) = Dallp1(opndp1) >> (-31-(exponent)); \
#define Sgl_setwrapped_exponent(sgl_value,exponent,op) \
Deposit_sexponent(sgl_value,(exponent op SGL_WRAP))
#define Sgl_normalize(sgl_opnd,exponent) \
exponent -= 8; \
exponent -= 4; \
exponent -= 1; \
#define Sgl_denormalize(opnd,exponent,guard,sticky,inexact) \
if (exponent >= (1 - SGL_P)) { \
guard = (Sall(opnd) >> (-(exponent))) & 1; \
if (exponent < 0) sticky |= Sall(opnd) << (32+exponent); \
Sall(opnd) >>= (1-exponent); \
# if the mantissa is zero, I will zero the exponent, too.
# if the mantissa is zero, I will zero the exponent, too.
WBTEMP_EX equ WBTEMP ;wbtemp sign and exponent (2 bytes)
etemp15_bit equ 4 ;etemp exponent bit #15
fptemp15_bit equ 4 ;fptemp exponent bit #15
wbtemp15_bit equ 4 ;wbtemp exponent bit #15
FPTEMP_EX equ FPTEMP ;fptemp sign and exponent (2 bytes)
ETEMP_EX equ ETEMP ;etemp sign and exponent (2 bytes)
FPTEMP_EX equ FPTEMP ;fptemp sign and exponent (2 bytes)
ETEMP_EX equ ETEMP ;etemp sign and exponent (2 bytes)
unsigned short exponent;
unsigned short exponent;
athn_get_delta_slope(uint32_t coeff, uint32_t *exponent, uint32_t *mantissa)
*exponent = exp - 16;
otus_get_delta_slope(uint32_t coeff, uint32_t *exponent, uint32_t *mantissa)
*exponent = exp - 16;
int exponent = -1;
exponent--;
exponent++;
if (exponent < 0x40 - MAX_EXP_ENC && -exponent < 0x40 - MAX_EXP_ENC) {
exponent += 0xc0;
*pos++ = negate ^ exponent;
t = exponent > 0 ? exponent : -exponent;
if (exponent < 0)
*pos++ = negate ^ (exponent >> (c * 8));