Lines Matching refs:srcp1
173 int dst_exponent, srcp1;
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),
230 srcp1);
238 else srcp1 >>= -(dst_exponent);
240 Sgl_set_mantissa(result, srcp1 >> SGL_EXP_LENGTH - 1);
244 if (Dint_isinexact_to_sgl(srcp1,srcp2)) {
255 Sgl_roundnearest_from_dint(srcp1,srcp2,result);
278 register int srcp1, dst_exponent;
281 Dint_copyfromptr(srcptr,srcp1,srcp2);
285 if (srcp1 < 0) {
287 Dint_negate(srcp1,srcp2);
292 if (srcp1 == 0 && srcp2 ==0) {
302 if (srcp1 == 0) {
311 srcp1 = srcp2 << dst_exponent;
315 srcp1 = srcp2 >> 1;
330 Find_ms_one_bit(srcp1,dst_exponent);
333 Variable_shift_double(srcp1,srcp2,(32-dst_exponent),
334 srcp1);
342 else srcp1 >>= -(dst_exponent);
344 Dbl_set_mantissap1(resultp1, srcp1 >> (DBL_EXP_LENGTH-1));
345 Shiftdouble(srcp1,srcp2,DBL_EXP_LENGTH-1,resultp2);