8 #define LONG8BITS (2*LONGBITS)
12 qbit_bits (longint a, integer b, integer len)
14 /* Assume 2's complement arithmetic */
22 return (longint) (x & y);
26 qbit_cshift (longint a, integer b, integer len)
43 return (longint) (x << b | x >> (LONG8BITS - b));
47 return (longint) (x << (LONG8BITS - b) | x >> b);
49 y = z = (unsigned long) -1;
57 return (longint) (y | (z & (x << b | x >> (len - b))));
61 return (longint) (y | (z & (x >> b | x << (len - b))));