-NOTE: Simplifier still going after 4 iterations; bailing out.
-
================================================================================
STG syntax:
-nrlit_s25b =
- PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_2{-8e,p-} PrelNum.integer_1{-8d,p-}];
-lit_a19u =
+$g0_g0 =
+ PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_2{-8e,w-} PrelNum.integer_1{-8d,w-}];
+$g1_a15t =
(False, True, False, False, True) [] \u []
case
- PrelNum.$d14{-rtM,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,p-}}
+ PrelNum.$d14{-rs6,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,W-}}
of {
- -- lvs: []; rhs lvs: []; uniq: c2b9
- PrelTup.(,,,){-64,p-}{i} tpl_s1V1 tpl_s1V2 tpl_s1V3 tpl_s1V0 ->
- tpl_s1V0
- nrlit_s25b;
+ -- lvs: []; rhs lvs: []; uniq: c1QY
+ PrelTup.(,,,){-64,w-}{i} $x0_s1En $x1_s1Eo $x2_s1Ep $x3_s1Em ->
+ $x3_s1Em $g0_g0;
};
-nrlit_s25c =
- PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_1{-8d,p-} PrelNum.integer_1{-8d,p-}];
-lit_a19w =
+$g2_g2 =
+ PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_1{-8d,w-} PrelNum.integer_1{-8d,w-}];
+$g3_a15r =
(False, True, False, False, True) [] \u []
case
- PrelNum.$d23{-rtW,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,p-}}
+ PrelNum.$d23{-rsg,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}}
of {
- -- lvs: []; rhs lvs: []; uniq: c2ba
- PrelTup.(,,,){-64,p-}{i} tpl_s1Vt tpl_s1Vu tpl_s1Vv tpl_s1Vs ->
- tpl_s1Vs
- nrlit_s25c;
- };
-s_s1MF =
- [] \r [ds_s1VJ]
- case ds_s1VJ ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
- -- lvs: [ds_s1VJ]; rhs lvs: []; uniq: c2bb
- STBase.S#{-5D,p-}{i} ds_s1Wa ->
- case
- _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1Wa] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
- of {
- -- lvs: [ds_s1Wa]; rhs lvs: []; uniq: c2bc
- STBase.StateAndInt#{-5v,p-}{i} ds_s1Wk ds_s1W9 ->
- let {
- ds_s1WA =
- PrelBase.I#{-5b,p-}{i}! [ds_s1W9]; } in
- let {
- ds_s1Wz =
- STBase.S#{-5D,p-}{i}! [ds_s1Wk];
- } in
- PrelTup.(,){-62,p-}{i}! [ds_s1WA ds_s1Wz];
- };
+ -- lvs: []; rhs lvs: []; uniq: c1QZ
+ PrelTup.(,,,){-64,w-}{i} $x0_s1EP $x1_s1EQ $x2_s1ER $x3_s1EO ->
+ $x3_s1EO $g2_g2;
};
-s_s1Xu =
- [] \r [ds_s1WI]
- case ds_s1WI ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
- -- lvs: [ds_s1WI]; rhs lvs: []; uniq: c2bd
- STBase.S#{-5D,p-}{i} ds_s1X9 ->
+a{-r1,x-} =
+ [] \r [$x0_s1F9]
+ case $x0_s1F9 ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} of {
+ -- lvs: [$x0_s1F9]; rhs lvs: []; uniq: c1R0
+ STBase.S#{-5D,w-}{i} $x1_s1FA ->
case
- _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1X9] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
+ _ccall_ a [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]# [$x1_s1FA] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s1X9]; rhs lvs: []; uniq: c2be
- STBase.StateAndInt#{-5v,p-}{i} ds_s1Xj ds_s1X8 ->
- let {
- ds_s1XP =
- PrelBase.I#{-5b,p-}{i}! [ds_s1X8]; } in
- let {
- ds_s1XO =
- STBase.S#{-5D,p-}{i}! [ds_s1Xj];
- } in
- PrelTup.(,){-62,p-}{i}! [ds_s1XP ds_s1XO];
+ -- lvs: [$x1_s1FA]; rhs lvs: []; uniq: c1R1
+ STBase.StateAndInt#{-5v,w-}{i} $x2_s1FK $x3_s1Fz ->
+ let { $x4_s1Gc = PrelBase.I#{-5b,w-}{i}! [$x3_s1Fz]; } in
+ let { $x5_s1Gb = STBase.S#{-5D,w-}{i}! [$x2_s1FK];
+ } in PrelTup.(,){-62,w-}{i}! [$x4_s1Gc $x5_s1Gb];
};
};
-a{-r1,x-} =
- [] \u []
- s_s1Xu;
b{-r3,x-} =
- [] \r [x_s1XY]
+ [] \r [$x0_s1Gl]
let {
- stg_c2ac =
- (False, True, False, False, True) [x_s1XY] \r [ds_s1XN]
+ stg_c1Qp =
+ (False, True, False, False, True) [$x0_s1Gl] \r [$x1_s1Ga]
case
- ds_s1XN{-lvs:x_s1XY-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
+ $x1_s1Ga{-lvs:$x0_s1Gl-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s1XN x_s1XY]; rhs lvs: [x_s1XY]; uniq: c2bf
- STBase.S#{-5D,p-}{i} ds_s1XZ ->
- case x_s1XY{-lvs:ds_s1XZ-} ::PrelBase.Int{-3g,p-} of {
- -- lvs: [x_s1XY ds_s1XZ]; rhs lvs: [ds_s1XZ]; uniq: c2bg
- PrelBase.I#{-5b,p-}{i} ds_s1Yp ->
+ -- lvs: [$x1_s1Ga $x0_s1Gl]; rhs lvs: [$x0_s1Gl]; uniq: c1R2
+ STBase.S#{-5D,w-}{i} $x2_s1Gm ->
+ case $x0_s1Gl{-lvs:$x2_s1Gm-} ::PrelBase.Int{-3g,W-} of {
+ -- lvs: [$x0_s1Gl $x2_s1Gm]; rhs lvs: [$x2_s1Gm]; uniq: c1R3
+ PrelBase.I#{-5b,w-}{i} $x3_s1GM ->
case
- _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]# [ds_s1XZ ds_s1Yp] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
+ _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]# [$x2_s1Gm $x3_s1GM] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s1XZ ds_s1Yp]; rhs lvs: []; uniq: c2bh
- STBase.StateAndInt#{-5v,p-}{i} ds_s1YA ds_s1Yq ->
- let {
- ds_s1Za =
- PrelBase.I#{-5b,p-}{i}! [ds_s1Yq]; } in
- let {
- ds_s1Z9 =
- STBase.S#{-5D,p-}{i}! [ds_s1YA];
- } in
- PrelTup.(,){-62,p-}{i}! [ds_s1Za ds_s1Z9];
+ -- lvs: [$x2_s1Gm $x3_s1GM]; rhs lvs: []; uniq: c1R4
+ STBase.StateAndInt#{-5v,w-}{i} $x4_s1GX $x5_s1GN ->
+ let { $x6_s1Hx = PrelBase.I#{-5b,w-}{i}! [$x5_s1GN]; } in
+ let { $x7_s1Hw = STBase.S#{-5D,w-}{i}! [$x4_s1GX];
+ } in PrelTup.(,){-62,w-}{i}! [$x6_s1Hx $x7_s1Hw];
};
};
};
- } in
- stg_c2ac;
+ } in stg_c1Qp;
c{-r5,x-} =
- [] \r [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]
+ [] \r [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]
let {
- stg_c29C =
- (False, True, False, False, True) [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN] \r [ds_s1Z8]
+ stg_c1PP =
+ (False, True, False, False, True) [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia] \r [$x4_s1Hv]
case
- ds_s1Z8{-lvs:x1_s1Zj, x2_s1Zt, x3_s1ZD, x4_s1ZN-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
+ $x4_s1Hv{-lvs:$x0_s1HG, $x1_s1HQ, $x2_s1I0, $x3_s1Ia-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s1Z8 x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]; rhs lvs: [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]; uniq: c2bi
- STBase.S#{-5D,p-}{i} ds_s1Zk ->
+ -- lvs: [$x4_s1Hv $x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]; uniq: c1R5
+ STBase.S#{-5D,w-}{i} $x5_s1HH ->
case
- x1_s1Zj{-lvs:ds_s1Zk, x2_s1Zt, x3_s1ZD, x4_s1ZN-} ::PrelBase.Int{-3g,p-}
+ $x0_s1HG{-lvs:$x5_s1HH, $x1_s1HQ, $x2_s1I0, $x3_s1Ia-} ::PrelBase.Int{-3g,W-}
of {
- -- lvs: [x1_s1Zj ds_s1Zk x2_s1Zt x3_s1ZD x4_s1ZN]; rhs lvs: [ds_s1Zk x2_s1Zt x3_s1ZD x4_s1ZN]; uniq: c2bj
- PrelBase.I#{-5b,p-}{i} ds_s1Zu ->
+ -- lvs: [$x0_s1HG $x5_s1HH $x1_s1HQ $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x1_s1HQ $x2_s1I0 $x3_s1Ia]; uniq: c1R6
+ PrelBase.I#{-5b,w-}{i} $x6_s1HR ->
case
- x2_s1Zt{-lvs:ds_s1Zk, ds_s1Zu, x3_s1ZD, x4_s1ZN-} ::PrelBase.Char{-38,p-}
+ $x1_s1HQ{-lvs:$x5_s1HH, $x6_s1HR, $x2_s1I0, $x3_s1Ia-} ::PrelBase.Char{-38,W-}
of {
- -- lvs: [ds_s1Zk x2_s1Zt ds_s1Zu x3_s1ZD x4_s1ZN]; rhs lvs: [ds_s1Zk ds_s1Zu x3_s1ZD x4_s1ZN]; uniq: c2bk
- PrelBase.C#{-54,p-}{i} ds_s1ZE ->
+ -- lvs: [$x5_s1HH $x1_s1HQ $x6_s1HR $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x6_s1HR $x2_s1I0 $x3_s1Ia]; uniq: c1R7
+ PrelBase.C#{-54,w-}{i} $x7_s1I1 ->
case
- x3_s1ZD{-lvs:ds_s1Zk, ds_s1Zu, ds_s1ZE, x4_s1ZN-} ::PrelBase.Float{-3c,p-}
+ $x2_s1I0{-lvs:$x5_s1HH, $x6_s1HR, $x7_s1I1, $x3_s1Ia-} ::PrelBase.Float{-3c,W-}
of {
- -- lvs: [ds_s1Zk ds_s1Zu x3_s1ZD ds_s1ZE x4_s1ZN]; rhs lvs: [ds_s1Zk ds_s1Zu ds_s1ZE x4_s1ZN]; uniq: c2bl
- PrelBase.F#{-59,p-}{i} ds_s1ZO ->
+ -- lvs: [$x5_s1HH $x6_s1HR $x2_s1I0 $x7_s1I1 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x3_s1Ia]; uniq: c1R8
+ PrelBase.F#{-59,w-}{i} $x8_s1Ib ->
case
- x4_s1ZN{-lvs:ds_s1Zk, ds_s1Zu, ds_s1ZE, ds_s1ZO-} ::PrelBase.Double{-3a,p-}
+ $x3_s1Ia{-lvs:$x5_s1HH, $x6_s1HR, $x7_s1I1, $x8_s1Ib-} ::PrelBase.Double{-3a,W-}
of {
- -- lvs: [ds_s1Zk ds_s1Zu ds_s1ZE x4_s1ZN ds_s1ZO]; rhs lvs: [ds_s1Zk ds_s1Zu ds_s1ZE ds_s1ZO]; uniq: c2bm
- PrelBase.D#{-56,p-}{i} ds_s20e ->
+ -- lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x3_s1Ia $x8_s1Ib]; rhs lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib]; uniq: c1R9
+ PrelBase.D#{-56,w-}{i} $x9_s1IB ->
case
- _ccall_ c [(STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-} GHC.Char#{-37,p-} GHC.Float#{-3b,p-} GHC.Double#{-39,p-}]# [ds_s1Zk ds_s1Zu ds_s1ZE ds_s1ZO ds_s20e] ::STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}
+ _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]# [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib $x9_s1IB] ::STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s1Zk ds_s1Zu ds_s1ZE ds_s1ZO ds_s20e]; rhs lvs: []; uniq: c2bn
- STBase.StateAndFloat#{-5u,p-}{i} ds_s20p ds_s20f ->
+ -- lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib $x9_s1IB]; rhs lvs: []; uniq: c1Ra
+ STBase.StateAndFloat#{-5u,w-}{i} $xa_s1IM $xb_s1IC ->
let {
- ds_s217 =
- PrelBase.F#{-59,p-}{i}! [ds_s20f]; } in
+ $xc_s1Jy =
+ PrelBase.F#{-59,w-}{i}! [$xb_s1IC]; } in
let {
- ds_s216 =
- STBase.S#{-5D,p-}{i}! [ds_s20p];
+ $xd_s1Jx =
+ STBase.S#{-5D,w-}{i}! [$xa_s1IM];
} in
- PrelTup.(,){-62,p-}{i}! [ds_s217 ds_s216];
+ PrelTup.(,){-62,w-}{i}! [$xc_s1Jy $xd_s1Jx];
};
};
};
};
};
};
- } in
- stg_c29C;
+ } in stg_c1PP;
d{-r7,x-} =
[] \u []
let {
- ds_s258 =
- [] \r [x_s21g]
- let { s_s22a = [x_s21g] \r [ds_s215]
+ $xk_s1Ma =
+ [] \r [$x0_s1JH]
+ let { $x8_s1KM = [$x0_s1JH] \r [$x1_s1Jw]
case
- ds_s215{-lvs:x_s21g-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
+ $x1_s1Jw{-lvs:$x0_s1JH-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s215 x_s21g]; rhs lvs: [x_s21g]; uniq: c2bo
- STBase.S#{-5D,p-}{i} ds_s21h ->
- case x_s21g{-lvs:ds_s21h-} ::PrelBase.Int{-3g,p-} of {
- -- lvs: [x_s21g ds_s21h]; rhs lvs: [ds_s21h]; uniq: c2bp
- PrelBase.I#{-5b,p-}{i} ds_s21H ->
+ -- lvs: [$x1_s1Jw $x0_s1JH]; rhs lvs: [$x0_s1JH]; uniq: c1Rb
+ STBase.S#{-5D,w-}{i} $x2_s1JI ->
+ case $x0_s1JH{-lvs:$x2_s1JI-} ::PrelBase.Int{-3g,W-} of {
+ -- lvs: [$x0_s1JH $x2_s1JI]; rhs lvs: [$x2_s1JI]; uniq: c1Rc
+ PrelBase.I#{-5b,w-}{i} $x3_s1K8 ->
case
- _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]# [ds_s21h ds_s21H] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
+ _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]# [$x2_s1JI $x3_s1K8] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s21h ds_s21H]; rhs lvs: []; uniq: c2bq
- STBase.StateAndInt#{-5v,p-}{i} ds_s21S ds_s21I ->
+ -- lvs: [$x2_s1JI $x3_s1K8]; rhs lvs: []; uniq: c1Rd
+ STBase.StateAndInt#{-5v,w-}{i} $x4_s1Kj $x5_s1K9 ->
let {
- ds_s22c =
- PrelBase.I#{-5b,p-}{i}! [ds_s21I]; } in
- let {
- ds_s22b =
- STBase.S#{-5D,p-}{i}! [ds_s21S];
- } in
- PrelTup.(,){-62,p-}{i}! [ds_s22c ds_s22b];
- };
- };
- } } in
- let { s_s23h = [x_s21g] \r [ds_s22k]
- case
- ds_s22k{-lvs:x_s21g-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
- of {
- -- lvs: [x_s21g ds_s22k]; rhs lvs: [x_s21g]; uniq: c2br
- STBase.S#{-5D,p-}{i} ds_s22t ->
- case x_s21g{-lvs:ds_s22t-} ::PrelBase.Int{-3g,p-} of {
- -- lvs: [x_s21g ds_s22t]; rhs lvs: [ds_s22t]; uniq: c2bs
- PrelBase.I#{-5b,p-}{i} ds_s22T ->
- case
- _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]# [ds_s22t ds_s22T] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
- of {
- -- lvs: [ds_s22t ds_s22T]; rhs lvs: []; uniq: c2bt
- STBase.StateAndInt#{-5v,p-}{i} ds_s234 ds_s22U ->
- let {
- ds_s23A =
- PrelBase.I#{-5b,p-}{i}! [ds_s22U]; } in
- let {
- ds_s23z =
- STBase.S#{-5D,p-}{i}! [ds_s234];
- } in
- PrelTup.(,){-62,p-}{i}! [ds_s23A ds_s23z];
+ $x6_s1KL = PrelBase.I#{-5b,w-}{i}! [$x5_s1K9]; } in
+ let { $x7_s1KK = STBase.S#{-5D,w-}{i}! [$x4_s1Kj];
+ } in PrelTup.(,){-62,w-}{i}! [$x6_s1KL $x7_s1KK];
};
};
} } in
let {
- ds_s24V =
- [] \r [y_s23K]
+ $xj_s1M6 =
+ [] \r [$x9_s1KV]
let {
- stg_c28E =
- (False, True, False, False, True) [y_s23K] \r [ds_s23y]
+ stg_c1OR =
+ (False, True, False, False, True) [$x9_s1KV] \r [$xa_s1KJ]
case
- ds_s23y{-lvs:y_s23K-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
+ $xa_s1KJ{-lvs:$x9_s1KV-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s23y y_s23K]; rhs lvs: [y_s23K]; uniq: c2bu
- STBase.S#{-5D,p-}{i} ds_s23L ->
- case y_s23K{-lvs:ds_s23L-} ::PrelBase.Int{-3g,p-} of {
- -- lvs: [y_s23K ds_s23L]; rhs lvs: [ds_s23L]; uniq: c2bv
- PrelBase.I#{-5b,p-}{i} ds_s23U ->
+ -- lvs: [$xa_s1KJ $x9_s1KV]; rhs lvs: [$x9_s1KV]; uniq: c1Re
+ STBase.S#{-5D,w-}{i} $xb_s1KW ->
+ case
+ $x9_s1KV{-lvs:$xb_s1KW-} ::PrelBase.Int{-3g,W-}
+ of {
+ -- lvs: [$x9_s1KV $xb_s1KW]; rhs lvs: [$xb_s1KW]; uniq: c1Rf
+ PrelBase.I#{-5b,w-}{i} $xc_s1L5 ->
case
- lit_a19w{-lvs:ds_s23L, ds_s23U-} ::PrelBase.Float{-3c,p-}
+ $g3_a15r{-lvs:$xb_s1KW, $xc_s1L5-} ::PrelBase.Float{-3c,W-}
of {
- -- lvs: [ds_s23L ds_s23U]; rhs lvs: [ds_s23L ds_s23U]; uniq: c2bw
- PrelBase.F#{-59,p-}{i} ds_s243 ->
+ -- lvs: [$xb_s1KW $xc_s1L5]; rhs lvs: [$xb_s1KW $xc_s1L5]; uniq: c1Rg
+ PrelBase.F#{-59,w-}{i} $xd_s1Le ->
case
- lit_a19u{-lvs:ds_s23L, ds_s23U, ds_s243-} ::PrelBase.Double{-3a,p-}
+ $g1_a15t{-lvs:$xb_s1KW, $xc_s1L5, $xd_s1Le-} ::PrelBase.Double{-3a,W-}
of {
- -- lvs: [ds_s23L ds_s23U ds_s243]; rhs lvs: [ds_s23L ds_s23U ds_s243]; uniq: c2bx
- PrelBase.D#{-56,p-}{i} ds_s24t ->
+ -- lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le]; rhs lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le]; uniq: c1Rh
+ PrelBase.D#{-56,w-}{i} $xe_s1LE ->
case
- _ccall_ c [(STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-} GHC.Char#{-37,p-} GHC.Float#{-3b,p-} GHC.Double#{-39,p-}]# [ds_s23L ds_s23U 'f' ds_s243 ds_s24t] ::STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}
+ _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]# [$xb_s1KW $xc_s1L5 'f' $xd_s1Le $xe_s1LE] ::STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}
of {
- -- lvs: [ds_s23L ds_s23U ds_s243 ds_s24t]; rhs lvs: []; uniq: c2by
- STBase.StateAndFloat#{-5u,p-}{i} ds_s24E ds_s24u ->
+ -- lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le $xe_s1LE]; rhs lvs: []; uniq: c1Ri
+ STBase.StateAndFloat#{-5u,w-}{i} $xf_s1LP $xg_s1LF ->
let {
- ds_s24U =
- PrelBase.F#{-59,p-}{i}! [ds_s24u]; } in
+ $xh_s1M5 =
+ PrelBase.F#{-59,w-}{i}! [$xg_s1LF]; } in
let {
- ds_s24T =
- STBase.S#{-5D,p-}{i}! [ds_s24E];
+ $xi_s1M4 =
+ STBase.S#{-5D,w-}{i}! [$xf_s1LP];
} in
- PrelTup.(,){-62,p-}{i}! [ds_s24U ds_s24T];
+ PrelTup.(,){-62,w-}{i}! [$xh_s1M5 $xi_s1M4];
};
};
};
};
};
- } in
- stg_c28E;
- } in
- STBase.thenPrimIO{-r4w,p-}
- s_s23h ds_s24V;
- } in
- STBase.thenPrimIO{-r4w,p-}
- s_s1Xu ds_s258;
+ } in stg_c1OR;
+ } in STBase.thenPrimIO{-r4t,p-} $x8_s1KM $xj_s1M6;
+ } in STBase.thenPrimIO{-r4t,p-} a{-r1,x-} $xk_s1Ma;
================================================================================
Flat Abstract C:
ED_(PrelNum_integerZu2_closure);
ED_(PrelNum_integerZu1_closure);
-SET_STATIC_HDR(s25b_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
+SET_STATIC_HDR(g0_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
, (W_)PrelNum_integerZu2_closure, (W_)PrelNum_integerZu1_closure
};
-IFN_(ret_c2b9) {
-ID_(s25b_closure);
+IFN_(ret_c1QY) {
+ID_(g0_closure);
FB_
- SpA[-1]=s25b_closure;
+ SpA[-1]=g0_closure;
RetReg=StdUpdRetVecReg;
R1=R6;
SpA=SpA-1;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2b9,ret_c2b9)
-STATIC_ITBL(a19u_info,a19u_entry,StdErrorCode,1,-1,(STATIC_VHS+
- 2),0,static const,IF_,0,0,0);
-IFN_(a19u_entry) {
+UNVECTBL(static,vtbl_c1QY,ret_c1QY)
+STATIC_ITBL(a15t_info,a15t_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,static const,IF_,0,0,0);
+IFN_(a15t_entry) {
ED_(PrelNum_Z36d14_closure);
FB_
STK_CHK(1,1,5,0,0,0,1);
SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
UPD_CAF(R1.p,Hp-(BH_HS+1));
PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
- RetReg=(StgRetAddr)UNVEC(ret_c2b9,vtbl_c2b9);
+ RetReg=(StgRetAddr)UNVEC(ret_c1QY,vtbl_c1QY);
R1.p=PrelNum_Z36d14_closure;
SpB=SpB+5;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-SET_STATIC_HDR(a19u_closure,a19u_info,0,static ,ID_RO_)
+SET_STATIC_HDR(a15t_closure,a15t_info,0,static ,ID_RO_)
, (W_)0, (W_)0
};
ED_(PrelNum_integerZu1_closure);
-SET_STATIC_HDR(s25c_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
+SET_STATIC_HDR(g2_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
, (W_)PrelNum_integerZu1_closure, (W_)PrelNum_integerZu1_closure
};
-IFN_(ret_c2ba) {
-ID_(s25c_closure);
+IFN_(ret_c1QZ) {
+ID_(g2_closure);
FB_
- SpA[-1]=s25c_closure;
+ SpA[-1]=g2_closure;
RetReg=StdUpdRetVecReg;
R1=R6;
SpA=SpA-1;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2ba,ret_c2ba)
-STATIC_ITBL(a19w_info,a19w_entry,StdErrorCode,1,-1,(STATIC_VHS+
- 2),0,static const,IF_,0,0,0);
-IFN_(a19w_entry) {
+UNVECTBL(static,vtbl_c1QZ,ret_c1QZ)
+STATIC_ITBL(a15r_info,a15r_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,static const,IF_,0,0,0);
+IFN_(a15r_entry) {
ED_(PrelNum_Z36d23_closure);
FB_
STK_CHK(1,1,5,0,0,0,1);
SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
UPD_CAF(R1.p,Hp-(BH_HS+1));
PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
- RetReg=(StgRetAddr)UNVEC(ret_c2ba,vtbl_c2ba);
+ RetReg=(StgRetAddr)UNVEC(ret_c1QZ,vtbl_c1QZ);
R1.p=PrelNum_Z36d23_closure;
SpB=SpB+5;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-SET_STATIC_HDR(a19w_closure,a19w_info,0,static ,ID_RO_)
+SET_STATIC_HDR(a15r_closure,a15r_info,0,static ,ID_RO_)
, (W_)0, (W_)0
};
-IFN_(ret_c2bb) {
-ED_RO_(PrelBase_IZh_con_info);
-ED_(STBase_SZh_static_closure);
-ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-I_ s1W9;
- FB_
- HEAP_CHK(0,(_FHS+1),0);
- {
- I_ _ccall_result;
- CALLER_SAVE_Base
- CALLER_SAVE_SpA
- CALLER_SAVE_SuA
- CALLER_SAVE_SpB
- CALLER_SAVE_SuB
- CALLER_SAVE_Ret
- CALLER_SAVE_Hp
- CALLER_SAVE_HpLim
- _ccall_result = (a());
- CALLER_RESTORE_Base
- CALLER_RESTORE_SpA
- CALLER_RESTORE_SuA
- CALLER_RESTORE_SpB
- CALLER_RESTORE_SuB
- CALLER_RESTORE_Ret
- CALLER_RESTORE_Hp
- CALLER_RESTORE_HpLim
- CALLER_RESTORE_StdUpdRetVec
- CALLER_RESTORE_StkStub
- s1W9=_ccall_result;
- }
- SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
- *Hp=(W_)(s1W9);
- R4.p=STBase_SZh_static_closure;
- R3.p=Hp-_FHS;
- SpB=SpB-1;
- R2.d=PrelTup_Z40Z44Z41_inregs_info;
- GRAN_EXEC(10,2,21,22,0);
- JMP_(DIRECT((StgRetAddr)(SpB[1])));
- FE_
-}
-UNVECTBL(static,vtbl_c2bb,ret_c2bb)
-STATIC_ITBL(s1MF_info,s1MF_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
-IFN_(s1MF_entry) {
-ID_(s1MF_closure);
-IF_(s1MF_fast1);
- FB_
- ARGS_CHK_A_LOAD_NODE(1,s1MF_closure);
- R1.p=*SpA;
- SpA=SpA+1;
- GRAN_EXEC(5,2,1,0,0);
- JMP_(s1MF_fast1);
- FE_
-}
-IFN_(s1MF_fast1) {
- FB_
- STK_CHK(1,0,1,0,0,0,0);
- SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2bb,vtbl_c2bb);
- SpB=SpB+1;
- ENT_VIA_NODE();
- GRAN_EXEC(3,1,1,1,0);
- JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
- FE_
-}
-SET_STATIC_HDR(s1MF_closure,s1MF_info,0,static ,ID_RO_)
-};
-IFN_(ret_c2bd) {
+IFN_(ret_c1R0) {
ED_RO_(PrelBase_IZh_con_info);
ED_(STBase_SZh_static_closure);
ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-I_ s1X8;
+I_ s1Fz_;
FB_
HEAP_CHK(0,(_FHS+1),0);
{
CALLER_RESTORE_HpLim
CALLER_RESTORE_StdUpdRetVec
CALLER_RESTORE_StkStub
- s1X8=_ccall_result;
+ s1Fz_=_ccall_result;
}
SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
- *Hp=(W_)(s1X8);
+ *Hp=(W_)(s1Fz_);
R4.p=STBase_SZh_static_closure;
R3.p=Hp-_FHS;
SpB=SpB-1;
JMP_(DIRECT((StgRetAddr)(SpB[1])));
FE_
}
-UNVECTBL(static,vtbl_c2bd,ret_c2bd)
-STATIC_ITBL(s1Xu_info,s1Xu_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
-IFN_(s1Xu_entry) {
-ID_(s1Xu_closure);
-IF_(s1Xu_fast1);
+UNVECTBL(static,vtbl_c1R0,ret_c1R0)
+STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
+FN_(Test_a_entry) {
+ED_(Test_a_closure);
+EF_(Test_a_fast1);
FB_
- ARGS_CHK_A_LOAD_NODE(1,s1Xu_closure);
+ ARGS_CHK_A_LOAD_NODE(1,Test_a_closure);
R1.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(s1Xu_fast1);
+ JMP_(Test_a_fast1);
FE_
}
-IFN_(s1Xu_fast1) {
+FN_(Test_a_fast1) {
FB_
STK_CHK(1,0,1,0,0,0,0);
SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2bd,vtbl_c2bd);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R0,vtbl_c1R0);
SpB=SpB+1;
ENT_VIA_NODE();
GRAN_EXEC(3,1,1,1,0);
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-SET_STATIC_HDR(s1Xu_closure,s1Xu_info,0,static ,ID_RO_)
-};
-STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,(STATIC_VHS+
- 2),0,const,EF_,0,0,0);
-FN_(Test_a_entry) {
-IF_(s1Xu_entry);
- FB_
- STK_CHK(1,0,4,0,0,0,1);
- HEAP_CHK(1,(BH_HS+2),1);
- SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
- UPD_CAF(R1.p,Hp-(BH_HS+1));
- PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
- RetReg=StdUpdRetVecReg;
- SpB=SpB+4;
- GRAN_EXEC(16,2,1,8,0);
- JMP_(s1Xu_entry);
- FE_
-}
SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_)
- , (W_)0, (W_)0
};
-IFN_(ret_c2bg) {
+IFN_(ret_c1R3) {
ED_RO_(PrelBase_IZh_con_info);
ED_(STBase_SZh_static_closure);
ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-I_ s1Yq;
+I_ s1GN_;
FB_
HEAP_CHK(0,(_FHS+1),0);
{
CALLER_RESTORE_HpLim
CALLER_RESTORE_StdUpdRetVec
CALLER_RESTORE_StkStub
- s1Yq=_ccall_result;
+ s1GN_=_ccall_result;
}
SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
- *Hp=(W_)(s1Yq);
+ *Hp=(W_)(s1GN_);
R4.p=STBase_SZh_static_closure;
R3.p=Hp-_FHS;
SpB=SpB-1;
JMP_(DIRECT((StgRetAddr)(SpB[1])));
FE_
}
-UNVECTBL(static,vtbl_c2bg,ret_c2bg)
-IFN_(ret_c2bf) {
+UNVECTBL(static,vtbl_c1R3,ret_c1R3)
+IFN_(ret_c1R2) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bg,vtbl_c2bg);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R3,vtbl_c1R3);
R1.p=*SpA;
SpA=SpA+1;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bf,ret_c2bf)
-SPEC_N_ITBL(c2ac_info,c2ac_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
-IFN_(c2ac_entry) {
-IF_(c2ac_fast1);
+UNVECTBL(static,vtbl_c1R2,ret_c1R2)
+SPEC_N_ITBL(c1Qp_info,c1Qp_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
+IFN_(c1Qp_entry) {
+IF_(c1Qp_fast1);
FB_
ARGS_CHK_A(1);
R2.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(c2ac_fast1);
+ JMP_(c1Qp_fast1);
FE_
}
-IFN_(c2ac_fast1) {
+IFN_(c1Qp_fast1) {
FB_
STK_CHK(3,1,1,0,0,0,1);
SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2bf,vtbl_c2bf);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R2,vtbl_c1R2);
SpA[-1]=(P_)(R1.p[_FHS]);
R1=R2;
SpA=SpA-1;
FE_
}
FN_(Test_b_fast1) {
-ID_RO_(c2ac_info);
-IF_(c2ac_entry);
+ID_RO_(c1Qp_info);
+IF_(c1Qp_entry);
FB_
HEAP_CHK(1,(_FHS+1),0);
- SET_SPEC_HDR(Hp-_FHS,c2ac_info,0,1,1);
+ SET_SPEC_HDR(Hp-_FHS,c1Qp_info,0,1,1);
*Hp=(W_)(R1.p);
R1.p=Hp-_FHS;
GRAN_EXEC(5,2,0,2,0);
- JMP_(c2ac_entry);
+ JMP_(c1Qp_entry);
FE_
}
SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_)
};
-IFN_(ret_c2bm) {
+IFN_(ret_c1R9) {
ED_RO_(PrelBase_FZh_con_info);
ED_(STBase_SZh_static_closure);
ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-StgFloat s20f;
+StgFloat s1IC_;
FB_
HEAP_CHK(0,(_FHS+1),0);
{
CALLER_RESTORE_HpLim
CALLER_RESTORE_StdUpdRetVec
CALLER_RESTORE_StkStub
- s20f=_ccall_result;
+ s1IC_=_ccall_result;
}
SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
- ASSIGN_FLT(Hp,s20f);
+ ASSIGN_FLT(Hp,s1IC_);
R4.p=STBase_SZh_static_closure;
R3.p=Hp-_FHS;
SpB=SpB-4;
JMP_(DIRECT((StgRetAddr)(SpB[1])));
FE_
}
-UNVECTBL(static,vtbl_c2bm,ret_c2bm)
-IFN_(ret_c2bl) {
+UNVECTBL(static,vtbl_c1R9,ret_c1R9)
+IFN_(ret_c1R8) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bm,vtbl_c2bm);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R9,vtbl_c1R9);
R1.p=*SpA;
ASSIGN_FLT(SpB+1,FltReg1);
SpA=SpA+4;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bl,ret_c2bl)
-IFN_(ret_c2bk) {
+UNVECTBL(static,vtbl_c1R8,ret_c1R8)
+IFN_(ret_c1R7) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bl,vtbl_c2bl);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R8,vtbl_c1R8);
R1.p=SpA[1];
SpB[1]=(W_)(R3.c);
SpA[1]=StkStubReg;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bk,ret_c2bk)
-IFN_(ret_c2bj) {
+UNVECTBL(static,vtbl_c1R7,ret_c1R7)
+IFN_(ret_c1R6) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bk,vtbl_c2bk);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R7,vtbl_c1R7);
R1.p=SpA[2];
SpB[1]=(W_)(R3.i);
SpA[2]=StkStubReg;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bj,ret_c2bj)
-IFN_(ret_c2bi) {
+UNVECTBL(static,vtbl_c1R6,ret_c1R6)
+IFN_(ret_c1R5) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bj,vtbl_c2bj);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R6,vtbl_c1R6);
R1.p=SpA[3];
SpA[3]=StkStubReg;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bi,ret_c2bi)
-SPEC_N_ITBL(c29C_info,c29C_entry,StdErrorCode,1,-1,4,4,static const,IF_,0,0,0);
-IFN_(c29C_entry) {
-IF_(c29C_fast1);
+UNVECTBL(static,vtbl_c1R5,ret_c1R5)
+SPEC_N_ITBL(c1PP_info,c1PP_entry,StdErrorCode,1,-1,4,4,static const,IF_,0,0,0);
+IFN_(c1PP_entry) {
+IF_(c1PP_fast1);
FB_
ARGS_CHK_A(1);
R2.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(c29C_fast1);
+ JMP_(c1PP_fast1);
FE_
}
-IFN_(c29C_fast1) {
+IFN_(c1PP_fast1) {
FB_
STK_CHK(3,4,4,0,0,0,1);
SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2bi,vtbl_c2bi);
+ RetReg=(StgRetAddr)UNVEC(ret_c1R5,vtbl_c1R5);
SpA[-4]=(P_)(R1.p[(_FHS+3)]);
SpA[-3]=(P_)(R1.p[(_FHS+2)]);
SpA[-2]=(P_)(R1.p[(_FHS+1)]);
FE_
}
FN_(Test_c_fast4) {
-ID_RO_(c29C_info);
-IF_(c29C_entry);
+ID_RO_(c1PP_info);
+IF_(c1PP_entry);
FB_
HEAP_CHK(15,(_FHS+4),0);
- SET_SPEC_HDR(Hp-(_FHS+3),c29C_info,0,4,4);
+ SET_SPEC_HDR(Hp-(_FHS+3),c1PP_info,0,4,4);
Hp[-3]=(W_)(R1.p);
Hp[-2]=(W_)(R2.p);
Hp[-1]=(W_)(R3.p);
*Hp=(W_)(R4.p);
R1.p=Hp-(_FHS+3);
GRAN_EXEC(5,2,0,5,0);
- JMP_(c29C_entry);
+ JMP_(c1PP_entry);
FE_
}
SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_)
};
-IFN_(ret_c2bp) {
-ED_RO_(PrelBase_IZh_con_info);
-ED_(STBase_SZh_static_closure);
-ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-I_ s21I;
- FB_
- HEAP_CHK(0,(_FHS+1),0);
- {
- I_ _ccall_result;
- I_ _ccall_arg1=R3.i;
- CALLER_SAVE_Base
- CALLER_SAVE_SpA
- CALLER_SAVE_SuA
- CALLER_SAVE_SpB
- CALLER_SAVE_SuB
- CALLER_SAVE_Ret
- CALLER_SAVE_Hp
- CALLER_SAVE_HpLim
- _ccall_result = (b((_ccall_arg1)));
- CALLER_RESTORE_Base
- CALLER_RESTORE_SpA
- CALLER_RESTORE_SuA
- CALLER_RESTORE_SpB
- CALLER_RESTORE_SuB
- CALLER_RESTORE_Ret
- CALLER_RESTORE_Hp
- CALLER_RESTORE_HpLim
- CALLER_RESTORE_StdUpdRetVec
- CALLER_RESTORE_StkStub
- s21I=_ccall_result;
- }
- SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
- *Hp=(W_)(s21I);
- R4.p=STBase_SZh_static_closure;
- R3.p=Hp-_FHS;
- SpB=SpB-1;
- R2.d=PrelTup_Z40Z44Z41_inregs_info;
- GRAN_EXEC(10,2,22,22,0);
- JMP_(DIRECT((StgRetAddr)(SpB[1])));
- FE_
-}
-UNVECTBL(static,vtbl_c2bp,ret_c2bp)
-IFN_(ret_c2bo) {
- FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bp,vtbl_c2bp);
- R1.p=*SpA;
- SpA=SpA+1;
- ENT_VIA_NODE();
- GRAN_EXEC(3,1,2,1,0);
- JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
- FE_
-}
-UNVECTBL(static,vtbl_c2bo,ret_c2bo)
-SPEC_N_ITBL(s22a_info,s22a_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
-IFN_(s22a_entry) {
-IF_(s22a_fast1);
- FB_
- ARGS_CHK_A(1);
- R2.p=*SpA;
- SpA=SpA+1;
- GRAN_EXEC(5,2,1,0,0);
- JMP_(s22a_fast1);
- FE_
-}
-IFN_(s22a_fast1) {
- FB_
- STK_CHK(3,1,1,0,0,0,1);
- SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2bo,vtbl_c2bo);
- SpA[-1]=(P_)(R1.p[_FHS]);
- R1=R2;
- SpA=SpA-1;
- SpB=SpB+1;
- ENT_VIA_NODE();
- GRAN_EXEC(5,1,2,2,0);
- JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
- FE_
-}
-IFN_(ret_c2bs) {
+IFN_(ret_c1Rc) {
ED_RO_(PrelBase_IZh_con_info);
ED_(STBase_SZh_static_closure);
ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-I_ s22U;
+I_ s1K9_;
FB_
HEAP_CHK(0,(_FHS+1),0);
{
CALLER_RESTORE_HpLim
CALLER_RESTORE_StdUpdRetVec
CALLER_RESTORE_StkStub
- s22U=_ccall_result;
+ s1K9_=_ccall_result;
}
SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
- *Hp=(W_)(s22U);
+ *Hp=(W_)(s1K9_);
R4.p=STBase_SZh_static_closure;
R3.p=Hp-_FHS;
SpB=SpB-1;
JMP_(DIRECT((StgRetAddr)(SpB[1])));
FE_
}
-UNVECTBL(static,vtbl_c2bs,ret_c2bs)
-IFN_(ret_c2br) {
+UNVECTBL(static,vtbl_c1Rc,ret_c1Rc)
+IFN_(ret_c1Rb) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bs,vtbl_c2bs);
+ RetReg=(StgRetAddr)UNVEC(ret_c1Rc,vtbl_c1Rc);
R1.p=*SpA;
SpA=SpA+1;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2br,ret_c2br)
-SPEC_N_ITBL(s23h_info,s23h_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
-IFN_(s23h_entry) {
-IF_(s23h_fast1);
+UNVECTBL(static,vtbl_c1Rb,ret_c1Rb)
+SPEC_N_ITBL(s1KM_info,s1KM_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
+IFN_(s1KM_entry) {
+IF_(s1KM_fast1);
FB_
ARGS_CHK_A(1);
R2.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(s23h_fast1);
+ JMP_(s1KM_fast1);
FE_
}
-IFN_(s23h_fast1) {
+IFN_(s1KM_fast1) {
FB_
STK_CHK(3,1,1,0,0,0,1);
SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2br,vtbl_c2br);
+ RetReg=(StgRetAddr)UNVEC(ret_c1Rb,vtbl_c1Rb);
SpA[-1]=(P_)(R1.p[_FHS]);
R1=R2;
SpA=SpA-1;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-IFN_(ret_c2bx) {
+IFN_(ret_c1Rh) {
ED_RO_(PrelBase_FZh_con_info);
ED_(STBase_SZh_static_closure);
ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
-StgFloat s24u;
+StgFloat s1LF_;
FB_
HEAP_CHK(0,(_FHS+1),0);
{
CALLER_RESTORE_HpLim
CALLER_RESTORE_StdUpdRetVec
CALLER_RESTORE_StkStub
- s24u=_ccall_result;
+ s1LF_=_ccall_result;
}
SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
- ASSIGN_FLT(Hp,s24u);
+ ASSIGN_FLT(Hp,s1LF_);
R4.p=STBase_SZh_static_closure;
R3.p=Hp-_FHS;
SpB=SpB-3;
JMP_(DIRECT((StgRetAddr)(SpB[1])));
FE_
}
-UNVECTBL(static,vtbl_c2bx,ret_c2bx)
-IFN_(ret_c2bw) {
-ID_(a19u_closure);
+UNVECTBL(static,vtbl_c1Rh,ret_c1Rh)
+IFN_(ret_c1Rg) {
+ID_(a15t_closure);
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bx,vtbl_c2bx);
- R1.p=a19u_closure;
+ RetReg=(StgRetAddr)UNVEC(ret_c1Rh,vtbl_c1Rh);
+ R1.p=a15t_closure;
ASSIGN_FLT(SpB+1,FltReg1);
SpB=SpB+1;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bw,ret_c2bw)
-IFN_(ret_c2bv) {
-ID_(a19w_closure);
+UNVECTBL(static,vtbl_c1Rg,ret_c1Rg)
+IFN_(ret_c1Rf) {
+ID_(a15r_closure);
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bw,vtbl_c2bw);
- R1.p=a19w_closure;
+ RetReg=(StgRetAddr)UNVEC(ret_c1Rg,vtbl_c1Rg);
+ R1.p=a15r_closure;
SpB[1]=(W_)(R3.i);
SpB=SpB+1;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bv,ret_c2bv)
-IFN_(ret_c2bu) {
+UNVECTBL(static,vtbl_c1Rf,ret_c1Rf)
+IFN_(ret_c1Re) {
FB_
- RetReg=(StgRetAddr)UNVEC(ret_c2bv,vtbl_c2bv);
+ RetReg=(StgRetAddr)UNVEC(ret_c1Rf,vtbl_c1Rf);
R1.p=*SpA;
SpA=SpA+1;
ENT_VIA_NODE();
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-UNVECTBL(static,vtbl_c2bu,ret_c2bu)
-SPEC_N_ITBL(c28E_info,c28E_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
-IFN_(c28E_entry) {
-IF_(c28E_fast1);
+UNVECTBL(static,vtbl_c1Re,ret_c1Re)
+SPEC_N_ITBL(c1OR_info,c1OR_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
+IFN_(c1OR_entry) {
+IF_(c1OR_fast1);
FB_
ARGS_CHK_A(1);
R2.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(c28E_fast1);
+ JMP_(c1OR_fast1);
FE_
}
-IFN_(c28E_fast1) {
+IFN_(c1OR_fast1) {
FB_
STK_CHK(3,1,3,0,0,0,1);
SpB[1]=(W_)(RetReg);
- RetReg=(StgRetAddr)UNVEC(ret_c2bu,vtbl_c2bu);
+ RetReg=(StgRetAddr)UNVEC(ret_c1Re,vtbl_c1Re);
SpA[-1]=(P_)(R1.p[_FHS]);
R1=R2;
SpA=SpA-1;
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-SPEC_N_ITBL(s24V_info,s24V_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
-IFN_(s24V_entry) {
-IF_(s24V_fast1);
+SPEC_N_ITBL(s1M6_info,s1M6_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
+IFN_(s1M6_entry) {
+IF_(s1M6_fast1);
FB_
ARGS_CHK_A(1);
R2.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(s24V_fast1);
+ JMP_(s1M6_fast1);
FE_
}
-IFN_(s24V_fast1) {
-ID_RO_(c28E_info);
-IF_(c28E_entry);
+IFN_(s1M6_fast1) {
+ID_RO_(c1OR_info);
+IF_(c1OR_entry);
FB_
HEAP_CHK(3,(_FHS+1),1);
- SET_SPEC_HDR(Hp-_FHS,c28E_info,0,1,1);
+ SET_SPEC_HDR(Hp-_FHS,c1OR_info,0,1,1);
*Hp=(W_)(R2.p);
R1.p=Hp-_FHS;
GRAN_EXEC(5,2,0,2,0);
- JMP_(c28E_entry);
+ JMP_(c1OR_entry);
FE_
}
-SPEC_N_ITBL(s258_info,s258_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
-IFN_(s258_entry) {
-IF_(s258_fast1);
+SPEC_N_ITBL(s1Ma_info,s1Ma_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
+IFN_(s1Ma_entry) {
+IF_(s1Ma_fast1);
FB_
ARGS_CHK_A(1);
R2.p=*SpA;
SpA=SpA+1;
GRAN_EXEC(5,2,1,0,0);
- JMP_(s258_fast1);
+ JMP_(s1Ma_fast1);
FE_
}
-IFN_(s258_fast1) {
-ID_RO_(s22a_info);
-ID_RO_(s23h_info);
-ID_RO_(s24V_info);
+IFN_(s1Ma_fast1) {
+ID_RO_(s1KM_info);
+ID_RO_(s1M6_info);
ED_(STBase_thenPrimIO_closure);
FB_
STK_CHK(3,2,0,0,0,0,1);
- HEAP_CHK(3,((_FHS*3)+3),1);
- SET_SPEC_HDR(Hp-((_FHS*3)+2),s22a_info,0,1,1);
- Hp[-((_FHS*2)+2)]=(W_)(R2.p);
- SET_SPEC_HDR(Hp-((_FHS*2)+1),s23h_info,0,1,1);
+ HEAP_CHK(3,((_FHS*2)+2),1);
+ SET_SPEC_HDR(Hp-((_FHS*2)+1),s1KM_info,0,1,1);
Hp[-(_FHS+1)]=(W_)(R2.p);
- SET_SPEC_HDR(Hp-_FHS,s24V_info,0,1,0);
+ SET_SPEC_HDR(Hp-_FHS,s1M6_info,0,1,0);
SpA[-1]=Hp-_FHS;
SpA[-2]=Hp-((_FHS*2)+1);
R1.p=STBase_thenPrimIO_closure;
SpA=SpA-2;
ENT_VIA_NODE();
- GRAN_EXEC(11,2,3,7,0);
+ GRAN_EXEC(9,2,3,5,0);
JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
FE_
}
-STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,(STATIC_VHS+
- 2),0,const,EF_,0,0,0);
+STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,const,EF_,0,0,0);
FN_(Test_d_entry) {
-ID_RO_(s258_info);
-ID_(s1Xu_closure);
+ID_RO_(s1Ma_info);
+ED_(Test_a_closure);
ED_(STBase_thenPrimIO_closure);
FB_
STK_CHK(1,2,4,0,0,0,1);
SET_BH_HDR(Hp-(BH_HS+_FHS+2),BH_UPD_info,0,(BH_VHS+2),0);
UPD_CAF(R1.p,Hp-(BH_HS+_FHS+2));
PUSH_STD_UPD_FRAME(Hp-(BH_HS+_FHS+2),0,0);
- SET_SPEC_HDR(Hp-_FHS,s258_info,0,1,0);
+ SET_SPEC_HDR(Hp-_FHS,s1Ma_info,0,1,0);
SpA[-1]=Hp-_FHS;
- SpA[-2]=s1Xu_closure;
+ SpA[-2]=Test_a_closure;
RetReg=StdUpdRetVecReg;
R1.p=STBase_thenPrimIO_closure;
SpA=SpA-2;
projects / ghc-hetmet.git / blobdiff