newer version

1986-06-17 12:04:05 +00:00
parent f1a0c90fb1
commit a9dfdc494b
21 changed files with 573 additions and 516 deletions
--- a/lang/m2/comp/statement.g
+++ b/lang/m2/comp/statement.g
@@ -83,13 +83,17 @@ ProcedureCall:

 StatementSequence(register struct node **pnd;)
 {
+	struct node *nd;
 } :
 	statement(pnd)
 	[
-		';'	{ *pnd = MkNode(Link, *pnd, NULLNODE, &dot);
-			  pnd = &((*pnd)->nd_right);
+		';' statement(&nd)
+			{ if (nd) {
+				*pnd = MkNode(Link, *pnd, nd, &dot);
+				(*pnd)->nd_symb = ';';
+			  	pnd = &((*pnd)->nd_right);
+			  }
 			}
-		statement(pnd)
 	]*
 ;