diff options
| author | Joseph Myers <jsm28@cam.ac.uk> | 2001-05-22 12:02:17 +0100 |
|---|---|---|
| committer | Joseph Myers <jsm28@gcc.gnu.org> | 2001-05-22 12:02:17 +0100 |
| commit | c215b29f5ae1766a562e33e594fabcde5e64a1a6 (patch) | |
| tree | f398e54c8cb6f6025faa0a96115163d6aa85eb37 /gcc/c-lex.c | |
| parent | a7bc0fbbfec9bbc01256ab9085b7783af06726fa (diff) | |
| download | gcc-c215b29f5ae1766a562e33e594fabcde5e64a1a6.zip gcc-c215b29f5ae1766a562e33e594fabcde5e64a1a6.tar.gz gcc-c215b29f5ae1766a562e33e594fabcde5e64a1a6.tar.bz2 | |
c-lex.c (lex_number): If pedantic and not C99...
* c-lex.c (lex_number): If pedantic and not C99, pedwarn exactly
once for hexadecimal floats, whether or not they contain a decimal
point. Don't let the setting of pedantic otherwise affect the
parsing of hexadecimal floats.
testsuite:
* gcc.dg/c90-hexfloat-1.c: Add more tests.
From-SVN: r42440
Diffstat (limited to 'gcc/c-lex.c')
| -rw-r--r-- | gcc/c-lex.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/c-lex.c b/gcc/c-lex.c index 914da81..37d175a 100644 --- a/gcc/c-lex.c +++ b/gcc/c-lex.c @@ -1092,9 +1092,7 @@ lex_number (str, len) if (c == '.') { - if (base == 16 && pedantic && !flag_isoc99) - pedwarn ("floating constant may not be in radix 16"); - else if (floatflag == AFTER_POINT) + if (floatflag == AFTER_POINT) ERROR ("too many decimal points in floating constant"); else if (floatflag == AFTER_EXPON) ERROR ("decimal point in exponent - impossible!"); @@ -1190,6 +1188,9 @@ lex_number (str, len) struct pf_args args; char *copy; + if (base == 16 && pedantic && !flag_isoc99) + pedwarn ("floating constant may not be in radix 16"); + if (base == 16 && floatflag != AFTER_EXPON) ERROR ("hexadecimal floating constant has no exponent"); |