Commit 6ef5b893 authored by John van Groningen's avatar John van Groningen
Browse files

remove some unused definitions and code

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