MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(yylex): Do warn about floating point out of range if target floating-point format is IEEE.

Browse Source 
(yylex): Do warn about floating point out of range if
target floating-point format is IEEE.  Use warning instead of
pedwarn to avoid getting errors.

From-SVN: r8538
This commit is contained in:
Jim Wilson 1994-11-21 11:06:09 -08:00
parent 9d99bd1b8d
commit e0bf6b33d8
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gcc/c-lex.c
View File

@ -1360,24 +1360,24 @@ yylex ()
type = float_type_node;
value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
&& REAL_VALUE_ISINF (value) && pedantic)
pedwarn ("floating point number exceeds range of `float'");
/* A diagnostic is required here by some ANSI C testsuites.
This is not pedwarn, become some people don't want
an error for this. */
if (REAL_VALUE_ISINF (value) && pedantic)
warning ("floating point number exceeds range of `float'");
}
else if (lflag)
{
type = long_double_type_node;
value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
&& REAL_VALUE_ISINF (value) && pedantic)
pedwarn ("floating point number exceeds range of `long double'");
if (REAL_VALUE_ISINF (value) && pedantic)
warning ("floating point number exceeds range of `long double'");
}
else
{
value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
&& REAL_VALUE_ISINF (value) && pedantic)
pedwarn ("floating point number exceeds range of `double'");
if (REAL_VALUE_ISINF (value) && pedantic)
warning ("floating point number exceeds range of `double'");
}
set_float_handler (NULL_PTR);
@ -1387,11 +1387,10 @@ yylex ()
{
/* ERANGE is also reported for underflow,
so test the value to distinguish overflow from that. */
if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
&& (REAL_VALUES_LESS (dconst1, value)
|| REAL_VALUES_LESS (value, dconstm1)))
if (REAL_VALUES_LESS (dconst1, value)
|| REAL_VALUES_LESS (value, dconstm1))
{
pedwarn ("floating point number exceeds range of `double'");
warning ("floating point number exceeds range of `double'");
exceeds_double = 1;
}
}