contrib/gcc/sreal.c

29 	  (for < 64-bit machines sig = sig_lo + sig_hi * 2 ^ SREAL_PART_BITS)
71 	   x->sig_hi, x->sig_lo, x->exp);
83   r->sig_lo = a->sig_lo;
111       x->sig_lo = x->sig_hi >> s;
116       x->sig_lo += (uhwi) 1 << (s - 1);
117       if (x->sig_lo & ((uhwi) 1 << SREAL_PART_BITS))
120 	  x->sig_lo -= (uhwi) 1 << SREAL_PART_BITS;
122       x->sig_lo >>= s;
123       x->sig_lo |= (x->sig_hi & (((uhwi) 1 << s) - 1)) << (SREAL_PART_BITS - s);
141   if (x->sig_lo == 0 && x->sig_hi == 0)
150 	  x->sig_hi = x->sig_lo;
151 	  x->sig_lo = 0;
166 	  x->sig_lo = 0;
171 	  x->sig_hi |= (x->sig_lo & mask) >> (SREAL_PART_BITS - shift);
172 	  x->sig_lo = (x->sig_lo << shift) & (((uhwi) 1 << SREAL_PART_BITS) - 1);
189       x->sig_lo += (uhwi) 1 << (shift - 1);
191       x->sig_lo >>= shift;
192       x->sig_lo += ((x->sig_hi & (((uhwi) 1 << shift) - 1))
196       if (x->sig_lo & ((uhwi) 1 << SREAL_PART_BITS))
198 	  x->sig_lo -= (uhwi) 1 << SREAL_PART_BITS;
205 	      x->sig_lo >>= 1;
215 	  x->sig_lo = SREAL_MAX_SIG;
274   r->sig_lo = 0;
295   return ((r->sig_hi << SREAL_PART_BITS) + r->sig_lo) >> -r->exp;
323   if (a->sig_lo > b->sig_lo)
325   if (a->sig_lo < b->sig_lo)
359       r->sig_lo = a->sig_lo;
377   r->sig_lo = a->sig_lo + bb->sig_lo;
378   if (r->sig_lo & ((uhwi) 1 << SREAL_PART_BITS))
381       r->sig_lo -= (uhwi) 1 << SREAL_PART_BITS;
407       r->sig_lo = a->sig_lo;
423   if (a->sig_lo < bb->sig_lo)
426       r->sig_lo = a->sig_lo + ((uhwi) 1 << SREAL_PART_BITS) - bb->sig_lo;
431       r->sig_lo = a->sig_lo - bb->sig_lo;
448       r->sig_lo = 0;
465       tmp1 = a->sig_lo * b->sig_lo;
466       tmp2 = a->sig_lo * b->sig_hi;
467       tmp3 = a->sig_hi * b->sig_lo + (tmp1 >> SREAL_PART_BITS);
475       r->sig_lo = tmp1 & (((uhwi) 1 << SREAL_PART_BITS) - 1);
508       r->sig_lo = 0;
516       tmp1 = (a->sig_hi << SREAL_PART_BITS) + a->sig_lo;
518 	      + (b->sig_lo >> (SREAL_PART_BITS / 2)));
519       if (b->sig_lo & ((uhwi) 1 << ((SREAL_PART_BITS / 2) - 1)))
522       r->sig_lo = 0;