Preprocessing executables for storablevector-profile-0.2... Building storablevector-profile-0.2... ==================== Tidy Core ==================== Main.$p1Fraction :: forall a_aeUe. (Main.Fraction a_aeUe) => GHC.Num.Num a_aeUe GblId[ClassOp] [Arity 1 NoCafRefs Str: DmdType U(SAA)] Main.$p1Fraction = \ (@ a_aeUe) (tpl_B1 [ALWAYS Once! Nothing] :: Main.Fraction a_aeUe) -> case tpl_B1 of _ { Main.D:Fraction tpl_B2 [ALWAYS Once Nothing] _ _ -> tpl_B2 } Main.$p2Fraction :: forall a_aeUe. (Main.Fraction a_aeUe) => GHC.Classes.Ord a_aeUe GblId[ClassOp] [Arity 1 NoCafRefs Str: DmdType U(ASA)] Main.$p2Fraction = \ (@ a_aeUe) (tpl_B1 [ALWAYS Once! Nothing] :: Main.Fraction a_aeUe) -> case tpl_B1 of _ { Main.D:Fraction _ tpl_B3 [ALWAYS Once Nothing] _ -> tpl_B3 } Main.fraction :: forall a_aeUe. (Main.Fraction a_aeUe) => a_aeUe -> a_aeUe GblId[ClassOp] [Arity 1 NoCafRefs Str: DmdType U(AAS)] Main.fraction = \ (@ a_aeUe) (tpl_B1 [ALWAYS Once! Nothing] :: Main.Fraction a_aeUe) -> case tpl_B1 of _ { Main.D:Fraction _ _ tpl_B4 [ALWAYS Once Nothing] -> tpl_B4 } lvl_rfDE :: GHC.Types.Int GblId [NoCafRefs] lvl_rfDE = GHC.Types.I# 10000000 lvl1_rfDG :: GHC.Types.Int GblId [NoCafRefs] lvl1_rfDG = GHC.Types.I# 0 Rec { Main.$wa :: GHC.Prim.Addr# -> GHC.Prim.Int# -> () -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ()) #) GblId [Arity 4 Str: DmdType LLLL] Main.$wa = \ (ww_sfCN :: GHC.Prim.Addr#) (ww1_sfCR :: GHC.Prim.Int#) (w_sfCT :: ()) (w1_sfCU :: GHC.Prim.State# GHC.Prim.RealWorld) -> case ww1_sfCR of wild_X1a { __DEFAULT -> case GHC.Prim.writeIntOffAddr# @ GHC.Prim.RealWorld ww_sfCN 0 142 w1_sfCU of s2_ifzb { __DEFAULT -> case wild_X1a of wild1_ifyZ { __DEFAULT -> Main.$wa (GHC.Prim.plusAddr# ww_sfCN 4) (GHC.Prim.-# wild1_ifyZ 1) GHC.Unit.() s2_ifzb; (-2147483648) -> GHC.Enum.$fEnumInt1 `cast` (CoUnsafe GHC.Types.Int (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ()) #) :: GHC.Types.Int ~ (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ()) #)) } }; 0 -> (# w1_sfCU, (lvl1_rfDG, lvl_rfDE, Data.Maybe.Just @ () w_sfCT) #) } end Rec } Main.main6 :: GHC.Ptr.Ptr GHC.Types.Int -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ()) #) GblId [Arity 2] Main.main6 = \ (p_a1sH :: GHC.Ptr.Ptr GHC.Types.Int) (eta_X2h :: GHC.Prim.State# GHC.Prim.RealWorld) -> case p_a1sH of _ { GHC.Ptr.Ptr ww_sfCN -> Main.$wa ww_sfCN 10000000 GHC.Unit.() eta_X2h } Main.main5 :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (Data.StorableVector.Base.Vector GHC.Types.Int, Data.Maybe.Maybe ()) #) GblId [Arity 1] Main.main5 = \ (eta_X2Ml :: GHC.Prim.State# GHC.Prim.RealWorld) -> case GHC.Prim.noDuplicate# eta_X2Ml of s'_X2Mn { __DEFAULT -> Data.StorableVector.Base.$wa2 @ GHC.Types.Int @ (Data.Maybe.Maybe ()) Foreign.Storable.$fStorableInt_sizeOf 10000000 (Main.main6 `cast` (GHC.Ptr.Ptr GHC.Types.Int -> sym (GHC.Types.NTCo:IO (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ())) :: (GHC.Ptr.Ptr GHC.Types.Int -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ()) #)) ~ (GHC.Ptr.Ptr GHC.Types.Int -> GHC.Types.IO (GHC.Types.Int, GHC.Types.Int, Data.Maybe.Maybe ())))) s'_X2Mn } Main.main4 :: (Data.StorableVector.Base.Vector GHC.Types.Int, Data.Maybe.Maybe ()) GblId [] Main.main4 = GHC.IO.unsafeDupablePerformIO @ (Data.StorableVector.Base.Vector GHC.Types.Int, Data.Maybe.Maybe ()) (Main.main5 `cast` (sym (GHC.Types.NTCo:IO (Data.StorableVector.Base.Vector GHC.Types.Int, Data.Maybe.Maybe ())) :: (GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (Data.StorableVector.Base.Vector GHC.Types.Int, Data.Maybe.Maybe ()) #)) ~ GHC.Types.IO (Data.StorableVector.Base.Vector GHC.Types.Int, Data.Maybe.Maybe ()))) Main.main3 :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Int #) GblId [Arity 1] Main.main3 = \ (eta_i2Lx :: GHC.Prim.State# GHC.Prim.RealWorld) -> case GHC.Prim.noDuplicate# eta_i2Lx of s'_i2Ly { __DEFAULT -> case Main.main4 of _ { (x_i2OW, _) -> case x_i2OW of _ { Data.StorableVector.Base.SV rb_i2LH rb1_i2LI rb2_i2LJ rb3_i2LK -> let { a_sfCy [ALWAYS Just L] :: GHC.Prim.Addr# LclId [Str: DmdType] a_sfCy = GHC.Prim.plusAddr# rb_i2LH (GHC.Prim.*# rb2_i2LJ 4) } in let { a1_sfCA [ALWAYS Just L] :: GHC.Prim.Addr# LclId [Str: DmdType] a1_sfCA = GHC.Prim.plusAddr# a_sfCy (GHC.Prim.*# rb3_i2LK 4) } in letrec { $wa1_sfDm :: GHC.Prim.Addr# -> GHC.Prim.Int# -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Int #) LclId [Arity 3 Str: DmdType LLL] $wa1_sfDm = \ (ww_sfD1 :: GHC.Prim.Addr#) (ww1_sfD5 :: GHC.Prim.Int#) (w_sfD7 :: GHC.Prim.State# GHC.Prim.RealWorld) -> case GHC.Prim.eqAddr# ww_sfD1 a1_sfCA of _ { GHC.Bool.False -> case GHC.Prim.readIntOffAddr# @ GHC.Prim.RealWorld ww_sfD1 0 w_sfD7 of _ { (# s2_ifyi, x1_ifyj #) -> $wa1_sfDm (GHC.Prim.plusAddr# ww_sfD1 4) (GHC.Prim.+# ww1_sfD5 x1_ifyj) s2_ifyi }; GHC.Bool.True -> (# w_sfD7, GHC.Types.I# ww1_sfD5 #) }; } in case $wa1_sfDm a_sfCy 0 s'_i2Ly of _ { (# new_s_i34J, a2_i34K #) -> case GHC.Prim.touch# @ GHC.ForeignPtr.ForeignPtrContents rb1_i2LI new_s_i34J of s'1_i34R { __DEFAULT -> (# s'1_i34R, a2_i34K #) } } } } } Main.main2 :: GHC.Base.String GblId [] Main.main2 = case GHC.IO.unsafeDupablePerformIO @ GHC.Types.Int (Main.main3 `cast` (sym (GHC.Types.NTCo:IO GHC.Types.Int) :: (GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Int #)) ~ GHC.Types.IO GHC.Types.Int)) of _ { GHC.Types.I# ww_ia5Y -> GHC.Show.$wshowSignedInt 0 ww_ia5Y (GHC.Types.[] @ GHC.Types.Char) } Main.main1 :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GblId [Arity 1 Str: DmdType L] Main.main1 = \ (eta_afxX :: GHC.Prim.State# GHC.Prim.RealWorld) -> case GHC.IO.Handle.Text.hPutStr1 GHC.IO.Handle.FD.stdout Main.main2 eta_afxX of _ { (# new_s_afy6, _ #) -> GHC.IO.Handle.Text.hPutChar1 GHC.IO.Handle.FD.stdout System.IO.hPrint2 new_s_afy6 } Main.main7 :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) GblId [Arity 1 Str: DmdType L] Main.main7 = GHC.TopHandler.runMainIO1 @ () (Main.main1 `cast` (sym (GHC.Types.NTCo:IO ()) :: (GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)) ~ GHC.Types.IO ())) Main.main :: GHC.Types.IO () GblId [Arity 1 Str: DmdType L] Main.main = Main.main1 `cast` (sym (GHC.Types.NTCo:IO ()) :: (GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)) ~ GHC.Types.IO ()) Main.$fFractionFloat_fraction :: GHC.Types.Float -> GHC.Types.Float GblId [Arity 1 NoCafRefs Str: DmdType U(L)m] Main.$fFractionFloat_fraction = __inline_me (\ (x_aeXW :: GHC.Types.Float) -> GHC.Float.minusFloat x_aeXW (GHC.Float.int2Float (GHC.Float.float2Int x_aeXW))) Main.$fFractionFloat :: Main.Fraction GHC.Types.Float GblId[DFunId] [Str: DmdType m] Main.$fFractionFloat = Main.D:Fraction @ GHC.Types.Float GHC.Float.$fNumFloat GHC.Float.$fOrdFloat Main.$fFractionFloat_fraction Main.$fFractionDouble_fraction :: GHC.Types.Double -> GHC.Types.Double GblId [Arity 1 NoCafRefs Str: DmdType U(L)m] Main.$fFractionDouble_fraction = __inline_me (\ (x_aeXV :: GHC.Types.Double) -> GHC.Float.minusDouble x_aeXV (GHC.Float.int2Double (GHC.Float.double2Int x_aeXV))) Main.$fFractionDouble :: Main.Fraction GHC.Types.Double GblId[DFunId] [Str: DmdType m] Main.$fFractionDouble = Main.D:Fraction @ GHC.Types.Double GHC.Float.$fNumDouble GHC.Float.$fOrdDouble Main.$fFractionDouble_fraction :Main.main :: GHC.Types.IO () GblId [Arity 1 Str: DmdType L] :Main.main = Main.main7 `cast` (sym (GHC.Types.NTCo:IO ()) :: (GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)) ~ GHC.Types.IO ()) ==================== Tidy Core Rules ==================== ==================== Asm code ==================== .data .align 4 .globl Main_zdp1Fraction_closure .type Main_zdp1Fraction_closure, @object Main_zdp1Fraction_closure: .long Main_zdp1Fraction_info .text .align 4,0x90 .long 0 .long 34 sfFA_info: .LcfFP: movl 3(%esi),%esi addl $4,%ebp andl $-4,%esi jmp *(%esi) .text .align 4,0x90 .long 65541 .long 0 .long 15 .globl Main_zdp1Fraction_info .type Main_zdp1Fraction_info, @object Main_zdp1Fraction_info: .LcfFT: movl (%ebp),%esi movl $sfFA_info,(%ebp) testl $3,%esi jne sfFA_info jmp *(%esi) .data .align 4 .globl Main_zdp2Fraction_closure .type Main_zdp2Fraction_closure, @object Main_zdp2Fraction_closure: .long Main_zdp2Fraction_info .text .align 4,0x90 .long 0 .long 34 sfG1_info: .LcfGg: movl 7(%esi),%esi addl $4,%ebp andl $-4,%esi jmp *(%esi) .text .align 4,0x90 .long 65541 .long 0 .long 15 .globl Main_zdp2Fraction_info .type Main_zdp2Fraction_info, @object Main_zdp2Fraction_info: .LcfGk: movl (%ebp),%esi movl $sfG1_info,(%ebp) testl $3,%esi jne sfG1_info jmp *(%esi) .data .align 4 .globl Main_fraction_closure .type Main_fraction_closure, @object Main_fraction_closure: .long Main_fraction_info .text .align 4,0x90 .long 0 .long 34 sfGs_info: .LcfGG: movl 11(%esi),%esi addl $4,%ebp jmp stg_ap_0_fast .text .align 4,0x90 .long 65541 .long 0 .long 15 .globl Main_fraction_info .type Main_fraction_info, @object Main_fraction_info: .LcfGK: movl (%ebp),%esi movl $sfGs_info,(%ebp) testl $3,%esi jne sfGs_info jmp *(%esi) .data .align 4 rfDE_closure: .long ghczmprim_GHCziTypes_Izh_static_info .long 10000000 .data .align 4 rfDG_closure: .long ghczmprim_GHCziTypes_Izh_static_info .long 0 .section .data .align 4 .globl Main_zdwa_srt .type Main_zdwa_srt, @object Main_zdwa_srt: .long base_GHCziEnum_zdfEnumInt1_closure .long Main_zdwa_closure .data .align 4 .globl Main_zdwa_closure .type Main_zdwa_closure, @object Main_zdwa_closure: .long Main_zdwa_info .long 0 .text .align 4,0x90 .long Main_zdwa_srt-(Main_zdwa_info)+0 .long 262158 .long 0 .long 196623 .globl Main_zdwa_info .type Main_zdwa_info, @object Main_zdwa_info: .LcfHk: addl $24,%edi cmpl 92(%ebx),%edi ja .LcfHn movl 4(%ebp),%eax testl %eax,%eax jne .LcfHq movl $base_DataziMaybe_Just_con_info,-20(%edi) movl 8(%ebp),%eax movl %eax,-16(%edi) movl $ghczmprim_GHCziTuple_Z3T_con_info,-12(%edi) movl $rfDG_closure+1,-8(%edi) movl $rfDE_closure+1,-4(%edi) leal -18(%edi),%eax movl %eax,(%edi) leal -11(%edi),%esi addl $12,%ebp jmp *(%ebp) .LcfHn: movl $24,112(%ebx) movl $Main_zdwa_closure,%esi jmp *-4(%ebx) .LcfHq: movl (%ebp),%ecx movl $142,(%ecx) cmpl $-2147483648,%eax jne .LcfHu movl $base_GHCziEnum_zdfEnumInt1_closure,%esi addl $12,%ebp addl $-24,%edi andl $-4,%esi jmp *(%esi) .LcfHu: decl %eax movl (%ebp),%ecx addl $4,%ecx movl $ghczmprim_GHCziUnit_Z0T_closure+1,8(%ebp) movl %eax,4(%ebp) movl %ecx,(%ebp) addl $-24,%edi jmp Main_zdwa_info .section .data .align 4 .globl Main_main6_srt .type Main_main6_srt, @object Main_main6_srt: .long Main_zdwa_closure .data .align 4 .globl Main_main6_closure .type Main_main6_closure, @object Main_main6_closure: .long Main_main6_info .long 0 .text .align 4,0x90 .long Main_main6_srt-(sfHD_info)+0 .long 0 .long 65570 sfHD_info: .LcfHS: movl $ghczmprim_GHCziUnit_Z0T_closure+1,(%ebp) movl $10000000,-4(%ebp) movl 3(%esi),%eax movl %eax,-8(%ebp) addl $-8,%ebp jmp Main_zdwa_info .text .align 4,0x90 .long Main_main6_srt-(Main_main6_info)+0 .long 131077 .long 0 .long 65551 .globl Main_main6_info .type Main_main6_info, @object Main_main6_info: .LcfHY: leal -8(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfI0 movl (%ebp),%esi movl $sfHD_info,(%ebp) testl $3,%esi jne sfHD_info jmp *(%esi) .LcfI0: movl $Main_main6_closure,%esi jmp *-4(%ebx) .section .data .align 4 .globl Main_main5_srt .type Main_main5_srt, @object Main_main5_srt: .long DataziStorableVectorziBase_zdwa2_closure .long Main_zdwa_closure .data .align 4 .globl Main_main5_closure .type Main_main5_closure, @object Main_main5_closure: .long Main_main5_info .long 0 .text .align 4,0x90 .long Main_main5_srt-(sfEw_info)+0 .long 0 .long 196642 sfEw_info: .LcfIm: movl $Main_main6_closure+2,(%ebp) movl $10000000,-4(%ebp) movl $base_ForeignziStorable_zdfStorableIntzusizzeOf_closure+1,-8(%ebp) addl $-8,%ebp jmp DataziStorableVectorziBase_zdwa2_info .text .align 4,0x90 .long Main_main5_srt-(Main_main5_info)+0 .long 65539 .long 0 .long 196623 .globl Main_main5_info .type Main_main5_info, @object Main_main5_info: .LcfIr: leal -12(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfIt movl $sfEw_info,-4(%ebp) addl $-4,%ebp jmp stg_noDuplicatezh .LcfIt: movl $Main_main5_closure,%esi jmp *-4(%ebx) .section .data .align 4 .globl Main_main4_srt .type Main_main4_srt, @object Main_main4_srt: .long Main_main5_closure .data .align 4 .globl Main_main4_closure .type Main_main4_closure, @object Main_main4_closure: .long Main_main4_info .long 0 .long 0 .long 0 .text .align 4,0x90 .long Main_main4_srt-(Main_main4_info)+0 .long 0 .long 65558 .globl Main_main4_info .type Main_main4_info, @object Main_main4_info: .LcfIM: leal -12(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfIO addl $8,%edi cmpl 92(%ebx),%edi ja .LcfIO movl $stg_CAF_BLACKHOLE_info,-4(%edi) pushl %esi call newCAF addl $4,%esp leal -4(%edi),%eax movl %eax,4(%esi) movl $stg_IND_STATIC_info,(%esi) movl $stg_upd_frame_info,-8(%ebp) leal -4(%edi),%eax movl %eax,-4(%ebp) movl $Main_main5_closure+1,-12(%ebp) addl $-12,%ebp jmp base_GHCziIO_unsafeDupablePerformIO_info .LcfIO: movl $8,112(%ebx) jmp *-8(%ebx) .section .data .align 4 .globl Main_main3_srt .type Main_main3_srt, @object Main_main3_srt: .long Main_main4_closure .data .align 4 .globl Main_main3_closure .type Main_main3_closure, @object Main_main3_closure: .long Main_main3_info .long 0 .text .align 4,0x90 .long 196617 .long 65536 .long 11 sfF2_info: .LcfJP: addl $8,%edi cmpl 92(%ebx),%edi ja .LcfJR movl (%ebp),%eax cmpl 1(%esi),%eax je .LcfJU movl (%ebp),%eax addl $4,%eax movl (%ebp),%ecx movl 4(%ebp),%edx addl (%ecx),%edx movl %edx,4(%ebp) movl %eax,(%ebp) addl $-8,%edi jmp sfF2_info .LcfJR: movl $8,112(%ebx) jmp *-4(%ebx) .LcfJU: movl $ghczmprim_GHCziTypes_Izh_con_info,-4(%edi) movl 4(%ebp),%eax movl %eax,(%edi) leal -3(%edi),%esi addl $8,%ebp jmp *(%ebp) .text .align 4,0x90 .long 1 .long 34 sfJ6_info: .LcfK5: addl $8,%ebp jmp *(%ebp) .text .align 4,0x90 .long 0 .long 34 sfIY_info: .LcfKg: addl $8,%edi cmpl 92(%ebx),%edi ja .LcfKi movl 11(%esi),%eax shll $2,%eax movl 7(%esi),%ecx addl %eax,%ecx movl 15(%esi),%eax shll $2,%eax movl %ecx,%edx addl %eax,%edx movl $sfF2_info,-4(%edi) movl %edx,(%edi) movl 3(%esi),%eax movl %eax,(%ebp) leal -1(%edi),%esi movl $0,-8(%ebp) movl %ecx,-12(%ebp) movl $sfJ6_info,-4(%ebp) addl $-12,%ebp jmp sfF2_info .LcfKi: movl $8,112(%ebx) jmp *-8(%ebx) .text .align 4,0x90 .long 0 .long 34 sfIW_info: .LcfKo: movl 3(%esi),%esi movl $sfIY_info,(%ebp) testl $3,%esi jne sfIY_info jmp *(%esi) .text .align 4,0x90 .long Main_main3_srt-(sfF9_info)+0 .long 0 .long 65570 sfF9_info: .LcfKw: movl $Main_main4_closure,%esi movl $sfIW_info,(%ebp) testl $3,%esi jne sfIW_info jmp *(%esi) .text .align 4,0x90 .long Main_main3_srt-(Main_main3_info)+0 .long 65539 .long 0 .long 65551 .globl Main_main3_info .type Main_main3_info, @object Main_main3_info: .LcfKF: leal -16(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfKH movl $sfF9_info,-4(%ebp) addl $-4,%ebp jmp stg_noDuplicatezh .LcfKH: movl $Main_main3_closure,%esi jmp *-4(%ebx) .section .data .align 4 .globl Main_main2_srt .type Main_main2_srt, @object Main_main2_srt: .long Main_main4_closure .data .align 4 .globl Main_main2_closure .type Main_main2_closure, @object Main_main2_closure: .long Main_main2_info .long 0 .long 0 .long 0 .text .align 4,0x90 .long 0 .long 34 sfKN_info: .LcfL1: movl $ghczmprim_GHCziTypes_ZMZN_closure+1,(%ebp) movl 3(%esi),%eax movl %eax,-4(%ebp) movl $0,-8(%ebp) addl $-8,%ebp jmp base_GHCziShow_zdwshowSignedInt_info .text .align 4,0x90 .long Main_main2_srt-(Main_main2_info)+0 .long 0 .long 65558 .globl Main_main2_info .type Main_main2_info, @object Main_main2_info: .LcfLa: leal -20(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfLc addl $8,%edi cmpl 92(%ebx),%edi ja .LcfLc movl $stg_CAF_BLACKHOLE_info,-4(%edi) pushl %esi call newCAF addl $4,%esp leal -4(%edi),%eax movl %eax,4(%esi) movl $stg_IND_STATIC_info,(%esi) movl $stg_upd_frame_info,-8(%ebp) leal -4(%edi),%eax movl %eax,-4(%ebp) movl $Main_main3_closure+1,-16(%ebp) movl $sfKN_info,-12(%ebp) addl $-16,%ebp jmp base_GHCziIO_unsafeDupablePerformIO_info .LcfLc: movl $8,112(%ebx) jmp *-8(%ebx) .section .data .align 4 .globl Main_main1_srt .type Main_main1_srt, @object Main_main1_srt: .long base_GHCziIOziHandleziFD_stdout_closure .long base_GHCziIOziHandleziText_hPutChar1_closure .long base_GHCziIOziHandleziText_hPutStr1_closure .long Main_main2_closure .data .align 4 .globl Main_main1_closure .type Main_main1_closure, @object Main_main1_closure: .long Main_main1_info .long 0 .text .align 4,0x90 .long Main_main1_srt-(sfLk_info)+0 .long 0 .long 196642 sfLk_info: .LcfLz: movl $base_SystemziIO_hPrint2_closure,(%ebp) movl $base_GHCziIOziHandleziFD_stdout_closure,-4(%ebp) addl $-4,%ebp jmp base_GHCziIOziHandleziText_hPutChar1_info .text .align 4,0x90 .long Main_main1_srt-(Main_main1_info)+0 .long 65539 .long 0 .long 983055 .globl Main_main1_info .type Main_main1_info, @object Main_main1_info: .LcfLE: leal -12(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfLG movl $Main_main2_closure,-8(%ebp) movl $base_GHCziIOziHandleziFD_stdout_closure,-12(%ebp) movl $sfLk_info,-4(%ebp) addl $-12,%ebp jmp base_GHCziIOziHandleziText_hPutStr1_info .LcfLG: movl $Main_main1_closure,%esi jmp *-4(%ebx) .section .data .align 4 .globl Main_main7_srt .type Main_main7_srt, @object Main_main7_srt: .long base_GHCziTopHandler_runMainIO1_closure .long Main_main1_closure .data .align 4 .globl Main_main7_closure .type Main_main7_closure, @object Main_main7_closure: .long Main_main7_info .long 0 .text .align 4,0x90 .long Main_main7_srt-(Main_main7_info)+0 .long 65539 .long 0 .long 196623 .globl Main_main7_info .type Main_main7_info, @object Main_main7_info: .LcfLW: leal -4(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfLZ movl $Main_main1_closure+1,-4(%ebp) addl $-4,%ebp jmp base_GHCziTopHandler_runMainIO1_info .LcfLZ: movl $Main_main7_closure,%esi jmp *-4(%ebx) .section .data .align 4 .globl Main_main_srt .type Main_main_srt, @object Main_main_srt: .long Main_main1_closure .data .align 4 .globl Main_main_closure .type Main_main_closure, @object Main_main_closure: .long Main_main_info .long 0 .text .align 4,0x90 .long Main_main_srt-(Main_main_info)+0 .long 65539 .long 0 .long 65551 .globl Main_main_info .type Main_main_info, @object Main_main_info: .LcfMf: jmp Main_main1_info .data .align 4 .globl Main_zdfFractionFloatzufraction_closure .type Main_zdfFractionFloatzufraction_closure, @object Main_zdfFractionFloatzufraction_closure: .long Main_zdfFractionFloatzufraction_info .text .align 4,0x90 .long 1 .long 34 sfMk_info: .LcfMB: movl 4(%ebp),%eax movl %eax,(%ebp) movl %esi,4(%ebp) jmp base_GHCziFloat_minusFloat_info .text .align 4,0x90 .long 1 .long 34 sfMj_info: .LcfMH: movl %esi,-4(%ebp) movl $sfMk_info,(%ebp) addl $-4,%ebp jmp base_GHCziFloat_int2Float_info .text .align 4,0x90 .long 65541 .long 0 .long 15 .globl Main_zdfFractionFloatzufraction_info .type Main_zdfFractionFloatzufraction_info, @object Main_zdfFractionFloatzufraction_info: .LcfMN: leal -8(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfMP movl (%ebp),%eax movl %eax,-8(%ebp) movl $sfMj_info,-4(%ebp) addl $-8,%ebp jmp base_GHCziFloat_float2Int_info .LcfMP: movl $Main_zdfFractionFloatzufraction_closure,%esi jmp *-4(%ebx) .data .align 4 .globl Main_zdfFractionFloat_closure .type Main_zdfFractionFloat_closure, @object Main_zdfFractionFloat_closure: .long Main_DZCFraction_static_info .long base_GHCziFloat_zdfNumFloat_closure .long base_GHCziFloat_zdfOrdFloat_closure .long Main_zdfFractionFloatzufraction_closure+1 .long 0 .data .align 4 .globl Main_zdfFractionDoublezufraction_closure .type Main_zdfFractionDoublezufraction_closure, @object Main_zdfFractionDoublezufraction_closure: .long Main_zdfFractionDoublezufraction_info .text .align 4,0x90 .long 1 .long 34 sfN1_info: .LcfNj: movl 4(%ebp),%eax movl %eax,(%ebp) movl %esi,4(%ebp) jmp base_GHCziFloat_minusDouble_info .text .align 4,0x90 .long 1 .long 34 sfN0_info: .LcfNp: movl %esi,-4(%ebp) movl $sfN1_info,(%ebp) addl $-4,%ebp jmp base_GHCziFloat_int2Double_info .text .align 4,0x90 .long 65541 .long 0 .long 15 .globl Main_zdfFractionDoublezufraction_info .type Main_zdfFractionDoublezufraction_info, @object Main_zdfFractionDoublezufraction_info: .LcfNv: leal -8(%ebp),%eax cmpl 84(%ebx),%eax jb .LcfNx movl (%ebp),%eax movl %eax,-8(%ebp) movl $sfN0_info,-4(%ebp) addl $-8,%ebp jmp base_GHCziFloat_double2Int_info .LcfNx: movl $Main_zdfFractionDoublezufraction_closure,%esi jmp *-4(%ebx) .data .align 4 .globl Main_zdfFractionDouble_closure .type Main_zdfFractionDouble_closure, @object Main_zdfFractionDouble_closure: .long Main_DZCFraction_static_info .long base_GHCziFloat_zdfNumDouble_closure .long base_GHCziFloat_zdfOrdDouble_closure .long Main_zdfFractionDoublezufraction_closure+1 .long 0 .section .data .align 4 .globl ZCMain_main_srt .type ZCMain_main_srt, @object ZCMain_main_srt: .long Main_main7_closure .data .align 4 .globl ZCMain_main_closure .type ZCMain_main_closure, @object ZCMain_main_closure: .long ZCMain_main_info .long 0 .text .align 4,0x90 .long ZCMain_main_srt-(ZCMain_main_info)+0 .long 65539 .long 0 .long 65551 .globl ZCMain_main_info .type ZCMain_main_info, @object ZCMain_main_info: .LcfNT: jmp Main_main7_info .data .align 4 .globl Main_Generator_closure .type Main_Generator_closure, @object Main_Generator_closure: .long Main_Generator_info .text .align 4,0x90 .long 131084 .long 0 .long 15 .globl Main_Generator_info .type Main_Generator_info, @object Main_Generator_info: .LcfO6: addl $12,%edi cmpl 92(%ebx),%edi ja .LcfO9 movl $Main_Generator_con_info,-8(%edi) movl (%ebp),%eax movl %eax,-4(%edi) movl 4(%ebp),%eax movl %eax,(%edi) leal -7(%edi),%esi addl $8,%ebp jmp *(%ebp) .LcfO9: movl $12,112(%ebx) movl $Main_Generator_closure,%esi jmp *-4(%ebx) .data .align 4 .globl Main_DZCFraction_closure .type Main_DZCFraction_closure, @object Main_DZCFraction_closure: .long Main_DZCFraction_info .text .align 4,0x90 .long 196628 .long 0 .long 15 .globl Main_DZCFraction_info .type Main_DZCFraction_info, @object Main_DZCFraction_info: .LcfOq: addl $16,%edi cmpl 92(%ebx),%edi ja .LcfOt movl $Main_DZCFraction_con_info,-12(%edi) movl (%ebp),%eax movl %eax,-8(%edi) movl 4(%ebp),%eax movl %eax,-4(%edi) movl 8(%ebp),%eax movl %eax,(%edi) leal -11(%edi),%esi addl $12,%ebp jmp *(%ebp) .LcfOt: movl $16,112(%ebx) movl $Main_DZCFraction_closure,%esi jmp *-4(%ebx) .section .rodata .align 4 cfOE_str: .byte 109 .byte 97 .byte 105 .byte 110 .byte 58 .byte 77 .byte 97 .byte 105 .byte 110 .byte 46 .byte 71 .byte 101 .byte 110 .byte 101 .byte 114 .byte 97 .byte 116 .byte 111 .byte 114 .byte 0 .text .align 4,0x90 .long cfOE_str-(Main_Generator_con_info)+0 .long 2 .long 4 .globl Main_Generator_con_info .type Main_Generator_con_info, @object Main_Generator_con_info: .LcfOI: incl %esi jmp *(%ebp) .section .rodata .align 4 cfON_str: .byte 109 .byte 97 .byte 105 .byte 110 .byte 58 .byte 77 .byte 97 .byte 105 .byte 110 .byte 46 .byte 71 .byte 101 .byte 110 .byte 101 .byte 114 .byte 97 .byte 116 .byte 111 .byte 114 .byte 0 .text .align 4,0x90 .long cfON_str-(Main_Generator_static_info)+0 .long 2 .long 7 .globl Main_Generator_static_info .type Main_Generator_static_info, @object Main_Generator_static_info: .LcfOR: incl %esi jmp *(%ebp) .section .rodata .align 4 cfOY_str: .byte 109 .byte 97 .byte 105 .byte 110 .byte 58 .byte 77 .byte 97 .byte 105 .byte 110 .byte 46 .byte 68 .byte 58 .byte 70 .byte 114 .byte 97 .byte 99 .byte 116 .byte 105 .byte 111 .byte 110 .byte 0 .text .align 4,0x90 .long cfOY_str-(Main_DZCFraction_con_info)+0 .long 3 .long 1 .globl Main_DZCFraction_con_info .type Main_DZCFraction_con_info, @object Main_DZCFraction_con_info: .LcfP2: incl %esi jmp *(%ebp) .section .rodata .align 4 cfP7_str: .byte 109 .byte 97 .byte 105 .byte 110 .byte 58 .byte 77 .byte 97 .byte 105 .byte 110 .byte 46 .byte 68 .byte 58 .byte 70 .byte 114 .byte 97 .byte 99 .byte 116 .byte 105 .byte 111 .byte 110 .byte 0 .text .align 4,0x90 .long cfP7_str-(Main_DZCFraction_static_info)+0 .long 3 .long 7 .globl Main_DZCFraction_static_info .type Main_DZCFraction_static_info, @object Main_DZCFraction_static_info: .LcfPb: incl %esi jmp *(%ebp) .data .align 4 _module_registered: .long 0 .text .align 4,0x90 .globl __stginit_Main_ .type __stginit_Main_, @object __stginit_Main_: .LcfPl: cmpl $0,_module_registered jne .LcfPm .LcfPn: movl $1,_module_registered addl $-4,%ebp movl $__stginit_base_ControlziMonadziSTziStrict_,(%ebp) addl $-4,%ebp movl $__stginit_base_ControlziMonadziSTziLazzy_,(%ebp) addl $-4,%ebp movl $__stginit_base_ForeignziStorable_,(%ebp) addl $-4,%ebp movl $__stginit_base_GHCziFloat_,(%ebp) addl $-4,%ebp movl $__stginit_base_ControlziMonad_,(%ebp) addl $-4,%ebp movl $__stginit_base_DataziMonoid_,(%ebp) addl $-4,%ebp movl $__stginit_base_Prelude_,(%ebp) addl $-4,%ebp movl $__stginit_DataziStorableVectorziLazzy_,(%ebp) addl $-4,%ebp movl $__stginit_DataziStorableVectorziLazzyziBuilder_,(%ebp) addl $-4,%ebp movl $__stginit_DataziStorableVectorziSTziStrict_,(%ebp) addl $-4,%ebp movl $__stginit_DataziStorableVectorziSTziLazzy_,(%ebp) addl $-4,%ebp movl $__stginit_DataziStorableVector_,(%ebp) addl $-4,%ebp movl $__stginit_SoundziFrameziStereo_,(%ebp) addl $-4,%ebp movl $__stginit_base_GHCziTopHandler_,(%ebp) .LcfPm: addl $4,%ebp jmp *-4(%ebp) .text .align 4,0x90 .globl __stginit_Main .type __stginit_Main, @object __stginit_Main: .LcfPt: jmp __stginit_Main_ .text .align 4,0x90 .globl __stginit_ZCMain .type __stginit_ZCMain, @object __stginit_ZCMain: .LcfPy: addl $4,%ebp jmp *-4(%ebp)