From de4d8bd5c7378fca65927cda54fa2c7399f3c5e7 Mon Sep 17 00:00:00 2001
From: ronny
Date: Tue, 1 May 2001 11:31:20 +0000
Subject: removed RWS in internal compiler error message test for NULL params
 in GenParameters (reason unknown)

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

(limited to 'backendC')

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 90406d9..d9c9512 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -1292,7 +1292,7 @@ void CallArrayFunction (SymbDef array_def,Bool is_jsr,StateP node_state_p)
 			function_state_p = array_def->sdef_rule->rule_state_p;
 			break;
 		default:
-			error_in_function ("CallArrayFunction RWS");
+			error_in_function ("CallArrayFunction");
 			break;
 	}
 /* RWS */
@@ -3284,7 +3284,12 @@ void GenSystemImports (void)
 void GenParameters (Bool input, Parameters params, int asp, int bsp)
 {
 	int is_first_parameter;
-		
+
+/* RWS ... ??? */	
+	if (params==NULL)
+		return;
+/* ... RWS */	
+
 	if (input)
 		put_instruction_ (Iin);
 	else
-- 
cgit v1.2.3