Lines Matching refs:sgl_value
74 #define Sgl_isone_hidden(sgl_value) (Shidden(sgl_value)) argument
75 #define Sgl_increment(sgl_value) Sall(sgl_value) += 1 argument
76 #define Sgl_increment_mantissa(sgl_value) \ argument
77 Deposit_smantissa(sgl_value,sgl_value+1)
78 #define Sgl_decrement(sgl_value) Sall(sgl_value) -= 1 argument
80 #define Sgl_isone_sign(sgl_value) (Is_ssign(sgl_value)!=0) argument
81 #define Sgl_isone_hiddenoverflow(sgl_value) \ argument
82 (Is_shiddenoverflow(sgl_value)!=0)
83 #define Sgl_isone_lowmantissa(sgl_value) (Is_slow(sgl_value)!=0) argument
84 #define Sgl_isone_signaling(sgl_value) (Is_ssignaling(sgl_value)!=0) argument
85 #define Sgl_is_signalingnan(sgl_value) (Ssignalingnan(sgl_value)==0x1ff) argument
86 #define Sgl_isnotzero(sgl_value) (Sall(sgl_value)!=0) argument
87 #define Sgl_isnotzero_hiddenhigh7mantissa(sgl_value) \ argument
88 (Shiddenhigh7mantissa(sgl_value)!=0)
89 #define Sgl_isnotzero_low4(sgl_value) (Slow4(sgl_value)!=0) argument
90 #define Sgl_isnotzero_exponent(sgl_value) (Sexponent(sgl_value)!=0) argument
91 #define Sgl_isnotzero_mantissa(sgl_value) (Smantissa(sgl_value)!=0) argument
92 #define Sgl_isnotzero_exponentmantissa(sgl_value) \ argument
93 (Sexponentmantissa(sgl_value)!=0)
94 #define Sgl_iszero(sgl_value) (Sall(sgl_value)==0) argument
95 #define Sgl_iszero_signaling(sgl_value) (Is_ssignaling(sgl_value)==0) argument
96 #define Sgl_iszero_hidden(sgl_value) (Is_shidden(sgl_value)==0) argument
97 #define Sgl_iszero_hiddenoverflow(sgl_value) \ argument
98 (Is_shiddenoverflow(sgl_value)==0)
99 #define Sgl_iszero_hiddenhigh3mantissa(sgl_value) \ argument
100 (Shiddenhigh3mantissa(sgl_value)==0)
101 #define Sgl_iszero_hiddenhigh7mantissa(sgl_value) \ argument
102 (Shiddenhigh7mantissa(sgl_value)==0)
103 #define Sgl_iszero_sign(sgl_value) (Is_ssign(sgl_value)==0) argument
104 #define Sgl_iszero_exponent(sgl_value) (Sexponent(sgl_value)==0) argument
105 #define Sgl_iszero_mantissa(sgl_value) (Smantissa(sgl_value)==0) argument
106 #define Sgl_iszero_exponentmantissa(sgl_value) \ argument
107 (Sexponentmantissa(sgl_value)==0)
108 #define Sgl_isinfinity_exponent(sgl_value) \ argument
109 (Sgl_exponent(sgl_value)==SGL_INFINITY_EXPONENT)
110 #define Sgl_isnotinfinity_exponent(sgl_value) \ argument
111 (Sgl_exponent(sgl_value)!=SGL_INFINITY_EXPONENT)
112 #define Sgl_isinfinity(sgl_value) \ argument
113 (Sgl_exponent(sgl_value)==SGL_INFINITY_EXPONENT && \
114 Sgl_mantissa(sgl_value)==0)
115 #define Sgl_isnan(sgl_value) \ argument
116 (Sgl_exponent(sgl_value)==SGL_INFINITY_EXPONENT && \
117 Sgl_mantissa(sgl_value)!=0)
118 #define Sgl_isnotnan(sgl_value) \ argument
119 (Sgl_exponent(sgl_value)!=SGL_INFINITY_EXPONENT || \
120 Sgl_mantissa(sgl_value)==0)
130 #define Sgl_leftshiftby8(sgl_value) \ argument
131 Sall(sgl_value) <<= 8
132 #define Sgl_leftshiftby4(sgl_value) \ argument
133 Sall(sgl_value) <<= 4
134 #define Sgl_leftshiftby3(sgl_value) \ argument
135 Sall(sgl_value) <<= 3
136 #define Sgl_leftshiftby2(sgl_value) \ argument
137 Sall(sgl_value) <<= 2
138 #define Sgl_leftshiftby1(sgl_value) \ argument
139 Sall(sgl_value) <<= 1
140 #define Sgl_rightshiftby1(sgl_value) \ argument
141 Sall(sgl_value) >>= 1
142 #define Sgl_rightshiftby4(sgl_value) \ argument
143 Sall(sgl_value) >>= 4
144 #define Sgl_rightshiftby8(sgl_value) \ argument
145 Sall(sgl_value) >>= 8
157 #define Sgl_set_quiet(sgl_value) Deposit_shigh2mantissa(sgl_value,1) argument
158 #define Sgl_set_exponent(sgl_value,exp) Deposit_sexponent(sgl_value,exp) argument
165 #define Sgl_setinfinity_exponent(sgl_value) \ argument
166 Deposit_sexponent(sgl_value,SGL_INFINITY_EXPONENT)
167 #define Sgl_setinfinity_exponentmantissa(sgl_value) \ argument
168 Deposit_sexponentmantissa(sgl_value, \
170 #define Sgl_setinfinitypositive(sgl_value) \ argument
171 Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH)))
172 #define Sgl_setinfinitynegative(sgl_value) \ argument
173 Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH))) \
175 #define Sgl_setinfinity(sgl_value,sign) \ argument
176 Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH))) | \
178 #define Sgl_sethigh4bits(sgl_value, extsign) \ argument
179 Deposit_shigh4(sgl_value,extsign)
180 #define Sgl_set_sign(sgl_value,sign) Deposit_ssign(sgl_value,sign) argument
181 #define Sgl_invert_sign(sgl_value) \ argument
182 Deposit_ssign(sgl_value,~Ssign(sgl_value))
183 #define Sgl_setone_sign(sgl_value) Deposit_ssign(sgl_value,1) argument
184 #define Sgl_setone_lowmantissa(sgl_value) Deposit_slow(sgl_value,1) argument
185 #define Sgl_setzero_sign(sgl_value) Sall(sgl_value) &= 0x7fffffff argument
186 #define Sgl_setzero_exponent(sgl_value) Sall(sgl_value) &= 0x807fffff argument
187 #define Sgl_setzero_mantissa(sgl_value) Sall(sgl_value) &= 0xff800000 argument
188 #define Sgl_setzero_exponentmantissa(sgl_value) Sall(sgl_value) &= 0x80000000 argument
189 #define Sgl_setzero(sgl_value) Sall(sgl_value) = 0 argument
190 #define Sgl_setnegativezero(sgl_value) Sall(sgl_value) = (unsigned int)1 << 31 argument
195 #define Sgl_setwrapped_exponent(sgl_value,exponent,op) \ argument
196 Deposit_sexponent(sgl_value,(exponent op SGL_WRAP))
198 #define Sgl_setlargestpositive(sgl_value) \ argument
199 Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
201 #define Sgl_setlargestnegative(sgl_value) \ argument
202 Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
206 #define Sgl_setnegativeinfinity(sgl_value) \ argument
207 Sall(sgl_value) = \
209 #define Sgl_setlargest(sgl_value,sign) \ argument
210 Sall(sgl_value) = (unsigned int)sign << 31 | \
213 #define Sgl_setlargest_exponentmantissa(sgl_value) \ argument
214 Sall(sgl_value) = Sall(sgl_value) & ((unsigned int)1<<31) | \
229 #define Sgl_hiddenhigh3mantissa(sgl_value) Shiddenhigh3mantissa(sgl_value) argument
230 #define Sgl_hidden(sgl_value) Shidden(sgl_value) argument
231 #define Sgl_lowmantissa(sgl_value) Slow(sgl_value) argument