216 #define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
219     	Dintp1(dresultA) = 0;						\
223     	Dintp1(dresultA) = Sall(sgl_value) >> (63 - exponent);		\
250 #define Dint_setzero(dresultA,dresultB) 	\  argument
251     Dintp1(dresultA) = 0; 	\
254 #define Dint_setone_sign(dresultA,dresultB)		\  argument
255     Dintp1(dresultA) = ~Dintp1(dresultA);		\
256     if ((Dintp2(dresultB) = -Dintp2(dresultB)) == 0) Dintp1(dresultA)++
258 #define Dint_set_minint(dresultA,dresultB)		\  argument
259     Dintp1(dresultA) = (unsigned int)1<<31;		\
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
271     Dintp1(dresultA) = ~Dintp1(dresultA);		\
272     if ((Dintp2(dresultB) = -Dintp2(dresultB))==0) Dintp1(dresultA)++
336 #define Duint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
339 	Dintp1(dresultA) = 0;						\
343 	Dintp1(dresultA) = val >> (63 - exponent);			\
348 #define Duint_setzero(dresultA,dresultB) 	\  argument
349     Dint_setzero(dresultA,dresultB)
351 #define Duint_increment(dresultA,dresultB) Dint_increment(dresultA,dresultB)   argument