From d1f5c8043acfeb2b8e2ecdfca6dc43af016719cc Mon Sep 17 00:00:00 2001
From: Wilfried Moser <moser@cygnus>
Date: Tue, 9 Jan 1996 12:46:20 +0000
Subject: [PATCH]         * ch-exp.c (parse_primval): in case ARRAY: Add
 missing FORWARD_TOKEN ().

---
 gdb/ChangeLog | 4 ++++
 gdb/ch-exp.c  | 1 +
 2 files changed, 5 insertions(+)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 242978b028..3ca12e89bd 100644
--- 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 31c92b5e24..492f3765a7 100644
--- 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");
-- 
2.34.1