source: vendor/gcc/current/libf2c/libF77/qbitshft.c

Last change on this file was 1391, checked in by bird, 21 years ago

GCC v3.3.3 sources.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 123 bytes
Line 
1#include "f2c.h"
2
3longint
4qbit_shift (longint a, integer b)
5{
6 return b >= 0 ? a << b : (longint) ((ulongint) a >> -b);
7}
Note: See TracBrowser for help on using the repository browser.