diff options
author | johnvg | 2008-12-19 16:12:07 +0000 |
---|---|---|
committer | johnvg | 2008-12-19 16:12:07 +0000 |
commit | 9ba7473154689753a704c120683d8f97a3f1004a (patch) | |
tree | 087d86b994ef2f7ed8d8e955a136392165a68c47 /backendC/CleanCompilerSources/instructions.c | |
parent | add 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.c | 4 |
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); } |