exclude symbols from current dcl module from im_symbols (prevents multiple...

exclude symbols from current dcl module from im_symbols (prevents multiple record en constructor labels in abc)
updated version

backendC/CleanCompilerSources/backend.c

@@ -402,12 +402,19 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n
 	char	*cName;
 	SymbolP	moduleNameSymbol;
 	DefMod	dclModule;
+	SymbolP	saveSymbols;
 
 	cName	= ConvertCleanString (name);
 
 	moduleNameSymbol	= ConvertAllocType (SymbolS);
 	moduleNameSymbol->symb_ident	= Identifier (cName);
 
+	if (moduleIndex == main_dcl_module_n)
+	{
+		saveSymbols	= gBEState.be_allSymbols;
+		gBEState.be_allSymbols	= NULL;
+	}
+
 	DeclareModule (moduleIndex, cName, isSystemModule, nFunctions, nTypes, nConstructors, nFields);
 
 	dclModule	= ConvertAllocType (DefRepr);
@@ -417,6 +424,8 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n
 
 	if (moduleIndex != main_dcl_module_n)
 		AddOpenDefinitionModule (moduleNameSymbol, dclModule);
+	else
+		gBEState.be_allSymbols	= saveSymbols;
 } /* BEDeclareDclModule */
 
 void

backendC/CleanCompilerSources/backend.h

 /* version info */
 
-# define	kBEVersionCurrent		0x02000204
+# define	kBEVersionCurrent		0x02000205
 # define	kBEVersionOldestDefinition	0x02000204
 # define	kBEVersionOldestImplementation	0x02000204