8 #define LONG8BITS (2*LONGBITS)
13 qbit_bits(a, b, len) longint a; integer b, len;
15 qbit_bits(longint a, integer b, integer len)
18 /* Assume 2's complement arithmetic */
26 return (longint)(x & y);
31 qbit_cshift(a, b, len) longint a; integer b, len;
33 qbit_cshift(longint a, integer b, integer len)
44 if (len >= LONG8BITS) {
48 return (longint)(x << b | x >> LONG8BITS - b );
52 return (longint)(x << LONG8BITS - b | x >> b);
54 y = z = (unsigned long)-1;
61 return (longint)(y | z & (x << b | x >> len - b));
65 return (longint)(y | z & (x >> b | x << len - b));