diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2002-06-04 02:24:26 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2002-06-04 02:24:26 +0000 |
| commit | ac1db652a0f9c208904e5dc831ffee202a9929e0 (patch) | |
| tree | 65eb683329d9e7e494421e05c8fc39677265efdf /libf2c/libF77/qbitbits.c | |
| parent | 467e9325d43e91e1a550ebd476ab9245142a70ca (diff) | |
| download | gcc-ac1db652a0f9c208904e5dc831ffee202a9929e0.zip gcc-ac1db652a0f9c208904e5dc831ffee202a9929e0.tar.gz gcc-ac1db652a0f9c208904e5dc831ffee202a9929e0.tar.bz2 | |
lbitbits.c (lbit_cshift): disambiguate expressions with parentheses.
* libF77/lbitbits.c (lbit_cshift): disambiguate expressions
with parentheses.
* libF77/qbitbits.c (qbit_cshift): Likewise.
* libI77/inquire.c (f_inqu): Likewise.
* libI77/rdfmt.c (rd_Z): Likewise.
* libI77/rsne.c (x_rsne): Likewise.
From-SVN: r54223
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)))); } |