remove unused function InitARC_Info, move function InitParser from...

remove unused function InitARC_Info, move function InitParser from comparser_2.c to buildtree.c as InitGlobalSymbols

backendC/CleanCompilerSources/buildtree.c

@@ -11,6 +11,30 @@ SymbolP	TrueSymbol, FalseSymbol, TupleSymbol,
 		SelectSymbols [MaxNodeArity], ApplySymbol, IfSymbol,
 		TupleTypeSymbols [MaxNodeArity];
 
+void InitGlobalSymbols (void)
+{
+	int		i;
+
+	for (i = 0; i < MaxNodeArity; i++)
+	{	SelectSymbols	 [i] = NULL;
+		TupleTypeSymbols [i] = NULL;
+	}
+
+	IfSymbol		= NewSymbol (if_symb);
+
+	TrueSymbol		= NewSymbol (bool_denot);
+	TrueSymbol->symb_bool = True;
+	FalseSymbol		= NewSymbol (bool_denot);
+	FalseSymbol->symb_bool = False;
+
+	TupleSymbol		= NewSymbol (tuple_symb);
+
+	ApplySymbol		= NewSymbol (apply_symb);
+	ApplySymbol->symb_instance_apply = 0;
+
+	clear_p_at_node_tree();
+}
+
 TypeArgs
 NewTypeArgument (TypeNode pattern)
 {

backendC/CleanCompilerSources/buildtree.h

 
+extern void InitGlobalSymbols (void);
+
 extern Args NewArgument (NodeP pattern);
 extern NodeP NewNode (SymbolP symb, Args args, int arity);
 extern NodeP NewIfNode (void);

backendC/CleanCompilerSources/comparser.h

-extern DefMod ParseDefMod (char *name, char *importingModule, char *importingExtension, unsigned importingLine);
-extern ImpMod ParseImplMod (char *name);
-
-extern void InitParser (void);

backendC/CleanCompilerSources/comparser_2.c

-
-# undef H
-
-# include	"compiledefines.h"
-# include	"types.t"
-# include	"syntaxtr.t"
-
-# include	"comsupport.h"
-# include	"sizes.h"
-# include	"checker.h"
-# include	"statesgen.h"
-# include	"comparser.h"
-# include	"buildtree.h"
-# include	"settings.h"
-# include	"checksupport.h"
-
-void
-InitParser (void)
-{
-	int		i;
-
-	for (i = 0; i < MaxNodeArity; i++)
-	{	SelectSymbols	 [i] = NULL;
-		TupleTypeSymbols [i] = NULL;
-	}
-
-	IfSymbol		= NewSymbol (if_symb);
-
-	TrueSymbol		= NewSymbol (bool_denot);
-	TrueSymbol->symb_bool = True;
-	FalseSymbol		= NewSymbol (bool_denot);
-	FalseSymbol->symb_bool = False;
-
-	TupleSymbol		= NewSymbol (tuple_symb);
-
-	ApplySymbol		= NewSymbol (apply_symb);
-	ApplySymbol->symb_instance_apply = 0;
-
-	clear_p_at_node_tree();
-} /* InitParser */

backendC/CleanCompilerSources/comsupport.c

@@ -418,7 +418,7 @@ void InitCompiler (void)
 	CurrentModule = Init;
 
 	InitStorage		();
-	InitParser		();
+	InitGlobalSymbols();
 	InitChecker		();
 	InitStatesGen		();
 	InitCoding		();

backendC/CleanCompilerSources/typeconv.h

-
-extern void InitARC_Info (void);

backendC/CleanCompilerSources/typeconv_2.c

-
-#include "compiledefines.h"
-#include "types.t"
-
-extern Bool DoShowAttributes;
-
-void InitARC_Info (void)
-{
-}