aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2008-12-19 16:12:07 +0000
committerjohnvg2008-12-19 16:12:07 +0000
commit9ba7473154689753a704c120683d8f97a3f1004a (patch)
tree087d86b994ef2f7ed8d8e955a136392165a68c47 /backendC/CleanCompilerSources/instructions.c
parentadd BEBindSpecialType, BEOverloadedCaseNode and BEGetError (diff)
pass world to main function without argument
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1725 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 0190d4b..271e172 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -3502,8 +3502,8 @@ void GenStart (SymbDef startsymb)
GenOAStackLayout (0);
FPrintF (OutFile, "\n__%s_%s", CurrentModule,start_function_name);
-
- if (arity!=0){
+
+ if (arity!=0 || strcmp (start_function_name,"main")==0){
put_instruction_b (buildI);
put_arguments_n_b (65536l);
}