150 Balloc (int k)  in Balloc()  argument
155   x = 1 << k;  in Balloc()
161   rv->_k = k;  in Balloc()
234   int i, k;  in s2b()  local
238   for (k = 0, y = 1; x > y; y <<= 1, k++);  in s2b()
240   b = Balloc (k);  in s2b()
246   b = Balloc (k + 1);  in s2b()
272   register int k = 0;  in hi0bits()  local
276       k = 16;  in hi0bits()
281       k += 8;  in hi0bits()
286       k += 4;  in hi0bits()
291       k += 2;  in hi0bits()
296       k++;  in hi0bits()
300   return k;  in hi0bits()
306   register int k;  in lo0bits()  local
321   k = 0;  in lo0bits()
324       k = 16;  in lo0bits()
329       k += 8;  in lo0bits()
334       k += 4;  in lo0bits()
339       k += 2;  in lo0bits()
344       k++;  in lo0bits()
350   return k;  in lo0bits()
370   int k, wa, wb, wc;  in mult()  local
386   k = a->_k;  in mult()
391     k++;  in mult()
392   c = Balloc (k);  in mult()
464 pow5mult (_Bigint * b, int k)  in pow5mult()  argument
470   if ((i = k & 3) != 0)  in pow5mult()
473   if (!(k >>= 2))  in pow5mult()
478       if (k & 1)  in pow5mult()
484       if (!(k >>= 1))  in pow5mult()
495 lshift (_Bigint * b, int k)  in lshift()  argument
505   n = k >> 5;  in lshift()
507   n = k >> 4;  in lshift()
523   if (k &= 0x1f)  in lshift()
525       k1 = 32 - k;  in lshift()
529 	  *x1++ = *x << k | z;  in lshift()
537   if (k &= 0xf)  in lshift()
539       k1 = 16 - k;  in lshift()
543 	  *x1++ = *x << k & 0xffff | z;  in lshift()
735   int k;  in b2d()  local
751   k = hi0bits (y);  in b2d()
752   *e = 32 - k;  in b2d()
754   if (k < Ebits)  in b2d()
756       d0 = Exp_1 | y >> (Ebits - k);  in b2d()
759       d1 = y << ((32 - Ebits) + k) | w >> (Ebits - k);  in b2d()
764   if (k -= Ebits)  in b2d()
766       d0 = Exp_1 | y << k | z >> (32 - k);  in b2d()
769       d1 = z << k | y >> (32 - k);  in b2d()
780   if (k < Ebits + 16)  in b2d()
783       d0 = Exp_1 | y << k - Ebits | z >> Ebits + 16 - k;  in b2d()
786       d1 = z << k + 16 - Ebits | w << k - Ebits | y >> 16 + Ebits - k;  in b2d()
791   k -= Ebits + 16;  in b2d()
792   d0 = Exp_1 | y << k + 16 | z << k | w >> 16 - k;  in b2d()
794   d1 = w << k + 16 | y << k;  in b2d()
816   int de, i, k;  in d2b()  local
859       k = lo0bits (&y);  in d2b()
860       if (k)  in d2b()
862          x[0] = y | z << (32 - k);  in d2b()
863 	  z >>= k;  in d2b()
876       k = lo0bits (&z);  in d2b()
880       k += 32;  in d2b()
887       k = lo0bits (&y);  in d2b()
888       if (k)  in d2b()
889 	if (k >= 16)  in d2b()
891 	    x[0] = y | z << 32 - k & 0xffff;  in d2b()
892 	    x[1] = z >> k - 16 & 0xffff;  in d2b()
893 	    x[2] = z >> k;  in d2b()
899 	    x[1] = y >> 16 | z << 16 - k & 0xffff;  in d2b()
900 	    x[2] = z >> k & 0xffff;  in d2b()
901 	    x[3] = z >> k + 16;  in d2b()
919       k = lo0bits (&z);  in d2b()
920       if (k >= 16)  in d2b()
931       k += 32;  in d2b()
942       *e = (de - Bias - (P - 1) << 2) + k;  in d2b()
943       *bits = 4 * P + 8 - k - hi0bits (word0 (d) & Frac_mask);  in d2b()
945       *e = de - Bias - (P - 1) + k;  in d2b()
946       *bits = P - k;  in d2b()
952       *e = de - Bias - (P - 1) + 1 + k;  in d2b()
970   int k, ka, kb;  in ratio()  local
975   k = ka - kb + 32 * (a->_wds - b->_wds);  in ratio()
977   k = ka - kb + 16 * (a->_wds - b->_wds);  in ratio()
980   if (k > 0)  in ratio()
982       word0 (da) += (k >> 2) * Exp_msk1;  in ratio()
983       if (k &= 3)  in ratio()
984 	da.d *= 1 << k;  in ratio()
988       k = -k;  in ratio()
989       word0 (db) += (k >> 2) * Exp_msk1;  in ratio()
990       if (k &= 3)  in ratio()
991 	db.d *= 1 << k;  in ratio()
994   if (k > 0)  in ratio()
995     word0 (da) += k * Exp_msk1;  in ratio()
998       k = -k;  in ratio()
999       word0 (db) += k * Exp_msk1;  in ratio()
1074 	int k)  in any_on()  argument
1081 	n = k >> kshift;  in any_on()
1084 	else if (n < nwds && (k &= kmask)) {  in any_on()
1086 		x1 >>= k;  in any_on()
1087 		x1 <<= k;  in any_on()