parisc/math-emu/sgl_float.h

38 #define Sgl_clear_signexponent(srcdst) Sall(srcdst) &= 0x007fffff
67 #define Sgl_isone_sign(sgl_value) (Is_ssign(sgl_value)!=0)
69     (Is_shiddenoverflow(sgl_value)!=0)
70 #define Sgl_isone_lowmantissa(sgl_value) (Is_slow(sgl_value)!=0)
71 #define Sgl_isone_signaling(sgl_value) (Is_ssignaling(sgl_value)!=0)
72 #define Sgl_is_signalingnan(sgl_value) (Ssignalingnan(sgl_value)==0x1ff)
73 #define Sgl_isnotzero(sgl_value) (Sall(sgl_value)!=0)
75     (Shiddenhigh7mantissa(sgl_value)!=0)
76 #define Sgl_isnotzero_low4(sgl_value) (Slow4(sgl_value)!=0)
77 #define Sgl_isnotzero_exponent(sgl_value) (Sexponent(sgl_value)!=0)
78 #define Sgl_isnotzero_mantissa(sgl_value) (Smantissa(sgl_value)!=0)
80     (Sexponentmantissa(sgl_value)!=0)
81 #define Sgl_iszero(sgl_value) (Sall(sgl_value)==0)
82 #define Sgl_iszero_signaling(sgl_value) (Is_ssignaling(sgl_value)==0)
83 #define Sgl_iszero_hidden(sgl_value) (Is_shidden(sgl_value)==0)
85     (Is_shiddenoverflow(sgl_value)==0)
87     (Shiddenhigh3mantissa(sgl_value)==0)
89     (Shiddenhigh7mantissa(sgl_value)==0)
90 #define Sgl_iszero_sign(sgl_value) (Is_ssign(sgl_value)==0)
91 #define Sgl_iszero_exponent(sgl_value) (Sexponent(sgl_value)==0)
92 #define Sgl_iszero_mantissa(sgl_value) (Smantissa(sgl_value)==0)
94     (Sexponentmantissa(sgl_value)==0)
101     Sgl_mantissa(sgl_value)==0)
104     Sgl_mantissa(sgl_value)!=0)
107     Sgl_mantissa(sgl_value)==0)
172 #define Sgl_setzero_sign(sgl_value)  Sall(sgl_value) &= 0x7fffffff
173 #define Sgl_setzero_exponent(sgl_value) Sall(sgl_value) &= 0x807fffff
174 #define Sgl_setzero_mantissa(sgl_value) Sall(sgl_value) &= 0xff800000
175 #define Sgl_setzero_exponentmantissa(sgl_value)  Sall(sgl_value) &= 0x80000000
176 #define Sgl_setzero(sgl_value) Sall(sgl_value) = 0
214 	Sall(srcdst) = 0;						\
229   if((Extall(extent) = 0-Extall(extent)))				\
293 		if (exponent < 0) sticky |= Sall(opnd) << (32+exponent); \
298 		guard = 0;						\
311     Sextallp1(valA) = 0; Sextallp2(valB) = 0
313 #define Sglext_isnotzero_mantissap2(valB) (Sextallp2(valB)!=0)
314 #define Sglext_isone_lowp1(val) (Sextlowp1(val)!=0)
315 #define Sglext_isone_highp2(val) (Sexthighp2(val)!=0)
316 #define Sglext_isnotzero_low31p2(val) (Sextlow31p2(val)!=0)
317 #define Sglext_iszero(valA,valB) (Sextallp1(valA)==0 && Sextallp2(valB)==0)
325 	Sextallp1(dest1) = Sall(src1); Sextallp2(dest2) = 0
338     sticky = 0;								\
340      case 0: if (shiftamt > 0) {					\
347      case 1: if (shiftamt > 0) {					\
355 	     Sextallp1(srcdstA) = 0;					\
424     if (exponent == 0 && Sextallp2(opndp2)) {				\
457 		Sextallp1(opndp1) = 0;					\
464 	    Sextallp1(opndp1) = 0;					\
472     exponent = 0;							\