OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(yylex): For wide char constant, use wchar_type_node. 

Swallow any preprocessing number as a (possibly erroneous) number.

From-SVN: r3464
This commit is contained in:
Richard Stallman 1993-02-12 07:36:00 +00:00
parent aee3a549b0
commit f3acae4d7c
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/c-lex.c
View File

@ -1279,7 +1279,7 @@ yylex ()
}
else if (base <= 10)
{
if ((c&~040) == 'E')
if (c == 'e' || c == 'E')
{
base = 10;
floatflag = AFTER_POINT;
@ -1411,7 +1411,9 @@ yylex ()
break;
}
/* Note: garbage_chars is -1 if first char is *not* garbage. */
while (isalnum (c))
while (isalnum (c) || c == '.' || c == '_'
|| (!flag_traditional && (c == '+' || c == '-')
&& (p[-1] == 'e' || p[-1] == 'E')))
{
if (p >= token_buffer + maxtoken - 3)
p = extend_token_buffer (p);
@ -1459,10 +1461,14 @@ yylex ()
}
else
{
if (isalnum (c))
if (isalnum (c) || c == '.' || c == '_'
|| (!flag_traditional && (c == '+' || c == '-')
&& (p[-1] == 'e' || p[-1] == 'E')))
{
error ("garbage at end of number");
while (isalnum (c))
while (isalnum (c) || c == '.' || c == '_'
|| (!flag_traditional && (c == '+' || c == '-')
&& (p[-1] == 'e' || p[-1] == 'E')))
{
if (p >= token_buffer + maxtoken - 3)
p = extend_token_buffer (p);
@ -1702,6 +1708,7 @@ yylex ()
= build_int_2 (result | ~((unsigned HOST_WIDE_INT) ~0
>> (HOST_BITS_PER_WIDE_INT - num_bits)),
-1);
TREE_TYPE (yylval.ttype) = integer_type_node;
}
else
{
@ -1722,9 +1729,9 @@ yylex ()
}
#endif
yylval.ttype = build_int_2 (result, 0);
TREE_TYPE (yylval.ttype) = wchar_type_node;
}
TREE_TYPE (yylval.ttype) = integer_type_node;
value = CONSTANT;
break;
}