diff options
Diffstat (limited to 'backendC')
-rw-r--r-- | backendC/CleanCompilerSources/buildtree.c | 32 | ||||
-rw-r--r-- | backendC/CleanCompilerSources/buildtree.h | 9 | ||||
-rw-r--r-- | backendC/CleanCompilerSources/comparser_2.c | 3 |
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 */ |