newer version

1986-04-25 10:14:08 +00:00
parent c11efeb1fe
commit f445033fab
14 changed files with 235 additions and 73 deletions
--- a/lang/m2/comp/expression.g
+++ b/lang/m2/comp/expression.g
@@ -43,7 +43,7 @@ qualident(int types; struct def **pdf; char *str; struct node **p;)
 			{ if (types) {
 				df = ill_df;

-				if (chk_designator(nd, QUALONLY)) {
+				if (chk_designator(nd, 0)) {
 				    if (nd->nd_class != Def) {
 					node_error(nd, "%s expected", str);
 				    }
@@ -83,7 +83,7 @@ ExpList(struct node **pnd;)
 		','		{ *nd = MkNode(Link, NULLNODE, NULLNODE, &dot);
 				}
 		expression(&(*nd)->nd_left)
-				{ nd = &((*pnd)->nd_right); }
+				{ nd = &((*nd)->nd_right); }
 	]*
 ;