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