contrib/gcc/real.c

2831   unsigned long image_lo, image_hi, sig_lo, sig_hi, exp;
2839       sig_hi = r->sig[SIGSZ-1];
2840       sig_lo = (sig_hi >> (64 - 53)) & 0xffffffff;
2841       sig_hi = (sig_hi >> (64 - 53 + 1) >> 31) & 0xfffff;
2845       sig_hi = r->sig[SIGSZ-1];
2847       sig_lo = (sig_hi << 21) | (sig_lo >> 11);
2848       sig_hi = (sig_hi >> 11) & 0xfffff;
2870 	    sig_hi = sig_lo = 0;
2872 	    sig_hi &= ~(1 << 19);
2874 	    sig_hi |= 1 << 19;
2881 	      sig_hi |= (1 << 19) - 1;
2884 	  else if (sig_hi == 0 && sig_lo == 0)
2885 	    sig_hi = 1 << 18;
2888 	  image_hi |= sig_hi;
2907       image_hi |= sig_hi;
3058   unsigned long image_hi, sig_hi, sig_lo;
3062   sig_hi = sig_lo = 0;
3077 	  sig_hi = 0x80000000;
3082 	  sig_lo = sig_hi = 0xffffffff;
3092 	      sig_hi = r->sig[SIGSZ-1];
3098 	      sig_hi = sig_lo >> 31 >> 1;
3102 	    sig_hi &= ~(1 << 30);
3104 	    sig_hi |= 1 << 30;
3105 	  if ((sig_hi & 0x7fffffff) == 0 && sig_lo == 0)
3106 	    sig_hi = 1 << 29;
3111 	  sig_hi |= 0x80000000;
3116 	  sig_lo = sig_hi = 0xffffffff;
3144 	    sig_hi = r->sig[SIGSZ-1];
3150 	    sig_hi = sig_lo >> 31 >> 1;
3160   buf[0] = sig_lo, buf[1] = sig_hi, buf[2] = image_hi;
3223   unsigned long image_hi, sig_hi, sig_lo;
3227   sig_lo = buf[0], sig_hi = buf[1], image_hi = buf[2];
3229   sig_hi &= 0xffffffff;
3239       if ((sig_hi || sig_lo) && fmt->has_denorm)
3252 	      r->sig[SIGSZ-1] = sig_hi;
3256 	    r->sig[SIGSZ-1] = (sig_hi << 31 << 1) | sig_lo;
3268       sig_hi &= 0x7fffffff;
3270       if (sig_hi || sig_lo)
3274 	  r->signalling = ((sig_hi >> 30) & 1) ^ fmt->qnan_msb_set;
3277 	      r->sig[SIGSZ-1] = sig_hi;
3281 	    r->sig[SIGSZ-1] = (sig_hi << 31 << 1) | sig_lo;
3296 	  r->sig[SIGSZ-1] = sig_hi;
3300 	r->sig[SIGSZ-1] = (sig_hi << 31 << 1) | sig_lo;