| /src/sys/arch/hppa/spmath/ |
| dfsqrt.c | 59 register unsigned int srcp1, srcp2, resultp1, resultp2; local in function:dbl_fsqrt
64 Dbl_copyfromptr(srcptr,srcp1,srcp2);
68 if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {
72 if (Dbl_isone_signaling(srcp1)) {
77 Dbl_set_quiet(srcp1);
83 if (Dbl_iszero_sign(srcp1) ||
84 Dbl_isnotzero_mantissa(srcp1,srcp2)) {
85 Dbl_copytoptr(srcp1,srcp2,dstptr);
93 if (Dbl_iszero_exponentmantissa(srcp1,srcp2)) {
94 Dbl_copytoptr(srcp1,srcp2,dstptr)
[all...] |
| fcnvff.c | 144 register unsigned int srcp1, srcp2, result; local in function:dbl_to_sgl_fcnvff
150 Dbl_copyfromptr(srcptr,srcp1,srcp2);
151 src_exponent = Dbl_exponent(srcp1);
152 Sgl_all(result) = Dbl_allp1(srcp1); /* set sign of result */
160 if (Dbl_iszero_mantissa(srcp1,srcp2)) {
171 if (Dbl_isone_signaling(srcp1)) {
177 Dbl_set_quiet(srcp1);
184 Sgl_set_mantissa(result,Dallp1(srcp1)<<3 | Dallp2(srcp2)>>29);
194 Dbl_to_sgl_mantissa(srcp1,srcp2,dest_mantissa,inexact,guardbit,
198 if (Dbl_iszero_exponentmantissa(srcp1,srcp2))
[all...] |
| fcnvfx.c | 276 register unsigned int srcp1,srcp2, tempp1,tempp2; local in function:dbl_to_sgl_fcnvfx
280 Dbl_copyfromptr(srcptr,srcp1,srcp2);
281 src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
288 if (Dbl_isoverflow_to_int(src_exponent,srcp1,srcp2)) {
289 if (Dbl_iszero_sign(srcp1)) result = 0x7fffffff;
304 tempp1 = srcp1;
308 if (Dbl_isone_sign(srcp1) && (src_exponent <= SGL_FX_MAX_EXP))
313 if (Dbl_isinexact_to_fix(srcp1,srcp2,src_exponent)) {
318 if (Dbl_iszero_sign(srcp1))
322 if (Dbl_isone_sign(srcp1)) result--
396 register unsigned int srcp1, srcp2, tempp1, tempp2, resultp2; local in function:dbl_to_dbl_fcnvfx
[all...] |
| fcnvfxt.c | 194 register unsigned int srcp1, srcp2, tempp1, tempp2; local in function:dbl_to_sgl_fcnvfxt
197 Dbl_copyfromptr(srcptr,srcp1,srcp2);
198 src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
205 if (Dbl_isoverflow_to_int(src_exponent,srcp1,srcp2)) {
206 if (Dbl_iszero_sign(srcp1)) result = 0x7fffffff;
221 tempp1 = srcp1;
225 if (Dbl_isone_sign(srcp1) && (src_exponent <= SGL_FX_MAX_EXP))
231 if (Dbl_isinexact_to_fix(srcp1,srcp2,src_exponent)) {
240 if (Dbl_isnotzero_exponentmantissa(srcp1,srcp2)) {
257 register unsigned int srcp1, srcp2, tempp1, tempp2, resultp2 local in function:dbl_to_dbl_fcnvfxt
[all...] |
| fcnvxf.c | 173 int dst_exponent, srcp1; local in function:dbl_to_sgl_fcnvxf
176 Dint_copyfromptr(srcptr,srcp1,srcp2);
180 if (srcp1 < 0) {
182 Dint_negate(srcp1,srcp2);
187 if (srcp1 == 0 && srcp2 == 0) {
197 if (srcp1 == 0) {
206 srcp1 = srcp2 << dst_exponent;
210 srcp1 = srcp2 >> 1;
226 Find_ms_one_bit(srcp1,dst_exponent);
229 Variable_shift_double(srcp1,srcp2,(32-dst_exponent)
274 register int srcp1, dst_exponent; local in function:dbl_to_dbl_fcnvxf
[all...] |
| frnd.c | 164 register unsigned int srcp1, srcp2, resultp1, resultp2; local in function:dbl_frnd
168 Dbl_copyfromptr(srcptr,srcp1,srcp2);
172 if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {
176 if (Dbl_isone_signaling(srcp1)) {
181 Dbl_set_quiet(srcp1);
186 Dbl_copytoptr(srcp1,srcp2,dstptr);
193 Dbl_copytoptr(srcp1,srcp2,dstptr);
200 Dbl_clear_exponent_set_hidden(srcp1);
201 resultp1 = srcp1;
205 if (Dbl_isinexact_to_fix(srcp1,srcp2,src_exponent))
[all...] |
