mirror of
https://gcc.gnu.org/git/gcc.git
synced 2024-12-02 16:23:56 +08:00
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
This commit is contained in:
parent
a7bc0fbbfe
commit
c215b29f5a
@ -1,3 +1,10 @@
|
||||
2001-05-22 Joseph S. Myers <jsm28@cam.ac.uk>
|
||||
|
||||
* 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.
|
||||
|
||||
2001-05-22 Gerald Pfeifer <pfeifer@dbai.tuwien.ac.at>
|
||||
|
||||
* README.ACORN: Remove obsolete file.
|
||||
|
@ -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");
|
||||
|
||||
|
@ -1,3 +1,7 @@
|
||||
2001-05-22 Joseph S. Myers <jsm28@cam.ac.uk>
|
||||
|
||||
* gcc.dg/c90-hexfloat-1.c: Add more tests.
|
||||
|
||||
2001-05-21 Geoff Keating <geoffk@redhat.com>
|
||||
|
||||
* gcc.c-torture/compile/920520-1.x: Merge previous contents into
|
||||
|
@ -5,3 +5,7 @@
|
||||
|
||||
double d = 0x1.2p2; /* { dg-bogus "warning" "warning in place of error" } */
|
||||
/* { dg-error "radix 16" "hex float error" { target *-*-* } 6 } */
|
||||
double d1 = 0x1p2; /* { dg-bogus "warning" "warning in place of error" } */
|
||||
/* { dg-error "radix 16" "hex float error" { target *-*-* } 8 } */
|
||||
double d2 = 0x1...p2; /* { dg-bogus "warning" "warning in place of error" } */
|
||||
/* { dg-error "too many decimal points" "bad hex float" { target *-*-* } 10 } */
|
||||
|
Loading…
Reference in New Issue
Block a user