D_BUSY added, to check recursive deps in def modules

1986-12-16 15:22:33 +00:00
parent 33a89a8684
commit a92c8bf067
4 changed files with 10 additions and 5 deletions
--- a/lang/m2/comp/program.g
+++ b/lang/m2/comp/program.g
@@ -121,6 +121,7 @@ DefinitionModule
 } :
 	DEFINITION
 	MODULE IDENT	{ df = define(dot.TOK_IDF, GlobalScope, D_MODULE);
+			  df->df_flags |= D_BUSY;
 			  if (!Defined) Defined = df;
 			  if (df->df_idf != DefId) {
 				error("DEFINITION MODULE name is not \"%s\"",
@@ -155,6 +156,7 @@ node_warning(exportlist, W_OLDFASHIONED, "export list in definition module ignor
 			  }
 			  DefinitionModule--;
 			  match_id(df->df_idf, dot.TOK_IDF);
+			  df->df_flags &= ~D_BUSY;
 			}
 	'.'
 ;