From 34b321c59e91d22be93ace70fe0fae37d7ecbba2 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 19 Dec 2008 11:42:53 +0000
Subject: remove unused function NewRule

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1708 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/buildtree.c | 13 -------------
 backendC/CleanCompilerSources/buildtree.h | 18 ------------------
 2 files changed, 31 deletions(-)

(limited to 'backendC')

diff --git a/backendC/CleanCompilerSources/buildtree.c b/backendC/CleanCompilerSources/buildtree.c
index ac1405b..bfe0da7 100644
--- a/backendC/CleanCompilerSources/buildtree.c
+++ b/backendC/CleanCompilerSources/buildtree.c
@@ -434,19 +434,6 @@ NewImpRule (unsigned line_number,TypeAlts typeAlternative,NodeP rule_root)
 	return impRule;
 } /* NewImpRule */
 
-ImpRules
-NewRule (unsigned line_number,TypeAlts typeAlternative,NodeP rule_root, ScopeP scope)
-{
-	ImpRules	impRule;
-	
-	impRule	= NewImpRule (line_number, typeAlternative, rule_root);
-
-	*(scope->sc_rulesP)	= impRule;
-	scope->sc_rulesP		= &impRule->rule_next;
-	
-	return (impRule);
-} /* NewRule */
-
 RuleAltP
 NewRuleAlt (void)
 {
diff --git a/backendC/CleanCompilerSources/buildtree.h b/backendC/CleanCompilerSources/buildtree.h
index 0933141..45c909c 100644
--- a/backendC/CleanCompilerSources/buildtree.h
+++ b/backendC/CleanCompilerSources/buildtree.h
@@ -20,23 +20,6 @@ typedef enum
 	kArrowAlternativeKind				/* '->' */
 } RuleAltKind;
 
-STRUCT (scope, Scope)
-{
-	ImpRules		*sc_rulesP;
-
-	ImpRule			sc_rule;
-
-	RuleAlts		*sc_altP;
-	Symbol			sc_ruleSymbol;
-	RuleAltKind		sc_altKind;
-
-	NodeDefP		*sc_nodeDefsP;
-	NodeDefP		*sc_firstNodeDefP;
-	int				sc_scopeMask;
-
-	StrictNodeIdP	*sc_strictDefsP;
-};
-
 extern Args NewArgument (NodeP pattern);
 extern NodeP NewNode (SymbolP symb, Args args, int arity);
 extern NodeP NewIfNode (void);
@@ -61,7 +44,6 @@ extern NodeP NewNodeByKind (NodeKind nodeKind, SymbolP symb, Args args, int arit
 #endif
 
 extern	NodeP NewIntNode (int value);
-extern	ImpRules NewRule (unsigned line_number, TypeAlts typeAlternative, NodeP rule_root, ScopeP scope);
 
 extern NodeIdP NewNodeId (IdentP nid);
 extern StrictNodeIdP NewStrictNodeId (NodeIdP node_id, StrictNodeIdP next);
-- 
cgit v1.2.3