minor mods to parameters in grammar

diff --git a/lang/cem/cemcom.ansi/declar.g b/lang/cem/cemcom.ansi/declar.g
index 9425474..bba3f89 100644 (file)
--- a/lang/cem/cemcom.ansi/declar.g
+++ b/lang/cem/cemcom.ansi/declar.g
@@ -499,7 +499,7 @@ struct_declaration(struct type *stp; struct sdef ***sdefpp; arith *szp;)
        type_specifier(&tp) struct_declarator_list(tp, stp, sdefpp, szp) ';'
 ;
 
-struct_declarator_list(struct type *tp, *stp;
+struct_declarator_list(struct type *tp; struct type *stp;
                        struct sdef ***sdefpp; arith *szp;)
 :
        struct_declarator(tp, stp, sdefpp, szp)

diff --git a/lang/cem/cemcom/declar.g b/lang/cem/cemcom/declar.g
index a4bcdeb..d168bf8 100644 (file)
--- a/lang/cem/cemcom/declar.g
+++ b/lang/cem/cemcom/declar.g
@@ -445,7 +445,7 @@ struct_declaration(struct type *stp; struct sdef ***sdefpp; arith *szp;)
        ]
 ;
 
-struct_declarator_list(struct type *tp, *stp;
+struct_declarator_list(struct type *tp; struct type *stp;
                        struct sdef ***sdefpp; arith *szp;)
 :
        struct_declarator(tp, stp, sdefpp, szp)

diff --git a/lang/occam/comp/occam.g b/lang/occam/comp/occam.g
index 49bc124..6c9cfc0 100644 (file)
--- a/lang/occam/comp/occam.g
+++ b/lang/occam/comp/occam.g
@@ -157,7 +157,7 @@ conditional(register *END; )        {       struct symbol *v;
          ]
        ;
 
-replicator(register struct symbol **s; register struct expr **e1, **e2; )
+replicator(register struct symbol **s; register struct expr **e1; register struct expr **e2; )
                                {       register char *index; }:
          IDENTIFIER            {       index=token.t_sval; }
          '=' '[' val_expr(e1) FOR val_expr(e2) ']'

diff --git a/lang/pc/comp/declar.g b/lang/pc/comp/declar.g
index c98c9ca..fd10845 100644 (file)
--- a/lang/pc/comp/declar.g
+++ b/lang/pc/comp/declar.g
@@ -721,7 +721,7 @@ VariantPart(struct scope *scope; arith *cnt; int *palign;
                        }
 ;
 
-VariantTail(register struct scope *scope; arith *tcnt, *max, *cnt;
+VariantTail(register struct scope *scope; arith *tcnt; arith *max; arith *cnt;
                int *palign; unsigned short packed; struct selector *sel;):
        /* This is a new rule because the grammar specified by the standard
         * is not exactly LL(1).
@@ -982,7 +982,7 @@ UnpackedConformantArraySchema(register struct type **ptp;)
                                }
 ;
 
-Index_TypeSpecification(register struct type **ptp, *tp;)
+Index_TypeSpecification(register struct type **ptp; register struct type *tp;)
 {
        register struct def *df1, *df2;
 } :