pass world to main function without argument

f36dcd61 · John van Groningen · 2fba4755 · f36dcd61
Commit f36dcd61 authored Dec 19, 2008 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

backendC/CleanCompilerSources/instructions.c backendC/CleanCompilerSources/instructions.c +2 -2

No files found.
--- 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);
 		}