Lines Matching refs:L
311 typedef union { double d; ULong L[2]; } U; member
314 #define word0(x) (x)->L[1]
315 #define word1(x) (x)->L[0]
317 #define word0(x) (x)->L[0]
318 #define word1(x) (x)->L[1]
1215 Long L; local
1218 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1221 if (L > 0) {
1225 L |= Exp_msk1 >> 4;
1227 word0(&u) = L;
1233 L = -L >> Exp_shift;
1234 if (L < Exp_shift) {
1235 word0(&u) = 0x80000 >> L;
1240 L -= Exp_shift;
1241 word1(&u) = L >= 31 ? 1 : 1 << 31 - L;
1814 ULong L, lostbits, *x; local
1987 L = 0;
2002 *x++ = L;
2003 L = 0;
2006 L |= (hexdig[*s1] & 0x0f) << n;
2009 *x++ = L;
2011 n = ULbits*n - hi0bits(L);
2546 Long L; local
2708 L = c - '0';
2711 L = (Long) (10*(ULong)L + (c - '0'));
2712 if (s - s1 > 8 || L > 19999)
2718 e = (int)L;
3297 L = word0(&rv) & Exp_mask;
3299 if (L < Exp_msk1)
3302 if (L <= (bc.scale ? (2*P+1)*Exp_msk1 : Exp_msk1))
3304 if (L <= Exp_msk1)
3314 L -= Exp_msk1;
3318 L = word0(&rv) & Exp_mask;
3319 if (L <= (2*P+1)*Exp_msk1) {
3320 if (L > (P+2)*Exp_msk1)
3333 L = (word0(&rv) & Exp_mask) - Exp_msk1;
3335 word0(&rv) = L | Bndry_mask1;
3539 L = (Long)aadj;
3540 aadj -= L;
3759 Long L; local
4049 L = dval(&u);
4050 dval(&u) -= L;
4051 *s++ = '0' + (int)L;
4067 L = (Long)(dval(&u));
4068 if (!(dval(&u) -= L))
4070 *s++ = '0' + (int)L;
4104 L = (Long)(dval(&u) / ds);
4105 dval(&u) -= L*ds;
4109 L--;
4113 *s++ = '0' + (int)L;
4132 if (dval(&u) > ds || (dval(&u) == ds && L & 1))
