From 6395b65a966aeb448322d744d05bbb500f243c23 Mon Sep 17 00:00:00 2001 From: johnvg Date: Mon, 21 Oct 2002 11:39:40 +0000 Subject: remove unused code git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1249 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- backendC/CleanCompilerSources/overloading.h | 4 ---- backendC/CleanCompilerSources/tcsupport.h | 4 ---- backendC/CleanCompilerSources/typechecker2.h | 12 ------------ backendC/CleanCompilerSources/typeconv.h | 5 ----- 4 files changed, 25 deletions(-) (limited to 'backendC/CleanCompilerSources') diff --git a/backendC/CleanCompilerSources/overloading.h b/backendC/CleanCompilerSources/overloading.h index c8113d5..967f7fe 100644 --- a/backendC/CleanCompilerSources/overloading.h +++ b/backendC/CleanCompilerSources/overloading.h @@ -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); diff --git a/backendC/CleanCompilerSources/tcsupport.h b/backendC/CleanCompilerSources/tcsupport.h index 7a28d85..e66d8ab 100644 --- a/backendC/CleanCompilerSources/tcsupport.h +++ b/backendC/CleanCompilerSources/tcsupport.h @@ -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); diff --git a/backendC/CleanCompilerSources/typechecker2.h b/backendC/CleanCompilerSources/typechecker2.h index 0e0a7b8..f9df675 100644 --- a/backendC/CleanCompilerSources/typechecker2.h +++ b/backendC/CleanCompilerSources/typechecker2.h @@ -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 - - diff --git a/backendC/CleanCompilerSources/typeconv.h b/backendC/CleanCompilerSources/typeconv.h index 967c2dc..7b0b02d 100644 --- a/backendC/CleanCompilerSources/typeconv.h +++ b/backendC/CleanCompilerSources/typeconv.h @@ -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 - -- cgit v1.2.3