diff options
author | johnvg | 2009-01-14 12:31:08 +0000 |
---|---|---|
committer | johnvg | 2009-01-14 12:31:08 +0000 |
commit | e93fab51ac0903a93c4cbeee64a1e9406fe491b4 (patch) | |
tree | 7045b0640ce505835ed50f2ceb648d14a3028d3e /backendC/CleanCompilerSources/optimisations.c | |
parent | pass 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.c | 9 |
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; } |