home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / gcc / gnulib / longlong / lshrdi3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-21  |  544 b   |  34 lines
  1. #include "longlong.h"
  2.  
  3. long long
  4. __lshrdi3 (u, b1)
  5.      long long u;
  6.      long long b1;
  7. {
  8.   long_long w;
  9.   unsigned long carries;
  10.   int bm;
  11.   long_long uu;
  12.   int b = b1;
  13.  
  14.   if (b == 0)
  15.     return u;
  16.  
  17.   uu.ll = u;
  18.  
  19.   bm = (sizeof (int) * BITS_PER_UNIT) - b;
  20.   if (bm <= 0)
  21.     {
  22.       w.s.high = 0;
  23.       w.s.low = (unsigned long)uu.s.high >> -bm;
  24.     }
  25.   else
  26.     {
  27.       carries = (unsigned long)uu.s.high << bm;
  28.       w.s.high = (unsigned long)uu.s.high >> b;
  29.       w.s.low = ((unsigned long)uu.s.low >> b) | carries;
  30.     }
  31.  
  32.   return w.ll;
  33. }
  34.