46 	(k) int k;  in Balloc()  argument
48 	(int k)
58 	/* The k > Kmax case does not need ACQUIRE_DTOA_LOCK(0), */
60 	if (k <= Kmax && (rv = freelist[k]) !=0) {
61 		freelist[k] = rv->next;
64 		x = 1 << k;
70 		if (k <= Kmax && pmem_next - private_mem + len <= PRIVATE_mem) {
77 		rv->k = k;
94 		if (v->k > Kmax)
102 			v->next = freelist[v->k];
103 			freelist[v->k] = v;
117 	int k;  local
130 	k = 0;
132 		k = 16;
136 		k += 8;
140 		k += 4;
144 		k += 2;
148 		k++;
151 			return 32;
154 	return k;
184 		carry = y >> 32;
203 			b1 = Balloc(b->k+1);
222 	int k = 0;  local
225 		k = 16;
229 		k += 8;
233 		k += 4;
237 		k += 2;
241 		k++;
243 			return 32;
245 	return k;
273 	int k, wa, wb, wc;  local
290 	k = a->k;
295 		k++;
296 	c = Balloc(k);
312 				carry = z >> 32;
379 	(b, k) Bigint *b; int k;  in pow5mult()  argument
381 	(Bigint *b, int k)
388 	if ( (i = k & 3) !=0)
391 	if (!(k >>= 2))
408 		if (k & 1) {
413 		if (!(k >>= 1))
436 	(b, k) Bigint *b; int k;  in lshift()  argument
438 	(Bigint *b, int k)
445 	n = k >> kshift;
446 	k1 = b->k;
456 	if (k &= kmask) {
458 		k1 = 32 - k;
461 			*x1++ = *x << k | z;
468 		k1 = 16 - k;
471 			*x1++ = *x << k  & 0xffff | z;
556 	c = Balloc(a->k);
569 		borrow = y >> 32 & 1UL;
575 		borrow = y >> 32 & 1UL;
624 	int k;  local
639 	k = hi0bits(y);
640 	*e = 32 - k;
642 	if (k < Ebits) {
643 		d0 = Exp_1 | y >> (Ebits - k);
645 		d1 = y << ((32-Ebits) + k) | w >> (Ebits - k);
649 	if (k -= Ebits) {
650 		d0 = Exp_1 | y << k | z >> (32 - k);
652 		d1 = z << k | y >> (32 - k);
659 	if (k < Ebits + 16) {
661 		d0 = Exp_1 | y << k - Ebits | z >> Ebits + 16 - k;
664 		d1 = z << k + 16 - Ebits | w << k - Ebits | y >> 16 + Ebits - k;
669 	k -= Ebits + 16;
670 	d0 = Exp_1 | y << k + 16 | z << k | w >> 16 - k;
672 	d1 = w << k + 16 | y << k;
697 	int de, k;  local
731 		if ( (k = lo0bits(&y)) !=0) {
732 			x[0] = y | z << (32 - k);
733 			z >>= k;
743 		k = lo0bits(&z);
749 		k += 32;
753 		if ( (k = lo0bits(&y)) !=0)
754 			if (k >= 16) {
755 				x[0] = y | z << 32 - k & 0xffff;
756 				x[1] = z >> k - 16 & 0xffff;
757 				x[2] = z >> k;
762 				x[1] = y >> 16 | z << 16 - k & 0xffff;
763 				x[2] = z >> k & 0xffff;
764 				x[3] = z >> k+16;
780 		k = lo0bits(&z);
781 		if (k >= 16) {
790 		k += 32;
800 		*e = (de - Bias - (P-1) << 2) + k;
801 		*bits = 4*P + 8 - k - hi0bits(word0(&d) & Frac_mask);
803 		*e = de - Bias - (P-1) + k;
804 		*bits = P - k;
809 		*e = de - Bias - (P-1) + 1 + k;
811 		*bits = 32*i - hi0bits(x[i-1]);
825 CONST double tinytens[] = { 1e-16, 1e-32, 1e-64, 1e-128, 1e-256
830 CONST double tinytens[] = { 1e-16, 1e-32, 1e-64 };
833 CONST double tinytens[] = { 1e-16, 1e-32 };