rendered paste body/* GHC_PACKAGES base integer ghc-prim rts
*/
#include "Stg.h"
EI_(base_GHCziBase_unpackCStringzh_closure);
static StgWord ssh_srt[] = {
(W_)&base_GHCziBase_unpackCStringzh_closure
};
II_(ssh_info);
static StgWord ssh_closure[] = {
(W_)&ssh_info, 0x0, 0x0, 0x0
};
static char csr_str[] = "hello world";
static StgWord ssh_info[] = {
((W_)&ssh_srt+0), 0x0, 0x10016U
};
EI_(base_GHCziBase_unpackCStringzh_closure);
IF_(ssh_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _csu;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _csu;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
;EF_(newCAF);
{void (*ghcFunPtr)(void *);
ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
ghcFunPtr((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_GHCziBase_unpackCStringzh_closure;
Sp[-3] = (W_)&csr_str;
Sp=Sp-3;
JMP_((W_)&stg_ap_n_fast);
_csu:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_SystemziIO_putStrLn_closure);
II_(ssh_closure);
static StgWord Main_main_srt[] = {
(W_)&base_SystemziIO_putStrLn_closure, (W_)&ssh_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
};
EI_(base_SystemziIO_putStrLn_closure);
II_(ssh_closure);
FN_(Main_main_entry) {
FB_
if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _csE;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _csE;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
;EF_(newCAF);
{void (*ghcFunPtr)(void *);
ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
ghcFunPtr((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_putStrLn_closure;
Sp[-3] = (W_)&ssh_closure;
Sp=Sp-3;
JMP_((W_)&stg_ap_p_fast);
_csE:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_GHCziTopHandler_runMainIO_closure);
EI_(Main_main_closure);
static 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 _csO;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _csO;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
;EF_(newCAF);
{void (*ghcFunPtr)(void *);
ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
ghcFunPtr((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);
_csO:
HpAlloc = 0x8U;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord _module_registered[] = {
0x0
};
EF_(__stginit_base_Prelude_);
EF_(__stginit_base_GHCziTopHandler_);
FN_(__stginit_Main_) {
FB_
if ((W_)(0x0 != (*((P_)(W_)&_module_registered)))) goto _csU;
goto _csW;
_csU:
Sp=Sp+1;
JMP_(Sp[-1]);
_csW:
*((P_)(W_)&_module_registered) = 0x1U;
Sp=Sp-1;
*Sp = (W_)&__stginit_base_Prelude_;
Sp=Sp-1;
*Sp = (W_)&__stginit_base_GHCziTopHandler_;
goto _csU;
FE_
}
EF_(__stginit_Main_);
FN_(__stginit_Main) {
FB_
JMP_((W_)&__stginit_Main_);
FE_
}
FN_(__stginit_ZCMain) {
FB_
Sp=Sp+1;
JMP_(Sp[-1]);
FE_
}