Guest User

Untitled

a guest
Aug 22nd, 2011
365
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 3.54 KB | None | 0 0
  1. /* GHC_PACKAGES base integer-gmp ghc-prim rts
  2. */
  3. #include "Stg.h"
  4. EI_(base_GHCziBase_unpackCStringzh_closure);
  5. static StgWord sf7_srt[] = {
  6. (W_)&base_GHCziBase_unpackCStringzh_closure
  7. };
  8.  
  9. II_(sf7_info);
  10. static StgWord sf7_closure[] = {
  11. (W_)&sf7_info, 0x0, 0x0, 0x0
  12. };
  13.  
  14. static char cff_str[] = "Hello World!";
  15.  
  16. static StgWord sf7_info[] = {
  17. ((W_)&sf7_srt+0), 0x0, 0x100000016UL
  18. };
  19.  
  20. EI_(base_GHCziBase_unpackCStringzh_closure);
  21. IF_(sf7_entry) {
  22. FB_
  23. if ((W_)(((W_)Sp - 0x10UL) < (W_)SpLim)) goto _cfi;
  24. Hp=Hp+2;
  25. if ((W_)((W_)Hp > (W_)HpLim)) goto _cfi;
  26. Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
  27. ;EF_(newCAF);
  28. {void (*ghcFunPtr)(void *);
  29. ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
  30. __DISCARD__();
  31. ghcFunPtr((void *)R1.w);;}
  32. R1.p[1] = (W_)Hp-8;
  33. *R1.p = (W_)&stg_IND_STATIC_info;
  34. Sp[-2] = (W_)&stg_upd_frame_info;
  35. Sp[-1] = (W_)Hp-8;
  36. R1.w = (W_)&base_GHCziBase_unpackCStringzh_closure;
  37. R2.w = (W_)&cff_str;
  38. Sp=Sp-2;
  39. JMP_((W_)&stg_ap_n_fast);
  40. _cfi:
  41. HpAlloc = 0x10UL;
  42. JMP_(stg_gc_enter_1);
  43. FE_
  44. }
  45. EI_(base_SystemziIO_putStrLn_closure);
  46. II_(sf7_closure);
  47. StgWord Main_main_srt[] = {
  48. (W_)&base_SystemziIO_putStrLn_closure, (W_)&sf7_closure
  49. };
  50.  
  51. EI_(Main_main_info);
  52. StgWord Main_main_closure[] = {
  53. (W_)&Main_main_info, 0x0, 0x0, 0x0
  54. };
  55.  
  56. StgWord Main_main_info[] = {
  57. ((W_)&Main_main_srt+0), 0x0, 0x300000016UL
  58. };
  59.  
  60. EI_(base_SystemziIO_putStrLn_closure);
  61. II_(sf7_closure);
  62. FN_(Main_main_entry) {
  63. FB_
  64. if ((W_)(((W_)Sp - 0x10UL) < (W_)SpLim)) goto _cfs;
  65. Hp=Hp+2;
  66. if ((W_)((W_)Hp > (W_)HpLim)) goto _cfs;
  67. Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
  68. ;EF_(newCAF);
  69. {void (*ghcFunPtr)(void *);
  70. ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
  71. __DISCARD__();
  72. ghcFunPtr((void *)R1.w);;}
  73. R1.p[1] = (W_)Hp-8;
  74. *R1.p = (W_)&stg_IND_STATIC_info;
  75. Sp[-2] = (W_)&stg_upd_frame_info;
  76. Sp[-1] = (W_)Hp-8;
  77. R1.w = (W_)&base_SystemziIO_putStrLn_closure;
  78. R2.w = (W_)&sf7_closure;
  79. Sp=Sp-2;
  80. JMP_((W_)&stg_ap_p_fast);
  81. _cfs:
  82. HpAlloc = 0x10UL;
  83. JMP_(stg_gc_enter_1);
  84. FE_
  85. }
  86. EI_(base_GHCziTopHandler_runMainIO_closure);
  87. EI_(Main_main_closure);
  88. StgWord ZCMain_main_srt[] = {
  89. (W_)&base_GHCziTopHandler_runMainIO_closure, (W_)&Main_main_closure
  90. };
  91.  
  92. EI_(ZCMain_main_info);
  93. StgWord ZCMain_main_closure[] = {
  94. (W_)&ZCMain_main_info, 0x0, 0x0, 0x0
  95. };
  96.  
  97. StgWord ZCMain_main_info[] = {
  98. ((W_)&ZCMain_main_srt+0), 0x0, 0x300000016UL
  99. };
  100.  
  101. EI_(base_GHCziTopHandler_runMainIO_closure);
  102. EI_(Main_main_closure);
  103. FN_(ZCMain_main_entry) {
  104. FB_
  105. if ((W_)(((W_)Sp - 0x10UL) < (W_)SpLim)) goto _cfC;
  106. Hp=Hp+2;
  107. if ((W_)((W_)Hp > (W_)HpLim)) goto _cfC;
  108. Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
  109. ;EF_(newCAF);
  110. {void (*ghcFunPtr)(void *);
  111. ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
  112. __DISCARD__();
  113. ghcFunPtr((void *)R1.w);;}
  114. R1.p[1] = (W_)Hp-8;
  115. *R1.p = (W_)&stg_IND_STATIC_info;
  116. Sp[-2] = (W_)&stg_upd_frame_info;
  117. Sp[-1] = (W_)Hp-8;
  118. R1.w = (W_)&base_GHCziTopHandler_runMainIO_closure;
  119. R2.w = (W_)&Main_main_closure;
  120. Sp=Sp-2;
  121. JMP_((W_)&stg_ap_p_fast);
  122. _cfC:
  123. HpAlloc = 0x10UL;
  124. JMP_(stg_gc_enter_1);
  125. FE_
  126. }
  127. static StgWord _module_registered[] = {
  128. 0x0
  129. };
  130.  
  131.  
  132. EF_(__stginit_base_Prelude_);
  133. EF_(__stginit_base_GHCziTopHandler_);
  134. FN_(__stginit_Main_) {
  135. FB_
  136. if ((W_)(0x0 != (*((P_)(W_)&_module_registered)))) goto _cfI;
  137. goto _cfK;
  138. _cfI:
  139. Sp=Sp+1;
  140. JMP_(Sp[-1]);
  141. _cfK:
  142. *((P_)(W_)&_module_registered) = 0x1UL;
  143. Sp=Sp-1;
  144. *Sp = (W_)&__stginit_base_Prelude_;
  145. Sp=Sp-1;
  146. *Sp = (W_)&__stginit_base_GHCziTopHandler_;
  147. goto _cfI;
  148. FE_
  149. }
  150.  
  151.  
  152. EF_(__stginit_Main_);
  153. FN_(__stginit_Main) {
  154. FB_
  155. JMP_((W_)&__stginit_Main_);
  156. FE_
  157. }
  158.  
  159.  
  160. FN_(__stginit_ZCMain) {
  161. FB_
  162. Sp=Sp+1;
  163. JMP_(Sp[-1]);
  164. FE_
  165. }
Advertisement
Add Comment
Please, Sign In to add comment