config/libbid/bid128_fma.c

274   UINT128 P128, R128;
304     P128.w[1] = 0;
305     P128.w[0] = ten2k64[scale];
306     __mul_128x128_to_256 (R256, P128, C3);
401       P128.w[1] = R256.w[1];
402       P128.w[0] = R256.w[0];
403       round128_19_38 (ind, x0, P128, &R128, &incr_exp,
432       P128.w[1] = p_sign | 0x3040000000000000ull | R128.w[1];
433       P128.w[0] = R128.w[0];
437         		   is_midpoint_gt_even, 0, &P128, ptrfpsf);
438       scale = ((P128.w[1] & MASK_EXP) >> 49) - 6176; // -1, 0, or +1
541         P128.w[1] = res.w[1] & MASK_COEFF;
542         P128.w[0] = res.w[0];
543         round128_19_38 (ind, x0, P128, &res, &incr_exp,
553         P128.w[1] = res.w[1] & MASK_COEFF;
554         P128.w[0] = res.w[0];
555         __mul_64x128_to_128 (res, ten2k64[1], P128);
682   UINT128 P128, R128;
1299         P128.w[1] = C4.w[1];
1300         P128.w[0] = C4.w[0];
1301         round128_19_38 (q4, x0, P128, &res, &incr_exp,
1412             P128.w[1] = res.w[1];
1413             P128.w[0] = res.w[0];
1414             round128_19_38 (q4, x0, P128, &res, &incr_exp,
1770               P128.w[1] = C4.w[1];
1771               P128.w[0] = C4.w[0];
1772               round128_19_38 (q4, q4 - 1, P128, &R128, &incr_exp,
2122         	P128.w[1] = C4.w[1];
2123         	P128.w[0] = C4.w[0];
2124         	round128_19_38 (q4, q4 - 1, P128, &R128, &incr_exp,
2308             __mul_64x64_to_128MACH (P128, C4.w[0], ten2k64[scale]);
2311             __mul_128x64_to_128 (P128, C4.w[0], ten2k128[scale - 20]);
2315           __mul_128x64_to_128 (P128, ten2k64[scale], C4);
2317         C4.w[0] = P128.w[0];
2318         C4.w[1] = P128.w[1];
2383         P128.w[1] = C4.w[1];
2384         P128.w[0] = C4.w[0];
2385         round128_19_38 (q4, x0, P128, &R128, &incr_exp,
2469           P128.w[1] = res.w[1];
2470           P128.w[0] = res.w[0];
2471           round128_19_38 (35, 1, P128, &res, &incr_exp,
2750           P128.w[1] = res.w[1];
2751           P128.w[0] = res.w[0];
2752           round128_19_38 (ind, x0, P128, &res, &incr_exp,
2880         P128.w[1] = C3.w[1];
2881         P128.w[0] = C3.w[0];
2884         C4.w[1] = P128.w[1];
2885         C4.w[0] = P128.w[0];
2924         P128.w[1] = C4.w[1];
2925         P128.w[0] = C4.w[0];
2926         round128_19_38 (q4, x0, P128, &res, &incr_exp,
3084       P128.w[1] = C3.w[1];
3085       P128.w[0] = C3.w[0];
3088       C4.w[1] = P128.w[1];
3089       C4.w[0] = P128.w[0];
3129         P128.w[1] = C3.w[1];
3130         P128.w[0] = C3.w[0];
3131         __mul_64x128_to_128 (C3, ten2k64[1], P128);
3228           P128.w[1] = R256.w[1];
3229           P128.w[0] = R256.w[0];
3230           round128_19_38 (ind, x0, P128, &R128, &incr_exp,
3324         P128.w[1] = p_sign | 0x3040000000000000ull | res.w[1];
3325         P128.w[0] = res.w[0];
3330         		     0, &P128, pfpsf);
3331         scale = ((P128.w[1] & MASK_EXP) >> 49) - 6176; // -1, 0, or +1
3445             P128.w[1] = res.w[1] & MASK_COEFF;
3446             P128.w[0] = res.w[0];
3447             round128_19_38 (ind, x0, P128, &res, &incr_exp,
3457             P128.w[1] = res.w[1] & MASK_COEFF;
3458             P128.w[0] = res.w[0];
3459             __mul_64x128_to_128 (res, ten2k64[1], P128);