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]
1212 Long L; local
1215 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1218 if (L > 0) {
1222 L |= Exp_msk1 >> 4;
1224 word0(&u) = L;
1230 L = -L >> Exp_shift;
1231 if (L < Exp_shift) {
1232 word0(&u) = 0x80000 >> L;
1237 L -= Exp_shift;
1238 word1(&u) = L >= 31 ? 1 : 1 << 31 - L;
1811 ULong L, lostbits, *x; local
1984 L = 0;
1999 *x++ = L;
2000 L = 0;
2003 L |= (hexdig[*s1] & 0x0f) << n;
2006 *x++ = L;
2008 n = ULbits*n - hi0bits(L);
2543 Long L; local
2705 L = c - '0';
2708 L = 10*L + c - '0';
2709 if (s - s1 > 8 || L > 19999)
2715 e = (int)L;
3294 L = word0(&rv) & Exp_mask;
3296 if (L < Exp_msk1)
3299 if (L <= (bc.scale ? (2*P+1)*Exp_msk1 : Exp_msk1))
3301 if (L <= Exp_msk1)
3311 L -= Exp_msk1;
3315 L = word0(&rv) & Exp_mask;
3316 if (L <= (2*P+1)*Exp_msk1) {
3317 if (L > (P+2)*Exp_msk1)
3330 L = (word0(&rv) & Exp_mask) - Exp_msk1;
3332 word0(&rv) = L | Bndry_mask1;
3536 L = (Long)aadj;
3537 aadj -= L;
3756 Long L; local
4046 L = dval(&u);
4047 dval(&u) -= L;
4048 *s++ = '0' + (int)L;
4064 L = (Long)(dval(&u));
4065 if (!(dval(&u) -= L))
4067 *s++ = '0' + (int)L;
4101 L = (Long)(dval(&u) / ds);
4102 dval(&u) -= L*ds;
4106 L--;
4110 *s++ = '0' + (int)L;
4129 if (dval(&u) > ds || (dval(&u) == ds && L & 1))