191 #define Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)		\  argument
193      Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
197 #define Dbl_isoverflow_to_int(exponent,dbl_valueA,dbl_valueB)		\  argument
198     ((exponent > SGL_FX_MAX_EXP + 1) || Dsign(dbl_valueA)==0 ||		\
199      Dmantissap1(dbl_valueA)!=0 || (Dallp2(dbl_valueB)>>21)!=0 ) 
201 #define Dbl_isone_roundbit(dbl_valueA,dbl_valueB,exponent)              \  argument
203       Dallp1(dbl_valueA) >> ((30 - DBL_EXP_LENGTH) - exponent) :	\
206 #define Dbl_isone_stickybit(dbl_valueA,dbl_valueB,exponent)		\  argument
208      (Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
219 #define Int_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent)	\  argument
220     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),22,Dallp1(dbl_valueA)); \
221     if (exponent < 31) Dallp1(dbl_valueA) >>= 30 - exponent;	\
222     else Dallp1(dbl_valueA) <<= 1
241 #define Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \  argument
245     	    Dintp2(destB) = Dallp1(dbl_valueA) >> 20-exponent;		\
246     	else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
251     	    Dintp1(destA) = Dallp1(dbl_valueA) >> 52-exponent;		\
253 	    else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
257     	    Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
373 #define Dbl_isinexact_to_unsigned(dbl_valueA,dbl_valueB,exponent) \  argument
374     Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)
376 #define Duint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \  argument
377     Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB)