change type of field im_name, remove allocation of Symbol and Ident of name

backendC/CleanCompilerSources/backend.c

@@ -387,7 +387,6 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
 {
 	int		i;
 	char	*cName;
-	SymbolP	moduleNameSymbol;
 	ImpMod	iclModule;
 	BEIclP	icl;
 
@@ -396,9 +395,6 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
 	if (cName == NULL)
 		cName	= ConvertCleanString (name);
 
-	moduleNameSymbol	= ConvertAllocType (SymbolS);
-	moduleNameSymbol->symb_ident	= Identifier (cName);
-
 /*	Assert (strcmp (gBEState.be_modules [main_dcl_module_n].bem_name, cName) == 0); */
 	Assert (strncmp (cName, name->chars, name->length) == 0);
 
@@ -414,7 +410,7 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
 	DeclareModule (main_dcl_module_n, cName, False, nFunctions, nTypes, nConstructors, nFields);
 
 	iclModule	= icl->beicl_module;
-	iclModule->im_name			= moduleNameSymbol;
+	iclModule->im_name			= cName;
 	iclModule->im_modification_time	= ConvertCleanString (modificationTime);
 	iclModule->im_def_module	= im_def_module;
 	iclModule->im_rules			= NULL;
@@ -744,7 +740,7 @@ BESpecialArrayFunctionSymbol (BEArrayFunKind arrayFunKind, int functionIndex, in
 			newRuleType->rule_type_rule	= newTypeAlt;
 
 			newsdef->sdef_ident			= newIdent;
-			newsdef->sdef_module		= gBEState.be_icl.beicl_module->im_name->symb_ident->ident_name;
+			newsdef->sdef_module		= gBEState.be_icl.beicl_module->im_name;
 			newsdef->sdef_mark		= 0;
 			newsdef->sdef_isused		= True;
 			newsdef->sdef_exported		= False;

backendC/CleanCompilerSources/syntaxtr.t

@@ -670,7 +670,7 @@ typedef FileTime ModuleFileTime;
 #endif
 
 typedef struct {
-	Symbol				im_name;
+	char *				im_name;
 	Symbol				im_symbols;
 	ImpRules			im_rules;
 	struct symbol_def *	im_start;