* ch-exp.y (yylex): Also look for '$' following '$'.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1446ed7e75c98290902e2f123110fcaa4a952068..5d0489a2bf5998011e985ba65852865e76207cbd 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+Sun Oct  8 18:01:04 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+       * ch-exp.y (yylex):  Also look for '$' following '$'.
+
 Sat Oct  7 22:52:42 1995  Michael Meissner  <meissner@tiktok.cygnus.com>
 
        * ch-exp.y (yylex): Fix typo.

diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index 0d35a7037058c9a756de4bc15447fc893949c6df..70823ef2cdd50bd2ada049ca42a6c7745080b9bd 100644 (file)
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -1479,7 +1479,7 @@ yylex ()
          yylval.sval.ptr = lexptr;
          do {
            lexptr++;
-         } while (isalnum (*lexptr) || (*lexptr == '_'));
+         } while (isalnum (*lexptr) || *lexptr == '_' || *lexptr == '$');
          yylval.sval.length = lexptr - yylval.sval.ptr;
          write_dollar_variable (yylval.sval);
          return GDB_VARIABLE;