m4n71k0r

Untitled

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