FP_LG
#define FP_QUIETBIT (1 << (FP_LG - 1)) /* Quiet bit in NaNs (0.5) */
#define FP_1 (1 << FP_LG) /* 1.0 in fp_mant[0] */
#define FP_2 (1 << (FP_LG + 1)) /* 2.0 in fp_mant[0] */
fp->fp_exp = FP_LG;
fp->fp_exp = FP_LG;
#define SNG_SHIFT (SNG_FRACBITS - FP_LG)
#define DBL_SHIFT (DBL_FRACBITS - 32 - FP_LG)
#define EXT_SHIFT (-(EXT_FRACBITS - 3 * 32 - FP_LG)) /* left shift! */
#define FP_QUIETBIT (1 << (FP_LG - 1)) /* Quiet bit in NaNs (0.5) */
#define FP_1 (1 << FP_LG) /* 1.0 in fp_mant[0] */
#define FP_2 (1 << (FP_LG + 1)) /* 2.0 in fp_mant[0] */
#define SNG_SHIFT (SNG_FRACBITS - FP_LG)
#define DBL_SHIFT (DBL_FRACBITS - 32 - FP_LG)
#define EXT_SHIFT (-(EXT_FRACBITS - 3 * 32 - FP_LG)) /* left shift! */
fp->fp_exp = FP_LG;