Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [section "data" { __stginit_main:Main:
- },
- __stginit_main::Main()
- {
- }
- }]
- [section "relreadonly" {
- sat_ssi_srt:
- const Data.List.product_closure;
- const GHC.Num.$fNumInt_closure;
- const GHC.Enum.$fEnumInt_closure;
- },
- section "data" {
- sat_ssi_closure:
- const sat_ssi_info;
- const 0;
- const 0;
- const 0;
- },
- sat_ssg_info()
- { label: sat_ssg_info
- rep:HeapRep { Thunk }
- }
- csv:
- if (Sp - 40 < SpLim) goto csx;
- I64[Sp - 16] = stg_upd_frame_info;
- I64[Sp - 8] = R1;
- I64[Sp - 24] = stg_INTLIKE_closure+305;
- I64[Sp - 32] = stg_INTLIKE_closure+273;
- I64[Sp - 40] = stg_ap_pp_info;
- R2 = GHC.Enum.$fEnumInt_closure;
- Sp = Sp - 40;
- jump GHC.Enum.enumFromTo_info; // [R2]
- csx: jump stg_gc_enter_1; // [R1]
- },
- sat_ssi_info()
- { label: sat_ssi_info
- rep:HeapRep static { Thunk }
- }
- csA:
- if (Sp - 16 < SpLim) goto csC;
- Hp = Hp + 32;
- if (Hp > HpLim) goto csE;
- I64[Hp - 24] = stg_CAF_BLACKHOLE_info;
- I64[Hp - 16] = CurrentTSO;
- (_csF::I64,) = foreign "ccall"
- newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 24, PtrHint));
- if (_csF::I64 == 0) goto csG;
- goto csH;
- csC: jump stg_gc_enter_1; // [R1]
- csE:
- HpAlloc = 32;
- goto csC;
- csG: jump I64[R1]; // [R1]
- csH:
- I64[Sp - 16] = stg_bh_upd_frame_info;
- I64[Sp - 8] = Hp - 24;
- I64[Hp - 8] = sat_ssg_info;
- R1 = Data.List.product_closure;
- R2 = GHC.Num.$fNumInt_closure;
- R3 = Hp - 8;
- Sp = Sp - 16;
- jump stg_ap_pp_fast; // [R1, R3, R2]
- }]
- [section "relreadonly" {
- sat_ssj_srt:
- const System.IO.print_closure;
- const GHC.Show.$fShowInt_closure;
- },
- section "data" {
- sat_ssj_closure:
- const sat_ssj_info;
- const 0;
- const 0;
- const 0;
- },
- sat_ssj_info()
- { label: sat_ssj_info
- rep:HeapRep static { Thunk }
- }
- ct1:
- if (Sp - 16 < SpLim) goto ct3;
- Hp = Hp + 16;
- if (Hp > HpLim) goto ct5;
- I64[Hp - 8] = stg_CAF_BLACKHOLE_info;
- I64[Hp + 0] = CurrentTSO;
- (_ct6::I64,) = foreign "ccall"
- newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 8, PtrHint));
- if (_ct6::I64 == 0) goto ct7;
- goto ct8;
- ct3: jump stg_gc_enter_1; // [R1]
- ct5:
- HpAlloc = 16;
- goto ct3;
- ct7: jump I64[R1]; // [R1]
- ct8:
- I64[Sp - 16] = stg_bh_upd_frame_info;
- I64[Sp - 8] = Hp - 8;
- R1 = System.IO.print_closure;
- R2 = GHC.Show.$fShowInt_closure;
- Sp = Sp - 16;
- jump stg_ap_p_fast; // [R1, R2]
- }]
- [section "relreadonly" {
- Main.main_srt:
- const GHC.Base.$_closure;
- const sat_ssi_closure;
- const sat_ssj_closure;
- },
- section "data" {
- Main.main_closure:
- const Main.main_info;
- const 0;
- const 0;
- const 0;
- },
- Main.main_info()
- { label: Main.main_info
- rep:HeapRep static { Thunk }
- }
- ctp:
- if (Sp - 16 < SpLim) goto ctr;
- Hp = Hp + 16;
- if (Hp > HpLim) goto ctt;
- I64[Hp - 8] = stg_CAF_BLACKHOLE_info;
- I64[Hp + 0] = CurrentTSO;
- (_ctu::I64,) = foreign "ccall"
- newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 8, PtrHint));
- if (_ctu::I64 == 0) goto ctv;
- goto ctw;
- ctr: jump stg_gc_enter_1; // [R1]
- ctt:
- HpAlloc = 16;
- goto ctr;
- ctv: jump I64[R1]; // [R1]
- ctw:
- I64[Sp - 16] = stg_bh_upd_frame_info;
- I64[Sp - 8] = Hp - 8;
- R1 = GHC.Base.$_closure;
- R2 = sat_ssj_closure;
- R3 = sat_ssi_closure;
- Sp = Sp - 16;
- jump stg_ap_pp_fast; // [R1, R3, R2]
- }]
- [section "relreadonly" {
- :Main.main_srt:
- const GHC.TopHandler.runMainIO_closure;
- const Main.main_closure;
- },
- section "data" {
- :Main.main_closure:
- const :Main.main_info;
- const 0;
- const 0;
- const 0;
- },
- :Main.main_info()
- { label: :Main.main_info
- rep:HeapRep static { Thunk }
- }
- ctN:
- if (Sp - 16 < SpLim) goto ctP;
- Hp = Hp + 16;
- if (Hp > HpLim) goto ctR;
- I64[Hp - 8] = stg_CAF_BLACKHOLE_info;
- I64[Hp + 0] = CurrentTSO;
- (_ctS::I64,) = foreign "ccall"
- newCAF((BaseReg, PtrHint), (R1, PtrHint), (Hp - 8, PtrHint));
- if (_ctS::I64 == 0) goto ctT;
- goto ctU;
- ctP: jump stg_gc_enter_1; // [R1]
- ctR:
- HpAlloc = 16;
- goto ctP;
- ctT: jump I64[R1]; // [R1]
- ctU:
- I64[Sp - 16] = stg_bh_upd_frame_info;
- I64[Sp - 8] = Hp - 8;
- R1 = GHC.TopHandler.runMainIO_closure;
- R2 = Main.main_closure;
- Sp = Sp - 16;
- jump stg_ap_p_fast; // [R1, R2]
- }]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement