178 #define Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)		\  argument
180      Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
181      (exponent < (DBL_P-1) ? Dallp2(dbl_valueB) << (exponent + (33-DBL_P)) :   \
184 #define Dbl_isoverflow_to_int(exponent,dbl_valueA,dbl_valueB)		\  argument
186      Dmantissap1(dbl_valueA)!=0 || (Dallp2(dbl_valueB)>>21)!=0 ) 
188 #define Dbl_isone_roundbit(dbl_valueA,dbl_valueB,exponent)              \  argument
191       Dallp2(dbl_valueB) >> ((DBL_P - 2) - exponent)) & 1)
193 #define Dbl_isone_stickybit(dbl_valueA,dbl_valueB,exponent)		\  argument
195      (Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
196      (exponent<(DBL_P-2) ? (Dallp2(dbl_valueB) << (exponent + (34-DBL_P))) : \
206 #define Int_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent)	\  argument
207     Shiftdouble(Dallp1(dbl_valueA),Dallp2(dbl_valueB),22,Dallp1(dbl_valueA)); \
228 #define Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \  argument
233     	else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
239 	    if (exponent == 52) Dintp2(destB) = Dallp2(dbl_valueB);	\
240 	    else Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
244     	    Variable_shift_double(Dallp1(dbl_valueA),Dallp2(dbl_valueB), \
246     	    Dintp2(destB) = Dallp2(dbl_valueB) << exponent-52;		\
359 #define Dbl_isinexact_to_unsigned(dbl_valueA,dbl_valueB,exponent) \  argument
360     Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)
362 #define Duint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \  argument
363     Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB)