3 files changed, 0 insertions, 44 deletions
diff --git a/backendC/CleanCompilerSources/buildtree.c b/backendC/CleanCompilerSources/buildtree.c
index f8d9f10..ac1405b 100644
--- a/backendC/CleanCompilerSources/buildtree.c
+++ b/backendC/CleanCompilerSources/buildtree.c
@@ -577,35 +577,3 @@ UseArrayFunctionId (ArrayFunKind kind)
 	return (ArrayFunctionIds [kind]);
 } /* UseArrayFunctionId */
 #endif
-
-static IdentP EnumFunctionIds [NoEnumFun];
-
-void
-InitialiseEnumFunctionIds (void)
-{
-	EnumFunctionIds [FromEnumFun]		= PutStringInHashTable (kFromPrefix,		SymbolIdTable);
-	EnumFunctionIds [FromThenEnumFun]	= PutStringInHashTable (kFromThenPrefix,	SymbolIdTable);
-	EnumFunctionIds [FromToEnumFun]		= PutStringInHashTable (kFromToPrefix,		SymbolIdTable);
-	EnumFunctionIds [FromThenToEnumFun]	= PutStringInHashTable (kFromThenToPrefix,	SymbolIdTable);
-	EnumFunctionIds [MinusEnumFun]		= PutStringInHashTable ("_minus",			SymbolIdTable);
-	EnumFunctionIds [LessThanEqEnumFun]	= PutStringInHashTable ("_lteq",			SymbolIdTable);
-	EnumFunctionIds [IncEnumFun]		= PutStringInHashTable ("inc",				SymbolIdTable);
-	EnumFunctionIds [DecEnumFun]		= PutStringInHashTable ("dec",				SymbolIdTable);
-} /* InitialiseEnumFunctionIds */
-
-#ifndef CLEAN2
-IdentP
-UseEnumFunctionId (EnumFunKind kind)
-{
-	if (import_system_functions == 0)
-		import_system_functions	= gCurrentToken.lineNumber;
-
-	return (EnumFunctionIds [kind]);
-} /* UseEnumFunctionId */
-#endif
-
-IdentP
-EnumFunctionId (EnumFunKind kind)
-{
-	return (EnumFunctionIds [kind]);
-} /* UseEnumFunctionId */
diff --git a/backendC/CleanCompilerSources/buildtree.h b/backendC/CleanCompilerSources/buildtree.h
index 0ee2fe5..0933141 100644
--- a/backendC/CleanCompilerSources/buildtree.h
+++ b/backendC/CleanCompilerSources/buildtree.h
@@ -120,15 +120,6 @@ extern	SymbolP	TupleTypeSymbols [];
 IdentP UseArrayFunctionId (ArrayFunKind kind);
 void InitialiseEnumFunctionIds (void);
 
-typedef enum {
-	FromEnumFun, FromThenEnumFun, FromToEnumFun, FromThenToEnumFun,
-	IncEnumFun, DecEnumFun, MinusEnumFun, LessThanEqEnumFun,
-	NoEnumFun
-} EnumFunKind;
-IdentP EnumFunctionId (EnumFunKind kind);
-IdentP UseEnumFunctionId (EnumFunKind kind);
-
-
 extern unsigned import_system_functions, import_system_array_functions;
 
 void clear_p_at_node_tree (void);
diff --git a/backendC/CleanCompilerSources/comparser_2.c b/backendC/CleanCompilerSources/comparser_2.c
index 64a0eab..4a5394e 100644
--- a/backendC/CleanCompilerSources/comparser_2.c
+++ b/backendC/CleanCompilerSources/comparser_2.c
@@ -24,7 +24,6 @@
 # include	"statesgen.h"
 # include	"comparser.h"
 # include	"buildtree.h"
-# include	"comprehensions.h"
 # include	"settings.h"
 # include	"checksupport.h"
 
@@ -197,7 +196,5 @@ InitParser (void)
 	AllSymbol		= NewSymbol (all_symb);
 	EmptyTypeSymbol	= NewSymbol (empty_type);
 
-	InitialiseEnumFunctionIds ();
-
 	clear_p_at_node_tree();
 } /* InitParser */