aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/optimisations.c
diff options
context:
space:
mode:
authorjohnvg2009-01-14 12:31:08 +0000
committerjohnvg2009-01-14 12:31:08 +0000
commite93fab51ac0903a93c4cbeee64a1e9406fe491b4 (patch)
tree7045b0640ce505835ed50f2ceb648d14a3028d3e /backendC/CleanCompilerSources/optimisations.c
parentpass world to main function without argument (diff)
add seq
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1726 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/optimisations.c')
-rw-r--r--backendC/CleanCompilerSources/optimisations.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/optimisations.c b/backendC/CleanCompilerSources/optimisations.c
index 3914329..5f97925 100644
--- a/backendC/CleanCompilerSources/optimisations.c
+++ b/backendC/CleanCompilerSources/optimisations.c
@@ -3347,6 +3347,15 @@ static void ExamineSymbolApplication (struct node *node)
symbol->symb_unboxed_cons_sdef_p->sdef_mark |= SDEF_USED_CURRIED_MASK;
else if (IsLazyState (node->node_state))
symbol->symb_unboxed_cons_sdef_p->sdef_mark |= SDEF_USED_LAZILY_MASK;
+ } else if (symbol->symb_kind==seq_symb){
+ if (node->node_arity!=2)
+ SeqDef->sdef_mark |= SDEF_USED_CURRIED_MASK;
+ else {
+ if (IsLazyState (node->node_state))
+ SeqDef->sdef_mark |= SDEF_USED_LAZILY_MASK;
+ else
+ SeqDef->sdef_mark |= SDEF_USED_STRICTLY_MASK;
+ }
}
return;
}