38 #define	QW 1		/* width of bas-q digit in bits */  macro
117 		*pk = y >> (long)(L+QW-w);  in decode()
118 		return (w-QW);  in decode()
121 	    y = ((unsigned long)y << QW) & MASK, v += n)  in decode()
122 		if ((l += QW) > L)  in decode()
142 		return (w-QW);  in encode()
144 	for (k -= c, y = 1, l = w; k >= n; k -= n, y <<= QW)  in encode()
145 		if ((l += QW) > L)  in encode()
188 	for (i = 0, q = 1, rq = r; i < QW; i++, q *= 2, rq *= rq)  in huff()
196 	for (w = QW, j = 1; j < d; w += QW, j *= q)  in huff()
201 	qcs = (((long)(q-1)<<w) + cq) << (L-QW-w);  in huff()
205 	return (w + QW*(rc/(1-z.u) - 1));  in huff()