contrib/gcc/real.c

2180   const struct real_format *fmt;
2182   fmt = REAL_MODE_FORMAT (mode);
2183   gcc_assert (fmt);
2253       lshift_significand (r, r, SIGNIFICAND_BITS - fmt->pnan);
2271   const struct real_format *fmt;
2274   fmt = REAL_MODE_FORMAT (mode);
2275   gcc_assert (fmt);
2278   if (fmt->b == 10)
2284       SET_REAL_EXP (r, fmt->emax * fmt->log2_b);
2286       np2 = SIGNIFICAND_BITS - fmt->p * fmt->log2_b;
2290       if (fmt->pnan < fmt->p)
2297         clear_significand_bit (r, SIGNIFICAND_BITS - fmt->pnan);
2324 round_for_format (const struct real_format *fmt, REAL_VALUE_TYPE *r)
2333       if (fmt->b == 10)
2335 	  decimal_round_for_format (fmt, r);
2345   p2 = fmt->p * fmt->log2_b;
2346   emin2m1 = (fmt->emin - 1) * fmt->log2_b;
2347   emax2 = fmt->emax * fmt->log2_b;
2355       if (!fmt->has_signed_zero)
2377   if (fmt->log2_b != 1)
2381       gcc_assert (fmt->b != 10);
2382       shift = REAL_EXP (r) & (fmt->log2_b - 1);
2385 	  shift = fmt->log2_b - shift;
2399       if (!fmt->has_denorm)
2447 	  if (fmt->log2_b != 1)
2449 	      int shift = REAL_EXP (r) & (fmt->log2_b - 1);
2452 		  shift = fmt->log2_b - shift;
2476   const struct real_format *fmt;
2478   fmt = REAL_MODE_FORMAT (mode);
2479   gcc_assert (fmt);
2483   if (a->decimal || fmt->b == 10)
2486   round_for_format (fmt, r);
2508   const struct real_format *fmt;
2512   fmt = REAL_MODE_FORMAT (mode);
2513   gcc_assert (fmt);
2516   emin2m1 = (fmt->emin - 1) * fmt->log2_b;
2533 		    const struct real_format *fmt)
2539   round_for_format (fmt, &r);
2543   (*fmt->encode) (fmt, buf, &r);
2553   const struct real_format *fmt;
2555   fmt = REAL_MODE_FORMAT (mode);
2556   gcc_assert (fmt);
2558   return real_to_target_fmt (buf, r, fmt);
2567 		      const struct real_format *fmt)
2569   (*fmt->decode) (fmt, r, buf);
2577   const struct real_format *fmt;
2579   fmt = REAL_MODE_FORMAT (mode);
2580   gcc_assert (fmt);
2582   (*fmt->decode) (fmt, r, buf);
2592   const struct real_format *fmt;
2594   fmt = REAL_MODE_FORMAT (mode);
2595   if (fmt == NULL)
2598   if (fmt->b == 10)
2605       return fmt->p * log2_10;
2607   return fmt->p * fmt->log2_b;
2658 static void encode_ieee_single (const struct real_format *fmt,
2664 encode_ieee_single (const struct real_format *fmt, long *buf,
2680       if (fmt->has_inf)
2687       if (fmt->has_nans)
2691 	  if (r->signalling == fmt->qnan_msb_set)
2699 	  if (r->canonical && !fmt->qnan_msb_set)
2731 decode_ieee_single (const struct real_format *fmt, REAL_VALUE_TYPE *r,
2744       if (image && fmt->has_denorm)
2752       else if (fmt->has_signed_zero)
2755   else if (exp == 255 && (fmt->has_nans || fmt->has_inf))
2762 			   ^ fmt->qnan_msb_set);
2822 static void encode_ieee_double (const struct real_format *fmt,
2828 encode_ieee_double (const struct real_format *fmt, long *buf,
2857       if (fmt->has_inf)
2867       if (fmt->has_nans)
2871 	  if (r->signalling == fmt->qnan_msb_set)
2879 	  if (r->canonical && !fmt->qnan_msb_set)
2922 decode_ieee_double (const struct real_format *fmt, REAL_VALUE_TYPE *r,
2948       if ((image_hi || image_lo) && fmt->has_denorm)
2967       else if (fmt->has_signed_zero)
2970   else if (exp == 2047 && (fmt->has_nans || fmt->has_inf))
2976 	  r->signalling = ((image_hi >> 30) & 1) ^ fmt->qnan_msb_set;
3055 encode_ieee_extended (const struct real_format *fmt, long *buf,
3070       if (fmt->has_inf)
3087       if (fmt->has_nans)
3101 	  if (r->signalling == fmt->qnan_msb_set)
3131 	   in fmt->emin in round_for_format.  */
3166 encode_ieee_extended_motorola (const struct real_format *fmt, long *buf,
3170   encode_ieee_extended (fmt, intermed, r);
3186 encode_ieee_extended_intel_96 (const struct real_format *fmt, long *buf,
3195       encode_ieee_extended (fmt, intermed, r);
3202     encode_ieee_extended (fmt, buf, r);
3208 encode_ieee_extended_intel_128 (const struct real_format *fmt, long *buf,
3212   encode_ieee_extended_intel_96 (fmt, buf, r);
3220 decode_ieee_extended (const struct real_format *fmt, REAL_VALUE_TYPE *r,
3239       if ((sig_hi || sig_lo) && fmt->has_denorm)
3249 	  SET_REAL_EXP (r, fmt->emin);
3260       else if (fmt->has_signed_zero)
3263   else if (exp == 32767 && (fmt->has_nans || fmt->has_inf))
3274 	  r->signalling = ((sig_hi >> 30) & 1) ^ fmt->qnan_msb_set;
3307 decode_ieee_extended_motorola (const struct real_format *fmt, REAL_VALUE_TYPE *r,
3319   decode_ieee_extended (fmt, r, intermed);
3325 decode_ieee_extended_intel_96 (const struct real_format *fmt, REAL_VALUE_TYPE *r,
3339       decode_ieee_extended (fmt, r, intermed);
3343     decode_ieee_extended (fmt, r, buf);
3349 decode_ieee_extended_intel_128 (const struct real_format *fmt, REAL_VALUE_TYPE *r,
3353   decode_ieee_extended_intel_96 (fmt, r, buf);
3443 static void encode_ibm_extended (const struct real_format *fmt,
3449 encode_ibm_extended (const struct real_format *fmt, long *buf,
3455   base_fmt = fmt->qnan_msb_set ? &ieee_double_format : &mips_double_format;
3484 decode_ibm_extended (const struct real_format *fmt ATTRIBUTE_UNUSED, REAL_VALUE_TYPE *r,
3490   base_fmt = fmt->qnan_msb_set ? &ieee_double_format : &mips_double_format;
3544 static void encode_ieee_quad (const struct real_format *fmt,
3550 encode_ieee_quad (const struct real_format *fmt, long *buf,
3570       if (fmt->has_inf)
3582       if (fmt->has_nans)
3607 	  if (r->signalling == fmt->qnan_msb_set)
3615 	  if (r->canonical && !fmt->qnan_msb_set)
3681 decode_ieee_quad (const struct real_format *fmt, REAL_VALUE_TYPE *r,
3714       if ((image3 | image2 | image1 | image0) && fmt->has_denorm)
3735       else if (fmt->has_signed_zero)
3738   else if (exp == 32767 && (fmt->has_nans || fmt->has_inf))
3744 	  r->signalling = ((image3 >> 15) & 1) ^ fmt->qnan_msb_set;
3838 static void encode_vax_f (const struct real_format *fmt,
3842 static void encode_vax_d (const struct real_format *fmt,
3846 static void encode_vax_g (const struct real_format *fmt,
3852 encode_vax_f (const struct real_format *fmt ATTRIBUTE_UNUSED, long *buf,
3888 decode_vax_f (const struct real_format *fmt ATTRIBUTE_UNUSED,
3908 encode_vax_d (const struct real_format *fmt ATTRIBUTE_UNUSED, long *buf,
3962 decode_vax_d (const struct real_format *fmt ATTRIBUTE_UNUSED,
4008 encode_vax_g (const struct real_format *fmt ATTRIBUTE_UNUSED, long *buf,
4062 decode_vax_g (const struct real_format *fmt ATTRIBUTE_UNUSED,
4172 static void encode_i370_single (const struct real_format *fmt,
4176 static void encode_i370_double (const struct real_format *fmt,
4182 encode_i370_single (const struct real_format *fmt ATTRIBUTE_UNUSED,
4214 decode_i370_single (const struct real_format *fmt ATTRIBUTE_UNUSED,
4237 encode_i370_double (const struct real_format *fmt ATTRIBUTE_UNUSED,
4286 decode_i370_double (const struct real_format *fmt ATTRIBUTE_UNUSED,
4363 encode_decimal_single (const struct real_format *fmt ATTRIBUTE_UNUSED,
4367   encode_decimal32 (fmt, buf, r);
4372 decode_decimal_single (const struct real_format *fmt ATTRIBUTE_UNUSED,
4376   decode_decimal32 (fmt, r, buf);
4381 encode_decimal_double (const struct real_format *fmt ATTRIBUTE_UNUSED,
4385   encode_decimal64 (fmt, buf, r);
4390 decode_decimal_double (const struct real_format *fmt ATTRIBUTE_UNUSED,
4394   decode_decimal64 (fmt, r, buf);
4399 encode_decimal_quad (const struct real_format *fmt ATTRIBUTE_UNUSED,
4403   encode_decimal128 (fmt, buf, r);
4408 decode_decimal_quad (const struct real_format *fmt ATTRIBUTE_UNUSED,
4412   decode_decimal128 (fmt, r, buf);
4495 static void encode_c4x_single (const struct real_format *fmt,
4499 static void encode_c4x_extended (const struct real_format *fmt,
4505 encode_c4x_single (const struct real_format *fmt ATTRIBUTE_UNUSED,
4545 decode_c4x_single (const struct real_format *fmt ATTRIBUTE_UNUSED,
4578 encode_c4x_extended (const struct real_format *fmt ATTRIBUTE_UNUSED,
4628 decode_c4x_extended (const struct real_format *fmt ATTRIBUTE_UNUSED,
4711 static void encode_internal (const struct real_format *fmt,
4717 encode_internal (const struct real_format *fmt ATTRIBUTE_UNUSED, long *buf,
4724 decode_internal (const struct real_format *fmt ATTRIBUTE_UNUSED,