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
));