diff options
| author | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1997-04-13 01:16:58 +0000 |
|---|---|---|
| committer | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1997-04-13 01:16:58 +0000 |
| commit | 4ff323dd450fa95949901235c99189a25477521d (patch) | |
| tree | 324009c03f1568ab4dd76c308533198a0b3bfe14 /lib/libF77/lbitshft.c | |
| parent | 8609d4594f827e9458d287cc8c5a63ef3162d5bd (diff) | |
Upgrade to the 1997/02/26 version.
Notes
Notes:
svn path=/head/; revision=24847
Diffstat (limited to 'lib/libF77/lbitshft.c')
| -rw-r--r-- | lib/libF77/lbitshft.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/libF77/lbitshft.c b/lib/libF77/lbitshft.c new file mode 100644 index 000000000000..81b0fdbeaba1 --- /dev/null +++ b/lib/libF77/lbitshft.c @@ -0,0 +1,11 @@ +#include "f2c.h" + + integer +#ifdef KR_headers +lbit_shift(a, b) integer a; integer b; +#else +lbit_shift(integer a, integer b) +#endif +{ + return b >= 0 ? a << b : (integer)((uinteger)a >> -b); + } |