From 1f03d090e357462c715bbc809ef8cc73fd39983b Mon Sep 17 00:00:00 2001 From: ronny Date: Tue, 16 Oct 2001 12:25:44 +0000 Subject: 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 --- backendC/CleanCompilerSources/statesgen.c | 2 ++ 1 file changed, 2 insertions(+) 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; -- cgit v1.2.3