From: ceriel <none@none>
Date: Fri, 29 Nov 1991 14:11:31 +0000 (+0000)
Subject: minor mods to parameters in grammar
X-Git-Tag: release-5-5~586
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=ed4afc99f6d3998d3c53805c3a803367d6bd2be1;p=ack.git

minor mods to parameters in grammar
---

diff --git a/lang/cem/cemcom.ansi/declar.g b/lang/cem/cemcom.ansi/declar.g
index 9425474ef..bba3f8900 100644
--- 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 a4bcdebcc..d168bf874 100644
--- 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 49bc12444..6c9cfc09b 100644
--- 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 c98c9caca..fd10845af 100644
--- 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;
 } :