Commit 53ff91df authored by John van Groningen's avatar John van Groningen
Browse files

remove some unused fields and definitions

parent 74ff69b0
......@@ -26,8 +26,6 @@ SymbolP
UnboxedTailStrictListSymbol, UnboxedTailStrictConsSymbol, UnboxedTailStrictNilSymbol;
#endif
char BasicTypeIds [] = BASIC_TYPE_IDS_STRING;
IdentP gArrayIdents [NrOfArrayInstances];
RuleTypes
......@@ -139,11 +137,7 @@ NewTypeVar (IdentP nid)
newnid = CompAllocType (struct type_var);
newnid->tv_ident = nid;
newnid->tv_refcount = 0;
newnid->tv_argument_nr = 0;
newnid->tv_type = NIL;
newnid->tv_imp_tv = NIL;
newnid->tv_overvar_arity = 0;
newnid->tv_mark = 0;
return (newnid);
......@@ -157,7 +151,6 @@ NewUniVar (IdentP id)
new_uni_var = CompAllocType (struct uni_var);
new_uni_var->uv_ident = id;
new_uni_var->uv_mark = 0;
new_uni_var->uv_number = 0;
new_uni_var->uv_next_uni_var = NULL;
new_uni_var->uv_equations = NULL;
......
......@@ -75,9 +75,6 @@ extern TypeArgs ConvertFieldsToTypeArguments (FieldList fields);
extern char *CopyString (char *to, char *from, int *rest_size);
extern char BasicTypeIds [];
#define ConvertBasicTypeToChar(type_symb) BasicTypeIds [(type_symb) -> symb_kind]
extern IdentP DetermineNewSymbolId (char *prefix, TypeNode inst_type, TableKind table);
extern IdentP gArrayIdents [];
......
/*
Version 1.2 17 dec1996
*/
#define BASIC_TYPE_IDS_STRING "ibcrfswpvr" /* indexed by SymbKind */
#define Type_Variable_Mark (1 << Nr_Of_Basic_Types)
typedef enum
{ NoUniAttr, NotUniqueAttr, UniqueAttr, ExistsAttr, UniqueVariable, FirstUniVarNumber
......@@ -37,16 +30,8 @@ typedef struct flat_type
AttributeKind ft_attribute;
} * FlatType;
STRUCT (symbol_list, SymbolList)
{
struct symbol_def * sl_symbol;
struct symbol_list * sl_next;
};
STRUCT (type_context, TypeContext)
{
SymbolList tyco_symbols;
TypeVar tyco_variable;
struct type_context * tyco_next;
};
......@@ -151,11 +136,7 @@ struct type_var
{
Ident tv_ident;
unsigned short tv_mark;
int tv_refcount;
int tv_argument_nr;
int tv_overvar_arity;
TypeVar tv_imp_tv;
struct type_cell * tv_type;
};
#define TestMark(n,f,mask) (((n)->f & (mask)) != 0)
......@@ -163,7 +144,6 @@ struct type_var
typedef struct uni_var
{
Ident uv_ident;
unsigned short uv_mark;
int uv_number;
struct uni_var * uv_next_uni_var;
UniVarEquations uv_equations;
......
Markdown is supported
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