Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /* GHC_PACKAGES base integer-gmp ghc-prim rts ffi-1.0
- */
- #include "Stg.h"
- EI_(base_GHCziBase_unpackCStringzh_closure);
- static StgWord sdC_srt[] = {
- (W_)&base_GHCziBase_unpackCStringzh_closure
- };
- II_(sdC_info);
- static StgWord sdC_closure[] = {
- (W_)&sdC_info, 0x0, 0x0, 0x0
- };
- static char cdK_str[] = "Hello World!";
- static StgWord sdC_info[] = {
- ((W_)&sdC_srt+0), 0x0, 0x10016U
- };
- EI_(base_GHCziBase_unpackCStringzh_closure);
- IF_(sdC_entry) {
- FB_
- if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cdN;
- Hp=Hp+2;
- if ((W_)((W_)Hp > (W_)HpLim)) goto _cdP;
- Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
- *Hp = (W_)CurrentTSO;
- ;EF_(newCAF);
- {void (*ghcFunPtr)(void *, void *);
- ghcFunPtr = ((void (*)(void *, void *))(W_)&newCAF);
- ghcFunPtr((void *)(W_)BaseReg, (void *)R1.w);;}
- R1.p[1] = (W_)Hp-4;
- *R1.p = (W_)&stg_IND_STATIC_info;
- Sp[-2] = (W_)&stg_bh_upd_frame_info;
- Sp[-1] = (W_)Hp-4;
- R1.w = (W_)&base_GHCziBase_unpackCStringzh_closure;
- Sp[-3] = (W_)&cdK_str;
- Sp=Sp-3;
- JMP_((W_)&stg_ap_n_fast);
- _cdN:
- JMP_(stg_gc_enter_1);
- _cdP:
- HpAlloc = 0x8U;
- goto _cdN;
- FE_
- }
- EI_(base_SystemziIO_putStrLn_closure);
- II_(sdC_closure);
- StgWord Main_main_srt[] = {
- (W_)&base_SystemziIO_putStrLn_closure, (W_)&sdC_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_(sdC_closure);
- FN_(Main_main_entry) {
- FB_
- if ((W_)(((W_)Sp - 0xcU) < (W_)SpLim)) goto _cdZ;
- Hp=Hp+2;
- if ((W_)((W_)Hp > (W_)HpLim)) goto _ce1;
- Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
- *Hp = (W_)CurrentTSO;
- ;EF_(newCAF);
- {void (*ghcFunPtr)(void *, void *);
- ghcFunPtr = ((void (*)(void *, void *))(W_)&newCAF);
- ghcFunPtr((void *)(W_)BaseReg, (void *)R1.w);;}
- R1.p[1] = (W_)Hp-4;
- *R1.p = (W_)&stg_IND_STATIC_info;
- Sp[-2] = (W_)&stg_bh_upd_frame_info;
- Sp[-1] = (W_)Hp-4;
- R1.w = (W_)&base_SystemziIO_putStrLn_closure;
- Sp[-3] = (W_)&sdC_closure;
- Sp=Sp-3;
- JMP_((W_)&stg_ap_p_fast);
- _cdZ:
- JMP_(stg_gc_enter_1);
- _ce1:
- HpAlloc = 0x8U;
- goto _cdZ;
- 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 _ceb;
- Hp=Hp+2;
- if ((W_)((W_)Hp > (W_)HpLim)) goto _ced;
- Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
- *Hp = (W_)CurrentTSO;
- ;EF_(newCAF);
- {void (*ghcFunPtr)(void *, void *);
- ghcFunPtr = ((void (*)(void *, void *))(W_)&newCAF);
- ghcFunPtr((void *)(W_)BaseReg, (void *)R1.w);;}
- R1.p[1] = (W_)Hp-4;
- *R1.p = (W_)&stg_IND_STATIC_info;
- Sp[-2] = (W_)&stg_bh_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);
- _ceb:
- JMP_(stg_gc_enter_1);
- _ced:
- HpAlloc = 0x8U;
- goto _ceb;
- 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 _cej;
- goto _cel;
- _cej:
- Sp=Sp+1;
- JMP_(Sp[-1]);
- _cel:
- *((P_)(W_)&_module_registered) = 0x1U;
- Sp=Sp-1;
- *Sp = (W_)&__stginit_base_Prelude_;
- Sp=Sp-1;
- *Sp = (W_)&__stginit_base_GHCziTopHandler_;
- goto _cej;
- FE_
- }
- EF_(__stginit_Main_);
- FN_(__stginit_Main) {
- FB_
- JMP_((W_)&__stginit_Main_);
- FE_
- }
- FN_(__stginit_ZCMain) {
- FB_
- Sp=Sp+1;
- JMP_(Sp[-1]);
- FE_
- }
Advertisement
Add Comment
Please, Sign In to add comment