aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorronny2001-05-01 11:31:20 +0000
committerronny2001-05-01 11:31:20 +0000
commitde4d8bd5c7378fca65927cda54fa2c7399f3c5e7 (patch)
tree0a91e2134413d6e195c215564e6706b7d2901ae0 /backendC/CleanCompilerSources/instructions.c
parentmade name generation depend on _ANALYSE_IDENT_ (diff)
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
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c9
1 files changed, 7 insertions, 2 deletions
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