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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1446ed7..5d0489a 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 0d35a70..70823ef 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;