/* GHC_PACKAGES base rts */ #include "Stg.h" #include "HsBase.h" EI_(base_GHCziShow_zdf21_closure); EI_(base_GHCziShow_zdf18_closure); static StgWord rl4_srt[] = { (W_)&base_GHCziShow_zdf21_closure, (W_)&base_GHCziShow_zdf18_closure }; II_(rl4_info); static StgWord rl4_closure[] = { (W_)&rl4_info, 0x0, 0x0, 0x0 }; static StgWord rl4_info[] = { ((W_)&rl4_srt+0), 0x0, 0x30016U }; EI_(base_GHCziShow_zdf21_closure); EI_(base_GHCziShow_zdf18_closure); IF_(rl4_entry) { FB_ if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _clm; Hp=Hp+2; if ((W_)((W_)Hp > (W_)HpLim)) goto _clm; 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_)&base_GHCziShow_zdf18_closure; Sp=Sp-3; JMP_((W_)&stg_ap_p_fast); _clm: HpAlloc = 0x8U; JMP_(stg_gc_enter_1); FE_ } EI_(base_SystemziIO_print_closure); II_(rl4_closure); static StgWord rl6_srt[] = { (W_)&base_SystemziIO_print_closure, (W_)&rl4_closure }; II_(rl6_info); static StgWord rl6_closure[] = { (W_)&rl6_info, 0x0, 0x0, 0x0 }; static StgWord rl6_info[] = { ((W_)&rl6_srt+0), 0x0, 0x30016U }; EI_(base_SystemziIO_print_closure); II_(rl4_closure); IF_(rl6_entry) { FB_ if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _clw; Hp=Hp+2; if ((W_)((W_)Hp > (W_)HpLim)) goto _clw; 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_)&rl4_closure; Sp=Sp-3; JMP_((W_)&stg_ap_p_fast); _clw: HpAlloc = 0x8U; JMP_(stg_gc_enter_1); FE_ } EI_(base_GHCziBase_unpackCStringzh_closure); static StgWord slc_srt[] = { (W_)&base_GHCziBase_unpackCStringzh_closure }; II_(slc_info); static StgWord slc_closure[] = { (W_)&slc_info, 0x0, 0x0, 0x0 }; static char clG_str[] = "Hello, world!"; static StgWord slc_info[] = { ((W_)&slc_srt+0), 0x0, 0x10016U }; EI_(base_GHCziBase_unpackCStringzh_closure); IF_(slc_entry) { FB_ if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _clJ; Hp=Hp+2; if ((W_)((W_)Hp > (W_)HpLim)) goto _clJ; 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_GHCziBase_unpackCStringzh_closure; Sp[-3] = (W_)&clG_str; Sp=Sp-3; JMP_((W_)&stg_ap_n_fast); _clJ: HpAlloc = 0x8U; JMP_(stg_gc_enter_1); FE_ } II_(rl6_closure); II_(slc_closure); StgWord Main_main_srt[] = { (W_)&rl6_closure, (W_)&slc_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_(rl6_closure); II_(slc_closure); FN_(Main_main_entry) { FB_ if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _clT; Hp=Hp+2; if ((W_)((W_)Hp > (W_)HpLim)) goto _clT; 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_)&rl6_closure; Sp[-3] = (W_)&slc_closure; Sp=Sp-3; JMP_((W_)&stg_ap_p_fast); _clT: 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 _cm3; Hp=Hp+2; if ((W_)((W_)Hp > (W_)HpLim)) goto _cm3; 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); _cm3: 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 _cm9; goto _cmb; _cm9: Sp=Sp+1; JMP_(Sp[-1]); _cmb: *((P_)(W_)&_module_registered) = 0x1U; Sp=Sp-1; *Sp = (W_)&__stginit_base_Prelude_; Sp=Sp-1; *Sp = (W_)&__stginit_base_GHCziTopHandler_; goto _cm9; FE_ } EF_(__stginit_Main_); FN_(__stginit_Main) { FB_ JMP_((W_)&__stginit_Main_); FE_ } FN_(__stginit_ZCMain) { FB_ Sp=Sp+1; JMP_(Sp[-1]); FE_ }