Lines Matching defs:srcp1
186 int dst_exponent, srcp1;
189 Dint_copyfromptr(srcptr,srcp1,srcp2);
193 if (srcp1 < 0) {
195 Dint_negate(srcp1,srcp2);
200 if (srcp1 == 0 && srcp2 == 0) {
210 if (srcp1 == 0) {
219 srcp1 = srcp2 << dst_exponent;
223 srcp1 = srcp2 >> 1;
239 Find_ms_one_bit(srcp1,dst_exponent);
242 Variable_shift_double(srcp1,srcp2,(32-dst_exponent),
243 srcp1);
251 else srcp1 >>= -(dst_exponent);
253 Sgl_set_mantissa(result, srcp1 >> SGL_EXP_LENGTH - 1);
257 if (Dint_isinexact_to_sgl(srcp1,srcp2)) {
268 Sgl_roundnearest_from_dint(srcp1,srcp2,result);
291 register int srcp1, dst_exponent;
294 Dint_copyfromptr(srcptr,srcp1,srcp2);
298 if (srcp1 < 0) {
300 Dint_negate(srcp1,srcp2);
305 if (srcp1 == 0 && srcp2 ==0) {
315 if (srcp1 == 0) {
324 srcp1 = srcp2 << dst_exponent;
328 srcp1 = srcp2 >> 1;
343 Find_ms_one_bit(srcp1,dst_exponent);
346 Variable_shift_double(srcp1,srcp2,(32-dst_exponent),
347 srcp1);
355 else srcp1 >>= -(dst_exponent);
357 Dbl_set_mantissap1(resultp1, srcp1 >> (DBL_EXP_LENGTH-1));
358 Shiftdouble(srcp1,srcp2,DBL_EXP_LENGTH-1,resultp2);