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)
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 */
......@@ -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);
......
......@@ -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 */
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