]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - contrib/libf2c/libF77/lbitshft.c
add -n option to suppress clearing the build tree and add -DNO_CLEAN
[FreeBSD/FreeBSD.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 }