46 #define Sgl_isinexact_to_fix(sgl_value,exponent)	\  argument
48      (Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) : FALSE)
52 #define Sgl_roundnearest_from_int(int_value,sgl_value)			\  argument
54 	if (((int_value << 34 - SGL_EXP_LENGTH) != 0) || Slow(sgl_value)) \
55 		Sall(sgl_value)++
60 #define Sgl_roundnearest_from_dint(dint_valueA,dint_valueB,sgl_value)	\  argument
63     	Dintp2(dint_valueB) || Slow(sgl_value)) Sall(sgl_value)++
73 #define Sgl_isone_roundbit(sgl_value,exponent)			\  argument
74     ((Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) >> 31)
76 #define Sgl_isone_stickybit(sgl_value,exponent)		\  argument
78      Sall(sgl_value) << (SGL_EXP_LENGTH + 2 + exponent) : FALSE)
202 #define Int_from_sgl_mantissa(sgl_value,exponent)	\  argument
203     Sall(sgl_value) = 				\
204     	(unsigned)(Sall(sgl_value) << SGL_EXP_LENGTH)>>(31 - exponent)
216 #define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
217     {Sall(sgl_value) <<= SGL_EXP_LENGTH;  /*  left-justify  */		\
220     	Dintp2(dresultB) = (unsigned)Sall(sgl_value) >> (31 - exponent); \
223     	Dintp1(dresultA) = Sall(sgl_value) >> (63 - exponent);		\
224     	Dintp2(dresultB) = Sall(sgl_value) << (exponent - 31);		\
309 #define Sgl_roundnearest_from_suint(suint_value,sgl_value)		\  argument
311     	if ((suint_value << 33 - SGL_EXP_LENGTH) || Slow(sgl_value))	\
312 		Sall(sgl_value)++
317 #define Sgl_roundnearest_from_duint(duint_valueA,duint_valueB,sgl_value) \  argument
320     	Duintp2(duint_valueB) || Slow(sgl_value)) Sall(sgl_value)++
333 #define Sgl_isinexact_to_unsigned(sgl_value,exponent)	\  argument
334     Sgl_isinexact_to_fix(sgl_value,exponent)
336 #define Duint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
337   {unsigned int val = Sall(sgl_value) << SGL_EXP_LENGTH;		\