aboutsummaryrefslogtreecommitdiff
path: root/backendC
diff options
context:
space:
mode:
Diffstat (limited to 'backendC')
-rw-r--r--backendC/CleanCompilerSources/buildtree.c32
-rw-r--r--backendC/CleanCompilerSources/buildtree.h9
-rw-r--r--backendC/CleanCompilerSources/comparser_2.c3
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 */