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/instructions.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/instructions.c')
-rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index 271e172..7cbe692 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -3717,7 +3717,7 @@ void GenSystemImports (void) GenImpDesc ("e_system_dAP"); GenImpLab_node_entry ("e_system_nAP","e_system_eaAP"); GenImpLab ("e_system_sAP"); - + GenImpDesc (nil_lab.lab_name); GenImpDesc (cons_lab.lab_name); #if STRICT_LISTS @@ -3743,6 +3743,12 @@ void GenSystemImports (void) FPrintF (OutFile,N_PREFIX "%s.%d " EA_PREFIX "%s.%d",glob_selr,selnum,glob_selr,selnum); } #endif + + if (SeqDef!=NULL && (SeqDef->sdef_mark & (SDEF_USED_LAZILY_MASK | SDEF_USED_CURRIED_MASK))){ + GenImpDesc ("e_system_dseq"); + GenImpLab_node_entry ("e_system_nseq","e_system_easeq"); + } + GenImpLab ("_driver"); } } |