set_float_handler (0);
}
#ifdef ERANGE
- if (errno == ERANGE && !flag_traditional)
+ if (errno == ERANGE && !flag_traditional && pedantic)
{
char *p1 = token_buffer;
/* Check for "0.0" and variants;
{
if (f_seen)
error ("two `f's in floating constant");
- f_seen = 1;
- type = float_type_node;
- value = REAL_VALUE_TRUNCATE (TYPE_MODE (type), value);
+ else
+ {
+ f_seen = 1;
+ type = float_type_node;
+ value = REAL_VALUE_TRUNCATE (TYPE_MODE (type), value);
+ if (REAL_VALUE_ISINF (value) && pedantic)
+ pedwarn ("floating point number exceeds range of `float'");
+ }
}
else if (c == 'l' || c == 'L')
{
while (c = *p++)
if (c == '%')
{
- /* The last operand should not be marked commutative. This
- problem is hard to detect, so make it obvious by calling
- abort here. */
+ /* The last operand should not be marked commutative. */
if (i == noperands - 1)
- abort ();
-
- commutative = i;
+ {
+ if (this_insn_is_asm)
+ warning_for_asm (this_insn,
+ "`%' constraint used with last operand");
+ else
+ abort ();
+ }
+ else
+ commutative = i;
}
else if (c >= '0' && c <= '9')
{