aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.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/instructions.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/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c8
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");
}
}