Advertisement
reversyn

Untitled

Mar 27th, 2014
336
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.14 KB | None | 0 0
  1. [section "data" { __stginit_main:Main:
  2. },
  3. __stginit_main::Main()
  4. {
  5. }
  6. }]
  7.  
  8. [section "relreadonly" {
  9. sat_ssi_srt:
  10. const Data.List.product_closure;
  11. const GHC.Num.$fNumInt_closure;
  12. const GHC.Enum.$fEnumInt_closure;
  13. },
  14. section "data" {
  15. sat_ssi_closure:
  16. const sat_ssi_info;
  17. const 0;
  18. const 0;
  19. const 0;
  20. },
  21. sat_ssg_info()
  22. { label: sat_ssg_info
  23. rep:HeapRep { Thunk }
  24. }
  25. csv:
  26. if (Sp - 40 < SpLim) goto csx;
  27. I64[Sp - 16] = stg_upd_frame_info;
  28. I64[Sp - 8] = R1;
  29. I64[Sp - 24] = stg_INTLIKE_closure+305;
  30. I64[Sp - 32] = stg_INTLIKE_closure+273;
  31. I64[Sp - 40] = stg_ap_pp_info;
  32. R2 = GHC.Enum.$fEnumInt_closure;
  33. Sp = Sp - 40;
  34. jump GHC.Enum.enumFromTo_info; // [R2]
  35. csx: jump stg_gc_enter_1; // [R1]
  36. },
  37. sat_ssi_info()
  38. { label: sat_ssi_info
  39. rep:HeapRep static { Thunk }
  40. }
  41. csA:
  42. if (Sp - 16 < SpLim) goto csC;
  43. Hp = Hp + 32;
  44. if (Hp > HpLim) goto csE;
  45. I64[Hp - 24] = stg_CAF_BLACKHOLE_info;
  46. I64[Hp - 16] = CurrentTSO;
  47. (_csF::I64,) = foreign "ccall"
  48. newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 24, PtrHint));
  49. if (_csF::I64 == 0) goto csG;
  50. goto csH;
  51. csC: jump stg_gc_enter_1; // [R1]
  52. csE:
  53. HpAlloc = 32;
  54. goto csC;
  55. csG: jump I64[R1]; // [R1]
  56. csH:
  57. I64[Sp - 16] = stg_bh_upd_frame_info;
  58. I64[Sp - 8] = Hp - 24;
  59. I64[Hp - 8] = sat_ssg_info;
  60. R1 = Data.List.product_closure;
  61. R2 = GHC.Num.$fNumInt_closure;
  62. R3 = Hp - 8;
  63. Sp = Sp - 16;
  64. jump stg_ap_pp_fast; // [R1, R3, R2]
  65. }]
  66.  
  67. [section "relreadonly" {
  68. sat_ssj_srt:
  69. const System.IO.print_closure;
  70. const GHC.Show.$fShowInt_closure;
  71. },
  72. section "data" {
  73. sat_ssj_closure:
  74. const sat_ssj_info;
  75. const 0;
  76. const 0;
  77. const 0;
  78. },
  79. sat_ssj_info()
  80. { label: sat_ssj_info
  81. rep:HeapRep static { Thunk }
  82. }
  83. ct1:
  84. if (Sp - 16 < SpLim) goto ct3;
  85. Hp = Hp + 16;
  86. if (Hp > HpLim) goto ct5;
  87. I64[Hp - 8] = stg_CAF_BLACKHOLE_info;
  88. I64[Hp + 0] = CurrentTSO;
  89. (_ct6::I64,) = foreign "ccall"
  90. newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 8, PtrHint));
  91. if (_ct6::I64 == 0) goto ct7;
  92. goto ct8;
  93. ct3: jump stg_gc_enter_1; // [R1]
  94. ct5:
  95. HpAlloc = 16;
  96. goto ct3;
  97. ct7: jump I64[R1]; // [R1]
  98. ct8:
  99. I64[Sp - 16] = stg_bh_upd_frame_info;
  100. I64[Sp - 8] = Hp - 8;
  101. R1 = System.IO.print_closure;
  102. R2 = GHC.Show.$fShowInt_closure;
  103. Sp = Sp - 16;
  104. jump stg_ap_p_fast; // [R1, R2]
  105. }]
  106.  
  107. [section "relreadonly" {
  108. Main.main_srt:
  109. const GHC.Base.$_closure;
  110. const sat_ssi_closure;
  111. const sat_ssj_closure;
  112. },
  113. section "data" {
  114. Main.main_closure:
  115. const Main.main_info;
  116. const 0;
  117. const 0;
  118. const 0;
  119. },
  120. Main.main_info()
  121. { label: Main.main_info
  122. rep:HeapRep static { Thunk }
  123. }
  124. ctp:
  125. if (Sp - 16 < SpLim) goto ctr;
  126. Hp = Hp + 16;
  127. if (Hp > HpLim) goto ctt;
  128. I64[Hp - 8] = stg_CAF_BLACKHOLE_info;
  129. I64[Hp + 0] = CurrentTSO;
  130. (_ctu::I64,) = foreign "ccall"
  131. newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 8, PtrHint));
  132. if (_ctu::I64 == 0) goto ctv;
  133. goto ctw;
  134. ctr: jump stg_gc_enter_1; // [R1]
  135. ctt:
  136. HpAlloc = 16;
  137. goto ctr;
  138. ctv: jump I64[R1]; // [R1]
  139. ctw:
  140. I64[Sp - 16] = stg_bh_upd_frame_info;
  141. I64[Sp - 8] = Hp - 8;
  142. R1 = GHC.Base.$_closure;
  143. R2 = sat_ssj_closure;
  144. R3 = sat_ssi_closure;
  145. Sp = Sp - 16;
  146. jump stg_ap_pp_fast; // [R1, R3, R2]
  147. }]
  148.  
  149. [section "relreadonly" {
  150. :Main.main_srt:
  151. const GHC.TopHandler.runMainIO_closure;
  152. const Main.main_closure;
  153. },
  154. section "data" {
  155. :Main.main_closure:
  156. const :Main.main_info;
  157. const 0;
  158. const 0;
  159. const 0;
  160. },
  161. :Main.main_info()
  162. { label: :Main.main_info
  163. rep:HeapRep static { Thunk }
  164. }
  165. ctN:
  166. if (Sp - 16 < SpLim) goto ctP;
  167. Hp = Hp + 16;
  168. if (Hp > HpLim) goto ctR;
  169. I64[Hp - 8] = stg_CAF_BLACKHOLE_info;
  170. I64[Hp + 0] = CurrentTSO;
  171. (_ctS::I64,) = foreign "ccall"
  172. newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 8, PtrHint));
  173. if (_ctS::I64 == 0) goto ctT;
  174. goto ctU;
  175. ctP: jump stg_gc_enter_1; // [R1]
  176. ctR:
  177. HpAlloc = 16;
  178. goto ctP;
  179. ctT: jump I64[R1]; // [R1]
  180. ctU:
  181. I64[Sp - 16] = stg_bh_upd_frame_info;
  182. I64[Sp - 8] = Hp - 8;
  183. R1 = GHC.TopHandler.runMainIO_closure;
  184. R2 = Main.main_closure;
  185. Sp = Sp - 16;
  186. jump stg_ap_p_fast; // [R1, R2]
  187. }]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement