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