216 #define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
220     	Dintp2(dresultB) = (unsigned)Sall(sgl_value) >> (31 - exponent); \
224     	Dintp2(dresultB) = Sall(sgl_value) << (exponent - 31);		\
250 #define Dint_setzero(dresultA,dresultB) 	\  argument
252     Dintp2(dresultB) = 0
254 #define Dint_setone_sign(dresultA,dresultB)		\  argument
256     if ((Dintp2(dresultB) = -Dintp2(dresultB)) == 0) Dintp1(dresultA)++
258 #define Dint_set_minint(dresultA,dresultB)		\  argument
260     Dintp2(dresultB) = 0
262 #define Dint_isone_lowp2(dresultB)  (Dintp2(dresultB) & 01)  argument
264 #define Dint_increment(dresultA,dresultB) 		\  argument
265     if ((++Dintp2(dresultB))==0) Dintp1(dresultA)++
267 #define Dint_decrement(dresultA,dresultB) 		\  argument
268     if ((Dintp2(dresultB)--)==0) Dintp1(dresultA)--
270 #define Dint_negate(dresultA,dresultB)			\  argument
272     if ((Dintp2(dresultB) = -Dintp2(dresultB))==0) Dintp1(dresultA)++
336 #define Duint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
340 	Dintp2(dresultB) = val >> (31 - exponent);			\
344 	Dintp2(dresultB) = exponent <= 62 ? val << (exponent - 31) : 0;	\
348 #define Duint_setzero(dresultA,dresultB) 	\  argument
349     Dint_setzero(dresultA,dresultB)
351 #define Duint_increment(dresultA,dresultB) Dint_increment(dresultA,dresultB)   argument
353 #define Duint_isone_lowp2(dresultB)  Dint_isone_lowp2(dresultB)  argument