From cf9af99950f07d6283a0dd14094c326e7a5f89da Mon Sep 17 00:00:00 2001 From: John van Groningen Date: Fri, 25 May 2018 11:42:37 +0000 Subject: [PATCH] remove unused definitiona in checker.h --- backendC/CleanCompilerSources/checker.h | 21 ++------------------ backendC/CleanCompilerSources/checker_2.c | 1 - backendC/CleanCompilerSources/instructions.c | 2 -- 3 files changed, 2 insertions(+), 22 deletions(-) diff --git a/backendC/CleanCompilerSources/checker.h b/backendC/CleanCompilerSources/checker.h index 1d7be59c..9bcd92ba 100644 --- a/backendC/CleanCompilerSources/checker.h +++ b/backendC/CleanCompilerSources/checker.h @@ -1,10 +1,4 @@ -#define BIT(n) ((BITVECT) 1 << n) -#define ALLBITSCLEAR ((BITVECT) 0) -#define ALLBITSSET (~ALLBITSCLEAR) -#define BITTEST(v,n) (((BITVECT) v >> n) & ((BITVECT) 1)) -#define TCONS_BIT_NR 31 - extern Ident AnnotatedId, ListId, TupleId, ConsId, NilId, ApplyId, SelectId, IfId, FailId, StdBoolId, AndId, OrId, StdArrayId, ArrayFunctionIds [], ArrayId, StrictArrayId, UnboxedArrayId, ArrayClassId; #if STRICT_LISTS @@ -18,27 +12,16 @@ extern Ident StdMiscId,abort_id,undef_id; #endif extern Ident PreludeId,seq_id,system_seq_id; -extern Symbol StartSymbol, UnboxedArrayClassSymbols [], UnboxedArrayFunctionSymbols []; -extern SymbDef scc_dependency_list,ArrayFunctionDefs[], StdArrayAbortDef; -extern char * CurrentDefModule; - -extern int rule_count; -extern SymbDef *scc_dependency_list_p; +extern Symbol StartSymbol; +extern SymbDef scc_dependency_list; -SymbDef BuildNewSymbolDefinition (Ident sid,int arity,SDefKind kind,unsigned line_nr); SymbDef MakeNewSymbolDefinition (char * module, Ident name, int arity, SDefKind kind); -SymbDef NewSymbolDefinition (Symbol symb, int arity, Bool maybedefined, unsigned line_nr); char *ConvertSymbolToString (Symbol symb); ImpMod ParseAndCheckImplementationModule (char *name); void ReadInlineCode (void); void InitChecker (void); void GenDependencyList (void); NodeDefs NewNodeDef (NodeId nid, Node node); -void GenerateApplyNodesForFullyCurriedApplication (Node node, Node function_node); - -void DetermineRuleComponent (ImpRules rule,SymbDef sdef); -NodeP DetermineGraphRulesComponent (NodeP node,unsigned *ancest); -NodeP RemoveAliasNodeIdInDetermineComponent (NodeP node); #ifdef CLEAN2 void ClearOpenDefinitionModules (void); diff --git a/backendC/CleanCompilerSources/checker_2.c b/backendC/CleanCompilerSources/checker_2.c index 5b0ae626..fd7a4ebc 100644 --- a/backendC/CleanCompilerSources/checker_2.c +++ b/backendC/CleanCompilerSources/checker_2.c @@ -114,7 +114,6 @@ Symbol StartSymbol; SymbDef ArrayFunctionDefs [NoArrayFun],StdArrayAbortDef; SymbDef scc_dependency_list; -SymbDef *scc_dependency_list_p; SymbDef MakeNewSymbolDefinition (char * module, Ident name, int arity, SDefKind kind) { diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index f9748524..b11c698b 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -1455,8 +1455,6 @@ static void GenArrayReplace (Label elemdesc, int asize, int bsize) GenLabel (elemdesc); FPrintF (OutFile, " %d %d", asize, bsize); } - -extern Symbol UnboxedArrayFunctionSymbols []; static Label ApplyLabel; static StateS ApplyState; -- GitLab