API tools faq
paste
Guest User

Untitled

a guest
Dec 13th, 2017
95
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.25 KB | None | 0 0
raw download clone embed print report
  1. /* GHC_PACKAGES base ghc-prim integer-simple
  2. */
  3. #include "Stg.h"
  4. EB_(Main_zdtrModule4_bytes);
  5. const char Main_zdtrModule4_bytes[] = "main";
  6. ERO_(ghczmprim_GHCziTypes_TrNameS_con_info);
  7. EB_(Main_zdtrModule4_bytes);
  8. EC_(Main_zdtrModule3_closure);
  9. StgWord Main_zdtrModule3_closure[]__attribute__((aligned(8)))= {
  10. (W_)&ghczmprim_GHCziTypes_TrNameS_con_info, (W_)&Main_zdtrModule4_bytes
  11. };
  12. EB_(Main_zdtrModule2_bytes);
  13. const char Main_zdtrModule2_bytes[] = "Main";
  14. ERO_(ghczmprim_GHCziTypes_TrNameS_con_info);
  15. EB_(Main_zdtrModule2_bytes);
  16. EC_(Main_zdtrModule1_closure);
  17. StgWord Main_zdtrModule1_closure[]__attribute__((aligned(8)))= {
  18. (W_)&ghczmprim_GHCziTypes_TrNameS_con_info, (W_)&Main_zdtrModule2_bytes
  19. };
  20. ERO_(ghczmprim_GHCziTypes_Module_con_info);
  21. EC_(Main_zdtrModule1_closure);
  22. EC_(Main_zdtrModule3_closure);
  23. EC_(Main_zdtrModule_closure);
  24. StgWord Main_zdtrModule_closure[]__attribute__((aligned(8)))= {
  25. (W_)&ghczmprim_GHCziTypes_Module_con_info, ((W_)&Main_zdtrModule3_closure+1), ((W_)&Main_zdtrModule1_closure+1), 0x3UL
  26. };
  27. ERO_(Main_zdwfact_info);
  28. EC_(Main_zdwfact_closure);
  29. StgWord Main_zdwfact_closure[]__attribute__((aligned(8)))= {
  30. (W_)&Main_zdwfact_info
  31. };
  32.  
  33.  
  34. IRO_(c4Cn_info);
  35. EC_(Main_zdwfact_closure);
  36. EF_(Main_zdwfact_entry);
  37. FN_(Main_zdwfact_entry) {
  38. W_ _s4BX;
  39. _c4Cg:
  40. if ((W_)(((W_)Sp-16) < (W_)SpLim)) goto _c4Ch; else goto _c4Ci;
  41. _c4Ce:
  42. Sp[-1] = (W_)&c4Cn_info;
  43. Sp[-2] = _s4BX-1;
  44. *Sp = _s4BX;
  45. Sp=Sp-2;
  46. JMP_((W_)&Main_zdwfact_entry);
  47. _c4Cf:
  48. R1.w = 0x1UL;
  49. Sp=Sp+1;
  50. JMP_(*((P_)(*Sp)));
  51. _c4Ch:
  52. R1.w = (W_)&Main_zdwfact_closure;
  53. JMP_(stg_gc_fun);
  54. _c4Ci:
  55. _s4BX = *Sp;
  56. switch (_s4BX) {
  57. case 0x0UL: goto _c4Cf;
  58. default: goto _c4Ce;
  59. }
  60. }
  61.  
  62. EF_(Main_zdwfact_entry);
  63. ERO_(Main_zdwfact_info);
  64. const StgWord Main_zdwfact_info[]__attribute__((aligned(8)))= {
  65. (W_)&Main_zdwfact_entry, 0x0UL, 0xeUL, 0x100000004UL
  66. };
  67.  
  68.  
  69. IF_(_c4Cn) {
  70. _c4Cn:
  71. R1.w = (Sp[1]) * R1.w;
  72. Sp=Sp+2;
  73. JMP_(*((P_)(*Sp)));
  74. }
  75.  
  76. IF_(_c4Cn);
  77. IRO_(c4Cn_info);
  78. static const StgWord c4Cn_info[]__attribute__((aligned(8)))= {
  79. (W_)&_c4Cn, 0x41UL, 0x1eUL
  80. };
  81. ERO_(Main_main2_info);
  82. EC_(Main_main2_closure);
  83. StgWord Main_main2_closure[]__attribute__((aligned(8)))= {
  84. (W_)&Main_main2_info, 0x0UL, 0x0UL, 0x0UL
  85. };
  86.  
  87.  
  88. IRO_(c4Cz_info);
  89. EF_(Main_zdwfact_entry);
  90. EFF_(newCAF);
  91. FN_(Main_main2_entry) {
  92. W_ _c4Cw;
  93. W_ _r4BQ;
  94. _c4CB:
  95. _r4BQ = R1.w;
  96. if ((W_)(((W_)Sp-48) < (W_)SpLim)) goto _c4CH; else goto _c4CI;
  97. _c4Cx:
  98. Sp[-2] = (W_)&stg_bh_upd_frame_info;
  99. Sp[-1] = _c4Cw;
  100. Sp[-3] = (W_)&c4Cz_info;
  101. Sp[-4] = 0x5UL;
  102. Sp=Sp-4;
  103. JMP_((W_)&Main_zdwfact_entry);
  104. _c4Cy:
  105. JMP_(*((P_)(*((P_)_r4BQ))));
  106. _c4CH:
  107. R1.w = _r4BQ;
  108. JMP_(stg_gc_enter_1);
  109. _c4CI:
  110. {void * (*ghcFunPtr)(void *, void *);
  111. ghcFunPtr = ((void * (*)(void *, void *))newCAF);
  112. _c4Cw = (W_)ghcFunPtr((void *)(W_)BaseReg, (void *)_r4BQ);;}
  113. if ((W_)(_c4Cw == 0x0UL)) goto _c4Cy; else goto _c4Cx;
  114. }
  115.  
  116. EF_(Main_main2_entry);
  117. ERO_(Main_main2_info);
  118. const StgWord Main_main2_info[]__attribute__((aligned(8)))= {
  119. (W_)&Main_main2_entry, 0x0UL, 0x15UL
  120. };
  121.  
  122.  
  123. EC_(ghczmprim_GHCziTypes_ZMZN_closure);
  124. IRO_(c4CE_info);
  125. EF_(base_GHCziShow_zdwshowSignedInt_entry);
  126. IF_(_c4Cz) {
  127. _c4Cz:
  128. *Sp = (W_)&c4CE_info;
  129. Sp[-3] = 0x0UL;
  130. Sp[-2] = R1.w;
  131. Sp[-1] = (W_)&ghczmprim_GHCziTypes_ZMZN_closure+1;
  132. Sp=Sp-3;
  133. JMP_((W_)&base_GHCziShow_zdwshowSignedInt_entry);
  134. }
  135.  
  136. IF_(_c4Cz);
  137. IRO_(c4Cz_info);
  138. static const StgWord c4Cz_info[]__attribute__((aligned(8)))= {
  139. (W_)&_c4Cz, 0x0UL, 0x1eUL
  140. };
  141.  
  142.  
  143. ERO_(ghczmprim_GHCziTypes_ZC_con_info);
  144. IF_(_c4CE) {
  145. W_ _s4C2;
  146. _c4CE:
  147. Hp=Hp+3;
  148. _s4C2 = R1.w;
  149. if ((W_)((W_)Hp > (W_)HpLim)) goto _c4CM; else goto _c4CL;
  150. _c4CL:
  151. Hp[-2] = (W_)&ghczmprim_GHCziTypes_ZC_con_info;
  152. Hp[-1] = _s4C2;
  153. *Hp = *Sp;
  154. R1.w = (W_)Hp-14;
  155. Sp=Sp+2;
  156. JMP_(*((P_)(*Sp)));
  157. _c4CM:
  158. HpAlloc = 0x18UL;
  159. R1.w = _s4C2;
  160. JMP_((W_)&stg_gc_pp);
  161. }
  162.  
  163. IF_(_c4CE);
  164. IRO_(c4CE_info);
  165. static const StgWord c4CE_info[]__attribute__((aligned(8)))= {
  166. (W_)&_c4CE, 0x0UL, 0x1eUL
  167. };
  168. EB_(Main_main4_bytes);
  169. const char Main_main4_bytes[] = "Hello fact";
  170. ERO_(Main_main3_info);
  171. EC_(Main_main3_closure);
  172. StgWord Main_main3_closure[]__attribute__((aligned(8)))= {
  173. (W_)&Main_main3_info, 0x0UL, 0x0UL, 0x0UL
  174. };
  175.  
  176.  
  177. EF_(ghczmprim_GHCziCString_unpackCStringzh_entry);
  178. EB_(Main_main4_bytes);
  179. EFF_(newCAF);
  180. FN_(Main_main3_entry) {
  181. W_ _c4CQ;
  182. W_ _r4BS;
  183. _c4CT:
  184. _r4BS = R1.w;
  185. if ((W_)(((W_)Sp-24) < (W_)SpLim)) goto _c4CU; else goto _c4CV;
  186. _c4CR:
  187. Sp[-2] = (W_)&stg_bh_upd_frame_info;
  188. Sp[-1] = _c4CQ;
  189. Sp[-3] = (W_)&Main_main4_bytes;
  190. Sp=Sp-3;
  191. JMP_((W_)&ghczmprim_GHCziCString_unpackCStringzh_entry);
  192. _c4CS:
  193. JMP_(*((P_)(*((P_)_r4BS))));
  194. _c4CU:
  195. R1.w = _r4BS;
  196. JMP_(stg_gc_enter_1);
  197. _c4CV:
  198. {void * (*ghcFunPtr)(void *, void *);
  199. ghcFunPtr = ((void * (*)(void *, void *))newCAF);
  200. _c4CQ = (W_)ghcFunPtr((void *)(W_)BaseReg, (void *)_r4BS);;}
  201. if ((W_)(_c4CQ == 0x0UL)) goto _c4CS; else goto _c4CR;
  202. }
  203.  
  204. EF_(Main_main3_entry);
  205. ERO_(Main_main3_info);
  206. const StgWord Main_main3_info[]__attribute__((aligned(8)))= {
  207. (W_)&Main_main3_entry, 0x0UL, 0x15UL
  208. };
  209. ERO_(Main_main1_info);
  210. EC_(Main_main1_closure);
  211. StgWord Main_main1_closure[]__attribute__((aligned(8)))= {
  212. (W_)&Main_main1_info, 0x0UL
  213. };
  214.  
  215.  
  216. EC_(ghczmprim_GHCziTypes_True_closure);
  217. IRO_(c4D0_info);
  218. EC_(base_GHCziIOziHandleziFD_stdout_closure);
  219. EF_(base_GHCziIOziHandleziText_hPutStr2_entry);
  220. EC_(Main_main1_closure);
  221. EC_(Main_main3_closure);
  222. FN_(Main_main1_entry) {
  223. _c4D2:
  224. if ((W_)(((W_)Sp-32) < (W_)SpLim)) goto _c4D3; else goto _c4D4;
  225. _c4D3:
  226. R1.w = (W_)&Main_main1_closure;
  227. JMP_(stg_gc_fun);
  228. _c4D4:
  229. Sp[-1] = (W_)&c4D0_info;
  230. Sp[-4] = (W_)&base_GHCziIOziHandleziFD_stdout_closure;
  231. Sp[-3] = (W_)&Main_main3_closure;
  232. Sp[-2] = (W_)&ghczmprim_GHCziTypes_True_closure+2;
  233. Sp=Sp-4;
  234. JMP_((W_)&base_GHCziIOziHandleziText_hPutStr2_entry);
  235. }
  236.  
  237. EF_(Main_main1_entry);
  238. IRO_(S4D6_srt);
  239. ERO_(Main_main1_info);
  240. const StgWord Main_main1_info[]__attribute__((aligned(8)))= {
  241. (W_)&Main_main1_entry, 0x0UL, 0x1f0000000eUL, 0x100000003UL, (W_)&S4D6_srt
  242. };
  243.  
  244.  
  245. EC_(ghczmprim_GHCziTypes_True_closure);
  246. EC_(base_GHCziIOziHandleziFD_stdout_closure);
  247. EF_(base_GHCziIOziHandleziText_hPutStr2_entry);
  248. EC_(Main_main2_closure);
  249. IF_(_c4D0) {
  250. _c4D0:
  251. Sp[-2] = (W_)&base_GHCziIOziHandleziFD_stdout_closure;
  252. Sp[-1] = (W_)&Main_main2_closure;
  253. *Sp = (W_)&ghczmprim_GHCziTypes_True_closure+2;
  254. Sp=Sp-2;
  255. JMP_((W_)&base_GHCziIOziHandleziText_hPutStr2_entry);
  256. }
  257.  
  258. IF_(_c4D0);
  259. IRO_(S4D6_srt);
  260. IRO_(c4D0_info);
  261. static const StgWord c4D0_info[]__attribute__((aligned(8)))= {
  262. (W_)&_c4D0, 0x0UL, 0xb0000001eUL, (W_)&S4D6_srt
  263. };
  264. ERO_(Main_main_info);
  265. EC_(Main_main_closure);
  266. StgWord Main_main_closure[]__attribute__((aligned(8)))= {
  267. (W_)&Main_main_info, 0x0UL
  268. };
  269.  
  270.  
  271. EF_(Main_main1_entry);
  272. FN_(Main_main_entry) {
  273. _c4Db:
  274. JMP_((W_)&Main_main1_entry);
  275. }
  276.  
  277. EF_(Main_main_entry);
  278. IRO_(S4D6_srt);
  279. ERO_(Main_main_info);
  280. const StgWord Main_main_info[]__attribute__((aligned(8)))= {
  281. (W_)&Main_main_entry, 0x0UL, 0x10000000eUL, 0x100000003UL, ((W_)&S4D6_srt+16)
  282. };
  283. ERO_(Main_main5_info);
  284. EC_(Main_main5_closure);
  285. StgWord Main_main5_closure[]__attribute__((aligned(8)))= {
  286. (W_)&Main_main5_info, 0x0UL
  287. };
  288.  
  289.  
  290. EF_(base_GHCziTopHandler_runMainIO1_entry);
  291. EC_(Main_main1_closure);
  292. EC_(Main_main5_closure);
  293. FN_(Main_main5_entry) {
  294. _c4Di:
  295. if ((W_)(((W_)Sp-8) < (W_)SpLim)) goto _c4Dj; else goto _c4Dk;
  296. _c4Dj:
  297. R1.w = (W_)&Main_main5_closure;
  298. JMP_(stg_gc_fun);
  299. _c4Dk:
  300. Sp[-1] = (W_)&Main_main1_closure+1;
  301. Sp=Sp-1;
  302. JMP_((W_)&base_GHCziTopHandler_runMainIO1_entry);
  303. }
  304.  
  305. EF_(Main_main5_entry);
  306. IRO_(S4D6_srt);
  307. ERO_(Main_main5_info);
  308. const StgWord Main_main5_info[]__attribute__((aligned(8)))= {
  309. (W_)&Main_main5_entry, 0x0UL, 0x190000000eUL, 0x100000003UL, ((W_)&S4D6_srt+16)
  310. };
  311. ERO_(ZCMain_main_info);
  312. EC_(ZCMain_main_closure);
  313. StgWord ZCMain_main_closure[]__attribute__((aligned(8)))= {
  314. (W_)&ZCMain_main_info, 0x0UL
  315. };
  316.  
  317.  
  318. EF_(Main_main5_entry);
  319. FN_(ZCMain_main_entry) {
  320. _c4Dp:
  321. JMP_((W_)&Main_main5_entry);
  322. }
  323.  
  324. EF_(ZCMain_main_entry);
  325. IRO_(S4D6_srt);
  326. ERO_(ZCMain_main_info);
  327. const StgWord ZCMain_main_info[]__attribute__((aligned(8)))= {
  328. (W_)&ZCMain_main_entry, 0x0UL, 0x10000000eUL, 0x100000003UL, ((W_)&S4D6_srt+48)
  329. };
  330. EC_(base_GHCziIOziHandleziFD_stdout_closure);
  331. EC_(base_GHCziIOziHandleziText_hPutStr2_closure);
  332. EC_(base_GHCziTopHandler_runMainIO1_closure);
  333. EC_(Main_main1_closure);
  334. EC_(Main_main2_closure);
  335. EC_(Main_main3_closure);
  336. EC_(Main_main5_closure);
  337. IRO_(S4D6_srt);
  338. static const StgWord S4D6_srt[]__attribute__((aligned(8)))= {
  339. (W_)&base_GHCziIOziHandleziFD_stdout_closure, (W_)&base_GHCziIOziHandleziText_hPutStr2_closure, (W_)&Main_main1_closure, (W_)&Main_main2_closure, (W_)&Main_main3_closure, (W_)&base_GHCziTopHandler_runMainIO1_closure, (W_)&Main_main5_closure
  340. };
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!