Some bug fixes

1986-07-14 15:00:08 +00:00
parent ee32bf5126
commit ca77c2b86b
6 changed files with 45 additions and 9 deletions
--- a/lang/m2/comp/declar.g
+++ b/lang/m2/comp/declar.g
@@ -181,6 +181,13 @@ error("opaque type \"%s\" is not a pointer type", df->df_idf->id_text);
 				   referring to the hidden type.
 				*/
 				*(df->df_type) = *tp;
+				if (! tp->next) {
+					/* It also contains a forward
+					   reference, so update the forward-
+					   list
+					*/
+					ChForward(tp, df->df_type);
+				}
 				free_type(tp);
 			  }
 			  else	df->df_type = tp;
@@ -457,7 +464,7 @@ PointerType(struct type **ptp;)
 	        df->df_kind == D_MODULE)
 		type(&((*ptp)->next))
 	|
-		IDENT	{ Forward(&dot, &((*ptp)->next)); }
+		IDENT	{ Forward(&dot, (*ptp)); }
 	]
 ;