diff options
Diffstat (limited to 'libf2c/libF77/qbitbits.c')
| -rw-r--r-- | libf2c/libF77/qbitbits.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libf2c/libF77/qbitbits.c b/libf2c/libF77/qbitbits.c index c2a87c2..f72858e 100644 --- a/libf2c/libF77/qbitbits.c +++ b/libf2c/libF77/qbitbits.c @@ -40,11 +40,11 @@ qbit_cshift (longint a, integer b, integer len) if (b >= 0) { b %= LONG8BITS; - return (longint) (x << b | x >> LONG8BITS - b); + return (longint) (x << b | x >> (LONG8BITS - b)); } b = -b; b %= LONG8BITS; - return (longint) (x << LONG8BITS - b | x >> b); + return (longint) (x << (LONG8BITS - b) | x >> b); } y = z = (unsigned long) -1; y <<= len; @@ -54,9 +54,9 @@ qbit_cshift (longint a, integer b, integer len) if (b >= 0) { b %= len; - return (longint) (y | z & (x << b | x >> len - b)); + return (longint) (y | (z & (x << b | x >> (len - b)))); } b = -b; b %= len; - return (longint) (y | z & (x >> b | x << len - b)); + return (longint) (y | (z & (x >> b | x << (len - b)))); } |