_FP_WORKBITS
#define _FP_WFRACBITS_D (_FP_WORKBITS + _FP_FRACBITS_D)
_FP_FRAC_SRL_##wc(X, _FP_WORKBITS); \
_FP_FRAC_SRL_##wc(X, _FP_WORKBITS); \
_FP_FRAC_LOW_##wc(X) >>= (_FP_WORKBITS); \
_FP_FRAC_SLL_##wc(X, _FP_WORKBITS); \
_FP_FRAC_SLL_##wc(X, (_shift+_FP_WORKBITS)); \
_FP_FRAC_SRL_##wc(X, _FP_WORKBITS - X##_e \
if (X##_e <= -_FP_WORKBITS - 1) \
_FP_FRAC_SRL_##wc(X, _FP_WORKBITS); \
#define _FP_WFRACBITS_Q (_FP_WORKBITS + _FP_FRACBITS_Q)
#define _FP_WFRACBITS_S (_FP_WORKBITS + _FP_FRACBITS_S)