59 #define Sgl_isinexact_to_fix(sgl_value,exponent)	\  argument
61      (Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) : FALSE)
65 #define Sgl_roundnearest_from_int(int_value,sgl_value)			\  argument
67     	if ((int_value << 34 - SGL_EXP_LENGTH) || Slow(sgl_value))	\
68 		Sall(sgl_value)++
73 #define Sgl_roundnearest_from_dint(dint_valueA,dint_valueB,sgl_value)	\  argument
76     	Dintp2(dint_valueB) || Slow(sgl_value)) Sall(sgl_value)++
86 #define Sgl_isone_roundbit(sgl_value,exponent)			\  argument
87     ((Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) >> 31)
89 #define Sgl_isone_stickybit(sgl_value,exponent)		\  argument
91      Sall(sgl_value) << (SGL_EXP_LENGTH + 2 + exponent) : FALSE)
215 #define Int_from_sgl_mantissa(sgl_value,exponent)	\  argument
216     Sall(sgl_value) = 				\
217     	(unsigned)(Sall(sgl_value) << SGL_EXP_LENGTH)>>(31 - exponent)
229 #define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
230     {Sall(sgl_value) <<= SGL_EXP_LENGTH;  /*  left-justify  */		\
233     	Dintp2(dresultB) = (unsigned)Sall(sgl_value) >> (31 - exponent); \
236     	Dintp1(dresultA) = Sall(sgl_value) >> (63 - exponent);		\
237     	Dintp2(dresultB) = Sall(sgl_value) << (exponent - 31);		\
322 #define Sgl_roundnearest_from_suint(suint_value,sgl_value)		\  argument
324     	if ((suint_value << 33 - SGL_EXP_LENGTH) || Slow(sgl_value))	\
325 		Sall(sgl_value)++
330 #define Sgl_roundnearest_from_duint(duint_valueA,duint_valueB,sgl_value) \  argument
333     	Duintp2(duint_valueB) || Slow(sgl_value)) Sall(sgl_value)++
346 #define Sgl_isinexact_to_unsigned(sgl_value,exponent)	\  argument
347     Sgl_isinexact_to_fix(sgl_value,exponent)
349 #define Duint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\  argument
350   {unsigned int val = Sall(sgl_value) << SGL_EXP_LENGTH;		\