]> CyberLeo.Net >> Repos - FreeBSD/releng/8.0.git/blob - contrib/libf2c/libF77/lbitshft.c
projects / FreeBSD / releng / 8.0.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Adjust to reflect 8.0-RELEASE.
[FreeBSD/releng/8.0.git] / contrib / libf2c / libF77 / lbitshft.c
1 #include "f2c.h"
2
3 integer
4 lbit_shift (integer a, integer b)
5 {
6   return b >= 0 ? a << b : (integer) ((uinteger) a >> -b);
7 }
8.0-RELEASE