contrib/gcc/real.c

79 #if HOST_BITS_PER_LONG != 64 && HOST_BITS_PER_LONG != 32
178   if (n >= HOST_BITS_PER_LONG)
180       for (i = 0, ofs = n / HOST_BITS_PER_LONG; i < ofs; ++i)
182       n &= HOST_BITS_PER_LONG - 1;
193 		  << (HOST_BITS_PER_LONG - n)));
214   unsigned int i, ofs = n / HOST_BITS_PER_LONG;
216   n &= HOST_BITS_PER_LONG - 1;
224 		  << (HOST_BITS_PER_LONG - n)));
243   unsigned int i, ofs = n / HOST_BITS_PER_LONG;
245   n &= HOST_BITS_PER_LONG - 1;
259 		>> (HOST_BITS_PER_LONG - n)));
271     r->sig[i] = (a->sig[i] << 1) | (a->sig[i-1] >> (HOST_BITS_PER_LONG - 1));
402   r->sig[n / HOST_BITS_PER_LONG]
403     |= (unsigned long)1 << (n % HOST_BITS_PER_LONG);
411   r->sig[n / HOST_BITS_PER_LONG]
412     &= ~((unsigned long)1 << (n % HOST_BITS_PER_LONG));
423   int t = (r->sig[n / HOST_BITS_PER_LONG] >> (n % HOST_BITS_PER_LONG)) & 1;
432   int i, w = n / HOST_BITS_PER_LONG;
437   r->sig[w] &= ~(((unsigned long)1 << (n % HOST_BITS_PER_LONG)) - 1);
492       shift += HOST_BITS_PER_LONG;
506     if (r->sig[i] & ((unsigned long)1 << (HOST_BITS_PER_LONG - 1 - j)))
753 	ai >>= HOST_BITS_PER_LONG / 2;
755 	ai &= ((unsigned long)1 << (HOST_BITS_PER_LONG / 2)) - 1;
762 	  int exp = (REAL_EXP (a) - (2*SIGSZ-1-i)*(HOST_BITS_PER_LONG/2)
763 		     + (REAL_EXP (b) - (1-j)*(HOST_BITS_PER_LONG/2)));
785 		bi >>= HOST_BITS_PER_LONG / 2;
787 		bi &= ((unsigned long)1 << (HOST_BITS_PER_LONG / 2)) - 1;
1306       if (HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG)
1310 	  gcc_assert (HOST_BITS_PER_WIDE_INT == 2 * HOST_BITS_PER_LONG);
1312 	  i = i << (HOST_BITS_PER_LONG - 1) << 1;
1375       if (HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG)
1382 	  gcc_assert (HOST_BITS_PER_WIDE_INT == 2*HOST_BITS_PER_LONG);
1384 	  high = high << (HOST_BITS_PER_LONG - 1) << 1;
1388 	  low = low << (HOST_BITS_PER_LONG - 1) << 1;
1782     for (j = HOST_BITS_PER_LONG - 4; j >= 0; j -= 4)
1832 	      r->sig[pos / HOST_BITS_PER_LONG]
1833 		|= (unsigned long) d << (pos % HOST_BITS_PER_LONG);
1858 		  r->sig[pos / HOST_BITS_PER_LONG]
1859 		    |= (unsigned long) d << (pos % HOST_BITS_PER_LONG);
2052       if (HOST_BITS_PER_LONG == HOST_BITS_PER_WIDE_INT)
2059 	  gcc_assert (HOST_BITS_PER_LONG*2 == HOST_BITS_PER_WIDE_INT);
2060 	  r->sig[SIGSZ-1] = high >> (HOST_BITS_PER_LONG - 1) >> 1;
2062 	  r->sig[SIGSZ-3] = low >> (HOST_BITS_PER_LONG - 1) >> 1;
2422   for (i = 0, w = (np2 - 1) / HOST_BITS_PER_LONG; i < w; ++i)
2425     r->sig[w] & (((unsigned long)1 << ((np2 - 1) % HOST_BITS_PER_LONG)) - 1);
2646 	h ^= s ^ (s >> (HOST_BITS_PER_LONG / 2));
2672   sig = (r->sig[SIGSZ-1] >> (HOST_BITS_PER_LONG - 24)) & 0x7fffff;
2739   image <<= HOST_BITS_PER_LONG - 24;
2761 	  r->signalling = (((image >> (HOST_BITS_PER_LONG - 2)) & 1)
2837   if (HOST_BITS_PER_LONG == 64)
2953 	  if (HOST_BITS_PER_LONG == 32)
2977 	  if (HOST_BITS_PER_LONG == 32)
2996       if (HOST_BITS_PER_LONG == 32)
3090 	  if (HOST_BITS_PER_LONG == 32)
3142 	if (HOST_BITS_PER_LONG == 32)
3250 	  if (HOST_BITS_PER_LONG == 32)
3275 	  if (HOST_BITS_PER_LONG == 32)
3294       if (HOST_BITS_PER_LONG == 32)
3591 	  else if (HOST_BITS_PER_LONG == 32)
3642       if (HOST_BITS_PER_LONG == 32)
3720 	  if (HOST_BITS_PER_LONG == 32)
3746 	  if (HOST_BITS_PER_LONG == 32)
3772       if (HOST_BITS_PER_LONG == 32)
3871       sig = (r->sig[SIGSZ-1] >> (HOST_BITS_PER_LONG - 24)) & 0x7fffff;
3903       r->sig[SIGSZ-1] = (image << (HOST_BITS_PER_LONG - 24)) | SIG_MSB;
3927       if (HOST_BITS_PER_LONG == 64)
3990       if (HOST_BITS_PER_LONG == 64)
4001 	  lshift_significand (r, r, 2*HOST_BITS_PER_LONG - 56);
4027       if (HOST_BITS_PER_LONG == 64)
4090       if (HOST_BITS_PER_LONG == 64)
4201       sig = (r->sig[SIGSZ-1] >> (HOST_BITS_PER_LONG - 24)) & 0xffffff;
4231       r->sig[SIGSZ-1] = sig << (HOST_BITS_PER_LONG - 24);
4257       if (HOST_BITS_PER_LONG == 64)
4310       if (HOST_BITS_PER_LONG == 32)
4525       sig = (r->sig[SIGSZ-1] >> (HOST_BITS_PER_LONG - 24)) & 0x7fffff;
4570       sig = (sig << (HOST_BITS_PER_LONG - 24)) | SIG_MSB;
4600       if (HOST_BITS_PER_LONG == 64)
4657       if (HOST_BITS_PER_LONG == 64)