parisc/math-emu/cnv_float.h

46 #define Sgl_isinexact_to_fix(sgl_value,exponent)	\
47     ((exponent < (SGL_P - 1)) ?				\
48      (Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) : FALSE)
73 #define Sgl_isone_roundbit(sgl_value,exponent)			\
74     ((Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) >> 31)
76 #define Sgl_isone_stickybit(sgl_value,exponent)		\
77     (exponent < (SGL_P - 2) ?				\
78      Sall(sgl_value) << (SGL_EXP_LENGTH + 2 + exponent) : FALSE)
178 #define Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)		\
179     (exponent < (DBL_P-33) ? 						\
180      Dallp2(dbl_valueB) || Dallp1(dbl_valueA) << (DBL_EXP_LENGTH+1+exponent) : \
181      (exponent < (DBL_P-1) ? Dallp2(dbl_valueB) << (exponent + (33-DBL_P)) :   \
184 #define Dbl_isoverflow_to_int(exponent,dbl_valueA,dbl_valueB)		\
185     ((exponent > SGL_FX_MAX_EXP + 1) || Dsign(dbl_valueA)==0 ||		\
188 #define Dbl_isone_roundbit(dbl_valueA,dbl_valueB,exponent)              \
189     ((exponent < (DBL_P - 33) ?						\
190       Dallp1(dbl_valueA) >> ((30 - DBL_EXP_LENGTH) - exponent) :	\
191       Dallp2(dbl_valueB) >> ((DBL_P - 2) - exponent)) & 1)
193 #define Dbl_isone_stickybit(dbl_valueA,dbl_valueB,exponent)		\
194     (exponent < (DBL_P-34) ? 						\
195      (Dallp2(dbl_valueB) || Dallp1(dbl_valueA)<<(DBL_EXP_LENGTH+2+exponent)) : \
196      (exponent<(DBL_P-2) ? (Dallp2(dbl_valueB) << (exponent + (34-DBL_P))) : \
202 #define Int_from_sgl_mantissa(sgl_value,exponent)	\
204     	(unsigned)(Sall(sgl_value) << SGL_EXP_LENGTH)>>(31 - exponent)
206 #define Int_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent)	\
208     if (exponent < 31) Dallp1(dbl_valueA) >>= 30 - exponent;	\
216 #define Dint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\
218     if (exponent <= 31) {						\
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);		\
228 #define Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \
229     {if (exponent < 32) {						\
231     	if (exponent <= 20)						\
232     	    Dintp2(destB) = Dallp1(dbl_valueA) >> 20-exponent;		\
234 	     52-exponent,Dintp2(destB));					\
237     	if (exponent <= 52) {						\
238     	    Dintp1(destA) = Dallp1(dbl_valueA) >> 52-exponent;		\
239 	    if (exponent == 52) Dintp2(destB) = Dallp2(dbl_valueB);	\
241 	    52-exponent,Dintp2(destB));					\
245 	    84-exponent,Dintp1(destA));					\
246     	    Dintp2(destB) = Dallp2(dbl_valueB) << exponent-52;		\
330 #define Suint_from_sgl_mantissa(src,exponent,result)	\
331     Sall(result) = (unsigned)(Sall(src) << SGL_EXP_LENGTH)>>(31 - exponent)
333 #define Sgl_isinexact_to_unsigned(sgl_value,exponent)	\
334     Sgl_isinexact_to_fix(sgl_value,exponent)
336 #define Duint_from_sgl_mantissa(sgl_value,exponent,dresultA,dresultB)	\
338     if (exponent <= 31) {						\
340 	Dintp2(dresultB) = val >> (31 - exponent);			\
343 	Dintp1(dresultA) = val >> (63 - exponent);			\
344 	Dintp2(dresultB) = exponent <= 62 ? val << (exponent - 31) : 0;	\
355 #define Suint_from_dbl_mantissa(srcA,srcB,exponent,dest) \
357     dest = (unsigned)dest >> 31 - exponent
359 #define Dbl_isinexact_to_unsigned(dbl_valueA,dbl_valueB,exponent) \
360     Dbl_isinexact_to_fix(dbl_valueA,dbl_valueB,exponent)
362 #define Duint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB) \
363     Dint_from_dbl_mantissa(dbl_valueA,dbl_valueB,exponent,destA,destB)