* ch-exp.y (maybe_expression_list): New non-terminal.

	(primitive_value):  Allow empty parameter list.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f3e0bfb9af834016d60f51aed7b4be3ec59f3f61..fea812f8924d85a2e019a751cb8b7013c54fec83 100644 (file)
--- 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 8b76979091416e569ffd8c0c17f2c22093a4d0ab..c87157c4654897ea75e30367a0a20bf6f2e8eeda 100644 (file)
--- 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);