Commit aed4ef35 authored by John van Groningen's avatar John van Groningen
Browse files

remove Enum function ids

parent 33039089
...@@ -577,35 +577,3 @@ UseArrayFunctionId (ArrayFunKind kind) ...@@ -577,35 +577,3 @@ UseArrayFunctionId (ArrayFunKind kind)
return (ArrayFunctionIds [kind]); return (ArrayFunctionIds [kind]);
} /* UseArrayFunctionId */ } /* UseArrayFunctionId */
#endif #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 */
...@@ -120,15 +120,6 @@ extern SymbolP TupleTypeSymbols []; ...@@ -120,15 +120,6 @@ extern SymbolP TupleTypeSymbols [];
IdentP UseArrayFunctionId (ArrayFunKind kind); IdentP UseArrayFunctionId (ArrayFunKind kind);
void InitialiseEnumFunctionIds (void); 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; extern unsigned import_system_functions, import_system_array_functions;
void clear_p_at_node_tree (void); void clear_p_at_node_tree (void);
......
...@@ -24,7 +24,6 @@ ...@@ -24,7 +24,6 @@
# include "statesgen.h" # include "statesgen.h"
# include "comparser.h" # include "comparser.h"
# include "buildtree.h" # include "buildtree.h"
# include "comprehensions.h"
# include "settings.h" # include "settings.h"
# include "checksupport.h" # include "checksupport.h"
...@@ -197,7 +196,5 @@ InitParser (void) ...@@ -197,7 +196,5 @@ InitParser (void)
AllSymbol = NewSymbol (all_symb); AllSymbol = NewSymbol (all_symb);
EmptyTypeSymbol = NewSymbol (empty_type); EmptyTypeSymbol = NewSymbol (empty_type);
InitialiseEnumFunctionIds ();
clear_p_at_node_tree(); clear_p_at_node_tree();
} /* InitParser */ } /* InitParser */
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment