ada/gcc-interface/utils.c

197 /* This variable keeps a table for types for each precision so that we only
1131       /* Integer types with precision 0 are forbidden.  */
3225 /* Return an integer type with the number of bits of precision given by
3230 gnat_type_for_size (unsigned precision, int unsignedp)
3235   if (precision <= 2 * MAX_BITS_PER_WORD
3236       && signed_and_unsigned_types[precision][unsignedp])
3237     return signed_and_unsigned_types[precision][unsignedp];
3240     t = make_unsigned_type (precision);
3242     t = make_signed_type (precision);
3244   if (precision <= 2 * MAX_BITS_PER_WORD)
3245     signed_and_unsigned_types[precision][unsignedp] = t;
3249       sprintf (type_name, "%sSIGNED_%u", unsignedp ? "UN" : "", precision);
3259 float_type_for_precision (int precision, machine_mode mode)
3268   TYPE_PRECISION (t) = precision;
3274       sprintf (type_name, "FLOAT_%d", precision);
4435 	 with lower precision, be wary of the optimization that can be
4788      precision (in the middle-end's sense).  We cannot allow it if the
4789      types don't have the same precision in the Ada sense as well.  */
4812    precision is not equal to their size, to make sure we fetch or assign
4873   /* If we are converting to an integral type whose precision is not equal
4875      field of the given precision.  Then extract the field.  */
4901   /* Similarly if we are converting from an integral type whose precision is
4902      not equal to its size, first copy into a field of the given precision
5017   /* If the result is an integral type whose precision is not equal to its
5019      is an integral type of the same precision and signedness or if the output