-/* --- @more@ --- *
- *
- * Arguments: @bitscan *b@ = pointer to a bitscanner structure
- * @unsigned l@ = number of bits wanted
- *
- * Returns: An integer representing the next @l@ bits of the stream.
- *
- * Use: Fetches the next @l@ bits of a data stream. The bitscanner
- * has no way of knowing whether it's run out of data, so make
- * sure that doesn't happen.
- */
-
-static unsigned more(bitscan *b, unsigned l)
-{
- unsigned x, m;
-
- while (b->b < l) {
- b->a |= U8(*b->p++) << b->b;
- b->b += 8;
- }
- m = (1 << l) - 1;
- x = b->a & m;
- b->a >>= l;
- b->b -= l;
- return (x);
-}
-