diff options
| author | ronny | 2001-10-16 12:25:44 +0000 |
|---|---|---|
| committer | ronny | 2001-10-16 12:25:44 +0000 |
| commit | 1f03d090e357462c715bbc809ef8cc73fd39983b (patch) | |
| tree | 89dc4d1635c04bb800d889c6ce629d8771d28f95 | |
| parent | no message (diff) | |
don't add arguments to fail node
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@852 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/statesgen.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/statesgen.c b/backendC/CleanCompilerSources/statesgen.c index e78ab50..1c13dcf 100644 --- a/backendC/CleanCompilerSources/statesgen.c +++ b/backendC/CleanCompilerSources/statesgen.c @@ -3112,6 +3112,8 @@ static NodeP add_argument_to_node (NodeP rhs_root_p,NodeIdP new_node_id_p) root_symbol_p=rhs_root_p->node_symbol; if (root_symbol_p->symb_kind==if_symb && rhs_root_p->node_arity==3) return add_argument_to_if_node (rhs_root_p,new_node_id_p); + else if (root_symbol_p->symb_kind == fail_symb) + return rhs_root_p; else if (get_symbol_arity_or_zero (root_symbol_p) > rhs_root_p->node_arity){ ArgP *last_rhs_arg_h; |