From: Per Bothner <per@bothner.com>
Date: Sun, 12 Feb 1995 19:18:00 +0000 (+0000)
Subject: 	* ch-exp.y (maybe_expression_list):  New non-terminal.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=60438e8e3e963c5d06ffb85d30ec74d680b06f24;p=binutils-gdb.git

	* ch-exp.y (maybe_expression_list):  New non-terminal.
	(primitive_value):  Allow empty parameter list.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f3e0bfb9af8..fea812f8924 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Sun Feb 12 11:03:47 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+	* ch-exp.y (maybe_expression_list):  New non-terminal.
+	(primitive_value):  Allow empty parameter list.
+
 Sun Feb 12 10:02:16 1995  Per Bothner  <bothner@cygnus.com>
 
 	* buildsym.c (finish_block):  If finishing a function without known
diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index 8b769790914..c87157c4654 100644
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -367,6 +367,13 @@ expression_list	:	expression
 			}
 		;
 
+maybe_expression_list:	/* EMPTY */
+			{
+			  arglist_len = 0;
+			}
+		|	expression_list
+		;
+
 
 /* Z.200, 5.2.1 */
 
@@ -382,7 +389,7 @@ rparen		:	')'
 
 primitive_value	:
 			access_name
-		|	primitive_value_lparen expression_list rparen
+		|	primitive_value_lparen maybe_expression_list rparen
 			{
 			  write_exp_elt_opcode (MULTI_SUBSCRIPT);
 			  write_exp_elt_longcst ($3);