* ch-exp.c (parse_primval): in case ARRAY: Add missing FORWARD_TOKEN ().

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 242978b028c9c5a5b8ded1c3762de5e51aa0a408..3ca12e89bdeb6668540f6a216f7c7cfc6f87ded8 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan  9 04:44:47 1996  Wilfried Moser (Alcatel)  <moser@rtl.cygnus.com>
+
+       * ch-exp.c (parse_primval): in case ARRAY: Add missing FORWARD_TOKEN ().
+
 Mon Jan  8 13:29:34 1996  Stan Shebs  <shebs@andros.cygnus.com>
 
        * remote-mips.c (mips_receive_header): Recognize \012 instead

diff --git a/gdb/ch-exp.c b/gdb/ch-exp.c
index 31c92b5e2478f766e18464edff8d900b06e6a9dc..492f3765a726fc0b214a9eb6e6d755e4aa93f295 100644 (file)
--- a/gdb/ch-exp.c
+++ b/gdb/ch-exp.c
@@ -642,6 +642,7 @@ parse_primval ()
       if (PEEK_TOKEN () != TYPENAME)
        error ("missing MODENAME after ARRAY()");
       type = PEEK_LVAL().tsym.type;
+      FORWARD_TOKEN ();
       expect ('(', NULL);
       parse_expr ();
       expect (')', "missing right parenthesis");