remove some unused fields and definitions

backendC/CleanCompilerSources/buildtree.c

@@ -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;

backendC/CleanCompilerSources/buildtree.h

@@ -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 [];

backendC/CleanCompilerSources/syntax_tree_types.h

-/*
-	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;