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