From 9c909c88640836bbc3382c18042f1a1456c7b0d2 Mon Sep 17 00:00:00 2001
From: clean
Date: Mon, 23 Oct 2000 14:30:02 +0000
Subject: no message

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@261 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/instructions.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 6f6577c..90406d9 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -1279,7 +1279,23 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p)
 	StateP function_state_p;
 	
 	fkind = (ArrayFunKind)array_def->sdef_arfun;
+/* RWS ...
 	function_state_p = array_def->sdef_rule_type->rule_type_state_p;
+*/
+	switch (array_def->sdef_kind)
+	{
+		case DEFRULE:
+		case SYSRULE:
+			function_state_p = array_def->sdef_rule_type->rule_type_state_p;
+			break;
+		case IMPRULE:
+			function_state_p = array_def->sdef_rule->rule_state_p;
+			break;
+		default:
+			error_in_function ("CallArrayFunction RWS");
+			break;
+	}
+/* RWS */
 		
 	if (function_state_p[0].state_type==SimpleState && function_state_p[0].state_object==UnknownObj){
 		StateS	elem_state;
-- 
cgit v1.2.3