Commit 61544977 authored by John van Groningen's avatar John van Groningen
Browse files

remove unused code

parent 8b297887
......@@ -64,8 +64,6 @@ extern void SetOverloadedTypeVars (int over_arity, TypeContext type_cont, struc
extern void DetermineClassNumber (SymbDef class_symb);
extern ClassInstance RetrieveSpecificInstance (ClassDefinition class, struct type_cell * inst_type);
extern SymbDef CopySymbDef (SymbDef old);
extern SymbDef NewEmptyRule (Symbol rule_symb, int arity, unsigned line);
......@@ -74,8 +72,6 @@ extern Bool EqualTypeClasses (int var_nr1, int var_nr2);
extern void InitOverloading (void);
extern void AddToInstanceList (ClassInstance class_instance, ClassDefinition class_def);
extern FieldList RetrieveClassSelector (SymbolList class_symbols, SymbDef class_symbol);
extern Types DetermineClassRecord (int nr_of_fields);
......
......@@ -8,10 +8,6 @@ Author: Sjaak Smetsers
extern jmp_buf ExitTypeComponent;
#ifdef SHORT_CLASS_NAMES
extern int gNextTypeNumber;
#endif
extern void OverloadingError (Symbol symbol, char *msg, TypeCell type, Bool make_jump);
extern void Unify (TypeCell offtype, TypeCell demtype, Node uni_node, int argnr);
......
......@@ -192,15 +192,3 @@ extern UniquenessErrorKind EquateAttributesOfType (TypeCell type1, AttributeCell
extern TypeCell gErroneousTypeCell;
extern Bool gDemandedIsErroneous;
#ifdef SHORT_CLASS_NAMES
extern ModuleInfo gModuleInfo, gIclModuleInfo;
extern ModuleInfo NewModuleInfo (Symbol module_symbol);
extern int ConvertSymbolListToNumber (SymbolList class_symbols);
#endif
......@@ -30,8 +30,3 @@ extern SymbolTypeInfoP NewSymbolTypeInfo (void);
extern void PrintTypeClass (SymbDef class_def, File file);
#define NewTypeCells(n,hd) TH_AllocArray (hd,n,TypeCell)
#ifdef SHORT_CLASS_NAMES
extern void ConvertTypeContextToNumbers (DefMod dmod);
#endif
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