Lines Matching refs:sgl_value
61 #define Sgl_isone_hidden(sgl_value) (Shidden(sgl_value)) argument
62 #define Sgl_increment(sgl_value) Sall(sgl_value) += 1 argument
63 #define Sgl_increment_mantissa(sgl_value) \ argument
64 Deposit_smantissa(sgl_value,sgl_value+1)
65 #define Sgl_decrement(sgl_value) Sall(sgl_value) -= 1 argument
67 #define Sgl_isone_sign(sgl_value) (Is_ssign(sgl_value)!=0) argument
68 #define Sgl_isone_hiddenoverflow(sgl_value) \ argument
69 (Is_shiddenoverflow(sgl_value)!=0)
70 #define Sgl_isone_lowmantissa(sgl_value) (Is_slow(sgl_value)!=0) argument
71 #define Sgl_isone_signaling(sgl_value) (Is_ssignaling(sgl_value)!=0) argument
72 #define Sgl_is_signalingnan(sgl_value) (Ssignalingnan(sgl_value)==0x1ff) argument
73 #define Sgl_isnotzero(sgl_value) (Sall(sgl_value)!=0) argument
74 #define Sgl_isnotzero_hiddenhigh7mantissa(sgl_value) \ argument
75 (Shiddenhigh7mantissa(sgl_value)!=0)
76 #define Sgl_isnotzero_low4(sgl_value) (Slow4(sgl_value)!=0) argument
77 #define Sgl_isnotzero_exponent(sgl_value) (Sexponent(sgl_value)!=0) argument
78 #define Sgl_isnotzero_mantissa(sgl_value) (Smantissa(sgl_value)!=0) argument
79 #define Sgl_isnotzero_exponentmantissa(sgl_value) \ argument
80 (Sexponentmantissa(sgl_value)!=0)
81 #define Sgl_iszero(sgl_value) (Sall(sgl_value)==0) argument
82 #define Sgl_iszero_signaling(sgl_value) (Is_ssignaling(sgl_value)==0) argument
83 #define Sgl_iszero_hidden(sgl_value) (Is_shidden(sgl_value)==0) argument
84 #define Sgl_iszero_hiddenoverflow(sgl_value) \ argument
85 (Is_shiddenoverflow(sgl_value)==0)
86 #define Sgl_iszero_hiddenhigh3mantissa(sgl_value) \ argument
87 (Shiddenhigh3mantissa(sgl_value)==0)
88 #define Sgl_iszero_hiddenhigh7mantissa(sgl_value) \ argument
89 (Shiddenhigh7mantissa(sgl_value)==0)
90 #define Sgl_iszero_sign(sgl_value) (Is_ssign(sgl_value)==0) argument
91 #define Sgl_iszero_exponent(sgl_value) (Sexponent(sgl_value)==0) argument
92 #define Sgl_iszero_mantissa(sgl_value) (Smantissa(sgl_value)==0) argument
93 #define Sgl_iszero_exponentmantissa(sgl_value) \ argument
94 (Sexponentmantissa(sgl_value)==0)
95 #define Sgl_isinfinity_exponent(sgl_value) \ argument
96 (Sgl_exponent(sgl_value)==SGL_INFINITY_EXPONENT)
97 #define Sgl_isnotinfinity_exponent(sgl_value) \ argument
98 (Sgl_exponent(sgl_value)!=SGL_INFINITY_EXPONENT)
99 #define Sgl_isinfinity(sgl_value) \ argument
100 (Sgl_exponent(sgl_value)==SGL_INFINITY_EXPONENT && \
101 Sgl_mantissa(sgl_value)==0)
102 #define Sgl_isnan(sgl_value) \ argument
103 (Sgl_exponent(sgl_value)==SGL_INFINITY_EXPONENT && \
104 Sgl_mantissa(sgl_value)!=0)
105 #define Sgl_isnotnan(sgl_value) \ argument
106 (Sgl_exponent(sgl_value)!=SGL_INFINITY_EXPONENT || \
107 Sgl_mantissa(sgl_value)==0)
117 #define Sgl_leftshiftby8(sgl_value) \ argument
118 Sall(sgl_value) <<= 8
119 #define Sgl_leftshiftby4(sgl_value) \ argument
120 Sall(sgl_value) <<= 4
121 #define Sgl_leftshiftby3(sgl_value) \ argument
122 Sall(sgl_value) <<= 3
123 #define Sgl_leftshiftby2(sgl_value) \ argument
124 Sall(sgl_value) <<= 2
125 #define Sgl_leftshiftby1(sgl_value) \ argument
126 Sall(sgl_value) <<= 1
127 #define Sgl_rightshiftby1(sgl_value) \ argument
128 Sall(sgl_value) >>= 1
129 #define Sgl_rightshiftby4(sgl_value) \ argument
130 Sall(sgl_value) >>= 4
131 #define Sgl_rightshiftby8(sgl_value) \ argument
132 Sall(sgl_value) >>= 8
144 #define Sgl_set_quiet(sgl_value) Deposit_shigh2mantissa(sgl_value,1) argument
145 #define Sgl_set_exponent(sgl_value,exp) Deposit_sexponent(sgl_value,exp) argument
152 #define Sgl_setinfinity_exponent(sgl_value) \ argument
153 Deposit_sexponent(sgl_value,SGL_INFINITY_EXPONENT)
154 #define Sgl_setinfinity_exponentmantissa(sgl_value) \ argument
155 Deposit_sexponentmantissa(sgl_value, \
157 #define Sgl_setinfinitypositive(sgl_value) \ argument
158 Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH)))
159 #define Sgl_setinfinitynegative(sgl_value) \ argument
160 Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH))) \
162 #define Sgl_setinfinity(sgl_value,sign) \ argument
163 Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH))) | \
165 #define Sgl_sethigh4bits(sgl_value, extsign) \ argument
166 Deposit_shigh4(sgl_value,extsign)
167 #define Sgl_set_sign(sgl_value,sign) Deposit_ssign(sgl_value,sign) argument
168 #define Sgl_invert_sign(sgl_value) \ argument
169 Deposit_ssign(sgl_value,~Ssign(sgl_value))
170 #define Sgl_setone_sign(sgl_value) Deposit_ssign(sgl_value,1) argument
171 #define Sgl_setone_lowmantissa(sgl_value) Deposit_slow(sgl_value,1) argument
172 #define Sgl_setzero_sign(sgl_value) Sall(sgl_value) &= 0x7fffffff argument
173 #define Sgl_setzero_exponent(sgl_value) Sall(sgl_value) &= 0x807fffff argument
174 #define Sgl_setzero_mantissa(sgl_value) Sall(sgl_value) &= 0xff800000 argument
175 #define Sgl_setzero_exponentmantissa(sgl_value) Sall(sgl_value) &= 0x80000000 argument
176 #define Sgl_setzero(sgl_value) Sall(sgl_value) = 0 argument
177 #define Sgl_setnegativezero(sgl_value) Sall(sgl_value) = (unsigned int)1 << 31 argument
182 #define Sgl_setwrapped_exponent(sgl_value,exponent,op) \ argument
183 Deposit_sexponent(sgl_value,(exponent op SGL_WRAP))
185 #define Sgl_setlargestpositive(sgl_value) \ argument
186 Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
188 #define Sgl_setlargestnegative(sgl_value) \ argument
189 Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
193 #define Sgl_setnegativeinfinity(sgl_value) \ argument
194 Sall(sgl_value) = \
196 #define Sgl_setlargest(sgl_value,sign) \ argument
197 Sall(sgl_value) = (unsigned int)sign << 31 | \
200 #define Sgl_setlargest_exponentmantissa(sgl_value) \ argument
201 Sall(sgl_value) = Sall(sgl_value) & ((unsigned int)1<<31) | \
216 #define Sgl_hiddenhigh3mantissa(sgl_value) Shiddenhigh3mantissa(sgl_value) argument
217 #define Sgl_hidden(sgl_value) Shidden(sgl_value) argument
218 #define Sgl_lowmantissa(sgl_value) Slow(sgl_value) argument