Skip to content

Instantly share code, notes, and snippets.

@benhoskings
Created February 1, 2009 12:31
Show Gist options
  • Select an option

  • Save benhoskings/55863 to your computer and use it in GitHub Desktop.

Select an option

Save benhoskings/55863 to your computer and use it in GitHub Desktop.
/* GHC_PACKAGES base rts
*/
#include "Stg.h"
#include "HsBase.h"
EI_(base_GHCziShow_zdf17_closure);
EI_(base_GHCziShow_zdf13_closure);
static StgWord rtZ_srt[] = {
(W_)&base_GHCziShow_zdf17_closure, (W_)&base_GHCziShow_zdf13_closure
};
II_(rtZ_info);
static StgWord rtZ_closure[] = {
(W_)&rtZ_info, 0x0, 0x0, 0x0
};
static StgWord rtZ_info[] = {
((W_)&rtZ_srt+0), 0x0, 0x30016U
};
EI_(base_GHCziShow_zdf17_closure);
EI_(base_GHCziShow_zdf13_closure);
IF_(rtZ_entry) {
FB_
if ((W_)(((W_)Sp - 0x14U) < (W_)SpLim)) goto _cwD;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cwD;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
R1.w = (W_)&base_GHCziShow_zdf13_closure;
Sp[-3] = (W_)&base_GHCziShow_zdf17_closure;
Sp[-4] = (W_)&base_GHCziShow_zdf17_closure;
Sp[-5] = (W_)&base_GHCziShow_zdf17_closure;
Sp=Sp-5;
JMP_((W_)&stg_ap_ppp_fast);
_cwD:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_GHCziShow_zdf21_closure);
II_(rtZ_closure);
static StgWord ru1_srt[] = {
(W_)&base_GHCziShow_zdf21_closure, (W_)&rtZ_closure
};
II_(ru1_info);
static StgWord ru1_closure[] = {
(W_)&ru1_info, 0x0, 0x0, 0x0
};
static StgWord ru1_info[] = {
((W_)&ru1_srt+0), 0x0, 0x30016U
};
EI_(base_GHCziShow_zdf21_closure);
II_(rtZ_closure);
IF_(ru1_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cwN;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cwN;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
R1.w = (W_)&base_GHCziShow_zdf21_closure;
Sp[-3] = (W_)&rtZ_closure;
Sp=Sp-3;
JMP_((W_)&stg_ap_p_fast);
_cwN:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_SystemziIO_print_closure);
II_(ru1_closure);
static StgWord ru3_srt[] = {
(W_)&base_SystemziIO_print_closure, (W_)&ru1_closure
};
II_(ru3_info);
static StgWord ru3_closure[] = {
(W_)&ru3_info, 0x0, 0x0, 0x0
};
static StgWord ru3_info[] = {
((W_)&ru3_srt+0), 0x0, 0x30016U
};
EI_(base_SystemziIO_print_closure);
II_(ru1_closure);
IF_(ru3_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cwX;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cwX;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
R1.w = (W_)&base_SystemziIO_print_closure;
Sp[-3] = (W_)&ru1_closure;
Sp=Sp-3;
JMP_((W_)&stg_ap_p_fast);
_cwX:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_GHCziBase_Izh_static_info);
static StgWord ru5_closure[] = {
(W_)&base_GHCziBase_Izh_static_info, 0x1f4U
};
EI_(base_GHCziBase_Izh_static_info);
static StgWord ru7_closure[] = {
(W_)&base_GHCziBase_Izh_static_info, 0x1U
};
EI_(base_GHCziNum_zdf6_closure);
EI_(base_GHCziEnum_zdf1_closure);
II_(ru9_closure);
static StgWord ru9_srt[] = {
(W_)&base_GHCziNum_zdf6_closure, (W_)&base_GHCziEnum_zdf1_closure, (W_)&ru9_closure
};
II_(ru9_info);
static StgWord ru9_closure[] = {
(W_)&ru9_info, 0x0
};
static StgWord sxk_info[] = {
0x1U, 0x22U
};
IF_(sxk_ret) {
FB_
R1.w = *((P_)(R1.w+15));
*Sp = Sp[1];
JMP_((W_)&stg_ap_pp_fast);
FE_
}
static StgWord svJ_info[] = {
((W_)&ru9_srt+0), 0x1U, 0x10011U
};
EI_(base_GHCziNum_zdf6_closure);
II_(sxk_info);
IF_(svJ_entry) {
FB_
if ((W_)(((W_)Sp - 0x10U) < (W_)SpLim)) goto _cyR;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = R1.w;
Sp[-3] = R1.p[2];
R1.w = (W_)&base_GHCziNum_zdf6_closure;
Sp[-4] = (W_)&sxk_info;
Sp=Sp-4;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cyV;
JMP_(*R1.p);
_cyR:
JMP_(stg_gc_enter_1);
_cyV:
JMP_((W_)&sxk_info);
FE_
}
static StgWord sxC_info[] = {
0x1U, 0x22U
};
IF_(sxC_ret) {
FB_
R1.w = *((P_)(R1.w+15));
*Sp = Sp[1];
JMP_((W_)&stg_ap_pp_fast);
FE_
}
static StgWord svs_info[] = {
((W_)&ru9_srt+0), 0x1U, 0x10011U
};
EI_(base_GHCziNum_zdf6_closure);
II_(sxC_info);
IF_(svs_entry) {
FB_
if ((W_)(((W_)Sp - 0x10U) < (W_)SpLim)) goto _cz7;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = R1.w;
Sp[-3] = R1.p[2];
R1.w = (W_)&base_GHCziNum_zdf6_closure;
Sp[-4] = (W_)&sxC_info;
Sp=Sp-4;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _czb;
JMP_(*R1.p);
_cz7:
JMP_(stg_gc_enter_1);
_czb:
JMP_((W_)&sxC_info);
FE_
}
static StgWord sxL_info[] = {
0x1U, 0x22U
};
IF_(sxL_ret) {
FB_
R1.w = *((P_)(R1.w+15));
*Sp = Sp[1];
JMP_((W_)&stg_ap_pp_fast);
FE_
}
static StgWord sve_info[] = {
((W_)&ru9_srt+0), 0x1U, 0x10011U
};
EI_(base_GHCziNum_zdf6_closure);
II_(sxL_info);
IF_(sve_entry) {
FB_
if ((W_)(((W_)Sp - 0x10U) < (W_)SpLim)) goto _czh;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = R1.w;
Sp[-3] = R1.p[2];
R1.w = (W_)&base_GHCziNum_zdf6_closure;
Sp[-4] = (W_)&sxL_info;
Sp=Sp-4;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _czl;
JMP_(*R1.p);
_czh:
JMP_(stg_gc_enter_1);
_czl:
JMP_((W_)&sxL_info);
FE_
}
static StgWord sxt_info[] = {
((W_)&ru9_srt+0), 0x2U, 0x10022U
};
II_(sve_info);
II_(svs_info);
IF_(sxt_ret) {
FB_
Hp=Hp+6;
if ((W_)((W_)Hp > (W_)HpLim)) goto _czo;
Hp[-5] = (W_)&svs_info;
Hp[-3] = Sp[1];
Hp[-2] = (W_)&sve_info;
*Hp = Sp[2];
R1.w = *((P_)(R1.w+11));
Sp[2] = (W_)Hp-20;
Sp[1] = (W_)Hp-8;
Sp=Sp+1;
JMP_((W_)&stg_ap_pp_fast);
_czo:
HpAlloc = 0x18U;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord svv_info[] = {
((W_)&ru9_srt+0), 0x2U, 0x10013U
};
EI_(base_GHCziNum_zdf6_closure);
II_(sxt_info);
IF_(svv_entry) {
FB_
if ((W_)(((W_)Sp - 0x14U) < (W_)SpLim)) goto _czr;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = R1.w;
Sp[-4] = R1.p[3];
Sp[-3] = R1.p[2];
R1.w = (W_)&base_GHCziNum_zdf6_closure;
Sp[-5] = (W_)&sxt_info;
Sp=Sp-5;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _czu;
JMP_(*R1.p);
_czr:
JMP_(stg_gc_enter_1);
_czu:
JMP_((W_)&sxt_info);
FE_
}
static StgWord sxU_info[] = {
0x5U, 0x22U
};
EI_(base_GHCziBase_ZC_con_info);
EI_(base_DataziTuple_Z3T_con_info);
II_(svN_info);
IF_(sxU_ret) {
W_ _czz;
FB_
_czz = R1.w & 0x3U;
if ((W_)(_czz >= 0x2U)) goto _czB;
R1.w = Sp[1];
Sp[5] = Sp[4];
Sp=Sp+5;
JMP_((W_)&svN_info);
_czB:
Hp=Hp+11;
if ((W_)((W_)Hp > (W_)HpLim)) goto _czG;
Hp[-10] = (W_)&stg_ap_2_upd_info;
Hp[-8] = Sp[1];
Hp[-7] = Sp[4];
Hp[-6] = (W_)&base_DataziTuple_Z3T_con_info;
Hp[-5] = Sp[5];
Hp[-4] = Sp[3];
Hp[-3] = Sp[2];
Hp[-2] = (W_)&base_GHCziBase_ZC_con_info;
Hp[-1] = (W_)Hp-23;
*Hp = (W_)Hp-40;
R1.w = (W_)Hp-6;
Sp=Sp+6;
JMP_(*Sp);
_czG:
HpAlloc = 0x2cU;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord sxi_info[] = {
((W_)&ru9_srt+0), 0x5U, 0x10022U
};
II_(svv_info);
II_(svJ_info);
II_(sxU_info);
IF_(sxi_ret) {
FB_
Hp=Hp+7;
if ((W_)((W_)Hp > (W_)HpLim)) goto _czJ;
Hp[-6] = (W_)&svJ_info;
Hp[-4] = Sp[2];
Hp[-3] = (W_)&svv_info;
Hp[-1] = Sp[5];
*Hp = Sp[3];
R1.w = *((P_)(R1.w+3));
Sp[-1] = (W_)Hp-24;
Sp[-2] = (W_)Hp-12;
*Sp = (W_)&sxU_info;
Sp=Sp-2;
JMP_((W_)&stg_ap_pp_fast);
_czJ:
HpAlloc = 0x1cU;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord sx9_info[] = {
((W_)&ru9_srt+0), 0x5U, 0x10022U
};
II_(sxi_info);
IF_(sx9_ret) {
FB_
R1.w = *((P_)(R1.w+3));
*Sp = (W_)&sxi_info;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _czN;
JMP_(*R1.p);
_czN:
JMP_((W_)&sxi_info);
FE_
}
static StgWord sx8_info[] = {
((W_)&ru9_srt+0), 0x5U, 0x10022U
};
EI_(base_GHCziNum_zdf6_closure);
II_(suA_info);
II_(sx9_info);
IF_(sx8_ret) {
W_ _czQ;
FB_
_czQ = R1.w & 0x3U;
if ((W_)(_czQ >= 0x2U)) goto _czS;
R1.w = Sp[4];
Sp=Sp+5;
JMP_((W_)&suA_info);
_czS:
Sp[4] = *((P_)(R1.w+6));
Sp[5] = *((P_)(R1.w+2));
R1.w = (W_)&base_GHCziNum_zdf6_closure;
*Sp = (W_)&sx9_info;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _czV;
JMP_(*R1.p);
_czV:
JMP_((W_)&sx9_info);
FE_
}
static StgWord svN_info[] = {
((W_)&ru9_srt+0), 0x10005U, 0x4U, 0x10009U
};
II_(sx8_info);
IF_(svN_entry) {
W_ _czZ;
FB_
if ((W_)(((W_)Sp - 0x1cU) < (W_)SpLim)) goto _cA1;
Sp[-4] = R1.w;
Sp[-3] = *((P_)(R1.w+15));
Sp[-2] = *((P_)(R1.w+11));
Sp[-1] = *((P_)(R1.w+7));
_czZ = *Sp;
*Sp = *((P_)(R1.w+3));
R1.w = _czZ;
Sp[-5] = (W_)&sx8_info;
Sp=Sp-5;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cA3;
JMP_(*R1.p);
_cA1:
JMP_(stg_gc_fun);
_cA3:
JMP_((W_)&sx8_info);
FE_
}
static StgWord sxV_info[] = {
0x1U, 0x22U
};
II_(ru7_closure);
IF_(sxV_ret) {
FB_
R1.w = *((P_)(R1.w+27));
*Sp = (W_)&ru7_closure+1;
JMP_((W_)&stg_ap_pp_fast);
FE_
}
static StgWord sw3_info[] = {
((W_)&ru9_srt+4), 0x1U, 0x10011U
};
EI_(base_GHCziEnum_zdf1_closure);
II_(sxV_info);
IF_(sw3_entry) {
FB_
if ((W_)(((W_)Sp - 0x10U) < (W_)SpLim)) goto _cA9;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = R1.w;
Sp[-3] = R1.p[2];
R1.w = (W_)&base_GHCziEnum_zdf1_closure;
Sp[-4] = (W_)&sxV_info;
Sp=Sp-4;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cAd;
JMP_(*R1.p);
_cA9:
JMP_(stg_gc_enter_1);
_cAd:
JMP_((W_)&sxV_info);
FE_
}
static StgWord sx7_info[] = {
((W_)&ru9_srt+0), 0x3U, 0x70022U
};
II_(ru9_info);
II_(svN_info);
II_(sw3_info);
IF_(sx7_ret) {
W_ _cAg;
FB_
_cAg = R1.w & 0x3U;
if ((W_)(_cAg >= 0x2U)) goto _cAi;
Sp=Sp+3;
JMP_((W_)&ru9_info);
_cAi:
Hp=Hp+8;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cAk;
Hp[-7] = (W_)&svN_info;
Hp[-6] = *((P_)(R1.w+6));
Hp[-5] = Sp[2];
Hp[-4] = *((P_)(R1.w+2));
Hp[-3] = Sp[1];
Hp[-2] = (W_)&sw3_info;
*Hp = *((P_)(R1.w+2));
R1.w = (W_)Hp-27;
Sp[3] = (W_)Hp-8;
Sp=Sp+3;
JMP_((W_)&svN_info);
_cAk:
HpAlloc = 0x20U;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord suA_info[] = {
((W_)&ru9_srt+0), 0x10005U, 0x2U, 0x7000cU
};
II_(sx7_info);
IF_(suA_entry) {
W_ _cAo;
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cAq;
Sp[-2] = *((P_)(R1.w+7));
Sp[-1] = R1.w;
_cAo = *Sp;
*Sp = *((P_)(R1.w+3));
R1.w = _cAo;
Sp[-3] = (W_)&sx7_info;
Sp=Sp-3;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cAs;
JMP_(*R1.p);
_cAq:
JMP_(stg_gc_fun);
_cAs:
JMP_((W_)&sx7_info);
FE_
}
static StgWord sy3_info[] = {
0x1U, 0x22U
};
II_(ru7_closure);
IF_(sy3_ret) {
FB_
R1.w = *((P_)(R1.w+27));
*Sp = (W_)&ru7_closure+1;
JMP_((W_)&stg_ap_pp_fast);
FE_
}
static StgWord swf_info[] = {
((W_)&ru9_srt+4), 0x1U, 0x10011U
};
EI_(base_GHCziEnum_zdf1_closure);
II_(sy3_info);
IF_(swf_entry) {
FB_
if ((W_)(((W_)Sp - 0x10U) < (W_)SpLim)) goto _cAy;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = R1.w;
Sp[-3] = R1.p[2];
R1.w = (W_)&base_GHCziEnum_zdf1_closure;
Sp[-4] = (W_)&sy3_info;
Sp=Sp-4;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cAC;
JMP_(*R1.p);
_cAy:
JMP_(stg_gc_enter_1);
_cAC:
JMP_((W_)&sy3_info);
FE_
}
static StgWord sx6_info[] = {
((W_)&ru9_srt+0), 0x0, 0x70022U
};
EI_(base_GHCziBase_ZMZN_closure);
II_(suA_info);
II_(swf_info);
IF_(sx6_ret) {
W_ _cAF;
FB_
_cAF = R1.w & 0x3U;
if ((W_)(_cAF >= 0x2U)) goto _cAH;
R1.w = (W_)&base_GHCziBase_ZMZN_closure+1;
Sp=Sp+1;
JMP_(*Sp);
_cAH:
Hp=Hp+6;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cAJ;
Hp[-5] = (W_)&suA_info;
Hp[-4] = *((P_)(R1.w+6));
Hp[-3] = *((P_)(R1.w+2));
Hp[-2] = (W_)&swf_info;
*Hp = *((P_)(R1.w+2));
R1.w = (W_)Hp-19;
*Sp = (W_)Hp-8;
JMP_((W_)&suA_info);
_cAJ:
HpAlloc = 0x18U;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord ru9_info[] = {
((W_)&ru9_srt+0), 0x10005U, 0x0, 0x7000fU
};
II_(sx6_info);
IF_(ru9_entry) {
FB_
R1.w = *Sp;
*Sp = (W_)&sx6_info;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cAN;
JMP_(*R1.p);
_cAN:
JMP_((W_)&sx6_info);
FE_
}
EI_(base_GHCziEnum_zdf1_closure);
static StgWord sws_srt[] = {
(W_)&base_GHCziEnum_zdf1_closure
};
II_(sws_info);
static StgWord sws_closure[] = {
(W_)&sws_info, 0x0, 0x0, 0x0
};
static StgWord sAQ_info[] = {
0x0, 0x22U
};
II_(ru5_closure);
II_(ru7_closure);
IF_(sAQ_ret) {
FB_
R1.w = *((P_)(R1.w+27));
*Sp = (W_)&ru5_closure+1;
Sp[-1] = (W_)&ru7_closure+1;
Sp=Sp-1;
JMP_((W_)&stg_ap_pp_fast);
FE_
}
static StgWord sws_info[] = {
((W_)&sws_srt+0), 0x0, 0x10016U
};
EI_(base_GHCziEnum_zdf1_closure);
II_(sAQ_info);
IF_(sws_entry) {
FB_
if ((W_)(((W_)Sp - 0x10U) < (W_)SpLim)) goto _cB6;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cB6;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
R1.w = (W_)&base_GHCziEnum_zdf1_closure;
Sp[-3] = (W_)&sAQ_info;
Sp=Sp-3;
if ((W_)((R1.w & 0x3U) != 0x0)) goto _cBa;
JMP_(*R1.p);
_cB6:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
_cBa:
JMP_((W_)&sAQ_info);
FE_
}
II_(ru9_closure);
II_(sws_closure);
static StgWord r5z_srt[] = {
(W_)&ru9_closure, (W_)&sws_closure
};
II_(r5z_info);
static StgWord r5z_closure[] = {
(W_)&r5z_info, 0x0, 0x0, 0x0
};
static StgWord r5z_info[] = {
((W_)&r5z_srt+0), 0x0, 0x30016U
};
II_(ru9_info);
II_(sws_closure);
IF_(r5z_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cBk;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cBk;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
Sp[-3] = (W_)&sws_closure;
Sp=Sp-3;
JMP_((W_)&ru9_info);
_cBk:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
II_(r5z_closure);
II_(ru3_closure);
StgWord Main_main_srt[] = {
(W_)&r5z_closure, (W_)&ru3_closure
};
EI_(Main_main_info);
StgWord Main_main_closure[] = {
(W_)&Main_main_info, 0x0, 0x0, 0x0
};
StgWord Main_main_info[] = {
((W_)&Main_main_srt+0), 0x0, 0x30016U
};
II_(r5z_closure);
II_(ru3_closure);
FN_(Main_main_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cBu;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cBu;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
R1.w = (W_)&ru3_closure;
Sp[-3] = (W_)&r5z_closure;
Sp=Sp-3;
JMP_((W_)&stg_ap_p_fast);
_cBu:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_GHCziTopHandler_runMainIO_closure);
EI_(Main_main_closure);
StgWord ZCMain_main_srt[] = {
(W_)&base_GHCziTopHandler_runMainIO_closure, (W_)&Main_main_closure
};
EI_(ZCMain_main_info);
StgWord ZCMain_main_closure[] = {
(W_)&ZCMain_main_info, 0x0, 0x0, 0x0
};
StgWord ZCMain_main_info[] = {
((W_)&ZCMain_main_srt+0), 0x0, 0x30016U
};
EI_(base_GHCziTopHandler_runMainIO_closure);
EI_(Main_main_closure);
FN_(ZCMain_main_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cBE;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _cBE;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
newCAF((void *)R1.w);
R1.p[1] = (W_)Hp-4;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-4;
R1.w = (W_)&base_GHCziTopHandler_runMainIO_closure;
Sp[-3] = (W_)&Main_main_closure;
Sp=Sp-3;
JMP_((W_)&stg_ap_p_fast);
_cBE:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord _module_registered[] = {
0x0
};
EF_(__stginit_base_GHCziTopHandler_);
EF_(__stginit_base_Prelude_);
FN_(__stginit_Main_) {
FB_
if ((W_)(0x0 != (*((P_)(W_)&_module_registered)))) goto _cBK;
goto _cBM;
_cBK:
Sp=Sp+1;
JMP_(Sp[-1]);
_cBM:
*((P_)(W_)&_module_registered) = 0x1U;
Sp=Sp-1;
*Sp = (W_)&__stginit_base_Prelude_;
Sp=Sp-1;
*Sp = (W_)&__stginit_base_GHCziTopHandler_;
goto _cBK;
FE_
}
EF_(__stginit_Main_);
FN_(__stginit_Main) {
FB_
JMP_((W_)&__stginit_Main_);
FE_
}
FN_(__stginit_ZCMain) {
FB_
Sp=Sp+1;
JMP_(Sp[-1]);
FE_
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment