diff options
| author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-04 02:24:26 +0000 |
|---|---|---|
| committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-04 02:24:26 +0000 |
| commit | a8d8247979ab84f6b1b4f725a5a2895a487cc4b8 (patch) | |
| tree | 65eb683329d9e7e494421e05c8fc39677265efdf /libf2c/libF77/lbitbits.c | |
| parent | a1392175cbb33117389fbe70bb1049910385a0c7 (diff) | |
| download | gcc-a8d8247979ab84f6b1b4f725a5a2895a487cc4b8.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54223 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/lbitbits.c')
| -rw-r--r-- | libf2c/libF77/lbitbits.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libf2c/libF77/lbitbits.c b/libf2c/libF77/lbitbits.c index 805d85848e9..3b28ae97aba 100644 --- a/libf2c/libF77/lbitbits.c +++ b/libf2c/libF77/lbitbits.c @@ -36,11 +36,11 @@ lbit_cshift (integer a, integer b, integer len) if (b >= 0) { b %= LONGBITS; - return (integer) (x << b | x >> LONGBITS - b); + return (integer) (x << b | x >> (LONGBITS - b)); } b = -b; b %= LONGBITS; - return (integer) (x << LONGBITS - b | x >> b); + return (integer) (x << (LONGBITS - b) | x >> b); } y = z = (unsigned long) -1; y <<= len; @@ -50,9 +50,9 @@ lbit_cshift (integer a, integer b, integer len) if (b >= 0) { b %= len; - return (integer) (y | z & (x << b | x >> len - b)); + return (integer) (y | (z & (x << b | x >> (len - b)))); } b = -b; b %= len; - return (integer) (y | z & (x >> b | x << len - b)); + return (integer) (y | (z & (x >> b | x << (len - b)))); } |