diff options
| author | johnvg | 2008-12-19 11:42:53 +0000 |
|---|---|---|
| committer | johnvg | 2008-12-19 11:42:53 +0000 |
| commit | 34b321c59e91d22be93ace70fe0fae37d7ecbba2 (patch) | |
| tree | 5760db569e82c52ed2905f496965fe8fddb272da | |
| parent | remove Enum function ids (diff) | |
remove unused function NewRule
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1708 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/buildtree.c | 13 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/buildtree.h | 18 |
2 files changed, 0 insertions, 31 deletions
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); |