diff options
Diffstat (limited to 'contrib/libf2c/libF77/lbitshft.c')
-rw-r--r-- | contrib/libf2c/libF77/lbitshft.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/contrib/libf2c/libF77/lbitshft.c b/contrib/libf2c/libF77/lbitshft.c index 81b0fdb..bfbb7c0 100644 --- a/contrib/libf2c/libF77/lbitshft.c +++ b/contrib/libf2c/libF77/lbitshft.c @@ -1,11 +1,7 @@ #include "f2c.h" - integer -#ifdef KR_headers -lbit_shift(a, b) integer a; integer b; -#else -lbit_shift(integer a, integer b) -#endif +integer +lbit_shift (integer a, integer b) { - return b >= 0 ? a << b : (integer)((uinteger)a >> -b); - } + return b >= 0 ? a << b : (integer) ((uinteger) a >> -b); +} |