remove some unused definitions and code

backendC/CleanCompilerSources/optimisations.c

@@ -3362,7 +3362,7 @@ static Bool IsObservedDef (NodeDefP def_p)
 	NodeP node_p;
 
 	node_p=def_p->def_node;
-	if (node_p==NULL || (node_p->node_annotation==StrictAnnot && (def_p->def_mark & NODE_DEF_OBSERVE_MASK)))
+	if (node_p==NULL)
 		return True;
 	else
 		return False;

backendC/CleanCompilerSources/statesgen.c

@@ -3214,9 +3214,6 @@ static void AddStrictLhsNodeIdsToNodeDefs (StrictNodeIdP strict_node_id,NodeDefs
 			new_def->def_next=*defs_p;
 			*defs_p=new_def;
 			defs_p=&new_def->def_next;
-		} else if ((strict_node_id->snid_mark & STRICT_NODE_ID_OBSERVE_MASK) && node_id->nid_refcount>0 && node_id->nid_node!=NULL){
-			if (node_id->nid_node_def!=NULL)
-				node_id->nid_node_def->def_mark |= NODE_DEF_OBSERVE_MASK;
 		}
 
 		strict_node_id=strict_node_id->snid_next;

backendC/CleanCompilerSources/syntaxtr.t

@@ -9,12 +9,6 @@
 	typedef struct struct_name *type_name##P; \
 	struct struct_name
 
-typedef unsigned long BITVECT;
-
-typedef	enum
-{	NoAttr, DeferAttr, CopyAttr
-} GraphAttributeKind;
-
 typedef enum {
 	TupleState,  ArrayState, RecordState, SimpleState
 } StateType;
@@ -315,7 +309,6 @@ STRUCT (strict_node_id,StrictNodeId){
 };
 
 #define STRICT_NODE_ID_IDENT_MASK 1
-#define STRICT_NODE_ID_OBSERVE_MASK 2
 
 #define snid_node_id snid_val.val_node_id
 #define snid_ident snid_val.val_ident
@@ -459,7 +452,6 @@ STRUCT (node_def,NodeDef){
 };
 
 #define NODE_DEF_MARKED 8
-#define NODE_DEF_OBSERVE_MASK 16
 #define NODE_DEF_SELECT_AND_REMOVE_MASK 32
 
 /*	for implementing calls to C or the OS */

backendC/CleanCompilerSources/typechecker2.h

-/*
-
-Version 1.0 25/04/1994
-
-Author: Sjaak Smetsers 
-
-*/
 
 #undef _TYPESBUG_
 
@@ -94,19 +87,9 @@ extern TypeCell NewConstructorTypeCell (SymbDef type_cons, int act_arity, Attrib
 #define cDontAddExtraArgument	False
 
 extern TypeCell NewTemporaryConstructorTypeCell (TypeConsRepr type_cons, int act_arity, AttributeCellKind attrkind, Bool extra_argument);
-	
-extern BITVECT DetermineUniPropOfTypeCell (SymbDef cons_def, TypeCell cons_cell);
-
-extern BITVECT DetermineConsVarsOfTypeCons (SymbDef typecons, ConsVarList * cons_vars);
-
-extern BITVECT DetermineUniPropOfTypeCons (SymbDef typecons);
-
-extern BITVECT DetermineUniPropOfTypeConsVar (TypeArgClass arg_class [], int arity);
 
 extern void CreateAttributeEquationsForConstructorVariables (SymbDef cons_def, TypeCell arg_cells []);
 
-extern BITVECT DetermineUniVarsOfTypeCons (SymbDef typecons);
-
 extern AttributeCellKind DetermineAttrkindOfTemporaryTypeCell (TypeCell type);
 
 extern TypeCell NewAttributedTypeVariable (HeapDescr hd, AttrVarKind av_kind);