source: vendor/gcc/3.2.2/libf2c/libF77/lbitshft.c

Last change on this file was 2, checked in by bird, 22 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 191 bytes
Line 
1#include "f2c.h"
2
3 integer
4#ifdef KR_headers
5lbit_shift(a, b) integer a; integer b;
6#else
7lbit_shift(integer a, integer b)
8#endif
9{
10 return b >= 0 ? a << b : (integer)((uinteger)a >> -b);
11 }
Note: See TracBrowser for help on using the repository browser.