191 #define Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)		\  argument
193      Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
194      (exponent < (DBL_P-1) ? Dallp2(dbl_valueB) << (exponent + (33-DBL_P)) :   \
197 #define Dbl_isoverflow_to_int(exponent,dbl_valueA,dbl_valueB)		\  argument
199      Dmantissap1(dbl_valueA)!=0 || (Dallp2(dbl_valueB)>>21)!=0 ) 
201 #define Dbl_isone_roundbit(dbl_valueA,dbl_valueB,exponent)              \  argument
204       Dallp2(dbl_valueB) >> ((DBL_P - 2) - exponent)) & 1)
206 #define Dbl_isone_stickybit(dbl_valueA,dbl_valueB,exponent)		\  argument
208      (Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
209      (exponent<(DBL_P-2) ? (Dallp2(dbl_valueB) << (exponent + (34-DBL_P))) : \
219 #define Int_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent)	\  argument
220     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),22,Dallp1(dbl_valueA)); \
241 #define Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \  argument
246     	else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
252 	    if (exponent == 52) Dintp2(destB) = Dallp2(dbl_valueB);	\
253 	    else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
257     	    Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
259     	    Dintp2(destB) = Dallp2(dbl_valueB) << exponent-52;		\
372 #define Dbl_isinexact_to_unsigned(dbl_valueA,dbl_valueB,exponent) \  argument
373     Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)
375 #define Duint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \  argument
376     Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB)