?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
FSF GCC merge 02/23/03
[official-gcc.git] / libf2c / libF77 / qbitshft.c
blobce740edde19024e44865061bc02913847736d014
1 #include "f2c.h"
2
3 longint
4 qbit_shift (longint a, integer b)
5 {
6 return b >= 0 ? a << b : (longint) ((ulongint) a >> -b);
7 }
Mirror of the offical gcc git repository hosted at gcc.gnu.org