X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FilxGen%2FEntry.ilx;fp=compiler%2FilxGen%2FEntry.ilx;h=674c83141a49aa88b669da90fc62ce8f44dc2933;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=0000000000000000000000000000000000000000;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/compiler/ilxGen/Entry.ilx b/compiler/ilxGen/Entry.ilx
new file mode 100644
index 0000000..674c831
--- /dev/null
+++ b/compiler/ilxGen/Entry.ilx
@@ -0,0 +1,53 @@
+.assembly test { }
+.assembly extern 'mscorlib' { }
+.assembly extern ilx 'std' { }
+// ENTRYPOINT
+.class MainMain { 
+   .method public static void Main(class [mscorlib]System.String[]) {
+       .entrypoint
+           ldstr "LOG: *** loading main value"   call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String)
+      ldsfld thunk<(func ( /* unit skipped */ ) --> class [std]PrelBase_Z0T)> class Main::'Main_main'
+
+           ldstr "LOG: *** evaluating main value"
+           call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String) 
+      callfunc () --> (func ( /* unit skipped */ ) --> class [std]PrelBase_Z0T)
+           ldstr "LOG: *** calling main value"
+           call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String) 
+      // ldunit
+      callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
+
+      pop
+
+
+// HACK HACK HACK
+// Call the "finalizers" for stdin, stdout and stderr, because COM+ doesn't 
+// guarantee that finalizers will be run. WE DON'T GUARANTEE TO RUN ANY
+// OTHER FINALIZERS...
+
+      ldstr "LOG: ***calling critical finalizers manually in main()"
+           call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String)
+
+ldsfld thunk<(func (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handlezuzu>>) --> (func (/* unit skipped */) --> class [std]PrelBase_Z0T))>  [std]'PrelHandle'::'PrelHandle_stdHandleFinalizzer'
+ldsfld thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>  [std]'PrelHandle'::'PrelHandle_stdin'
+      callfunc () (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>) --> (func ( /* unit skipped */ ) -->  class [std]PrelBase_Z0T)
+      callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
+      pop
+
+ldsfld thunk<(func (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handlezuzu>>) --> (func (/* unit skipped */) --> class [std]PrelBase_Z0T))>  [std]'PrelHandle'::'PrelHandle_stdHandleFinalizzer'
+ldsfld thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>  [std]'PrelHandle'::'PrelHandle_stdout'
+      callfunc () (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>) --> (func ( /* unit skipped */ ) -->  class [std]PrelBase_Z0T)
+      callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
+      pop
+
+ldsfld thunk<(func (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handlezuzu>>) --> (func (/* unit skipped */) --> class [std]PrelBase_Z0T))>  [std]'PrelHandle'::'PrelHandle_stdHandleFinalizzer'
+ldsfld thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>  [std]'PrelHandle'::'PrelHandle_stderr'
+      callfunc () (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>) --> (func ( /* unit skipped */ ) -->  class [std]PrelBase_Z0T)
+      callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
+      pop
+
+      ldstr "LOG: exit main()\n"
+           call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String)
+      ret
+   }
+}
+