Include the existential dictionaries in dataConOrigInstPat
[ghc.git] / compiler / ilxGen / Entry.ilx
1 .assembly test { }
2 .assembly extern 'mscorlib' { }
3 .assembly extern ilx 'std' { }
4 // ENTRYPOINT
5 .class MainMain { 
6    .method public static void Main(class [mscorlib]System.String[]) {
7        .entrypoint
8            ldstr "LOG: *** loading main value"   call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String)
9       ldsfld thunk<(func ( /* unit skipped */ ) --> class [std]PrelBase_Z0T)> class Main::'Main_main'
10
11            ldstr "LOG: *** evaluating main value"
12            call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String) 
13       callfunc () --> (func ( /* unit skipped */ ) --> class [std]PrelBase_Z0T)
14            ldstr "LOG: *** calling main value"
15            call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String) 
16       // ldunit
17       callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
18
19       pop
20
21
22 // HACK HACK HACK
23 // Call the "finalizers" for stdin, stdout and stderr, because COM+ doesn't 
24 // guarantee that finalizers will be run. WE DON'T GUARANTEE TO RUN ANY
25 // OTHER FINALIZERS...
26
27       ldstr "LOG: ***calling critical finalizers manually in main()"
28            call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String)
29
30 ldsfld thunk<(func (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handlezuzu>>) --> (func (/* unit skipped */) --> class [std]PrelBase_Z0T))>  [std]'PrelHandle'::'PrelHandle_stdHandleFinalizzer'
31 ldsfld thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>  [std]'PrelHandle'::'PrelHandle_stdin'
32       callfunc () (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>) --> (func ( /* unit skipped */ ) -->  class [std]PrelBase_Z0T)
33       callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
34       pop
35
36 ldsfld thunk<(func (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handlezuzu>>) --> (func (/* unit skipped */) --> class [std]PrelBase_Z0T))>  [std]'PrelHandle'::'PrelHandle_stdHandleFinalizzer'
37 ldsfld thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>  [std]'PrelHandle'::'PrelHandle_stdout'
38       callfunc () (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>) --> (func ( /* unit skipped */ ) -->  class [std]PrelBase_Z0T)
39       callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
40       pop
41
42 ldsfld thunk<(func (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handlezuzu>>) --> (func (/* unit skipped */) --> class [std]PrelBase_Z0T))>  [std]'PrelHandle'::'PrelHandle_stdHandleFinalizzer'
43 ldsfld thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>  [std]'PrelHandle'::'PrelHandle_stderr'
44       callfunc () (thunk<class [std]PrelIOBase_MVar<class [std]PrelIOBase_Handle__>>) --> (func ( /* unit skipped */ ) -->  class [std]PrelBase_Z0T)
45       callfunc ( /* unit skipped */ ) --> class [std]PrelBase_Z0T
46       pop
47
48       ldstr "LOG: exit main()\n"
49            call void [mscorlib]System.Console::WriteLine(class [mscorlib]System.String)
50       ret
51    }
52 }
53