New version with different parameter passing mechanism and some

minor fixes
1989-03-20 13:32:06 +00:00
parent 6b73c84ee1
commit 58b6c40aaf
15 changed files with 197 additions and 105 deletions
--- a/lang/m2/comp/declar.g
+++ b/lang/m2/comp/declar.g
@@ -402,7 +402,7 @@ CaseLabels(t_type **ptp; register t_node **pnd;)
 			{ 
 			  if (*ptp != 0) {
 				t_type *tp = intorcard(*ptp,
-					BaseType((*pnd)->nd_type), 0);
+					BaseType((*pnd)->nd_type));
 				if (tp) *ptp = tp;
 				ChkCompat(pnd, *ptp, "case label");
 			  }