229 #define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
233     	Dintp2(dresultB) = (unsigned)Sall(sgl_value) >> (31 - exponent); \
237     	Dintp2(dresultB) = Sall(sgl_value) << (exponent - 31);		\
263 #define Dint_setzero(dresultA,dresultB) 	\  argument
265     Dintp2(dresultB) = 0
267 #define Dint_setone_sign(dresultA,dresultB)		\  argument
269     if ((Dintp2(dresultB) = -Dintp2(dresultB)) == 0) Dintp1(dresultA)++
271 #define Dint_set_minint(dresultA,dresultB)		\  argument
273     Dintp2(dresultB) = 0
275 #define Dint_isone_lowp2(dresultB)  (Dintp2(dresultB) & 01)  argument
277 #define Dint_increment(dresultA,dresultB) 		\  argument
278     if ((++Dintp2(dresultB))==0) Dintp1(dresultA)++
280 #define Dint_decrement(dresultA,dresultB) 		\  argument
281     if ((Dintp2(dresultB)--)==0) Dintp1(dresultA)--
283 #define Dint_negate(dresultA,dresultB)			\  argument
285     if ((Dintp2(dresultB) = -Dintp2(dresultB))==0) Dintp1(dresultA)++
349 #define Duint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
353 	Dintp2(dresultB) = val >> (31 - exponent);			\
357 	Dintp2(dresultB) = exponent <= 62 ? val << (exponent - 31) : 0;	\
361 #define Duint_setzero(dresultA,dresultB) 	\  argument
362     Dint_setzero(dresultA,dresultB)
364 #define Duint_increment(dresultA,dresultB) Dint_increment(dresultA,dresultB)   argument
366 #define Duint_isone_lowp2(dresultB)  Dint_isone_lowp2(dresultB)  argument