* gengtype-lex.l (ID): Allow underscore as first character.

From-SVN: r56501

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index adf3fd1011c02d76367b8071811c7bc30d903912..e2c3fefb6316d01177baeb918bc73e9205755189 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-22  Hans-Peter Nilsson  <hp@bitrange.com>
+
+       * gengtype-lex.l (ID): Allow underscore as first character.
+
 2002-08-21  David Edelsohn  <edelsohn@gnu.org>
 
        * config/rs6000/rs6000.c (rs6000_xcoff_asm_globalize_label): New

diff --git a/gcc/gengtype-lex.l b/gcc/gengtype-lex.l
index 73167f5322b865a5aecc2fcd78a8f7b6bffa8faf..bd848a7da0d0376049ff4d324c7459d16376341a 100644 (file)
--- a/gcc/gengtype-lex.l
+++ b/gcc/gengtype-lex.l
@@ -48,7 +48,7 @@ update_lineno (l, len)
 
 %}
 
-ID     [[:alpha:]][[:alnum:]_]*
+ID     [[:alpha:]_][[:alnum:]_]*
 WS     [[:space:]]+
 IWORD  short|long|(un)?signed|char|int|HOST_WIDE_INT|bool|size_t
 ITYPE  {IWORD}({WS}{IWORD})*