Skip to content

Instantly share code, notes, and snippets.

@mpickering

mpickering/Asm.p_dyn.dump-simpl

Created February 3, 2025 19:03
Show Gist options
  • Save mpickering/5f92760d1c69b4acde3e0df79f8e9254 to your computer and use it in GitHub Desktop.
Save mpickering/5f92760d1c69b4acde3e0df79f8e9254 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Asm.p_dyn.dump-simpl
This file has been truncated, but you can view the full file.
==================== Tidy Core ====================
2025-02-03 18:16:15.857901962 UTC
Result size of Tidy Core
= {terms: 32,992, types: 28,369, coercions: 1,019, joins: 809/950}
-- RHS size: {terms: 6, types: 25, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$p1MonadAssembler [InlPrag=[~]]
:: forall (m :: * -> *). MonadAssembler m => Monad m
[GblId[ClassOp],
Arity=1,
Str=<S!P(SL,A,A,A,A)>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= \ (@(m_a7Xy :: * -> *))
(v_B1 [Occ=Once1!] :: MonadAssembler m_a7Xy) ->
case v_B1 of
{ GHC.ByteCode.Asm.C:MonadAssembler v2_B2 [Occ=Once1] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
v2_B2
}}]
GHC.ByteCode.Asm.$p1MonadAssembler
= \ (@(m_a7Xy :: * -> *)) (v_B1 :: MonadAssembler m_a7Xy) ->
case v_B1 of v1_B1
{ GHC.ByteCode.Asm.C:MonadAssembler v2_B2 v3_B3 v4_B4 v5_B5
v6_B6 ->
v2_B2
}
-- RHS size: {terms: 6, types: 25, coercions: 0, joins: 0/0}
ioptr [InlPrag=[~]]
:: forall (m :: * -> *). MonadAssembler m => IO BCOPtr -> m Word
[GblId[ClassOp],
Arity=1,
Str=<S!P(A,SL,A,A,A)>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= \ (@(m_a7Xy :: * -> *))
(v_B1 [Occ=Once1!] :: MonadAssembler m_a7Xy) ->
case v_B1 of
{ GHC.ByteCode.Asm.C:MonadAssembler _ [Occ=Dead] v3_B3 [Occ=Once1]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
v3_B3
}}]
ioptr
= \ (@(m_a7Xy :: * -> *)) (v_B1 :: MonadAssembler m_a7Xy) ->
case v_B1 of v1_B1
{ GHC.ByteCode.Asm.C:MonadAssembler v2_B2 v3_B3 v4_B4 v5_B5
v6_B6 ->
v3_B3
}
-- RHS size: {terms: 6, types: 25, coercions: 0, joins: 0/0}
lit [InlPrag=[~]]
:: forall (m :: * -> *). MonadAssembler m => [BCONPtr] -> m Word
[GblId[ClassOp],
Arity=1,
Str=<S!P(A,A,SL,A,A)>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= \ (@(m_a7Xy :: * -> *))
(v_B1 [Occ=Once1!] :: MonadAssembler m_a7Xy) ->
case v_B1 of
{ GHC.ByteCode.Asm.C:MonadAssembler _ [Occ=Dead] _ [Occ=Dead]
v4_B4 [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] ->
v4_B4
}}]
lit
= \ (@(m_a7Xy :: * -> *)) (v_B1 :: MonadAssembler m_a7Xy) ->
case v_B1 of v1_B1
{ GHC.ByteCode.Asm.C:MonadAssembler v2_B2 v3_B3 v4_B4 v5_B5
v6_B6 ->
v4_B4
}
-- RHS size: {terms: 6, types: 25, coercions: 0, joins: 0/0}
label [InlPrag=[~]]
:: forall (m :: * -> *). MonadAssembler m => LocalLabel -> m ()
[GblId[ClassOp],
Arity=1,
Str=<S!P(A,A,A,SL,A)>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= \ (@(m_a7Xy :: * -> *))
(v_B1 [Occ=Once1!] :: MonadAssembler m_a7Xy) ->
case v_B1 of
{ GHC.ByteCode.Asm.C:MonadAssembler _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] v5_B5 [Occ=Once1] _ [Occ=Dead] ->
v5_B5
}}]
label
= \ (@(m_a7Xy :: * -> *)) (v_B1 :: MonadAssembler m_a7Xy) ->
case v_B1 of v1_B1
{ GHC.ByteCode.Asm.C:MonadAssembler v2_B2 v3_B3 v4_B4 v5_B5
v6_B6 ->
v5_B5
}
-- RHS size: {terms: 6, types: 25, coercions: 0, joins: 0/0}
emit [InlPrag=[~]]
:: forall (m :: * -> *).
MonadAssembler m =>
PlatformWordSize -> Word16 -> [Operand] -> m ()
[GblId[ClassOp],
Arity=1,
Str=<S!P(A,A,A,A,SL)>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= \ (@(m_a7Xy :: * -> *))
(v_B1 [Occ=Once1!] :: MonadAssembler m_a7Xy) ->
case v_B1 of
{ GHC.ByteCode.Asm.C:MonadAssembler _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] v6_B6 [Occ=Once1] ->
v6_B6
}}]
emit
= \ (@(m_a7Xy :: * -> *)) (v_B1 :: MonadAssembler m_a7Xy) ->
case v_B1 of v1_B1
{ GHC.ByteCode.Asm.C:MonadAssembler v2_B2 v3_B3 v4_B4 v5_B5
v6_B6 ->
v6_B6
}
-- RHS size: {terms: 18, types: 10, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$WInspectState [InlPrag=INLINE[final] CONLIKE]
:: Word %1 -> Word %1 -> Word %1 -> LabelEnvMap %1 -> InspectState
[GblId[DataConWrapper],
Arity=4,
Str=<SL><SL><SL><L>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=False)
Tmpl= \ (conrep_afas [Occ=Once1!] :: Word)
(conrep1_afat [Occ=Once1!] :: Word)
(conrep2_afau [Occ=Once1!] :: Word)
(conrep3_afav [Occ=Once1] :: LabelEnvMap) ->
case conrep_afas of { W# unbx_afaw [Occ=Once1] ->
case conrep1_afat of { W# unbx1_afax [Occ=Once1] ->
case conrep2_afau of { W# unbx2_afay [Occ=Once1] ->
GHC.ByteCode.Asm.InspectState
unbx_afaw unbx1_afax unbx2_afay conrep3_afav
}
}
}}]
GHC.ByteCode.Asm.$WInspectState
= \ (conrep_afas [Occ=Once1!] :: Word)
(conrep1_afat [Occ=Once1!] :: Word)
(conrep2_afau [Occ=Once1!] :: Word)
(conrep3_afav [Occ=Once1] :: LabelEnvMap) ->
case conrep_afas of { W# unbx_afaw [Occ=Once1] ->
case conrep1_afat of { W# unbx1_afax [Occ=Once1] ->
case conrep2_afau of { W# unbx2_afay [Occ=Once1] ->
GHC.ByteCode.Asm.InspectState
unbx_afaw unbx1_afax unbx2_afay conrep3_afav
}
}
}
-- RHS size: {terms: 19, types: 21, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$WAsmState [InlPrag=INLINE[final] CONLIKE]
:: SizedSeq Word16
%1 -> SizedSeq BCONPtr %1 -> SizedSeq BCOPtr %1 -> AsmState
[GblId[DataConWrapper],
Arity=3,
Str=<SL><SL><SL>,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=False)
Tmpl= \ (conrep_af8n [Occ=Once1!] :: SizedSeq Word16)
(conrep1_af8o [Occ=Once1!] :: SizedSeq BCONPtr)
(conrep2_af8p [Occ=Once1!] :: SizedSeq BCOPtr) ->
case conrep_af8n of
{ SizedSeq unbx_af8q [Occ=Once1] unbx1_af8r [Occ=Once1] ->
case conrep1_af8o of
{ SizedSeq unbx2_af8s [Occ=Once1] unbx3_af8t [Occ=Once1] ->
case conrep2_af8p of
{ SizedSeq unbx4_af8u [Occ=Once1] unbx5_af8v [Occ=Once1] ->
GHC.ByteCode.Asm.AsmState
unbx_af8q unbx1_af8r unbx2_af8s unbx3_af8t unbx4_af8u unbx5_af8v
}
}
}}]
GHC.ByteCode.Asm.$WAsmState
= \ (conrep_af8n [Occ=Once1!] :: SizedSeq Word16)
(conrep1_af8o [Occ=Once1!] :: SizedSeq BCONPtr)
(conrep2_af8p [Occ=Once1!] :: SizedSeq BCOPtr) ->
case conrep_af8n of
{ SizedSeq unbx_af8q [Occ=Once1] unbx1_af8r [Occ=Once1] ->
case conrep1_af8o of
{ SizedSeq unbx2_af8s [Occ=Once1] unbx3_af8t [Occ=Once1] ->
case conrep2_af8p of
{ SizedSeq unbx4_af8u [Occ=Once1] unbx5_af8v [Occ=Once1] ->
GHC.ByteCode.Asm.AsmState
unbx_af8q unbx1_af8r unbx2_af8s unbx3_af8t unbx4_af8u unbx5_af8v
}
}
}
Rec {
-- RHS size: {terms: 58, types: 37, coercions: 9, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$s$sgo8 [Occ=LoopBreaker]
:: forall a1.
Word32# -> a1 -> Map LocalLabel a1 -> Map LocalLabel a1
[GblId[StrictWorker([~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$s$sgo8
= \ (@a2_aiAp)
(sc_ss4S :: Word32#)
(x_aiAs :: a2_aiAp)
(ds_aiAt :: Map LocalLabel a2_aiAp) ->
case x_aiAs of x1_aiAv { __DEFAULT ->
case ds_aiAt of {
Data.Map.Internal.Bin ipv_aiAx ipv1_aiAy ipv2_aiAz ipv3_aiAA
ipv4_aiAB ->
case ipv1_aiAy
`cast` (GHC.ByteCode.Instr.N:LocalLabel :: LocalLabel ~R# Word32)
of wild1_sqOn
{ ghc-internal:GHC.Internal.Word.W32# y_sqOo ->
case eqWord# (word32ToWord# sc_ss4S) (word32ToWord# y_sqOo) of {
__DEFAULT ->
case leWord32# sc_ss4S y_sqOo of {
__DEFAULT ->
Data.Map.Internal.balanceR
@LocalLabel
@a2_aiAp
(wild1_sqOn
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
ipv2_aiAz
ipv3_aiAA
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$s$sgo8
@a2_aiAp sc_ss4S x1_aiAv ipv4_aiAB);
1# ->
Data.Map.Internal.balanceL
@LocalLabel
@a2_aiAp
(wild1_sqOn
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
ipv2_aiAz
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$s$sgo8
@a2_aiAp sc_ss4S x1_aiAv ipv3_aiAA)
ipv4_aiAB
};
1# ->
Data.Map.Internal.Bin
@LocalLabel
@a2_aiAp
ipv_aiAx
((ghc-internal:GHC.Internal.Word.W32# sc_ss4S)
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
x1_aiAv
ipv3_aiAA
ipv4_aiAB
}
};
Data.Map.Internal.Tip ->
Data.Map.Internal.Bin
@LocalLabel
@a2_aiAp
1#
((ghc-internal:GHC.Internal.Word.W32# sc_ss4S)
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
x1_aiAv
(Data.Map.Internal.Tip @LocalLabel @a2_aiAp)
(Data.Map.Internal.Tip @LocalLabel @a2_aiAp)
}
}
end Rec }
-- RHS size: {terms: 59, types: 39, coercions: 10, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$sgo8
:: forall a1.
LocalLabel -> a1 -> Map LocalLabel a1 -> Map LocalLabel a1
[GblId,
Arity=3,
Str=<1L><1L><1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [20 20 40] 294 20}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$sgo8
= \ (@a2_aiAp)
(kx_aiAr :: LocalLabel)
(x_aiAs :: a2_aiAp)
(ds_aiAt :: Map LocalLabel a2_aiAp) ->
case kx_aiAr
`cast` (GHC.ByteCode.Instr.N:LocalLabel :: LocalLabel ~R# Word32)
of nt_sliZ
{ ghc-internal:GHC.Internal.Word.W32# ipv_sluv ->
case x_aiAs of x1_aiAv { __DEFAULT ->
case ds_aiAt of {
Data.Map.Internal.Bin ipv1_aiAx ipv2_aiAy ipv3_aiAz ipv4_aiAA
ipv5_aiAB ->
case ipv2_aiAy
`cast` (GHC.ByteCode.Instr.N:LocalLabel :: LocalLabel ~R# Word32)
of wild1_sqOn
{ ghc-internal:GHC.Internal.Word.W32# y_sqOo ->
case eqWord# (word32ToWord# ipv_sluv) (word32ToWord# y_sqOo) of {
__DEFAULT ->
case leWord32# ipv_sluv y_sqOo of {
__DEFAULT ->
Data.Map.Internal.balanceR
@LocalLabel
@a2_aiAp
(wild1_sqOn
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
ipv3_aiAz
ipv4_aiAA
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$s$sgo8
@a2_aiAp ipv_sluv x1_aiAv ipv5_aiAB);
1# ->
Data.Map.Internal.balanceL
@LocalLabel
@a2_aiAp
(wild1_sqOn
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
ipv3_aiAz
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$s$sgo8
@a2_aiAp ipv_sluv x1_aiAv ipv4_aiAA)
ipv5_aiAB
};
1# ->
Data.Map.Internal.Bin
@LocalLabel
@a2_aiAp
ipv1_aiAx
(nt_sliZ
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
x1_aiAv
ipv4_aiAA
ipv5_aiAB
}
};
Data.Map.Internal.Tip ->
Data.Map.Internal.Bin
@LocalLabel
@a2_aiAp
1#
(nt_sliZ
`cast` (Sym GHC.ByteCode.Instr.N:LocalLabel
:: Word32 ~R# LocalLabel))
x1_aiAv
(Data.Map.Internal.Tip @LocalLabel @a2_aiAp)
(Data.Map.Internal.Tip @LocalLabel @a2_aiAp)
}
}
}
-- RHS size: {terms: 20, types: 30, coercions: 2, joins: 0/0}
GHC.ByteCode.Asm.$fFunctorRunAsm2
:: forall a b.
(a -> b)
-> RunAsm a
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #)
[GblId,
Arity=6,
Str=<MC(1,L)><1C(1,C(1,C(1,C(1,L))))><L><L><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=6,unsat_ok=True,boring_ok=True)}]
GHC.ByteCode.Asm.$fFunctorRunAsm2
= \ (@a2_ahip)
(@b_ahiq)
(f_a8Rr :: a2_ahip -> b_ahiq)
(ds_dibb :: RunAsm a2_ahip)
(b1_a8Rt :: Bool)
(c2_a8Ru :: LabelEnv)
(s_a8Rv :: State# RealWorld)
(a3_a8Rw :: AsmState) ->
case (ds_dibb
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahip>_R
:: RunAsm a2_ahip
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahip #))))
b1_a8Rt c2_a8Ru s_a8Rv a3_a8Rw
of
{ (# ipv_sieY, ipv1_sieZ, ipv2_sif0 #) ->
(# ipv_sieY, ipv1_sieZ, f_a8Rr ipv2_sif0 #)
}
-- RHS size: {terms: 19, types: 29, coercions: 2, joins: 0/0}
GHC.ByteCode.Asm.$fFunctorRunAsm1
:: forall a b.
a
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a #)
[GblId,
Arity=6,
Str=<L><1C(1,C(1,C(1,C(1,P(L,L,A)))))><L><L><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=6,unsat_ok=True,boring_ok=True)}]
GHC.ByteCode.Asm.$fFunctorRunAsm1
= \ (@a2_ahiL)
(@b_ahiM)
(eta_aieC :: a2_ahiL)
(ds_dibb :: RunAsm b_ahiM)
(b1_a8Rt :: Bool)
(c2_a8Ru :: LabelEnv)
(s_a8Rv :: State# RealWorld)
(a3_a8Rw :: AsmState) ->
case (ds_dibb
`cast` (GHC.ByteCode.Asm.N:RunAsm <b_ahiM>_R
:: RunAsm b_ahiM
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b_ahiM #))))
b1_a8Rt c2_a8Ru s_a8Rv a3_a8Rw
of
{ (# ipv_sieY, ipv1_sieZ, _ [Occ=Dead] #) ->
(# ipv_sieY, ipv1_sieZ, eta_aieC #)
}
-- RHS size: {terms: 3, types: 1, coercions: 29, joins: 0/0}
GHC.ByteCode.Asm.$fFunctorRunAsm [InlPrag=CONLIKE]
:: Functor RunAsm
[GblId[DFunId],
Unf=DFun: \ ->
ghc-internal:GHC.Internal.Base.C:Functor TYPE: RunAsm
GHC.ByteCode.Asm.$fFunctorRunAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2 -> b>_R
%<Many>_N ->_R <RunAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<b>_R)
:: (forall a2 b.
(a2 -> b)
-> RunAsm a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b.
(a2 -> b) -> RunAsm a2 -> RunAsm b))
GHC.ByteCode.Asm.$fFunctorRunAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<a2>_R)
:: (forall a2 b.
a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #))
~R# (forall a2 b.
a2 -> RunAsm b -> RunAsm a2))]
GHC.ByteCode.Asm.$fFunctorRunAsm
= ghc-internal:GHC.Internal.Base.C:Functor
@RunAsm
(GHC.ByteCode.Asm.$fFunctorRunAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2 -> b>_R
%<Many>_N ->_R <RunAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
(a2 -> b)
-> RunAsm a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. (a2 -> b) -> RunAsm a2 -> RunAsm b)))
(GHC.ByteCode.Asm.$fFunctorRunAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <a2>_R)
:: (forall a2 b.
a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #))
~R# (forall a2 b. a2 -> RunAsm b -> RunAsm a2)))
-- RHS size: {terms: 30, types: 55, coercions: 21, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeRunAsm_$c<*> [InlPrag=INLINE (sat-args=2)]
:: forall a b. RunAsm (a -> b) -> RunAsm a -> RunAsm b
[GblId,
Arity=6,
Str=<1C(1,C(1,C(1,C(1,P(L,L,MC(1,L))))))><MC(1,C(1,C(1,C(1,L))))><L><L><L><1L>,
Cpr=1,
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=False,boring_ok=False)
Tmpl= (\ (@a2_ahgZ)
(@b_ahh0)
(ds_diaV [Occ=Once1] :: RunAsm (a2_ahgZ -> b_ahh0))
(ds1_diaW [Occ=Once1] :: RunAsm a2_ahgZ)
(b1_a8Rh :: Bool)
(c2_a8Ri :: LabelEnv)
(s_a8Rj [Occ=Once1] :: State# RealWorld)
(a3_a8Rk [Occ=Once1!] :: AsmState) ->
case a3_a8Rk of a4_X0 [Occ=Once1]
{ AsmState _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
case (ds_diaV
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahgZ -> b_ahh0>_R
:: RunAsm (a2_ahgZ -> b_ahh0)
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahgZ -> b_ahh0 #))))
b1_a8Rh c2_a8Ri s_a8Rj a4_X0
of
{ (# ipv6_sifv [Occ=Once1], ipv7_sifw [Occ=Once1],
ipv8_sifx [Occ=Once1!] #) ->
case (ds1_diaW
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahgZ>_R
:: RunAsm a2_ahgZ
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahgZ #))))
b1_a8Rh c2_a8Ri ipv6_sifv ipv7_sifw
of
{ (# ipv9_sifz [Occ=Once1], ipv10_sifA [Occ=Once1],
ipv11_sifB [Occ=Once1] #) ->
(# ipv9_sifz, ipv10_sifA, ipv8_sifx ipv11_sifB #)
}
}
})
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm (a2 -> b)>_R
%<Many>_N ->_R <RunAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
RunAsm (a2 -> b)
-> RunAsm a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. RunAsm (a2 -> b) -> RunAsm a2 -> RunAsm b))}]
GHC.ByteCode.Asm.$fApplicativeRunAsm_$c<*>
= (\ (@a2_ahgZ)
(@b_ahh0)
(ds_diaV :: RunAsm (a2_ahgZ -> b_ahh0))
(ds1_diaW :: RunAsm a2_ahgZ)
(b1_a8Rh :: Bool)
(c2_a8Ri :: LabelEnv)
(s_a8Rj :: State# RealWorld)
(a3_a8Rk :: AsmState) ->
case a3_a8Rk of a4_X0
{ AsmState ipv_sif9 ipv1_sifa ipv2_sifb ipv3_sifc ipv4_sifd
ipv5_sife ->
case (ds_diaV
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahgZ -> b_ahh0>_R
:: RunAsm (a2_ahgZ -> b_ahh0)
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahgZ -> b_ahh0 #))))
b1_a8Rh c2_a8Ri s_a8Rj a4_X0
of
{ (# ipv6_sifg, ipv7_sifh, ipv8_sifi #) ->
case (ds1_diaW
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahgZ>_R
:: RunAsm a2_ahgZ
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahgZ #))))
b1_a8Rh c2_a8Ri ipv6_sifg ipv7_sifh
of
{ (# ipv9_sifk, ipv10_sifl, ipv11_sifm #) ->
(# ipv9_sifk, ipv10_sifl, ipv8_sifi ipv11_sifm #)
}
}
})
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm (a2 -> b)>_R
%<Many>_N ->_R <RunAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
RunAsm (a2 -> b)
-> RunAsm a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. RunAsm (a2 -> b) -> RunAsm a2 -> RunAsm b))
-- RHS size: {terms: 13, types: 24, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeRunAsm4
:: forall a.
a
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a #)
[GblId,
Arity=5,
Str=<L><A><A><L><1L>,
Cpr=1,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=5,unsat_ok=True,boring_ok=True)
Tmpl= \ (@a2_ahgH)
(x_a8Rc [Occ=Once1] :: a2_ahgH)
_ [Occ=Dead]
_ [Occ=Dead]
(s_a8Rd [Occ=Once1] :: State# RealWorld)
(a3_a8Re [Occ=Once1!] :: AsmState) ->
case a3_a8Re of a4_X0 [Occ=Once1]
{ AsmState _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
(# s_a8Rd, a4_X0, x_a8Rc #)
}}]
GHC.ByteCode.Asm.$fApplicativeRunAsm4
= \ (@a2_ahgH)
(x_a8Rc :: a2_ahgH)
_ [Occ=Dead]
_ [Occ=Dead]
(s_a8Rd :: State# RealWorld)
(a3_a8Re :: AsmState) ->
case a3_a8Re of a4_X0
{ AsmState ipv_sifD ipv1_sifE ipv2_sifF ipv3_sifG ipv4_sifH
ipv5_sifI ->
(# s_a8Rd, a4_X0, x_a8Rc #)
}
-- RHS size: {terms: 23, types: 33, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeRunAsm2
:: forall a b.
RunAsm a
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #)
[GblId,
Arity=6,
Str=<1C(1,C(1,C(1,C(1,P(L,L,A)))))><MC(1,C(1,C(1,C(1,L))))><L><L><L><1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0 0 20] 100 0}]
GHC.ByteCode.Asm.$fApplicativeRunAsm2
= \ (@a2_ahhQ)
(@b_ahhR)
(eta_aieI :: RunAsm a2_ahhQ)
(eta1_aieJ :: RunAsm b_ahhR)
(eta2_B0 :: Bool)
(eta3_B1 :: LabelEnv)
(eta4_B2 [OS=OneShot] :: State# RealWorld)
(eta5_B3 :: AsmState) ->
case eta5_B3 of a3_X0
{ AsmState ipv_sifo ipv1_sifp ipv2_sifq ipv3_sifr ipv4_sifs
ipv5_sift ->
case (eta_aieI
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahhQ>_R
:: RunAsm a2_ahhQ
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahhQ #))))
eta2_B0 eta3_B1 eta4_B2 a3_X0
of
{ (# ipv6_sieY, ipv7_sieZ, _ [Occ=Dead] #) ->
(eta1_aieJ
`cast` (GHC.ByteCode.Asm.N:RunAsm <b_ahhR>_R
:: RunAsm b_ahhR
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b_ahhR #))))
eta2_B0 eta3_B1 ipv6_sieY ipv7_sieZ
}
}
-- RHS size: {terms: 33, types: 56, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeRunAsm3
:: forall a b c.
(a -> b -> c)
-> RunAsm a
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, c #)
[GblId,
Arity=7,
Str=<MC(1,C(1,L))><1C(1,C(1,C(1,C(1,L))))><MC(1,C(1,C(1,C(1,L))))><L><L><L><1L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 60 0 0 0 20] 140 10}]
GHC.ByteCode.Asm.$fApplicativeRunAsm3
= \ (@a2_ahhx)
(@b_ahhy)
(@c2_ahhz)
(eta_aieW :: a2_ahhx -> b_ahhy -> c2_ahhz)
(eta1_aieX :: RunAsm a2_ahhx)
(eta2_B0 :: RunAsm b_ahhy)
(eta3_B1 :: Bool)
(eta4_B2 :: LabelEnv)
(eta5_B3 [OS=OneShot] :: State# RealWorld)
(eta6_B4 :: AsmState) ->
case eta6_B4 of a3_X0
{ AsmState ipv_sifo ipv1_sifp ipv2_sifq ipv3_sifr ipv4_sifs
ipv5_sift ->
case (eta1_aieX
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahhx>_R
:: RunAsm a2_ahhx
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahhx #))))
eta3_B1 eta4_B2 eta5_B3 a3_X0
of
{ (# ipv6_sieY, ipv7_sieZ, ipv8_sif0 #) ->
case (eta2_B0
`cast` (GHC.ByteCode.Asm.N:RunAsm <b_ahhy>_R
:: RunAsm b_ahhy
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b_ahhy #))))
eta3_B1 eta4_B2 ipv6_sieY ipv7_sieZ
of
{ (# ipv9_sifz, ipv10_sifA, ipv11_sifB #) ->
(# ipv9_sifz, ipv10_sifA, eta_aieW ipv8_sif0 ipv11_sifB #)
}
}
}
-- RHS size: {terms: 29, types: 52, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeRunAsm1
:: forall a b.
RunAsm a
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a #)
[GblId,
Arity=6,
Str=<1C(1,C(1,C(1,C(1,L))))><MC(1,C(1,C(1,C(1,P(L,L,A)))))><L><L><L><1L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0 0 20] 110 10}]
GHC.ByteCode.Asm.$fApplicativeRunAsm1
= \ (@a2_ahi6)
(@b_ahi7)
(eta1_aieX :: RunAsm a2_ahi6)
(eta_B0 :: RunAsm b_ahi7)
(eta2_B1 :: Bool)
(eta3_B2 :: LabelEnv)
(eta4_B3 [OS=OneShot] :: State# RealWorld)
(eta5_B4 :: AsmState) ->
case eta5_B4 of a3_X0
{ AsmState ipv_sifo ipv1_sifp ipv2_sifq ipv3_sifr ipv4_sifs
ipv5_sift ->
case (eta1_aieX
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahi6>_R
:: RunAsm a2_ahi6
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahi6 #))))
eta2_B1 eta3_B2 eta4_B3 a3_X0
of
{ (# ipv6_sieY, ipv7_sieZ, ipv8_sif0 #) ->
case (eta_B0
`cast` (GHC.ByteCode.Asm.N:RunAsm <b_ahi7>_R
:: RunAsm b_ahi7
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b_ahi7 #))))
eta2_B1 eta3_B2 ipv6_sieY ipv7_sieZ
of
{ (# ipv9_sifz, ipv10_sifA, _ [Occ=Dead] #) ->
(# ipv9_sifz, ipv10_sifA, ipv8_sif0 #)
}
}
}
-- RHS size: {terms: 7, types: 1, coercions: 60, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeRunAsm [InlPrag=CONLIKE]
:: Applicative RunAsm
[GblId[DFunId],
Unf=DFun: \ ->
ghc-internal:GHC.Internal.Base.C:Applicative TYPE: RunAsm
GHC.ByteCode.Asm.$fFunctorRunAsm
GHC.ByteCode.Asm.$fApplicativeRunAsm4
`cast` (forall (a2 :: <*>_N).
<a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<a2>_R)
:: (forall a2.
a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState,
a2 #))
~R# (forall a2. a2 -> RunAsm a2))
GHC.ByteCode.Asm.$fApplicativeRunAsm_$c<*>
GHC.ByteCode.Asm.$fApplicativeRunAsm3
`cast` (forall (a2 :: <*>_N) (b :: <*>_N) (c2 :: <*>_N).
<a2 -> b -> c2>_R
%<Many>_N ->_R <RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<c2>_R)
:: (forall a2 b c2.
(a2 -> b -> c2)
-> RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState,
c2 #))
~R# (forall a2 b c2.
(a2 -> b -> c2)
-> RunAsm a2
-> RunAsm b
-> RunAsm c2))
GHC.ByteCode.Asm.$fApplicativeRunAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<b>_R)
:: (forall a2 b.
RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState,
b #))
~R# (forall a2 b.
RunAsm a2
-> RunAsm b -> RunAsm b))
GHC.ByteCode.Asm.$fApplicativeRunAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<a2>_R)
:: (forall a2 b.
RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState,
a2 #))
~R# (forall a2 b.
RunAsm a2
-> RunAsm b -> RunAsm a2))]
GHC.ByteCode.Asm.$fApplicativeRunAsm
= ghc-internal:GHC.Internal.Base.C:Applicative
@RunAsm
GHC.ByteCode.Asm.$fFunctorRunAsm
(GHC.ByteCode.Asm.$fApplicativeRunAsm4
`cast` (forall (a2 :: <*>_N).
<a2>_R %<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <a2>_R)
:: (forall a2.
a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #))
~R# (forall a2. a2 -> RunAsm a2)))
GHC.ByteCode.Asm.$fApplicativeRunAsm_$c<*>
(GHC.ByteCode.Asm.$fApplicativeRunAsm3
`cast` (forall (a2 :: <*>_N) (b :: <*>_N) (c2 :: <*>_N).
<a2 -> b -> c2>_R
%<Many>_N ->_R <RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <c2>_R)
:: (forall a2 b c2.
(a2 -> b -> c2)
-> RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, c2 #))
~R# (forall a2 b c2.
(a2 -> b -> c2) -> RunAsm a2 -> RunAsm b -> RunAsm c2)))
(GHC.ByteCode.Asm.$fApplicativeRunAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. RunAsm a2 -> RunAsm b -> RunAsm b)))
(GHC.ByteCode.Asm.$fApplicativeRunAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <a2>_R)
:: (forall a2 b.
RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #))
~R# (forall a2 b. RunAsm a2 -> RunAsm b -> RunAsm a2)))
-- RHS size: {terms: 15, types: 19, coercions: 2, joins: 0/0}
GHC.ByteCode.Asm.$fFunctorInspectAsm2
:: forall a b.
(a -> b)
-> InspectAsm a
-> InspectEnv
-> InspectState
-> (# InspectState, b #)
[GblId,
Arity=4,
Str=<MC(1,L)><1C(1,C(1,L))><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0] 60 10}]
GHC.ByteCode.Asm.$fFunctorInspectAsm2
= \ (@a2_aheN)
(@b_aheO)
(f_a8Qw :: a2_aheN -> b_aheO)
(ds_dias :: InspectAsm a2_aheN)
(a3_a8Qy :: InspectEnv)
(b1_a8Qz :: InspectState) ->
case (ds_dias
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_aheN>_R
:: InspectAsm a2_aheN
~R# (InspectEnv -> InspectState -> (# InspectState, a2_aheN #))))
a3_a8Qy b1_a8Qz
of
{ (# ipv_sifP, ipv1_sifQ #) ->
(# ipv_sifP, f_a8Qw ipv1_sifQ #)
}
-- RHS size: {terms: 23, types: 30, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeInspectAsm3
:: forall a b c.
(a -> b -> c)
-> InspectAsm a
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, c #)
[GblId,
Arity=5,
Str=<MC(1,C(1,L))><1C(1,C(1,L))><1C(1,C(1,L))><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 60 0 0] 110 10}]
GHC.ByteCode.Asm.$fApplicativeInspectAsm3
= \ (@a2_ahdI)
(@b_ahdJ)
(@c2_ahdK)
(eta_aieW :: a2_ahdI -> b_ahdJ -> c2_ahdK)
(eta1_aieX :: InspectAsm a2_ahdI)
(eta2_B0 :: InspectAsm b_ahdJ)
(eta3_B1 :: InspectEnv)
(eta4_B2 :: InspectState) ->
case (eta1_aieX
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_ahdI>_R
:: InspectAsm a2_ahdI
~R# (InspectEnv -> InspectState -> (# InspectState, a2_ahdI #))))
eta3_B1 eta4_B2
of
{ (# ipv_sifP, ipv1_sifQ #) ->
case (eta2_B0
`cast` (GHC.ByteCode.Asm.N:InspectAsm <b_ahdJ>_R
:: InspectAsm b_ahdJ
~R# (InspectEnv -> InspectState -> (# InspectState, b_ahdJ #))))
eta3_B1 ipv_sifP
of
{ (# ipv2_sifX, ipv3_sifY #) ->
(# ipv2_sifX, eta_aieW ipv1_sifQ ipv3_sifY #)
}
}
-- RHS size: {terms: 14, types: 18, coercions: 2, joins: 0/0}
GHC.ByteCode.Asm.$fFunctorInspectAsm1
:: forall a b.
a
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, a #)
[GblId,
Arity=4,
Str=<L><1C(1,C(1,P(L,A)))><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=4,unsat_ok=True,boring_ok=True)}]
GHC.ByteCode.Asm.$fFunctorInspectAsm1
= \ (@a2_ahfg)
(@b_ahfh)
(eta_aieC :: a2_ahfg)
(ds_dias :: InspectAsm b_ahfh)
(a3_a8Qy :: InspectEnv)
(b1_a8Qz :: InspectState) ->
case (ds_dias
`cast` (GHC.ByteCode.Asm.N:InspectAsm <b_ahfh>_R
:: InspectAsm b_ahfh
~R# (InspectEnv -> InspectState -> (# InspectState, b_ahfh #))))
a3_a8Qy b1_a8Qz
of
{ (# ipv_sifP, _ [Occ=Dead] #) ->
(# ipv_sifP, eta_aieC #)
}
-- RHS size: {terms: 3, types: 1, coercions: 29, joins: 0/0}
GHC.ByteCode.Asm.$fFunctorInspectAsm [InlPrag=CONLIKE]
:: Functor InspectAsm
[GblId[DFunId],
Unf=DFun: \ ->
ghc-internal:GHC.Internal.Base.C:Functor TYPE: InspectAsm
GHC.ByteCode.Asm.$fFunctorInspectAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2 -> b>_R
%<Many>_N ->_R <InspectAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<b>_R)
:: (forall a2 b.
(a2 -> b)
-> InspectAsm a2
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
(a2 -> b)
-> InspectAsm a2 -> InspectAsm b))
GHC.ByteCode.Asm.$fFunctorInspectAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<a2>_R)
:: (forall a2 b.
a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, a2 #))
~R# (forall a2 b.
a2
-> InspectAsm b -> InspectAsm a2))]
GHC.ByteCode.Asm.$fFunctorInspectAsm
= ghc-internal:GHC.Internal.Base.C:Functor
@InspectAsm
(GHC.ByteCode.Asm.$fFunctorInspectAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2 -> b>_R
%<Many>_N ->_R <InspectAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <b>_R)
:: (forall a2 b.
(a2 -> b)
-> InspectAsm a2
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b. (a2 -> b) -> InspectAsm a2 -> InspectAsm b)))
(GHC.ByteCode.Asm.$fFunctorInspectAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <a2>_R)
:: (forall a2 b.
a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, a2 #))
~R# (forall a2 b. a2 -> InspectAsm b -> InspectAsm a2)))
-- RHS size: {terms: 20, types: 29, coercions: 5, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeInspectAsm4
:: forall a b.
InspectAsm (a -> b)
-> InspectAsm a
-> InspectEnv
-> InspectState
-> (# InspectState, b #)
[GblId,
Arity=4,
Str=<1C(1,C(1,P(L,MC(1,L))))><1C(1,C(1,L))><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0] 100 10}]
GHC.ByteCode.Asm.$fApplicativeInspectAsm4
= \ (@a2_ahd8)
(@b_ahd9)
(ds_dial :: InspectAsm (a2_ahd8 -> b_ahd9))
(ds1_diam :: InspectAsm a2_ahd8)
(a3_a8Qq :: InspectEnv)
(b1_a8Qr :: InspectState) ->
case (ds_dial
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_ahd8 -> b_ahd9>_R
:: InspectAsm (a2_ahd8 -> b_ahd9)
~R# (InspectEnv
-> InspectState -> (# InspectState, a2_ahd8 -> b_ahd9 #))))
a3_a8Qq b1_a8Qr
of
{ (# ipv_sifU, ipv1_sifV #) ->
case (ds1_diam
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_ahd8>_R
:: InspectAsm a2_ahd8
~R# (InspectEnv -> InspectState -> (# InspectState, a2_ahd8 #))))
a3_a8Qq ipv_sifU
of
{ (# ipv2_sifX, ipv3_sifY #) ->
(# ipv2_sifX, ipv1_sifV ipv3_sifY #)
}
}
-- RHS size: {terms: 7, types: 8, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeInspectAsm5
:: forall a.
a -> InspectEnv -> InspectState -> (# InspectState, a #)
[GblId,
Arity=3,
Str=<L><A><L>,
Cpr=1,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=True)
Tmpl= \ (@a2_ahcP)
(x_a8Qm [Occ=Once1] :: a2_ahcP)
_ [Occ=Dead]
(s_a8Qn [Occ=Once1] :: InspectState) ->
(# s_a8Qn, x_a8Qm #)}]
GHC.ByteCode.Asm.$fApplicativeInspectAsm5
= \ (@a2_ahcP)
(x_a8Qm :: a2_ahcP)
_ [Occ=Dead]
(s_a8Qn :: InspectState) ->
(# s_a8Qn, x_a8Qm #)
-- RHS size: {terms: 14, types: 15, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeInspectAsm2
:: forall a b.
InspectAsm a
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, b #)
[GblId,
Arity=4,
Str=<1C(1,C(1,P(L,A)))><1C(1,C(1,L))><L><L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0] 70 0}]
GHC.ByteCode.Asm.$fApplicativeInspectAsm2
= \ (@a2_ahe6)
(@b_ahe7)
(eta_aieI :: InspectAsm a2_ahe6)
(eta1_aieJ :: InspectAsm b_ahe7)
(eta2_B0 :: InspectEnv)
(eta3_B1 :: InspectState) ->
case (eta_aieI
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_ahe6>_R
:: InspectAsm a2_ahe6
~R# (InspectEnv -> InspectState -> (# InspectState, a2_ahe6 #))))
eta2_B0 eta3_B1
of
{ (# ipv_sifP, _ [Occ=Dead] #) ->
(eta1_aieJ
`cast` (GHC.ByteCode.Asm.N:InspectAsm <b_ahe7>_R
:: InspectAsm b_ahe7
~R# (InspectEnv -> InspectState -> (# InspectState, b_ahe7 #))))
eta2_B0 ipv_sifP
}
-- RHS size: {terms: 19, types: 26, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeInspectAsm1
:: forall a b.
InspectAsm a
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, a #)
[GblId,
Arity=4,
Str=<1C(1,C(1,L))><1C(1,C(1,P(L,A)))><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0] 80 10}]
GHC.ByteCode.Asm.$fApplicativeInspectAsm1
= \ (@a2_aher)
(@b_ahes)
(eta1_aieX :: InspectAsm a2_aher)
(eta_B0 :: InspectAsm b_ahes)
(eta2_B1 :: InspectEnv)
(eta3_B2 :: InspectState) ->
case (eta1_aieX
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_aher>_R
:: InspectAsm a2_aher
~R# (InspectEnv -> InspectState -> (# InspectState, a2_aher #))))
eta2_B1 eta3_B2
of
{ (# ipv_sifP, ipv1_sifQ #) ->
case (eta_B0
`cast` (GHC.ByteCode.Asm.N:InspectAsm <b_ahes>_R
:: InspectAsm b_ahes
~R# (InspectEnv -> InspectState -> (# InspectState, b_ahes #))))
eta2_B1 ipv_sifP
of
{ (# ipv2_sifX, _ [Occ=Dead] #) ->
(# ipv2_sifX, ipv1_sifQ #)
}
}
-- RHS size: {terms: 7, types: 1, coercions: 76, joins: 0/0}
GHC.ByteCode.Asm.$fApplicativeInspectAsm [InlPrag=CONLIKE]
:: Applicative InspectAsm
[GblId[DFunId],
Unf=DFun: \ ->
ghc-internal:GHC.Internal.Base.C:Applicative TYPE: InspectAsm
GHC.ByteCode.Asm.$fFunctorInspectAsm
GHC.ByteCode.Asm.$fApplicativeInspectAsm5
`cast` (forall (a2 :: <*>_N).
<a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<a2>_R)
:: (forall a2.
a2
-> InspectEnv
-> InspectState
-> (# InspectState, a2 #))
~R# (forall a2. a2 -> InspectAsm a2))
GHC.ByteCode.Asm.$fApplicativeInspectAsm4
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm (a2 -> b)>_R
%<Many>_N ->_R <InspectAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<b>_R)
:: (forall a2 b.
InspectAsm (a2 -> b)
-> InspectAsm a2
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
InspectAsm (a2 -> b)
-> InspectAsm a2
-> InspectAsm b))
GHC.ByteCode.Asm.$fApplicativeInspectAsm3
`cast` (forall (a2 :: <*>_N) (b :: <*>_N) (c2 :: <*>_N).
<a2 -> b -> c2>_R
%<Many>_N ->_R <InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<c2>_R)
:: (forall a2 b c2.
(a2 -> b -> c2)
-> InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, c2 #))
~R# (forall a2 b c2.
(a2 -> b -> c2)
-> InspectAsm a2
-> InspectAsm b
-> InspectAsm c2))
GHC.ByteCode.Asm.$fApplicativeInspectAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<b>_R)
:: (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectAsm b))
GHC.ByteCode.Asm.$fApplicativeInspectAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<a2>_R)
:: (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, a2 #))
~R# (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectAsm a2))]
GHC.ByteCode.Asm.$fApplicativeInspectAsm
= ghc-internal:GHC.Internal.Base.C:Applicative
@InspectAsm
GHC.ByteCode.Asm.$fFunctorInspectAsm
(GHC.ByteCode.Asm.$fApplicativeInspectAsm5
`cast` (forall (a2 :: <*>_N).
<a2>_R %<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <a2>_R)
:: (forall a2.
a2 -> InspectEnv -> InspectState -> (# InspectState, a2 #))
~R# (forall a2. a2 -> InspectAsm a2)))
(GHC.ByteCode.Asm.$fApplicativeInspectAsm4
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm (a2 -> b)>_R
%<Many>_N ->_R <InspectAsm a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <b>_R)
:: (forall a2 b.
InspectAsm (a2 -> b)
-> InspectAsm a2
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
InspectAsm (a2 -> b) -> InspectAsm a2 -> InspectAsm b)))
(GHC.ByteCode.Asm.$fApplicativeInspectAsm3
`cast` (forall (a2 :: <*>_N) (b :: <*>_N) (c2 :: <*>_N).
<a2 -> b -> c2>_R
%<Many>_N ->_R <InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <c2>_R)
:: (forall a2 b c2.
(a2 -> b -> c2)
-> InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, c2 #))
~R# (forall a2 b c2.
(a2 -> b -> c2)
-> InspectAsm a2 -> InspectAsm b -> InspectAsm c2)))
(GHC.ByteCode.Asm.$fApplicativeInspectAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <b>_R)
:: (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b. InspectAsm a2 -> InspectAsm b -> InspectAsm b)))
(GHC.ByteCode.Asm.$fApplicativeInspectAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <a2>_R)
:: (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, a2 #))
~R# (forall a2 b. InspectAsm a2 -> InspectAsm b -> InspectAsm a2)))
-- RHS size: {terms: 24, types: 34, coercions: 20, joins: 0/0}
GHC.ByteCode.Asm.$fMonadRunAsm_$c>>= [InlPrag=INLINE (sat-args=2)]
:: forall a b. RunAsm a -> (a -> RunAsm b) -> RunAsm b
[GblId,
Arity=6,
Str=<1C(1,C(1,C(1,C(1,L))))><MC(1,C(1,C(1,C(1,C(1,L)))))><L><L><L><1L>,
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=False,boring_ok=False)
Tmpl= (\ (@a2_ahfD)
(@b_ahfE)
(ds_diaw [Occ=Once1] :: RunAsm a2_ahfD)
(f_a8R4 [Occ=Once1!] :: a2_ahfD -> RunAsm b_ahfE)
(b1_a8R5 :: Bool)
(c2_a8R6 :: LabelEnv)
(s_a8R7 [Occ=Once1] :: State# RealWorld)
(a3_a8R8 [Occ=Once1!] :: AsmState) ->
case a3_a8R8 of a4_X0 [Occ=Once1]
{ AsmState _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
case (ds_diaw
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahfD>_R
:: RunAsm a2_ahfD
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahfD #))))
b1_a8R5 c2_a8R6 s_a8R7 a4_X0
of
{ (# ipv6_sigo [Occ=Once1], ipv7_sigp [Occ=Once1],
ipv8_sigq [Occ=Once1] #) ->
((f_a8R4 ipv8_sigq)
`cast` (GHC.ByteCode.Asm.N:RunAsm <b_ahfE>_R
:: RunAsm b_ahfE
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b_ahfE #))))
b1_a8R5 c2_a8R6 ipv6_sigo ipv7_sigp
}
})
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <a2 -> RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
RunAsm a2
-> (a2 -> RunAsm b)
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. RunAsm a2 -> (a2 -> RunAsm b) -> RunAsm b))}]
GHC.ByteCode.Asm.$fMonadRunAsm_$c>>=
= (\ (@a2_ahfD)
(@b_ahfE)
(ds_diaw :: RunAsm a2_ahfD)
(f_a8R4 :: a2_ahfD -> RunAsm b_ahfE)
(b1_a8R5 :: Bool)
(c2_a8R6 :: LabelEnv)
(s_a8R7 :: State# RealWorld)
(a3_a8R8 :: AsmState) ->
case a3_a8R8 of a4_X0
{ AsmState ipv_sig6 ipv1_sig7 ipv2_sig8 ipv3_sig9 ipv4_siga
ipv5_sigb ->
case (ds_diaw
`cast` (GHC.ByteCode.Asm.N:RunAsm <a2_ahfD>_R
:: RunAsm a2_ahfD
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2_ahfD #))))
b1_a8R5 c2_a8R6 s_a8R7 a4_X0
of
{ (# ipv6_sigd, ipv7_sige, ipv8_sigf #) ->
((f_a8R4 ipv8_sigf)
`cast` (GHC.ByteCode.Asm.N:RunAsm <b_ahfE>_R
:: RunAsm b_ahfE
~R# (Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b_ahfE #))))
b1_a8R5 c2_a8R6 ipv6_sigd ipv7_sige
}
})
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <a2 -> RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
RunAsm a2
-> (a2 -> RunAsm b)
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. RunAsm a2 -> (a2 -> RunAsm b) -> RunAsm b))
-- RHS size: {terms: 15, types: 16, coercions: 4, joins: 0/0}
GHC.ByteCode.Asm.$fMonadInspectAsm1
:: forall a b.
InspectAsm a
-> (a -> InspectAsm b)
-> InspectEnv
-> InspectState
-> (# InspectState, b #)
[GblId,
Arity=4,
Str=<1C(1,C(1,L))><1C(1,C(1,C(1,L)))><L><L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [60 60 0 0] 80 0}]
GHC.ByteCode.Asm.$fMonadInspectAsm1
= \ (@a2_ahbL)
(@b_ahbM)
(ds_diaf :: InspectAsm a2_ahbL)
(f_a8Qd :: a2_ahbL -> InspectAsm b_ahbM)
(a3_a8Qe :: InspectEnv)
(b1_a8Qf :: InspectState) ->
case (ds_diaf
`cast` (GHC.ByteCode.Asm.N:InspectAsm <a2_ahbL>_R
:: InspectAsm a2_ahbL
~R# (InspectEnv -> InspectState -> (# InspectState, a2_ahbL #))))
a3_a8Qe b1_a8Qf
of
{ (# ipv_sigu, ipv1_sigv #) ->
((f_a8Qd ipv1_sigv)
`cast` (GHC.ByteCode.Asm.N:InspectAsm <b_ahbM>_R
:: InspectAsm b_ahbM
~R# (InspectEnv -> InspectState -> (# InspectState, b_ahbM #))))
a3_a8Qe ipv_sigu
}
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.assembleBCOs5
:: binary-0.8.9.2-inplace:Data.Binary.Class.Binary [RemotePtr ()]
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=False, ConLike=True, WorkFree=False, Expandable=True,
Guidance=IF_ARGS [] 20 0}]
GHC.ByteCode.Asm.assembleBCOs5
= binary-0.8.9.2-inplace:Data.Binary.Class.$fBinaryList
@(RemotePtr ()) (GHCi.RemoteTypes.$fBinaryRemotePtr @())
-- RHS size: {terms: 5, types: 1, coercions: 39, joins: 0/0}
GHC.ByteCode.Asm.$fMonadInspectAsm [InlPrag=CONLIKE]
:: Monad InspectAsm
[GblId[DFunId],
Unf=DFun: \ ->
ghc-internal:GHC.Internal.Base.C:Monad TYPE: InspectAsm
GHC.ByteCode.Asm.$fApplicativeInspectAsm
GHC.ByteCode.Asm.$fMonadInspectAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <a2 -> InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<b>_R)
:: (forall a2 b.
InspectAsm a2
-> (a2 -> InspectAsm b)
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
InspectAsm a2
-> (a2 -> InspectAsm b)
-> InspectAsm b))
GHC.ByteCode.Asm.$fApplicativeInspectAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<b>_R)
:: (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
InspectAsm a2
-> InspectAsm b -> InspectAsm b))
GHC.ByteCode.Asm.$fApplicativeInspectAsm5
`cast` (forall (a2 :: <*>_N).
<a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm
<a2>_R)
:: (forall a2.
a2
-> InspectEnv
-> InspectState
-> (# InspectState, a2 #))
~R# (forall a2. a2 -> InspectAsm a2))]
GHC.ByteCode.Asm.$fMonadInspectAsm
= ghc-internal:GHC.Internal.Base.C:Monad
@InspectAsm
GHC.ByteCode.Asm.$fApplicativeInspectAsm
(GHC.ByteCode.Asm.$fMonadInspectAsm1
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <a2 -> InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <b>_R)
:: (forall a2 b.
InspectAsm a2
-> (a2 -> InspectAsm b)
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b.
InspectAsm a2 -> (a2 -> InspectAsm b) -> InspectAsm b)))
(GHC.ByteCode.Asm.$fApplicativeInspectAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R <InspectAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <b>_R)
:: (forall a2 b.
InspectAsm a2
-> InspectAsm b
-> InspectEnv
-> InspectState
-> (# InspectState, b #))
~R# (forall a2 b. InspectAsm a2 -> InspectAsm b -> InspectAsm b)))
(GHC.ByteCode.Asm.$fApplicativeInspectAsm5
`cast` (forall (a2 :: <*>_N).
<a2>_R %<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <a2>_R)
:: (forall a2.
a2 -> InspectEnv -> InspectState -> (# InspectState, a2 #))
~R# (forall a2. a2 -> InspectAsm a2)))
-- RHS size: {terms: 5, types: 1, coercions: 23, joins: 0/0}
GHC.ByteCode.Asm.$fMonadRunAsm [InlPrag=CONLIKE] :: Monad RunAsm
[GblId[DFunId],
Unf=DFun: \ ->
ghc-internal:GHC.Internal.Base.C:Monad TYPE: RunAsm
GHC.ByteCode.Asm.$fApplicativeRunAsm
GHC.ByteCode.Asm.$fMonadRunAsm_$c>>=
GHC.ByteCode.Asm.$fApplicativeRunAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<b>_R)
:: (forall a2 b.
RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b.
RunAsm a2 -> RunAsm b -> RunAsm b))
GHC.ByteCode.Asm.$fApplicativeRunAsm4
`cast` (forall (a2 :: <*>_N).
<a2>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm
<a2>_R)
:: (forall a2.
a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #))
~R# (forall a2. a2 -> RunAsm a2))]
GHC.ByteCode.Asm.$fMonadRunAsm
= ghc-internal:GHC.Internal.Base.C:Monad
@RunAsm
GHC.ByteCode.Asm.$fApplicativeRunAsm
GHC.ByteCode.Asm.$fMonadRunAsm_$c>>=
(GHC.ByteCode.Asm.$fApplicativeRunAsm2
`cast` (forall (a2 :: <*>_N) (b :: <*>_N).
<RunAsm a2>_R
%<Many>_N ->_R <RunAsm b>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <b>_R)
:: (forall a2 b.
RunAsm a2
-> RunAsm b
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, b #))
~R# (forall a2 b. RunAsm a2 -> RunAsm b -> RunAsm b)))
(GHC.ByteCode.Asm.$fApplicativeRunAsm4
`cast` (forall (a2 :: <*>_N).
<a2>_R %<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <a2>_R)
:: (forall a2.
a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #))
~R# (forall a2. a2 -> RunAsm a2)))
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.runRunAsm1 :: forall a. RunAsm a -> RunAsm a
[GblId,
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
GHC.ByteCode.Asm.runRunAsm1
= \ (@a2_af9V) (ds_di8W :: RunAsm a2_af9V) -> ds_di8W
-- RHS size: {terms: 1, types: 0, coercions: 8, joins: 0/0}
runRunAsm
:: forall a.
RunAsm a
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a #)
[GblId[[RecSel]],
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)}]
runRunAsm
= GHC.ByteCode.Asm.runRunAsm1
`cast` (forall (a2 :: <*>_N).
<RunAsm a2>_R %<Many>_N ->_R GHC.ByteCode.Asm.N:RunAsm <a2>_R
:: (forall a2. RunAsm a2 -> RunAsm a2)
~R# (forall a2.
RunAsm a2
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, a2 #)))
-- RHS size: {terms: 5, types: 6, coercions: 0, joins: 0/0}
lblEnv :: InspectState -> LabelEnvMap
[GblId[[RecSel]],
Arity=1,
Str=<1!P(A,A,A,1L)>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
lblEnv
= \ (ds_di8R :: InspectState) ->
case ds_di8R of
{ InspectState bx_didM bx1_didN bx2_didO ds1_di8V ->
ds1_di8V
}
-- RHS size: {terms: 6, types: 6, coercions: 0, joins: 0/0}
litCount :: InspectState -> Word
[GblId[[RecSel]],
Arity=1,
Str=<1!P(A,A,L,A)>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
litCount
= \ (ds_di8M :: InspectState) ->
case ds_di8M of
{ InspectState bx_didI bx1_didJ bx2_didK ds1_di8Q ->
ghc-internal:GHC.Internal.Types.W# bx2_didK
}
-- RHS size: {terms: 6, types: 6, coercions: 0, joins: 0/0}
ptrCount :: InspectState -> Word
[GblId[[RecSel]],
Arity=1,
Str=<1!P(A,L,A,A)>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
ptrCount
= \ (ds_di8H :: InspectState) ->
case ds_di8H of
{ InspectState bx_didE bx1_didF bx2_didG ds1_di8L ->
ghc-internal:GHC.Internal.Types.W# bx1_didF
}
-- RHS size: {terms: 6, types: 6, coercions: 0, joins: 0/0}
instrCount :: InspectState -> Word
[GblId[[RecSel]],
Arity=1,
Str=<1!P(L,A,A,A)>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
instrCount
= \ (ds_di8C :: InspectState) ->
case ds_di8C of
{ InspectState bx_didA bx1_didB bx2_didC ds1_di8G ->
ghc-internal:GHC.Internal.Types.W# bx_didA
}
-- RHS size: {terms: 2, types: 1, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm._inspectLongJumps1 :: InspectEnv -> InspectEnv
[GblId,
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
GHC.ByteCode.Asm._inspectLongJumps1
= \ (ds_di8A :: InspectEnv) -> ds_di8A
-- RHS size: {terms: 1, types: 0, coercions: 4, joins: 0/0}
_inspectLongJumps :: InspectEnv -> Bool
[GblId[[RecSel]],
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)}]
_inspectLongJumps
= GHC.ByteCode.Asm._inspectLongJumps1
`cast` (<InspectEnv>_R %<Many>_N ->_R GHC.ByteCode.Asm.N:InspectEnv
:: (InspectEnv -> InspectEnv) ~R# (InspectEnv -> Bool))
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.runInspectAsm1
:: forall a. InspectAsm a -> InspectAsm a
[GblId,
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)}]
GHC.ByteCode.Asm.runInspectAsm1
= \ (@a2_afby) (ds_di8y :: InspectAsm a2_afby) -> ds_di8y
-- RHS size: {terms: 1, types: 0, coercions: 8, joins: 0/0}
runInspectAsm
:: forall a.
InspectAsm a -> InspectEnv -> InspectState -> (# InspectState, a #)
[GblId[[RecSel]],
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=True,boring_ok=True)}]
runInspectAsm
= GHC.ByteCode.Asm.runInspectAsm1
`cast` (forall (a2 :: <*>_N).
<InspectAsm a2>_R
%<Many>_N ->_R GHC.ByteCode.Asm.N:InspectAsm <a2>_R
:: (forall a2. InspectAsm a2 -> InspectAsm a2)
~R# (forall a2.
InspectAsm a2
-> InspectEnv -> InspectState -> (# InspectState, a2 #)))
Rec {
-- RHS size: {terms: 31, types: 32, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$w$wgo1 [InlPrag=[2], Occ=LoopBreaker]
:: [Name]
-> GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name)
-> Int#
-> (# GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name),
Int# #)
[GblId[StrictWorker([!, !])],
Arity=3,
Str=<1L><1L><L>,
Unf=OtherCon []]
GHC.ByteCode.Asm.$w$wgo1
= \ (ds_ss8Z :: [Name])
(ww_ss90
:: GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name))
(ww1_ss91 :: Int#) ->
case ww_ss90 of ww2_aljB { __DEFAULT ->
case ds_ss8Z of {
[] -> (# ww2_aljB, ww1_ss91 #);
: y_allc ys_alld ->
case y_allc of wild1_air9
{ GHC.Types.Name.Name ds1_aira ds2_airb bx_airc ds3_aird ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Name)
bx_airc
(GHC.Types.Unique.DFM.addListToUDFM1 @Name)
(GHC.Types.Unique.DFM.TaggedVal @Name wild1_air9 ww1_ss91)
ww2_aljB
of wild2_allj
{ __DEFAULT ->
GHC.ByteCode.Asm.$w$wgo1 ys_alld wild2_allj (+# ww1_ss91 1#)
}
}
}
}
end Rec }
Rec {
-- RHS size: {terms: 16, types: 11, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.bcoFreeNames_go3 [Occ=LoopBreaker]
:: [BCONPtr] -> [Name]
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
GHC.ByteCode.Asm.bcoFreeNames_go3
= \ (ds_alL2 :: [BCONPtr]) ->
case ds_alL2 of {
[] -> ghc-internal:GHC.Internal.Types.[] @Name;
: y_alL5 ys_alL6 ->
case y_alL5 of {
__DEFAULT -> GHC.ByteCode.Asm.bcoFreeNames_go3 ys_alL6;
BCONPtrItbl n_a8Y1 ->
ghc-internal:GHC.Internal.Types.:
@Name n_a8Y1 (GHC.ByteCode.Asm.bcoFreeNames_go3 ys_alL6)
}
}
end Rec }
Rec {
-- RHS size: {terms: 16, types: 11, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.bcoFreeNames_go1 [Occ=LoopBreaker]
:: [BCOPtr] -> [Name]
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
GHC.ByteCode.Asm.bcoFreeNames_go1
= \ (ds_alL2 :: [BCOPtr]) ->
case ds_alL2 of {
[] -> ghc-internal:GHC.Internal.Types.[] @Name;
: y_alL5 ys_alL6 ->
case y_alL5 of {
__DEFAULT -> GHC.ByteCode.Asm.bcoFreeNames_go1 ys_alL6;
BCOPtrName n_a8XS ->
ghc-internal:GHC.Internal.Types.:
@Name n_a8XS (GHC.ByteCode.Asm.bcoFreeNames_go1 ys_alL6)
}
}
end Rec }
Rec {
-- RHS size: {terms: 72, types: 105, coercions: 3, joins: 2/2}
GHC.ByteCode.Asm.$wbco_refs [InlPrag=[2]]
:: UnlinkedBCO
-> (# GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name),
Int# #)
[GblId[StrictWorker([!])],
Arity=1,
Str=<1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [20] 381 0}]
GHC.ByteCode.Asm.$wbco_refs
= \ (ds_sq0I :: UnlinkedBCO) ->
case ds_sq0I of
{ UnlinkedBCO ds1_di8u bx_didu bx1_didv bx2_didw nonptrs_a8Wy
ptrs_a8Wz ->
join {
$j_sllk [Dmd=SC(S,C(1,L))]
:: GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name)
-> Int#
-> (# GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name),
Int# #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>]
$j_sllk (ww_aljr [OS=OneShot]
:: GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name))
(ww1_aljs [OS=OneShot] :: Int#)
= case ww_aljr of wild1_X3 { __DEFAULT ->
case GHC.Types.Unique.DSet.unionManyUniqDSets1
@Name
(ghc-internal:GHC.Internal.Types.:
@(UniqDSet Name)
(case GHC.ByteCode.Asm.$w$wgo1
(GHC.ByteCode.Asm.bcoFreeNames_go3
(elemsFlatBag @BCONPtr nonptrs_a8Wy))
(GHC.Data.Word64Map.Internal.Nil
@(GHC.Types.Unique.DFM.TaggedVal Name))
0#
of
{ (# ww2_st5A, ww3_st5B #) ->
(GHC.Types.Unique.DFM.UDFM @(*) @Name @Name ww2_st5A ww3_st5B)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet <Name>_R)
:: GHC.Types.Unique.DFM.UniqDFM Name Name ~R# UniqDSet Name)
})
(GHC.ByteCode.Asm.bcoFreeNames_go2
(elemsFlatBag @BCOPtr ptrs_a8Wz)))
wild1_X3
ww1_aljs
of wild2_alji
{ (# ww2_aljj, ww3_aljk #) ->
case ww2_aljj of { __DEFAULT -> wild2_alji }
}
} } in
joinrec {
$wgo1_aljx [InlPrag=[2],
Occ=LoopBreaker,
Dmd=SC(S,C(1,C(1,!P(L,L))))]
:: [Name]
-> GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name)
-> Int#
-> (# GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name),
Int# #)
[LclId[JoinId(3)(Just [!, !])],
Arity=3,
Str=<1L><1L><L>,
Unf=OtherCon []]
$wgo1_aljx (ds2_aljy :: [Name])
(ww_aljz
:: GHC.Data.Word64Map.Internal.Word64Map
(GHC.Types.Unique.DFM.TaggedVal Name))
(ww1_aljA :: Int#)
= case ww_aljz of ww2_aljB { __DEFAULT ->
case ds2_aljy of {
[] -> jump $j_sllk ww2_aljB ww1_aljA;
: y_allc ys_alld ->
case y_allc of wild2_air9
{ GHC.Types.Name.Name ds3_aira ds4_airb bx3_airc ds5_aird ->
case GHC.Data.Word64Map.Strict.Internal.insertWithKey_$sinsertWithKey
@(GHC.Types.Unique.DFM.TaggedVal Name)
bx3_airc
(GHC.Types.Unique.DFM.addListToUDFM1 @Name)
(GHC.Types.Unique.DFM.TaggedVal @Name wild2_air9 ww1_aljA)
ww2_aljB
of wild3_allj
{ __DEFAULT ->
jump $wgo1_aljx ys_alld wild3_allj (+# ww1_aljA 1#)
}
}
}
}; } in
jump $wgo1_aljx
(GHC.ByteCode.Asm.bcoFreeNames_go1
(elemsFlatBag @BCOPtr ptrs_a8Wz))
(GHC.Data.Word64Map.Internal.Nil
@(GHC.Types.Unique.DFM.TaggedVal Name))
0#
}
-- RHS size: {terms: 22, types: 27, coercions: 3, joins: 0/0}
GHC.ByteCode.Asm.bcoFreeNames_go2 [Occ=LoopBreaker]
:: [BCOPtr] -> [UniqDSet Name]
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
GHC.ByteCode.Asm.bcoFreeNames_go2
= \ (ds_alL2 :: [BCOPtr]) ->
case ds_alL2 of {
[] -> ghc-internal:GHC.Internal.Types.[] @(UniqDSet Name);
: y_alL5 ys_alL6 ->
case y_alL5 of {
__DEFAULT -> GHC.ByteCode.Asm.bcoFreeNames_go2 ys_alL6;
BCOPtrBCO bco_a8Yd ->
ghc-internal:GHC.Internal.Types.:
@(UniqDSet Name)
(case GHC.ByteCode.Asm.$wbco_refs bco_a8Yd of
{ (# ww_sqFn, ww1_sqFo #) ->
(GHC.Types.Unique.DFM.UDFM @(*) @Name @Name ww_sqFn ww1_sqFo)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet <Name>_R)
:: GHC.Types.Unique.DFM.UniqDFM Name Name ~R# UniqDSet Name)
})
(GHC.ByteCode.Asm.bcoFreeNames_go2 ys_alL6)
}
}
end Rec }
-- RHS size: {terms: 20, types: 33, coercions: 19, joins: 0/0}
bcoFreeNames [InlPrag=[2]] :: UnlinkedBCO -> UniqDSet Name
[GblId,
Arity=1,
Str=<SL>,
Cpr=1,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
Tmpl= \ (bco_sq0N :: UnlinkedBCO) ->
case GHC.ByteCode.Asm.$wbco_refs bco_sq0N of
{ (# ww_sqFn [Occ=Once1], ww1_sqFo [Occ=Once1] #) ->
case GHC.Data.Word64Map.Internal.\\1
@Name
@(GHC.Types.Unique.DFM.TaggedVal Name)
ww_sqFn
((GHC.Types.Name.Set.extendNameSetList_go1
(ghc-internal:GHC.Internal.Types.:
@Name
(case bco_sq0N of
{ UnlinkedBCO ds1_aixr [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] ->
ds1_aixr
})
(ghc-internal:GHC.Internal.Types.[] @Name))
((GHC.Data.Word64Map.Internal.Nil @Name)
`cast` (Sym (GHC.Types.Unique.FM.N:UniqFM <*>_N <Name>_P) <Name>_N
; Sym (GHC.Types.Unique.Set.N:UniqSet <Name>_R)
:: GHC.Data.Word64Map.Internal.Word64Map Name
~R# GHC.Types.Unique.Set.UniqSet Name)))
`cast` (GHC.Types.Unique.Set.N:UniqSet <Name>_R
; GHC.Types.Unique.FM.N:UniqFM <*>_N <Name>_P <Name>_N
:: GHC.Types.Unique.Set.UniqSet Name
~R# GHC.Data.Word64Map.Internal.Word64Map Name))
of wild1_X3 [Occ=Once1]
{ __DEFAULT ->
(GHC.Types.Unique.DFM.UDFM @(*) @Name @Name wild1_X3 ww1_sqFo)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet <Name>_R)
:: GHC.Types.Unique.DFM.UniqDFM Name Name ~R# UniqDSet Name)
}
}}]
bcoFreeNames
= \ (bco_sq0N :: UnlinkedBCO) ->
case GHC.ByteCode.Asm.$wbco_refs bco_sq0N of
{ (# ww_sqFn, ww1_sqFo #) ->
case GHC.Data.Word64Map.Internal.\\1
@Name
@(GHC.Types.Unique.DFM.TaggedVal Name)
ww_sqFn
((GHC.Types.Name.Set.extendNameSetList_go1
(ghc-internal:GHC.Internal.Types.:
@Name
(case bco_sq0N of
{ UnlinkedBCO ds1_aixr bx_aixs bx1_aixt bx2_aixu ds2_aixv
ds3_aixw ->
ds1_aixr
})
(ghc-internal:GHC.Internal.Types.[] @Name))
((GHC.Data.Word64Map.Internal.Nil @Name)
`cast` (Sym (GHC.Types.Unique.FM.N:UniqFM <*>_N <Name>_P) <Name>_N
; Sym (GHC.Types.Unique.Set.N:UniqSet <Name>_R)
:: GHC.Data.Word64Map.Internal.Word64Map Name
~R# GHC.Types.Unique.Set.UniqSet Name)))
`cast` (GHC.Types.Unique.Set.N:UniqSet <Name>_R
; GHC.Types.Unique.FM.N:UniqFM <*>_N <Name>_P <Name>_N
:: GHC.Types.Unique.Set.UniqSet Name
~R# GHC.Data.Word64Map.Internal.Word64Map Name))
of wild1_X3
{ __DEFAULT ->
(GHC.Types.Unique.DFM.UDFM @(*) @Name @Name wild1_X3 ww1_sqFo)
`cast` (Sym (GHC.Types.Unique.DSet.N:UniqDSet <Name>_R)
:: GHC.Types.Unique.DFM.UniqDFM Name Name ~R# UniqDSet Name)
}
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm2 :: Word
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm2
= ghc-internal:GHC.Internal.Types.W# 2##
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm1 :: Word
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm1
= ghc-internal:GHC.Internal.Types.W# 4##
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
iNTERP_STACK_CHECK_THRESH :: Int
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
iNTERP_STACK_CHECK_THRESH = ghc-internal:GHC.Internal.Types.I# 50#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$trModule4 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 50 0}]
GHC.ByteCode.Asm.$trModule4 = "ghc-9.13-inplace"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$trModule3
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$trModule3
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$trModule4
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$trModule2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 50 0}]
GHC.ByteCode.Asm.$trModule2 = "GHC.ByteCode.Asm"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$trModule1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$trModule1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$trModule2
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$trModule
:: ghc-internal:GHC.Internal.Types.Module
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$trModule
= ghc-internal:GHC.Internal.Types.Module
GHC.ByteCode.Asm.$trModule3 GHC.ByteCode.Asm.$trModule1
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep_rt5J :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep_rt5J
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tc'Lifted
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep1_rt5K :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep1_rt5K
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep_rt5J
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep2_rt5L :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep2_rt5L
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tc'BoxedRep $krep1_rt5K
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep3_rt5M :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep3_rt5M
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcInt
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep4_rt5N :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep4_rt5N
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcRuntimeRep
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep5_rt5O :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep5_rt5O
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcRealWorld
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep6_rt5P :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep6_rt5P
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcBool
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep7_rt5Q :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep7_rt5Q
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Word.$tcWord16
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep8_rt5R :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep8_rt5R
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.Platform.$tcPlatformWordSize
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep9_rt5S :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep9_rt5S
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Tuple.$tcUnit
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep10_rt5T :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep10_rt5T
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Instr.$tcLocalLabel
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep11_rt5U :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep11_rt5U
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Types.$tcBCONPtr
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep12_rt5V :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep12_rt5V
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcWord
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep13_rt5W :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep13_rt5W
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Types.$tcBCOPtr
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep14_rt5X :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep14_rt5X
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep13_rt5W
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep15_rt5Y :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep15_rt5Y
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.Data.SizedSeq.$tcSizedSeq $krep14_rt5X
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep16_rt5Z :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep16_rt5Z
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep11_rt5U
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep17_rt60 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep17_rt60
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.Data.SizedSeq.$tcSizedSeq $krep16_rt5Z
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep18_rt61 :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep18_rt61
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep7_rt5Q
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep19_rt62 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep19_rt62
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.Data.SizedSeq.$tcSizedSeq $krep18_rt61
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep20_rt63 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep20_rt63
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcList $krep16_rt5Z
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep21_rt64 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep21_rt64
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcIO $krep14_rt5X
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep22_rt65 :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep22_rt65
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep12_rt5V
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep23_rt66 :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep23_rt66
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep10_rt5T $krep22_rt65
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep24_rt67 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep24_rt67
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
Data.Map.Internal.$tcMap $krep23_rt66
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep25_rt68 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep25_rt68
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep10_rt5T $krep12_rt5V
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcMonadAssembler1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tcMonadAssembler1
= ghc-internal:GHC.Internal.Types.KindRepFun
ghc-internal:GHC.Internal.Types.krep$*Arr*
ghc-internal:GHC.Internal.Types.krep$Constraint
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$krep26_rt69 :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep26_rt69 = ghc-internal:GHC.Internal.Types.KindRepVar 0#
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep27_rt6a :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep27_rt6a
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep5_rt5O
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep28_rt6b :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep28_rt6b
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcState# $krep27_rt6a
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep29_rt6c :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep29_rt6c
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep4_rt5N
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep30_rt6d :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep30_rt6d
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tc'[] $krep29_rt6c
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep31_rt6e :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep31_rt6e
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep30_rt6d
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep32_rt6f :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep32_rt6f
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tc'TupleRep $krep31_rt6e
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep33_rt6g :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep33_rt6g
= ghc-internal:GHC.Internal.Types.KindRepApp
$krep26_rt69 $krep12_rt5V
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep34_rt6h :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep34_rt6h
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep21_rt64 $krep33_rt6g
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep35_rt6i :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep35_rt6i
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep20_rt63 $krep33_rt6g
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep36_rt6j :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep36_rt6j
= ghc-internal:GHC.Internal.Types.KindRepApp
$krep26_rt69 $krep9_rt5S
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep37_rt6k :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep37_rt6k
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep10_rt5T $krep36_rt6j
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcAsmState2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.$tcAsmState2 = "AsmState"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcAsmState1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcAsmState1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcAsmState2
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcAsmState
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcAsmState
= ghc-internal:GHC.Internal.Types.TyCon
4147422034328306782#Word64
1845050120004180149#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcAsmState1
0#
ghc-internal:GHC.Internal.Types.krep$*
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep38_rt6l :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep38_rt6l
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcAsmState
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep39_rt6m :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep39_rt6m
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep26_rt69
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep40_rt6n :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep40_rt6n
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep38_rt6l $krep39_rt6m
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep41_rt6o :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep41_rt6o
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep28_rt6b $krep40_rt6n
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep42_rt6p :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep42_rt6p
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep2_rt5L $krep41_rt6o
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep43_rt6q :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep43_rt6q
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep2_rt5L $krep42_rt6p
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep44_rt6r :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep44_rt6r
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep32_rt6f $krep43_rt6q
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep45_rt6s :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep45_rt6s
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcTuple3# $krep44_rt6r
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep46_rt6t :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep46_rt6t
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep38_rt6l $krep45_rt6s
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep47_rt6u :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep47_rt6u
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep28_rt6b $krep46_rt6t
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep48_rt6v :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep48_rt6v
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep25_rt68 $krep47_rt6u
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep49_rt6w :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep49_rt6w
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep6_rt5P $krep48_rt6v
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep50_rt6x :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep50_rt6x
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep15_rt5Y $krep38_rt6l
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep51_rt6y :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep51_rt6y
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep17_rt60 $krep50_rt6x
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'AsmState1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'AsmState1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep19_rt62 $krep51_rt6y
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'AsmState3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 40 0}]
GHC.ByteCode.Asm.$tc'AsmState3 = "'AsmState"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'AsmState2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'AsmState2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'AsmState3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'AsmState
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'AsmState
= ghc-internal:GHC.Internal.Types.TyCon
18020912384879293229#Word64
7438318724980531452#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'AsmState2
0#
GHC.ByteCode.Asm.$tc'AsmState1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcOperand2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.$tcOperand2 = "Operand"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcOperand1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcOperand1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcOperand2
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcOperand
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcOperand
= ghc-internal:GHC.Internal.Types.TyCon
11270373214226744571#Word64
11757722513863638663#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcOperand1
0#
ghc-internal:GHC.Internal.Types.krep$*
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep52_rt6z :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep52_rt6z
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcOperand
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'Op1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'Op1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep12_rt5V $krep52_rt6z
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'Op3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 20 0}]
GHC.ByteCode.Asm.$tc'Op3 = "'Op"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'Op2 :: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'Op2
= ghc-internal:GHC.Internal.Types.TrNameS GHC.ByteCode.Asm.$tc'Op3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'Op :: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'Op
= ghc-internal:GHC.Internal.Types.TyCon
8565110654014182740#Word64
15882971923819601066#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'Op2
0#
GHC.ByteCode.Asm.$tc'Op1
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'IOp1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'IOp1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep3_rt5M $krep52_rt6z
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'IOp3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 20 0}]
GHC.ByteCode.Asm.$tc'IOp3 = "'IOp"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'IOp2 :: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'IOp2
= ghc-internal:GHC.Internal.Types.TrNameS GHC.ByteCode.Asm.$tc'IOp3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'IOp :: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'IOp
= ghc-internal:GHC.Internal.Types.TyCon
13877225689182224738#Word64
11692000503480206623#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'IOp2
0#
GHC.ByteCode.Asm.$tc'IOp1
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'SmallOp1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'SmallOp1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep7_rt5Q $krep52_rt6z
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'SmallOp3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.$tc'SmallOp3 = "'SmallOp"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'SmallOp2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'SmallOp2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'SmallOp3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'SmallOp
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'SmallOp
= ghc-internal:GHC.Internal.Types.TyCon
572130874415759833#Word64
9563756417139517290#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'SmallOp2
0#
GHC.ByteCode.Asm.$tc'SmallOp1
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'LabelOp1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'LabelOp1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep10_rt5T $krep52_rt6z
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'LabelOp3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.$tc'LabelOp3 = "'LabelOp"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'LabelOp2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'LabelOp2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'LabelOp3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'LabelOp
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'LabelOp
= ghc-internal:GHC.Internal.Types.TyCon
17725243082243365787#Word64
7343461586971089017#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'LabelOp2
0#
GHC.ByteCode.Asm.$tc'LabelOp1
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
$krep53_rt6A :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep53_rt6A
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep
$krep52_rt6z
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep54_rt6B :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep54_rt6B
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcList $krep53_rt6A
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep55_rt6C :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep55_rt6C
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep54_rt6B $krep36_rt6j
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep56_rt6D :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep56_rt6D
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep7_rt5Q $krep55_rt6C
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep57_rt6E :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep57_rt6E
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep8_rt5R $krep56_rt6D
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcRunAsm2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.$tcRunAsm2 = "RunAsm"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcRunAsm1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcRunAsm1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcRunAsm2
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcRunAsm :: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcRunAsm
= ghc-internal:GHC.Internal.Types.TyCon
12002450738112103714#Word64
16940561883337943342#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcRunAsm1
0#
ghc-internal:GHC.Internal.Types.krep$*Arr*
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep58_rt6F :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep58_rt6F
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcRunAsm $krep39_rt6m
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'RunAsm1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'RunAsm1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep49_rt6w $krep58_rt6F
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'RunAsm3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.$tc'RunAsm3 = "'RunAsm"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'RunAsm2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'RunAsm2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'RunAsm3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'RunAsm
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'RunAsm
= ghc-internal:GHC.Internal.Types.TyCon
17366139364475251364#Word64
5842293082216893299#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'RunAsm2
1#
GHC.ByteCode.Asm.$tc'RunAsm1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectState2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 40 0}]
GHC.ByteCode.Asm.$tcInspectState2 = "InspectState"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectState1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcInspectState1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcInspectState2
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectState
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcInspectState
= ghc-internal:GHC.Internal.Types.TyCon
7747770127037279204#Word64
5438563493480901019#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcInspectState1
0#
ghc-internal:GHC.Internal.Types.krep$*
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep59_rt6G :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep59_rt6G
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcInspectState
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep60_rt6H :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep60_rt6H
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep59_rt6G $krep39_rt6m
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep61_rt6I :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep61_rt6I
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep2_rt5L $krep60_rt6H
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep62_rt6J :: [ghc-internal:GHC.Internal.Types.KindRep]
[GblId, Unf=OtherCon []]
$krep62_rt6J
= ghc-internal:GHC.Internal.Types.:
@ghc-internal:GHC.Internal.Types.KindRep $krep2_rt5L $krep61_rt6I
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep63_rt6K :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep63_rt6K
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
ghc-internal:GHC.Internal.Types.$tcTuple2# $krep62_rt6J
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep64_rt6L :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep64_rt6L
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep59_rt6G $krep63_rt6K
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep65_rt6M :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep65_rt6M
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep24_rt67 $krep59_rt6G
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep66_rt6N :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep66_rt6N
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep12_rt5V $krep65_rt6M
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep67_rt6O :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep67_rt6O
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep12_rt5V $krep66_rt6N
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectState1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'InspectState1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep12_rt5V $krep67_rt6O
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectState3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 50 0}]
GHC.ByteCode.Asm.$tc'InspectState3 = "'InspectState"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectState2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'InspectState2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'InspectState3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectState
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'InspectState
= ghc-internal:GHC.Internal.Types.TyCon
7672174663605690865#Word64
303764258898587198#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'InspectState2
0#
GHC.ByteCode.Asm.$tc'InspectState1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectEnv2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 40 0}]
GHC.ByteCode.Asm.$tcInspectEnv2 = "InspectEnv"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectEnv1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcInspectEnv1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcInspectEnv2
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectEnv
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcInspectEnv
= ghc-internal:GHC.Internal.Types.TyCon
1148081177368306219#Word64
12624163552893687183#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcInspectEnv1
0#
ghc-internal:GHC.Internal.Types.krep$*
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$krep68_rt6P :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep68_rt6P
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcInspectEnv
(ghc-internal:GHC.Internal.Types.[]
@ghc-internal:GHC.Internal.Types.KindRep)
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep69_rt6Q :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep69_rt6Q
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep68_rt6P $krep64_rt6L
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectEnv1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'InspectEnv1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep6_rt5P $krep68_rt6P
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectEnv3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 40 0}]
GHC.ByteCode.Asm.$tc'InspectEnv3 = "'InspectEnv"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectEnv2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'InspectEnv2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'InspectEnv3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectEnv
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'InspectEnv
= ghc-internal:GHC.Internal.Types.TyCon
8436540820309593109#Word64
8129972883581096586#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'InspectEnv2
0#
GHC.ByteCode.Asm.$tc'InspectEnv1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectAsm2 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 40 0}]
GHC.ByteCode.Asm.$tcInspectAsm2 = "InspectAsm"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectAsm1
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcInspectAsm1
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcInspectAsm2
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcInspectAsm
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcInspectAsm
= ghc-internal:GHC.Internal.Types.TyCon
15611959348237312073#Word64
6561763987251358927#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcInspectAsm1
0#
ghc-internal:GHC.Internal.Types.krep$*Arr*
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep70_rt6R :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep70_rt6R
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcInspectAsm $krep39_rt6m
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectAsm1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'InspectAsm1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep69_rt6Q $krep70_rt6R
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectAsm3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 40 0}]
GHC.ByteCode.Asm.$tc'InspectAsm3 = "'InspectAsm"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectAsm2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'InspectAsm2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'InspectAsm3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'InspectAsm
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'InspectAsm
= ghc-internal:GHC.Internal.Types.TyCon
5315077985995101263#Word64
8483589323272782095#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'InspectAsm2
1#
GHC.ByteCode.Asm.$tc'InspectAsm1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcMonadAssembler3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 50 0}]
GHC.ByteCode.Asm.$tcMonadAssembler3 = "MonadAssembler"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcMonadAssembler2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcMonadAssembler2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tcMonadAssembler3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tcMonadAssembler
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tcMonadAssembler
= ghc-internal:GHC.Internal.Types.TyCon
7154334093877559884#Word64
9139926111074959433#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tcMonadAssembler2
0#
GHC.ByteCode.Asm.$tcMonadAssembler1
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep71_rt6S :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep71_rt6S
= ghc-internal:GHC.Internal.Types.KindRepTyConApp
GHC.ByteCode.Asm.$tcMonadAssembler $krep39_rt6m
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep72_rt6T :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep72_rt6T
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep57_rt6E $krep71_rt6S
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep73_rt6U :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep73_rt6U
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep37_rt6k $krep72_rt6T
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
$krep74_rt6V :: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
$krep74_rt6V
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep35_rt6i $krep73_rt6U
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'C:MonadAssembler1 [InlPrag=[~]]
:: ghc-internal:GHC.Internal.Types.KindRep
[GblId, Unf=OtherCon []]
GHC.ByteCode.Asm.$tc'C:MonadAssembler1
= ghc-internal:GHC.Internal.Types.KindRepFun
$krep34_rt6h $krep74_rt6V
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'C:MonadAssembler3 :: Addr#
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 60 0}]
GHC.ByteCode.Asm.$tc'C:MonadAssembler3 = "'C:MonadAssembler"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'C:MonadAssembler2
:: ghc-internal:GHC.Internal.Types.TrName
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'C:MonadAssembler2
= ghc-internal:GHC.Internal.Types.TrNameS
GHC.ByteCode.Asm.$tc'C:MonadAssembler3
-- RHS size: {terms: 7, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$tc'C:MonadAssembler
:: ghc-internal:GHC.Internal.Types.TyCon
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 10}]
GHC.ByteCode.Asm.$tc'C:MonadAssembler
= ghc-internal:GHC.Internal.Types.TyCon
516363285953104189#Word64
4443162000051065592#Word64
GHC.ByteCode.Asm.$trModule
GHC.ByteCode.Asm.$tc'C:MonadAssembler2
1#
GHC.ByteCode.Asm.$tc'C:MonadAssembler1
-- RHS size: {terms: 17, types: 13, coercions: 6, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clabel [InlPrag=INLINE (sat-args=1)]
:: LocalLabel -> InspectAsm ()
[GblId,
Arity=3,
Str=<ML><A><1!P(L,L,L,ML)>,
Cpr=1(1, 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= (\ (lbl_a8sE [Occ=Once1] :: LocalLabel)
_ [Occ=Dead]
(s_abxg [Occ=Once1!] :: InspectState) ->
case s_abxg of
{ InspectState bx_didY bx1_didZ [Occ=Once1] bx2_die0 [Occ=Once1]
ds1_di9j [Occ=Once1] ->
(# GHC.ByteCode.Asm.InspectState
bx_didY
bx1_didZ
bx2_die0
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$sgo8
@Word
lbl_a8sE
(ghc-internal:GHC.Internal.Types.W# bx_didY)
ds1_di9j),
ghc-internal:GHC.Internal.Tuple.() #)
})
`cast` (<LocalLabel>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <()>_R)
:: (LocalLabel
-> InspectEnv -> InspectState -> (# InspectState, () #))
~R# (LocalLabel -> InspectAsm ()))}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clabel
= (\ (eta_B0 :: LocalLabel)
_ [Occ=Dead]
(s_abxg :: InspectState) ->
case s_abxg of { InspectState bx_didY bx1_didZ bx2_die0 ds1_di9j ->
(# GHC.ByteCode.Asm.InspectState
bx_didY
bx1_didZ
bx2_die0
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$sgo8
@Word
eta_B0
(ghc-internal:GHC.Internal.Types.W# bx_didY)
ds1_di9j),
ghc-internal:GHC.Internal.Tuple.() #)
})
`cast` (<LocalLabel>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <()>_R)
:: (LocalLabel
-> InspectEnv -> InspectState -> (# InspectState, () #))
~R# (LocalLabel -> InspectAsm ()))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$dIP_rt6W :: Addr#
[GblId, Unf=OtherCon []]
$dIP_rt6W = "pprPanic"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$dIP1_rt6X :: [Char]
[GblId]
$dIP1_rt6X = unpackCString# $dIP_rt6W
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$dIP2_rt6Y :: [Char]
[GblId]
$dIP2_rt6Y = unpackCString# GHC.ByteCode.Asm.$trModule4
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$dIP3_rt6Z :: [Char]
[GblId]
$dIP3_rt6Z = unpackCString# GHC.ByteCode.Asm.$trModule2
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$dIP4_rt70 :: Addr#
[GblId, Unf=OtherCon []]
$dIP4_rt70 = "compiler/GHC/ByteCode/Asm.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$dIP5_rt71 :: [Char]
[GblId]
$dIP5_rt71 = unpackCString# $dIP4_rt70
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
$dIP6_rt72 :: ghc-internal:GHC.Internal.Stack.Types.SrcLoc
[GblId, Unf=OtherCon []]
$dIP6_rt72
= ghc-internal:GHC.Internal.Stack.Types.SrcLoc
$dIP2_rt6Y $dIP3_rt6Z $dIP5_rt71 224# 10# 224# 18#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
$dIP7_rt73 :: ghc-internal:GHC.Internal.Stack.Types.CallStack
[GblId, Unf=OtherCon []]
$dIP7_rt73
= ghc-internal:GHC.Internal.Stack.Types.PushCallStack
$dIP1_rt6X
$dIP6_rt72
ghc-internal:GHC.Internal.Stack.Types.EmptyCallStack
-- RHS size: {terms: 27, types: 34, coercions: 9, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cioptr [InlPrag=INLINE (sat-args=1)]
:: IO BCOPtr -> RunAsm Word
[GblId,
Arity=5,
Str=<1C(1,L)><A><A><L><1!P(L,L,L,L,L,L)>,
Cpr=1(, , 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= (\ (p_io_a8QC [Occ=Once1] :: IO BCOPtr)
_ [Occ=Dead]
_ [Occ=Dead]
(eta2_B2 [Occ=Once1, OS=OneShot] :: State# RealWorld)
(eta3_B3 [Occ=Once1!] :: AsmState) ->
case eta3_B3 of
{ AsmState ipv_sigh [Occ=Once1] ipv1_sigi [Occ=Once1]
ipv2_sigj [Occ=Once1] ipv3_sigk [Occ=Once1] ipv4_sigl
ipv5_sigm [Occ=Once1] ->
case (p_io_a8QC
`cast` (ghc-internal:GHC.Internal.Types.N:IO <BCOPtr>_R
:: IO BCOPtr
~R# (State# RealWorld -> (# State# RealWorld, BCOPtr #))))
eta2_B2
of
{ (# ipv6_sixH [Occ=Once1], ipv7_sixI [Occ=Once1] #) ->
(# ipv6_sixH,
GHC.ByteCode.Asm.$WAsmState
(GHC.Data.SizedSeq.SizedSeq @Word16 ipv_sigh ipv1_sigi)
(GHC.Data.SizedSeq.SizedSeq @BCONPtr ipv2_sigj ipv3_sigk)
(GHC.Data.SizedSeq.SizedSeq
@BCOPtr
(plusWord# ipv4_sigl 1##)
(ghc-internal:GHC.Internal.Types.: @BCOPtr ipv7_sixI ipv5_sigm)),
ghc-internal:GHC.Internal.Types.W# ipv4_sigl #)
}
})
`cast` (<IO BCOPtr>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <Word>_R)
:: (IO BCOPtr
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, Word #))
~R# (IO BCOPtr -> RunAsm Word))}]
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cioptr
= (\ (eta_B0 :: IO BCOPtr)
_ [Occ=Dead]
_ [Occ=Dead]
(eta3_B2 [OS=OneShot] :: State# RealWorld)
(eta4_B3 :: AsmState) ->
case eta4_B3 of
{ AsmState ipv_sigh ipv1_sigi ipv2_sigj ipv3_sigk ipv4_sigl
ipv5_sigm ->
case (eta_B0
`cast` (ghc-internal:GHC.Internal.Types.N:IO <BCOPtr>_R
:: IO BCOPtr
~R# (State# RealWorld -> (# State# RealWorld, BCOPtr #))))
eta3_B2
of
{ (# ipv6_sixH, ipv7_sixI #) ->
(# ipv6_sixH,
GHC.ByteCode.Asm.AsmState
ipv_sigh
ipv1_sigi
ipv2_sigj
ipv3_sigk
(plusWord# ipv4_sigl 1##)
(ghc-internal:GHC.Internal.Types.: @BCOPtr ipv7_sixI ipv5_sigm),
ghc-internal:GHC.Internal.Types.W# ipv4_sigl #)
}
})
`cast` (<IO BCOPtr>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <Word>_R)
:: (IO BCOPtr
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, Word #))
~R# (IO BCOPtr -> RunAsm Word))
Rec {
-- RHS size: {terms: 15, types: 9, coercions: 0, joins: 0/0}
$s$w$wgo1_rt74
:: BCONPtr
-> [BCONPtr] -> Word# -> [BCONPtr] -> (# Word#, [BCONPtr] #)
[GblId[StrictWorker([~, !, ~, !])],
Arity=4,
Str=<L><1L><L><1L>,
Cpr=1,
Unf=OtherCon []]
$s$w$wgo1_rt74
= \ (sc_ss0o :: BCONPtr)
(sc1_ss0p :: [BCONPtr])
(ww_sq0T :: Word#)
(ww1_sq0U :: [BCONPtr]) ->
case ww1_sq0U of ww2_aiBG { __DEFAULT ->
$w$wgo2_rt75
sc1_ss0p
(plusWord# ww_sq0T 1##)
(ghc-internal:GHC.Internal.Types.: @BCONPtr sc_ss0o ww2_aiBG)
}
-- RHS size: {terms: 21, types: 18, coercions: 0, joins: 0/0}
$w$wgo2_rt75
:: [BCONPtr] -> Word# -> [BCONPtr] -> (# Word#, [BCONPtr] #)
[GblId[StrictWorker([!, ~, !])],
Arity=3,
Str=<1L><L><1L>,
Cpr=1,
Unf=OtherCon []]
$w$wgo2_rt75
= \ (ds_sq0S :: [BCONPtr])
(ww_sq0T [OS=OneShot] :: Word#)
(ww1_sq0U [OS=OneShot] :: [BCONPtr]) ->
case ww1_sq0U of ww2_aiBG { __DEFAULT ->
case ds_sq0S of {
[] -> (# ww_sq0T, ww2_aiBG #);
: y_aiBJ ys_aiBK ->
$w$wgo2_rt75
ys_aiBK
(plusWord# ww_sq0T 1##)
(ghc-internal:GHC.Internal.Types.: @BCONPtr y_aiBJ ww2_aiBG)
}
}
end Rec }
-- RHS size: {terms: 25, types: 33, coercions: 7, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clit [InlPrag=INLINE (sat-args=1)]
:: [BCONPtr] -> RunAsm Word
[GblId,
Arity=5,
Str=<1L><A><A><L><1!P(L,L,L,1L,L,L)>,
Cpr=1(, 1, 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= (\ (lits_a8QL [Occ=Once1] :: [BCONPtr])
_ [Occ=Dead]
_ [Occ=Dead]
(s_a8R7 [Occ=OnceL1] :: State# RealWorld)
(a2_a8R8 [Occ=Once1!] :: AsmState) ->
case a2_a8R8 of
{ AsmState ipv_sigh [Occ=OnceL1] ipv1_sigi [Occ=OnceL1] ipv2_sigj
ipv3_sigk [Occ=Once1] ipv4_sigl [Occ=OnceL1]
ipv5_sigm [Occ=OnceL1] ->
join {
$j_sllW [Occ=OnceL1!T[3]]
:: Word#
-> [BCONPtr]
-> SizedSeq BCONPtr
-> (# State# RealWorld, AsmState, Word #)
[LclId[JoinId(3)(Nothing)], Arity=3]
$j_sllW _ [Occ=Dead, OS=OneShot]
(unbx1_af8t [Occ=Once1, OS=OneShot] :: [BCONPtr])
(conrep_af8o [Occ=Once1!, OS=OneShot] :: SizedSeq BCONPtr)
= case unbx1_af8t of { __DEFAULT ->
case conrep_af8o of conrep1_X3 [Occ=Once1]
{ SizedSeq _ [Occ=Dead] _ [Occ=Dead] ->
(# s_a8R7,
GHC.ByteCode.Asm.$WAsmState
(GHC.Data.SizedSeq.SizedSeq @Word16 ipv_sigh ipv1_sigi)
conrep1_X3
(GHC.Data.SizedSeq.SizedSeq @BCOPtr ipv4_sigl ipv5_sigm),
ghc-internal:GHC.Internal.Types.W# ipv2_sigj #)
}
} } in
joinrec {
go1_aiBv [InlPrag=[2], Occ=T[2]]
:: [BCONPtr]
-> SizedSeq BCONPtr -> (# State# RealWorld, AsmState, Word #)
[LclId[JoinId(2)(Nothing)],
Arity=2,
Str=<SL><S!P(L,L)>,
Unf=Unf{Src=StableSystem, TopLvl=False,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (ds_aiBM [Occ=Once1] :: [BCONPtr])
(eta_aiBN [Occ=Once1!, OS=OneShot] :: SizedSeq BCONPtr) ->
case eta_aiBN of
{ SizedSeq ww_aiBP [Occ=Once1] ww1_aiBQ [Occ=Once1] ->
jump $wgo1_aiBw ds_aiBM ww_aiBP ww1_aiBQ
}}]
go1_aiBv (ds_aiBx [Occ=Once1] :: [BCONPtr])
(eta_aiBy [Occ=Once1!, OS=OneShot] :: SizedSeq BCONPtr)
= case eta_aiBy of
{ SizedSeq ww_aiBA [Occ=Once1] ww1_aiBB [Occ=Once1] ->
jump $wgo1_aiBw ds_aiBx ww_aiBA ww1_aiBB
};
$wgo1_aiBw [InlPrag=[2], Occ=LoopBreakerT[3]]
:: [BCONPtr]
-> Word# -> [BCONPtr] -> (# State# RealWorld, AsmState, Word #)
[LclId[JoinId(3)(Nothing)],
Arity=3,
Str=<SL><L><L>,
Unf=OtherCon []]
$wgo1_aiBw (ds_aiBD [Occ=Once1!] :: [BCONPtr])
(ww_aiBE :: Word#)
(ww1_aiBF [Occ=Once1] :: [BCONPtr])
= case ww1_aiBF of ww2_aiBG { __DEFAULT ->
case ds_aiBD of {
[] ->
jump $j_sllW
ww_aiBE
ww2_aiBG
(GHC.Data.SizedSeq.SizedSeq @BCONPtr ww_aiBE ww2_aiBG);
: y_aiBJ [Occ=Once1] ys_aiBK [Occ=Once1] ->
jump go1_aiBv
ys_aiBK
(GHC.Data.SizedSeq.SizedSeq
@BCONPtr
(plusWord# ww_aiBE 1##)
(ghc-internal:GHC.Internal.Types.: @BCONPtr y_aiBJ ww2_aiBG))
}
}; } in
jump go1_aiBv
lits_a8QL (GHC.Data.SizedSeq.SizedSeq @BCONPtr ipv2_sigj ipv3_sigk)
})
`cast` (<[BCONPtr]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <Word>_R)
:: ([BCONPtr]
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, Word #))
~R# ([BCONPtr] -> RunAsm Word))}]
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clit
= (\ (eta_B0 :: [BCONPtr])
_ [Occ=Dead]
_ [Occ=Dead]
(s_a8R7 :: State# RealWorld)
(a2_a8R8 :: AsmState) ->
case a2_a8R8 of
{ AsmState ipv_sigh ipv1_sigi ipv2_sigj ipv3_sigk ipv4_sigl
ipv5_sigm ->
case $w$wgo2_rt75 eta_B0 ipv2_sigj ipv3_sigk of
{ (# ww_sqFt, ww1_sqFu #) ->
(# s_a8R7,
GHC.ByteCode.Asm.AsmState
ipv_sigh ipv1_sigi ww_sqFt ww1_sqFu ipv4_sigl ipv5_sigm,
ghc-internal:GHC.Internal.Types.W# ipv2_sigj #)
}
})
`cast` (<[BCONPtr]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <Word>_R)
:: ([BCONPtr]
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, Word #))
~R# ([BCONPtr] -> RunAsm Word))
-- RHS size: {terms: 12, types: 23, coercions: 6, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clabel [InlPrag=INLINE (sat-args=1)]
:: LocalLabel -> RunAsm ()
[GblId,
Arity=5,
Str=<A><A><A><L><1L>,
Cpr=1(, , 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= (\ _ [Occ=Dead]
_ [Occ=Dead]
_ [Occ=Dead]
(s_a8Rd [Occ=Once1] :: State# RealWorld)
(a2_a8Re [Occ=Once1!] :: AsmState) ->
case a2_a8Re of a3_X0 [Occ=Once1]
{ AsmState _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead]
_ [Occ=Dead] _ [Occ=Dead] ->
(# s_a8Rd, a3_X0, ghc-internal:GHC.Internal.Tuple.() #)
})
`cast` (<LocalLabel>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <()>_R)
:: (LocalLabel
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, () #))
~R# (LocalLabel -> RunAsm ()))}]
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clabel
= (\ _ [Occ=Dead]
_ [Occ=Dead]
_ [Occ=Dead]
(s_a8Rd :: State# RealWorld)
(a2_a8Re :: AsmState) ->
case a2_a8Re of a3_X0
{ AsmState ipv_sifD ipv1_sifE ipv2_sifF ipv3_sifG ipv4_sifH
ipv5_sifI ->
(# s_a8Rd, a3_X0, ghc-internal:GHC.Internal.Tuple.() #)
})
`cast` (<LocalLabel>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <()>_R)
:: (LocalLabel
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, () #))
~R# (LocalLabel -> RunAsm ()))
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.assembleBCOs3
:: Applicative
(MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity)
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=False, ConLike=True, WorkFree=False, Expandable=True,
Guidance=IF_ARGS [] 30 0}]
GHC.ByteCode.Asm.assembleBCOs3
= Control.Monad.Trans.State.Strict.$fApplicativeStateT
@ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
@[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.$fFunctorIdentity
ghc-internal:GHC.Internal.Data.Functor.Identity.$fMonadIdentity
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl_rt76 :: Addr#
[GblId, Unf=OtherCon []]
lvl_rt76 = "mallocStrings:spliceLit"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl1_rt77 :: [Char]
[GblId]
lvl1_rt77 = unpackCString# lvl_rt76
-- RHS size: {terms: 2, types: 6, coercions: 0, joins: 0/0}
lvl2_rt78
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
BCONPtr
[GblId, Str=b, Cpr=b]
lvl2_rt78
= GHC.Utils.Panic.Plain.$wpanic
@(MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
BCONPtr)
lvl1_rt77
-- RHS size: {terms: 23, types: 30, coercions: 16, joins: 0/0}
lvl3_rt79
:: BCONPtr
-> [RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(BCONPtr, [RemotePtr ()])
[GblId, Arity=2, Str=<1L><L>, Cpr=1, Unf=OtherCon []]
lvl3_rt79
= \ (ds_di5y :: BCONPtr) (eta_B0 :: [RemotePtr ()]) ->
case ds_di5y of wild_X2 {
__DEFAULT ->
(wild_X2, eta_B0)
`cast` (Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(BCONPtr, [RemotePtr ()])>_R)
:: (BCONPtr, [RemotePtr ()])
~R# ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(BCONPtr, [RemotePtr ()]));
BCONPtrStr ds1_di5U ->
case eta_B0 of {
[] -> case lvl2_rt78 of {};
: ds2_di5P rest_a985 ->
(case ds2_di5P
`cast` (GHCi.RemoteTypes.N:RemotePtr <()>_P
:: RemotePtr () ~R# Word64)
of
{ ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
GHC.ByteCode.Types.BCONPtrWord (word64ToWord# x#_aiNy)
},
rest_a985)
`cast` (Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(BCONPtr, [RemotePtr ()])>_R)
:: (BCONPtr, [RemotePtr ()])
~R# ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(BCONPtr, [RemotePtr ()]))
}
}
Rec {
-- RHS size: {terms: 21, types: 32, coercions: 52, joins: 0/1}
splicePtr_rt7a
:: BCOPtr
-> MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
BCOPtr
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
splicePtr_rt7a
= \ (ds_di4X :: BCOPtr) ->
case ds_di4X of wild_X2 {
__DEFAULT ->
(\ (eta1_aiDo :: [RemotePtr ()]) -> (wild_X2, eta1_aiDo))
`cast` (<[RemotePtr ()]>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(BCOPtr, [RemotePtr ()])>_R)
; Sym (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<BCOPtr>_N)
:: ([RemotePtr ()] -> (BCOPtr, [RemotePtr ()]))
~R# MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
BCOPtr);
BCOPtrBCO bco_a9ei ->
let {
m1_skus [Dmd=LC(S,L)]
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
UnlinkedBCO
[LclId]
m1_skus = GHC.ByteCode.Asm.assembleBCOs_splice bco_a9ei } in
(\ (s1_aiMh :: [RemotePtr ()]) ->
case ((m1_skus
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<UnlinkedBCO>_N
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
UnlinkedBCO
~R# ([RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(UnlinkedBCO, [RemotePtr ()]))))
s1_aiMh)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(UnlinkedBCO, [RemotePtr ()])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(UnlinkedBCO, [RemotePtr ()])
~R# (UnlinkedBCO, [RemotePtr ()]))
of
{ (a2_aiMk, s'_aiMl) ->
(GHC.ByteCode.Types.BCOPtrBCO a2_aiMk, s'_aiMl)
})
`cast` (<[RemotePtr ()]>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(BCOPtr, [RemotePtr ()])>_R)
; Sym (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<BCOPtr>_N)
:: ([RemotePtr ()] -> (BCOPtr, [RemotePtr ()]))
~R# MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
BCOPtr)
}
-- RHS size: {terms: 30, types: 60, coercions: 52, joins: 0/1}
GHC.ByteCode.Asm.assembleBCOs_splice [Occ=LoopBreaker]
:: UnlinkedBCO
-> MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
UnlinkedBCO
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
GHC.ByteCode.Asm.assembleBCOs_splice
= \ (bco_a958 :: UnlinkedBCO) ->
case bco_a958 of
{ UnlinkedBCO ds_di4R bx_didi bx1_didj bx2_didk ds1_di4V
ds2_di4W ->
let {
m1_skuM [Dmd=LC(S,L)]
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCONPtr)
[LclId]
m1_skuM
= GHC.Data.FlatBag.$fTraversableFlatBag_$ctraverse
@(MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity)
@BCONPtr
@BCONPtr
GHC.ByteCode.Asm.assembleBCOs3
(lvl3_rt79
`cast` (<BCONPtr>_R
%<Many>_N ->_R Sym (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<BCONPtr>_N)
:: (BCONPtr
-> [RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(BCONPtr, [RemotePtr ()]))
~R# (BCONPtr
-> MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
BCONPtr)))
ds1_di4V } in
(\ (s1_aiDS :: [RemotePtr ()]) ->
case ((m1_skuM
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<FlatBag BCONPtr>_N
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCONPtr)
~R# ([RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCONPtr, [RemotePtr ()]))))
s1_aiDS)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(FlatBag BCONPtr, [RemotePtr ()])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCONPtr, [RemotePtr ()])
~R# (FlatBag BCONPtr, [RemotePtr ()]))
of
{ (a2_aiDV, s'_aiDW) ->
case (((GHC.Data.FlatBag.$fTraversableFlatBag_$ctraverse
@(MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity)
@BCOPtr
@BCOPtr
GHC.ByteCode.Asm.assembleBCOs3
splicePtr_rt7a
ds2_di4W)
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<FlatBag BCOPtr>_N
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCOPtr)
~R# ([RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCOPtr, [RemotePtr ()]))))
s'_aiDW)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(FlatBag BCOPtr, [RemotePtr ()])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag BCOPtr, [RemotePtr ()])
~R# (FlatBag BCOPtr, [RemotePtr ()]))
of
{ (a3_X4, s'1_X5) ->
(GHC.ByteCode.Types.UnlinkedBCO
ds_di4R bx_didi bx1_didj bx2_didk a2_aiDV a3_X4,
s'1_X5)
`cast` (Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(UnlinkedBCO, [RemotePtr ()])>_R)
:: (UnlinkedBCO, [RemotePtr ()])
~R# ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(UnlinkedBCO, [RemotePtr ()]))
}
})
`cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<UnlinkedBCO>_N)
:: ([RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(UnlinkedBCO, [RemotePtr ()]))
~R# MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
UnlinkedBCO)
}
end Rec }
-- RHS size: {terms: 4, types: 5, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.assembleBCOs4
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
[GblId,
Arity=1,
Str=<L>,
Cpr=1(1,),
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)
Tmpl= \ (eta1_aiDo [Occ=Once1]
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
(ghc-internal:GHC.Internal.Tuple.(), eta1_aiDo)}]
GHC.ByteCode.Asm.assembleBCOs4
= \ (eta1_aiDo
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
(ghc-internal:GHC.Internal.Tuple.(), eta1_aiDo)
-- RHS size: {terms: 18, types: 21, coercions: 23, joins: 1/1}
c_rt7b
:: forall {b1}.
BCONPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
[GblId, Arity=3, Str=<1L><1C(1,L)><L>, Unf=OtherCon []]
c_rt7b
= (\ (@b1_aiD4)
(eta_aiD5 :: BCONPtr)
(eta1_aiD6
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4)
(eta2_B0
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
join {
$j_slma [Dmd=1C(1,L)]
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD4,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j_slma (s'_aiDJ [OS=OneShot]
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
= (eta1_aiD6
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD4>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD4,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
s'_aiDJ } in
case eta_aiD5 of {
__DEFAULT -> jump $j_slma eta2_B0;
BCONPtrStr bs_a9eI ->
jump $j_slma
(ghc-internal:GHC.Internal.Types.:
@bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString
bs_a9eI
eta2_B0)
})
`cast` (forall (b1 :: <*>_N).
<BCONPtr>_R
%<Many>_N ->_R <MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1>_R
%<Many>_N ->_R Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1>_N)
:: (forall b1.
BCONPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
-> [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# (forall b1.
BCONPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1))
Rec {
-- RHS size: {terms: 8, types: 3, coercions: 17, joins: 0/0}
collectPtr_rt7c
:: BCOPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
collectPtr_rt7c
= \ (ds_di6o :: BCOPtr) ->
case ds_di6o of {
__DEFAULT ->
GHC.ByteCode.Asm.assembleBCOs4
`cast` (<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R)
; Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
());
BCOPtrBCO bco_a9eK ->
GHC.ByteCode.Asm.assembleBCOs_collect bco_a9eK
}
-- RHS size: {terms: 13, types: 21, coercions: 21, joins: 0/1}
c1_rt7d
:: forall {b1}.
BCOPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
[GblId, Arity=2, Str=<ML><LC(S,L)>, Unf=OtherCon []]
c1_rt7d
= \ (@b1_aiD4)
(eta_aiD5 :: BCOPtr)
(eta1_aiD6
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4) ->
let {
eta2_skuf [Dmd=LC(S,P(A,L))]
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[LclId]
eta2_skuf = collectPtr_rt7c eta_aiD5 } in
(\ (eta3_aiDF
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
case ((eta2_skuf
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
eta3_aiDF)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
~R# ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
of
{ (_ [Occ=Dead], s'_aiDJ) ->
(eta1_aiD6
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD4>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD4,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
s'_aiDJ
})
`cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD4>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD4,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4)
-- RHS size: {terms: 23, types: 55, coercions: 87, joins: 0/2}
GHC.ByteCode.Asm.assembleBCOs_collect [Occ=LoopBreaker]
:: UnlinkedBCO
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
GHC.ByteCode.Asm.assembleBCOs_collect
= \ (ds_di5Z :: UnlinkedBCO) ->
case ds_di5Z of
{ UnlinkedBCO ds1_di6i bx_didq bx1_didr bx2_dids ds2_di6m
ds3_di6n ->
let {
eta_skud [Dmd=LC(S,P(A,L))]
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[LclId]
eta_skud
= ((GHC.Data.FlatBag.$fFoldableFlatBag_$cfoldMap
@(ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))
@BCONPtr
(ghc-internal:GHC.Internal.Data.Semigroup.Internal.$fMonoidEndo
@(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))
((c_rt7b @())
`cast` (<BCONPtr>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Endo
<MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()>_R)
:: (BCONPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
~R# (BCONPtr
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))))
ds2_di6m)
`cast` (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Endo
<MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()>_R
:: ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
~R# (MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())))
(GHC.ByteCode.Asm.assembleBCOs4
`cast` (<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R)
; Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())) } in
let {
eta1_skuj [Dmd=LC(S,L)]
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[LclId]
eta1_skuj
= ((GHC.Data.FlatBag.$fFoldableFlatBag_$cfoldMap
@(ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))
@BCOPtr
(ghc-internal:GHC.Internal.Data.Semigroup.Internal.$fMonoidEndo
@(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))
((c1_rt7d @())
`cast` (<BCOPtr>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Endo
<MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()>_R)
:: (BCOPtr
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
~R# (BCOPtr
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))))
ds3_di6n)
`cast` (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Endo
<MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()>_R
:: ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
~R# (MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())))
(GHC.ByteCode.Asm.assembleBCOs4
`cast` (<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R)
; Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())) } in
(\ (eta2_aiDF
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
case ((eta_skud
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
eta2_aiDF)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
~R# ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
of
{ (_ [Occ=Dead], s'_aiDJ) ->
(eta1_skuj
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
s'_aiDJ
})
`cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
}
end Rec }
-- RHS size: {terms: 13, types: 21, coercions: 21, joins: 0/1}
GHC.ByteCode.Asm.assembleBCOs_c [InlPrag=INLINE (sat-args=2)]
:: forall {b1}.
UnlinkedBCO
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1
[GblId,
Arity=2,
Str=<ML><LC(S,L)>,
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=False,boring_ok=False)
Tmpl= \ (@b1_aiD7)
(x_aiD8 [Occ=Once1] :: UnlinkedBCO)
(k_aiD9 [Occ=OnceL1]
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD7) ->
let {
eta_aiDD [Occ=OnceL1]
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[LclId]
eta_aiDD = GHC.ByteCode.Asm.assembleBCOs_collect x_aiD8 } in
(\ (eta2_aiDF [Occ=Once1]
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
case ((eta_aiDD
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
eta2_aiDF)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
~R# ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
of
{ (_ [Occ=Dead], s'_aiDJ [Occ=Once1]) ->
(k_aiD9
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD7>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD7
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD7,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
s'_aiDJ
})
`cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD7>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD7,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD7)}]
GHC.ByteCode.Asm.assembleBCOs_c
= \ (@b1_aiD4)
(eta_aiD5 :: UnlinkedBCO)
(eta1_aiD6
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4) ->
let {
eta2_skul [Dmd=LC(S,P(A,L))]
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
[LclId]
eta2_skul = GHC.ByteCode.Asm.assembleBCOs_collect eta_aiD5 } in
(\ (eta3_aiDF
:: [bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]) ->
case ((eta2_skul
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
eta3_aiDF)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
~R# ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
of
{ (_ [Occ=Dead], s'_aiDJ) ->
(eta1_aiD6
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD4>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD4,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
s'_aiDJ
})
`cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<b1_aiD4>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(b1_aiD4,
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
b1_aiD4)
-- RHS size: {terms: 34, types: 72, coercions: 60, joins: 0/0}
GHC.ByteCode.Asm.$wmallocStrings [InlPrag=[2]]
:: InterpInstance
-> FlatBag UnlinkedBCO
-> State# RealWorld
-> (# State# RealWorld, FlatBag UnlinkedBCO #)
[GblId[StrictWorker([!])],
Arity=3,
Str=<1L><L><L>,
Cpr=1,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [20 0 0] 230 10}]
GHC.ByteCode.Asm.$wmallocStrings
= \ (ww_sq1R :: InterpInstance)
(ulbcos_sq1V [OS=OneShot] :: FlatBag UnlinkedBCO)
(s_sq1W [OS=OneShot] :: State# RealWorld) ->
case ww_sq1R of wild_X2 { __DEFAULT ->
case GHC.Runtime.Interpreter.$winterpCmd
@[RemotePtr ()]
GHC.ByteCode.Asm.assembleBCOs5
wild_X2
(GHCi.Message.MallocStrings
@[RemotePtr ()]
@~(<[RemotePtr ()]>_N
:: [RemotePtr ()] ghc-internal:GHC.Internal.Prim.~# [RemotePtr ()])
(case (((((GHC.Data.FlatBag.$fFoldableFlatBag_$cfoldMap
@(ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))
@UnlinkedBCO
(ghc-internal:GHC.Internal.Data.Semigroup.Internal.$fMonoidEndo
@(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))
((GHC.ByteCode.Asm.assembleBCOs_c @())
`cast` (<UnlinkedBCO>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Endo
<MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()>_R)
:: (UnlinkedBCO
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
~R# (UnlinkedBCO
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()))))
ulbcos_sq1V)
`cast` (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Endo
<MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()>_R
:: ghc-internal:GHC.Internal.Data.Semigroup.Internal.Endo
(MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())
~R# (MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
-> MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())))
(GHC.ByteCode.Asm.assembleBCOs4
`cast` (<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_R
%<Many>_N ->_R Sym (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R)
; Sym (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N)
:: ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
~R# MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
())))
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<()>_N
:: MTL.StateT
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
()
~R# ([bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))))
(ghc-internal:GHC.Internal.Types.[]
@bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString))
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString])
~R# ((),
[bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString]))
of
{ (_ [Occ=Dead], y_aiCT) ->
ghc-internal:GHC.Internal.List.reverse1
@bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString
y_aiCT
(ghc-internal:GHC.Internal.Types.[]
@bytestring-0.12.2.0-inplace:Data.ByteString.Internal.Type.ByteString)
}))
s_sq1W
of
{ (# ipv_aiCn, ipv1_aiCo #) ->
(# ipv_aiCn,
case (((GHC.Data.FlatBag.$fTraversableFlatBag_$ctraverse
@(MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity)
@UnlinkedBCO
@UnlinkedBCO
GHC.ByteCode.Asm.assembleBCOs3
GHC.ByteCode.Asm.assembleBCOs_splice
ulbcos_sq1V)
`cast` (Control.Monad.Trans.State.Strict.N:StateT
<[RemotePtr ()]>_N
<ghc-internal:GHC.Internal.Data.Functor.Identity.Identity>_R
<FlatBag UnlinkedBCO>_N
:: MTL.StateT
[RemotePtr ()]
ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag UnlinkedBCO)
~R# ([RemotePtr ()]
-> ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag UnlinkedBCO, [RemotePtr ()]))))
ipv1_aiCo)
`cast` (ghc-internal:GHC.Internal.Data.Functor.Identity.N:Identity
<(FlatBag UnlinkedBCO, [RemotePtr ()])>_R
:: ghc-internal:GHC.Internal.Data.Functor.Identity.Identity
(FlatBag UnlinkedBCO, [RemotePtr ()])
~R# (FlatBag UnlinkedBCO, [RemotePtr ()]))
of
{ (x_aiKN, _ [Occ=Dead]) ->
x_aiKN
} #)
}
}
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
$dIP8_rt7e :: ghc-internal:GHC.Internal.Stack.Types.SrcLoc
[GblId, Unf=OtherCon []]
$dIP8_rt7e
= ghc-internal:GHC.Internal.Stack.Types.SrcLoc
$dIP2_rt6Y $dIP3_rt6Z $dIP5_rt71 276# 8# 276# 16#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
$dIP9_rt7f :: ghc-internal:GHC.Internal.Stack.Types.CallStack
[GblId, Unf=OtherCon []]
$dIP9_rt7f
= ghc-internal:GHC.Internal.Stack.Types.PushCallStack
$dIP1_rt6X
$dIP8_rt7e
ghc-internal:GHC.Internal.Stack.Types.EmptyCallStack
-- RHS size: {terms: 16, types: 13, coercions: 7, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cioptr [InlPrag=INLINE (sat-args=1)]
:: IO BCOPtr -> InspectAsm Word
[GblId,
Arity=3,
Str=<A><A><1!P(L,L,L,L)>,
Cpr=1(1, 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= (\ _ [Occ=Dead]
_ [Occ=Dead]
(b_a8Qf [Occ=Once1!] :: InspectState) ->
case b_a8Qf of
{ InspectState bx_didQ [Occ=Once1] bx1_didR bx2_didS [Occ=Once1]
lblEnv1_B4 [Occ=Once1] ->
(# GHC.ByteCode.Asm.InspectState
bx_didQ (plusWord# bx1_didR 1##) bx2_didS lblEnv1_B4,
ghc-internal:GHC.Internal.Types.W# bx1_didR #)
})
`cast` (<IO BCOPtr>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <Word>_R)
:: (IO BCOPtr
-> InspectEnv -> InspectState -> (# InspectState, Word #))
~R# (IO BCOPtr -> InspectAsm Word))}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cioptr
= (\ _ [Occ=Dead] _ [Occ=Dead] (b_a8Qf :: InspectState) ->
case b_a8Qf of
{ InspectState bx_didQ bx1_didR bx2_didS lblEnv1_B4 ->
(# GHC.ByteCode.Asm.InspectState
bx_didQ (plusWord# bx1_didR 1##) bx2_didS lblEnv1_B4,
ghc-internal:GHC.Internal.Types.W# bx1_didR #)
})
`cast` (<IO BCOPtr>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <Word>_R)
:: (IO BCOPtr
-> InspectEnv -> InspectState -> (# InspectState, Word #))
~R# (IO BCOPtr -> InspectAsm Word))
-- RHS size: {terms: 22, types: 15, coercions: 7, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clit [InlPrag=INLINE (sat-args=1)]
:: [BCONPtr] -> InspectAsm Word
[GblId,
Arity=3,
Str=<1L><A><1!P(L,L,L,L)>,
Cpr=1(1, 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=False,boring_ok=False)
Tmpl= (\ (ls_a8st [Occ=Once1] :: [BCONPtr])
_ [Occ=Dead]
(b_a8Qf [Occ=Once1!] :: InspectState) ->
case b_a8Qf of
{ InspectState bx_didU [Occ=Once1] bx1_didV [Occ=Once1] bx2_didW
lblEnv1_B4 [Occ=Once1] ->
case ghc-internal:GHC.Internal.List.$wlenAcc @BCONPtr ls_a8st 0#
of ww1_aiO0 [Occ=Once1]
{ __DEFAULT ->
(# GHC.ByteCode.Asm.InspectState
bx_didU
bx1_didV
(plusWord# bx2_didW (int2Word# ww1_aiO0))
lblEnv1_B4,
ghc-internal:GHC.Internal.Types.W# bx2_didW #)
}
})
`cast` (<[BCONPtr]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <Word>_R)
:: ([BCONPtr]
-> InspectEnv -> InspectState -> (# InspectState, Word #))
~R# ([BCONPtr] -> InspectAsm Word))}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clit
= (\ (eta_B0 :: [BCONPtr]) _ [Occ=Dead] (b_a8Qf :: InspectState) ->
case b_a8Qf of
{ InspectState bx_didU bx1_didV bx2_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc @BCONPtr eta_B0 0#
of ww1_aiO0
{ __DEFAULT ->
(# GHC.ByteCode.Asm.InspectState
bx_didU
bx1_didV
(plusWord# bx2_didW (int2Word# ww1_aiO0))
lblEnv1_B4,
ghc-internal:GHC.Internal.Types.W# bx2_didW #)
}
})
`cast` (<[BCONPtr]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <Word>_R)
:: ([BCONPtr]
-> InspectEnv -> InspectState -> (# InspectState, Word #))
~R# ([BCONPtr] -> InspectAsm Word))
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl4_rt7g :: Addr#
[GblId, Unf=OtherCon []]
lvl4_rt7g = "GHC.ByteCode.Asm.truncHalfWord"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl5_rt7h :: [Char]
[GblId]
lvl5_rt7h = unpackCString# lvl4_rt7g
-- RHS size: {terms: 7, types: 3, coercions: 6, joins: 0/0}
$wlvl_rt7i :: Word# -> Operand
[GblId, Arity=1, Str=<S>b, Cpr=b, Unf=OtherCon []]
$wlvl_rt7i
= \ (ww_sq23 :: Word#) ->
pprPanic
@Operand
($dIP9_rt7f
`cast` (Sym (ghc-internal:GHC.Internal.Classes.N:IP
<"callStack">_N
<ghc-internal:GHC.Internal.Stack.Types.CallStack>_N)
:: ghc-internal:GHC.Internal.Stack.Types.CallStack
~R# (?callStack::ghc-internal:GHC.Internal.Stack.Types.CallStack)))
lvl5_rt7h
((\ _ [Occ=Dead, OS=OneShot] ->
GHC.Utils.Outputable.$w$cppr11 ww_sq23)
`cast` (Sym GHC.Utils.Outputable.N:SDoc
:: (SDocContext -> GHC.Utils.Ppr.Doc) ~R# SDoc))
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl6_rt7j :: Word16
[GblId, Unf=OtherCon []]
lvl6_rt7j = ghc-internal:GHC.Internal.Word.W16# 13#Word16
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl7_rt7k :: Word16
[GblId, Unf=OtherCon []]
lvl7_rt7k = ghc-internal:GHC.Internal.Word.W16# 14#Word16
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl8_rt7l :: Word16
[GblId, Unf=OtherCon []]
lvl8_rt7l = ghc-internal:GHC.Internal.Word.W16# 17#Word16
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl9_rt7m :: Word16
[GblId, Unf=OtherCon []]
lvl9_rt7m = ghc-internal:GHC.Internal.Word.W16# 18#Word16
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl10_rt7n :: Word16
[GblId, Unf=OtherCon []]
lvl10_rt7n = ghc-internal:GHC.Internal.Word.W16# 15#Word16
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl11_rt7o :: Word16
[GblId, Unf=OtherCon []]
lvl11_rt7o = ghc-internal:GHC.Internal.Word.W16# 16#Word16
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl12_rt7p :: Addr#
[GblId, Unf=OtherCon []]
lvl12_rt7p = "error"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl13_rt7q :: [Char]
[GblId]
lvl13_rt7q = unpackCString# lvl12_rt7p
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl14_rt7r :: ghc-internal:GHC.Internal.Stack.Types.SrcLoc
[GblId, Unf=OtherCon []]
lvl14_rt7r
= ghc-internal:GHC.Internal.Stack.Types.SrcLoc
$dIP2_rt6Y $dIP3_rt6Z $dIP5_rt71 750# 17# 750# 22#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl15_rt7s :: ghc-internal:GHC.Internal.Stack.Types.CallStack
[GblId, Unf=OtherCon []]
lvl15_rt7s
= ghc-internal:GHC.Internal.Stack.Types.PushCallStack
lvl13_rt7q
lvl14_rt7r
ghc-internal:GHC.Internal.Stack.Types.EmptyCallStack
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl16_rt7t :: Addr#
[GblId, Unf=OtherCon []]
lvl16_rt7t = "push_alts: vector"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl17_rt7u :: [Char]
[GblId]
lvl17_rt7u = unpackCString# lvl16_rt7t
-- RHS size: {terms: 3, types: 2, coercions: 4, joins: 0/0}
lvl18_rt7v :: Word16
[GblId, Str=b, Cpr=b]
lvl18_rt7v
= error
@LiftedRep
@Word16
(lvl15_rt7s
`cast` (Sym (ghc-internal:GHC.Internal.Classes.N:IP
<"callStack">_N
<ghc-internal:GHC.Internal.Stack.Types.CallStack>_N)
:: ghc-internal:GHC.Internal.Stack.Types.CallStack
~R# (?callStack::ghc-internal:GHC.Internal.Stack.Types.CallStack)))
lvl17_rt7u
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl19_rt7w :: ghc-internal:GHC.Internal.Stack.Types.SrcLoc
[GblId, Unf=OtherCon []]
lvl19_rt7w
= ghc-internal:GHC.Internal.Stack.Types.SrcLoc
$dIP2_rt6Y $dIP3_rt6Z $dIP5_rt71 751# 17# 751# 22#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl20_rt7x :: ghc-internal:GHC.Internal.Stack.Types.CallStack
[GblId, Unf=OtherCon []]
lvl20_rt7x
= ghc-internal:GHC.Internal.Stack.Types.PushCallStack
lvl13_rt7q
lvl19_rt7w
ghc-internal:GHC.Internal.Stack.Types.EmptyCallStack
-- RHS size: {terms: 3, types: 2, coercions: 4, joins: 0/0}
lvl21_rt7y :: Word16
[GblId, Str=b, Cpr=b]
lvl21_rt7y
= error
@LiftedRep
@Word16
(lvl20_rt7x
`cast` (Sym (ghc-internal:GHC.Internal.Classes.N:IP
<"callStack">_N
<ghc-internal:GHC.Internal.Stack.Types.CallStack>_N)
:: ghc-internal:GHC.Internal.Stack.Types.CallStack
~R# (?callStack::ghc-internal:GHC.Internal.Stack.Types.CallStack)))
lvl17_rt7u
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl22_rt7z :: ghc-internal:GHC.Internal.Stack.Types.SrcLoc
[GblId, Unf=OtherCon []]
lvl22_rt7z
= ghc-internal:GHC.Internal.Stack.Types.SrcLoc
$dIP2_rt6Y $dIP3_rt6Z $dIP5_rt71 752# 17# 752# 22#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl23_rt7A :: ghc-internal:GHC.Internal.Stack.Types.CallStack
[GblId, Unf=OtherCon []]
lvl23_rt7A
= ghc-internal:GHC.Internal.Stack.Types.PushCallStack
lvl13_rt7q
lvl22_rt7z
ghc-internal:GHC.Internal.Stack.Types.EmptyCallStack
-- RHS size: {terms: 3, types: 2, coercions: 4, joins: 0/0}
lvl24_rt7B :: Word16
[GblId, Str=b, Cpr=b]
lvl24_rt7B
= error
@LiftedRep
@Word16
(lvl23_rt7A
`cast` (Sym (ghc-internal:GHC.Internal.Classes.N:IP
<"callStack">_N
<ghc-internal:GHC.Internal.Stack.Types.CallStack>_N)
:: ghc-internal:GHC.Internal.Stack.Types.CallStack
~R# (?callStack::ghc-internal:GHC.Internal.Stack.Types.CallStack)))
lvl17_rt7u
-- RHS size: {terms: 285, types: 130, coercions: 0, joins: 0/3}
GHC.ByteCode.Asm.$wexpand [InlPrag=[2]]
:: PlatformWordSize
-> Bool
-> LabelEnv
-> Word#
-> [Word16]
-> Operand
-> (# Word#, [Word16] #)
[GblId[StrictWorker([~, !, ~, ~, !, !])],
Arity=6,
Str=<ML><1L><MC(1,L)><L><1L><1L>,
Cpr=1,
Unf=OtherCon []]
GHC.ByteCode.Asm.$wexpand
= \ (word_size_sq2h :: PlatformWordSize)
(largeArgs_sq2i :: Bool)
(e_sq2j :: LabelEnv)
(ww_sq2m :: Word#)
(ww1_sq2n :: [Word16])
(eta_sq2p :: Operand) ->
case ww1_sq2n of ww2_X2 { __DEFAULT ->
case largeArgs_sq2i of largeArgs1_X0 { __DEFAULT ->
case eta_sq2p of {
Op w38_abwp ->
case largeArgs1_X0 of {
False ->
(# plusWord# ww_sq2m 1##,
ghc-internal:GHC.Internal.Types.:
@Word16
(case w38_abwp of { W# x#_aiYX ->
ghc-internal:GHC.Internal.Word.W16# (wordToWord16# x#_aiYX)
})
ww2_X2 #);
True ->
let {
eta1_skuZ :: Word64
[LclId]
eta1_skuZ
= case w38_abwp of { W# x#_aiYX ->
ghc-internal:GHC.Internal.Word.W64# (wordToWord64# x#_aiYX)
} } in
case word_size_sq2h of {
PW4 ->
(# plusWord# 2## ww_sq2m,
ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skuZ of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 16#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skuZ of { ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# x#_aiNy))
})
ww2_X2) #);
PW8 ->
(# plusWord# 4## ww_sq2m,
ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skuZ of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 48#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skuZ of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 32#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skuZ of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 16#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skuZ of { ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# x#_aiNy))
})
ww2_X2))) #)
}
};
IOp i_abwq ->
case largeArgs1_X0 of {
False ->
(# plusWord# ww_sq2m 1##,
ghc-internal:GHC.Internal.Types.:
@Word16
(case i_abwq of { I# i1_aiZ1 ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (int2Word# i1_aiZ1))
})
ww2_X2 #);
True ->
let {
eta1_skv3 :: Word64
[LclId]
eta1_skv3
= case i_abwq of { I# i1_aiZ1 ->
ghc-internal:GHC.Internal.Word.W64#
(int64ToWord64# (intToInt64# i1_aiZ1))
} } in
case word_size_sq2h of {
PW4 ->
(# plusWord# 2## ww_sq2m,
ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skv3 of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 16#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skv3 of { ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# x#_aiNy))
})
ww2_X2) #);
PW8 ->
(# plusWord# 4## ww_sq2m,
ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skv3 of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 48#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skv3 of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 32#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skv3 of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# (uncheckedShiftRL64# x#_aj4u 16#)))
})
(ghc-internal:GHC.Internal.Types.:
@Word16
(case eta1_skv3 of { ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# x#_aiNy))
})
ww2_X2))) #)
}
};
SmallOp w38_abwm ->
(# plusWord# ww_sq2m 1##,
ghc-internal:GHC.Internal.Types.: @Word16 w38_abwm ww2_X2 #);
LabelOp w38_abwn ->
case e_sq2j w38_abwn of { W# ipv_sj4Z ->
case largeArgs1_X0 of {
False ->
(# plusWord# ww_sq2m 1##,
ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16# (wordToWord16# ipv_sj4Z))
ww2_X2 #);
True ->
let {
eta1_ss56 :: Word64#
[LclId]
eta1_ss56 = wordToWord64# ipv_sj4Z } in
case word_size_sq2h of {
PW4 ->
(# plusWord# 2## ww_sq2m,
ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16#
(word64ToWord# (uncheckedShiftRL64# eta1_ss56 16#))))
(ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# eta1_ss56)))
ww2_X2) #);
PW8 ->
(# plusWord# 4## ww_sq2m,
ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16#
(word64ToWord# (uncheckedShiftRL64# eta1_ss56 48#))))
(ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16#
(word64ToWord# (uncheckedShiftRL64# eta1_ss56 32#))))
(ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16#
(word64ToWord# (uncheckedShiftRL64# eta1_ss56 16#))))
(ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (word64ToWord# eta1_ss56)))
ww2_X2))) #)
}
}
}
}
}
}
-- RHS size: {terms: 20, types: 21, coercions: 0, joins: 0/0}
expand [InlPrag=[2]]
:: PlatformWordSize
-> Bool
-> LabelEnv
-> SizedSeq Word16
-> Operand
-> SizedSeq Word16
[GblId,
Arity=5,
Str=<ML><1L><MC(1,L)><1!P(L,1L)><1L>,
Cpr=1,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=5,unsat_ok=True,boring_ok=False)
Tmpl= \ (word_size_sq2h [Occ=Once1] :: PlatformWordSize)
(largeArgs_sq2i [Occ=Once1] :: Bool)
(e_sq2j [Occ=Once1] :: LabelEnv)
(eta_sq2k [Occ=Once1!] :: SizedSeq Word16)
(eta1_sq2p [Occ=Once1] :: Operand) ->
case eta_sq2k of
{ SizedSeq ww_sq2m [Occ=Once1] ww1_sq2n [Occ=Once1] ->
case GHC.ByteCode.Asm.$wexpand
word_size_sq2h largeArgs_sq2i e_sq2j ww_sq2m ww1_sq2n eta1_sq2p
of
{ (# ww2_sqFw [Occ=Once1], ww3_sqFx [Occ=Once1] #) ->
GHC.Data.SizedSeq.SizedSeq @Word16 ww2_sqFw ww3_sqFx
}
}}]
expand
= \ (word_size_sq2h :: PlatformWordSize)
(largeArgs_sq2i :: Bool)
(e_sq2j :: LabelEnv)
(eta_sq2k :: SizedSeq Word16)
(eta1_sq2p :: Operand) ->
case eta_sq2k of { SizedSeq ww_sq2m ww1_sq2n ->
case GHC.ByteCode.Asm.$wexpand
word_size_sq2h largeArgs_sq2i e_sq2j ww_sq2m ww1_sq2n eta1_sq2p
of
{ (# ww2_sqFw, ww3_sqFx #) ->
GHC.Data.SizedSeq.SizedSeq @Word16 ww2_sqFw ww3_sqFx
}
}
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
$dIP10_rt7C :: ghc-internal:GHC.Internal.Stack.Types.SrcLoc
[GblId, Unf=OtherCon []]
$dIP10_rt7C
= ghc-internal:GHC.Internal.Stack.Types.SrcLoc
$dIP2_rt6Y $dIP3_rt6Z $dIP5_rt71 793# 5# 793# 13#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
$dIP11_rt7D :: ghc-internal:GHC.Internal.Stack.Types.CallStack
[GblId, Unf=OtherCon []]
$dIP11_rt7D
= ghc-internal:GHC.Internal.Stack.Types.PushCallStack
$dIP1_rt6X
$dIP10_rt7C
ghc-internal:GHC.Internal.Stack.Types.EmptyCallStack
-- RHS size: {terms: 31, types: 14, coercions: 0, joins: 0/0}
largeOp :: Bool -> Operand -> Bool
[GblId,
Arity=2,
Str=<ML><1L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 62] 85 20}]
largeOp
= \ (long_jumps_abw0 :: Bool) (op_abw1 :: Operand) ->
case op_abw1 of {
Op w38_abw2 ->
case w38_abw2 of { W# x_alx7 ->
tagToEnum# @Bool (gtWord# x_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of { I# x_alxf ->
case ># x_alxf 32767# of {
__DEFAULT -> tagToEnum# @Bool (<# x_alxf -32768#);
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds_dhwk -> long_jumps_abw0
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl25_rt7E :: Word
[GblId, Unf=OtherCon []]
lvl25_rt7E = ghc-internal:GHC.Internal.Types.W# 0##
-- RHS size: {terms: 1,134,
types: 449,
coercions: 41,
joins: 22/23}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cemit [InlPrag=INLINE (sat-args=3)]
:: PlatformWordSize -> Word16 -> [Operand] -> InspectAsm ()
[GblId,
Arity=5,
Str=<L><A><SL><L><1!P(L,L,L,L)>,
Cpr=1(1, 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=False,boring_ok=False)
Tmpl= (\ (pwordsize_a8FU [Occ=OnceL2!] :: PlatformWordSize)
_ [Occ=Dead]
(ops_a8FV :: [Operand])
(a2_a8Qe :: InspectEnv)
(b_a8Qf [Occ=Once1!] :: InspectState) ->
let {
largeOps_a8FY [Occ=OnceL2!] :: Bool
[LclId]
largeOps_a8FY
= case ops_a8FV of wild_X2 [Occ=Once1] {
[] -> ghc-internal:GHC.Internal.Types.False;
: x_abwu [Occ=Once6!] ds1_dhvy [Occ=Once1!] ->
case ds1_dhvy of {
[] ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool))
x_abwu;
: y_abwx [Occ=Once6!] ds2_dhvz [Occ=Once1!] ->
case ds2_dhvz of {
[] ->
join {
$j_slyc [Occ=Once3T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slyc
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
y_abwx } in
case x_abwu of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyc
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyc
};
1# -> jump $j_slyc
}
};
SmallOp _ [Occ=Dead] -> ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True ->
case y_abwx of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
tagToEnum# @Bool (gtWord# x1_alx7 65535##)
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
tagToEnum# @Bool (<# x1_alxf -32768#);
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.True
}
}
};
: z_abwB [Occ=Once5!] ds3_dhvA [Occ=Once1!] ->
case ds3_dhvA of {
[] ->
join {
$j_slyi [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slyi
= join {
$j1_slyf [Occ=Once3T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slyf
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
z_abwB } in
case y_abwx of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyf
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyf
};
1# -> jump $j1_slyf
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True ->
case z_abwB of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
tagToEnum# @Bool (gtWord# x1_alx7 65535##)
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
tagToEnum# @Bool (<# x1_alxf -32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case x_abwu of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyi
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyi
};
1# -> jump $j_slyi
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slyi
}
};
: x4_abwG [Occ=Once4!] ds4_dhvB [Occ=Once1!] ->
case ds4_dhvB of {
[] ->
join {
$j_slyr [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slyr
= join {
$j1_slyo [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slyo
= join {
$j2_slyl [Occ=Once3T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_slyl
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
x4_abwG } in
case z_abwB of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slyl
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slyl
};
1# -> jump $j2_slyl
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True ->
case x4_abwG of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
tagToEnum#
@Bool
(gtWord# x1_alx7 65535##)
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
tagToEnum#
@Bool
(<# x1_alxf -32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case y_abwx of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyo
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyo
};
1# -> jump $j1_slyo
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slyo
}
} } in
case x_abwu of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyr
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyr
};
1# -> jump $j_slyr
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slyr
}
};
: x5_abwM [Occ=Once3!] ds5_dhvC [Occ=Once1!] ->
case ds5_dhvC of {
[] ->
join {
$j_slyD [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slyD
= join {
$j1_slyA [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slyA
= join {
$j2_slyx [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_slyx
= join {
$j3_slyu [Occ=Once3T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j3_slyu
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool))
x5_abwM } in
case x4_abwG of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535##
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slyu
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768#
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slyu
};
1# -> jump $j3_slyu
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True ->
case x5_abwM of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
tagToEnum#
@Bool
(gtWord#
x1_alx7 65535##)
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767#
of {
__DEFAULT ->
tagToEnum#
@Bool
(<#
x1_alxf
-32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case z_abwB of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slyx
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slyx
};
1# -> jump $j2_slyx
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_slyx
}
} } in
case y_abwx of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyA
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyA
};
1# -> jump $j1_slyA
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slyA
}
} } in
case x_abwu of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyD
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyD
};
1# -> jump $j_slyD
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slyD
}
};
: x6_abwT [Occ=Once2!] ds6_dhvD [Occ=Once1!] ->
case ds6_dhvD of {
[] ->
join {
$j_slyS [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slyS
= join {
$j1_slyP [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slyP
= join {
$j2_slyM [Occ=Once4T[0]] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_slyM
= join {
$j3_slyJ [Occ=Once4T[0]]
:: Bool
[LclId[JoinId(0)(Nothing)]]
$j3_slyJ
= join {
$j4_slyG [Occ=Once3T[0]]
:: Bool
[LclId[JoinId(0)(Nothing)]]
$j4_slyG
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool))
x6_abwT } in
case x5_abwM of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord#
x1_alx7
65535##
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# ->
jump $j4_slyG
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of
{ I# x1_alxf ->
case >#
x1_alxf
32767#
of {
__DEFAULT ->
case <#
x1_alxf
-32768#
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# ->
jump $j4_slyG
};
1# ->
jump $j4_slyG
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True ->
case x6_abwT
of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2
of
{ W# x1_alx7 [Occ=Once1] ->
tagToEnum#
@Bool
(gtWord#
x1_alx7
65535##)
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3
of
{ I# x1_alxf ->
case >#
x1_alxf
32767#
of {
__DEFAULT ->
tagToEnum#
@Bool
(<#
x1_alxf
-32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case x4_abwG of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord#
x1_alx7 65535##
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slyJ
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767#
of {
__DEFAULT ->
case <#
x1_alxf -32768#
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slyJ
};
1# -> jump $j3_slyJ
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j3_slyJ
}
} } in
case z_abwB of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535##
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slyM
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slyM
};
1# -> jump $j2_slyM
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_slyM
}
} } in
case y_abwx of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyP
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slyP
};
1# -> jump $j1_slyP
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slyP
}
} } in
case x_abwu of {
Op w38_abw2 [Occ=Once1!] ->
case w38_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyS
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slyS
};
1# -> jump $j_slyS
}
};
SmallOp _ [Occ=Dead] ->
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slyS
}
};
: _ [Occ=Dead] _ [Occ=Dead] ->
(ghc-internal:GHC.Internal.Base.foldr
@Operand
@ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
(ghc-internal:GHC.Internal.Base.mapFB
@ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
@ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
@Operand
(||
`cast` (Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
%<Many>_N ->_R Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
%<Many>_N ->_R Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: (Bool -> Bool -> Bool)
~R# (ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any)))
((largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)))
`cast` (<Operand>_R
%<Many>_N ->_R Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: (Operand -> Bool)
~R# (Operand
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any))))
(ghc-internal:GHC.Internal.Types.False
`cast` (Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: Bool
~R# ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any))
wild_X2)
`cast` (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
~R# Bool)
}
}
}
}
}
}
} } in
letrec {
count_a8FZ [Occ=LoopBreaker] :: Operand -> Word
[LclId, Arity=1, Unf=OtherCon []]
count_a8FZ
= \ (ds1_di9t [Occ=Once1!] :: Operand) ->
case ds1_di9t of {
Op _ [Occ=Dead] ->
case largeOps_a8FY of {
False -> ghc-internal:GHC.Internal.Types.W# 1##;
True ->
case pwordsize_a8FU of {
PW4 -> GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm2;
PW8 -> GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm1
}
};
IOp _ [Occ=Dead] ->
case largeOps_a8FY of {
False -> ghc-internal:GHC.Internal.Types.W# 1##;
True ->
case pwordsize_a8FU of {
PW4 -> GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm2;
PW8 -> GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm1
}
};
SmallOp _ [Occ=Dead] -> ghc-internal:GHC.Internal.Types.W# 1##;
LabelOp _ [Occ=Dead] ->
count_a8FZ
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# 0##))
}; } in
case b_a8Qf of
{ InspectState bx_die2 [Occ=Once1] bx1_die3 [Occ=Once1]
bx2_die4 [Occ=Once1] lblEnv1_B4 [Occ=Once1] ->
case ghc-internal:GHC.Internal.Base.foldr
@Operand
@(Word -> Word)
(ghc-internal:GHC.Internal.Base.mapFB
@Word
@(Word -> Word)
@Operand
(\ (ds1_aj3H [Occ=Once1!] :: Word)
(ds2_aj3I [Occ=Once1!, OS=OneShot] :: Word -> Word)
(v_aj3J [Occ=Once1!, OS=OneShot] :: Word) ->
case v_aj3J of { W# ipv_sj5h [Occ=Once1] ->
ds2_aj3I
(case ds1_aj3H of { W# y#_aiNT [Occ=Once1] ->
ghc-internal:GHC.Internal.Types.W# (plusWord# ipv_sj5h y#_aiNT)
})
})
count_a8FZ)
(breakpoint @Word)
ops_a8FV
(ghc-internal:GHC.Internal.Types.W# 0##)
of
{ W# x#_aiNQ [Occ=Once1] ->
(# GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_die2 x#_aiNQ))
bx1_die3
bx2_die4
lblEnv1_B4,
ghc-internal:GHC.Internal.Tuple.() #)
}
})
`cast` (<PlatformWordSize>_R
%<Many>_N ->_R <Word16>_R
%<Many>_N ->_R <[Operand]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <()>_R)
:: (PlatformWordSize
-> Word16
-> [Operand]
-> InspectEnv
-> InspectState
-> (# InspectState, () #))
~R# (PlatformWordSize -> Word16 -> [Operand] -> InspectAsm ()))}]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cemit
= (\ (eta_B0 :: PlatformWordSize)
_ [Occ=Dead]
(eta2_B2 :: [Operand])
(a2_a8Qe :: InspectEnv)
(b_a8Qf :: InspectState) ->
case b_a8Qf of
{ InspectState bx_die2 bx1_die3 bx2_die4 lblEnv1_B4 ->
let {
largeOps_skv6 :: Bool
[LclId]
largeOps_skv6
= case eta2_B2 of {
[] -> ghc-internal:GHC.Internal.Types.False;
: x_abwu ds_dhvy ->
case ds_dhvy of wild2_X3 {
[] ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool))
x_abwu;
: y_abwx ds1_dhvz ->
case ds1_dhvz of {
[] ->
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool))
y_abwx
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
join {
$j_slxt [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slxt
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool))
y_abwx } in
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxt
};
1# -> jump $j_slxt
}
};
SmallOp ds2_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds2_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True ->
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
tagToEnum# @Bool (gtWord# x1_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT -> tagToEnum# @Bool (<# x1_alxf -32768#);
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds3_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds3_X8 -> ghc-internal:GHC.Internal.Types.True
}
}
};
: z_abwB ds2_dhvA ->
case ds2_dhvA of {
[] ->
join {
$j_slxz [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slxz
= case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
z_abwB
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
join {
$j1_slxw [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slxw
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
z_abwB } in
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slxw
};
1# -> jump $j1_slxw
}
};
SmallOp ds3_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds3_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True ->
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
tagToEnum# @Bool (gtWord# x1_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT -> tagToEnum# @Bool (<# x1_alxf -32768#);
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds4_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds4_Xa -> ghc-internal:GHC.Internal.Types.True
}
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxz
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxz
};
1# -> jump $j_slxz
}
};
SmallOp ds3_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds3_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slxz
}
};
: x4_abwG ds3_dhvB ->
case ds3_dhvB of {
[] ->
join {
$j_slxI [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slxI
= join {
$j1_slxF [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slxF
= case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
x4_abwG
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
join {
$j2_slxC [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_slxC
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
x4_abwG } in
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slxC
};
1# -> jump $j2_slxC
}
};
SmallOp ds4_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds4_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True ->
case x4_abwG of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
tagToEnum# @Bool (gtWord# x1_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
tagToEnum# @Bool (<# x1_alxf -32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds5_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds5_Xb ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slxF
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slxF
};
1# -> jump $j1_slxF
}
};
SmallOp ds4_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds4_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slxF
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxI
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxI
};
1# -> jump $j_slxI
}
};
SmallOp ds4_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds4_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slxI
}
};
: x5_abwM ds4_dhvC ->
case ds4_dhvC of {
[] ->
join {
$j_slxU [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_slxU
= join {
$j1_slxR [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_slxR
= join {
$j2_slxO [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_slxO
= case x4_abwG of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
x5_abwM
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
join {
$j3_slxL [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j3_slxL
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
x5_abwM } in
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slxL
};
1# -> jump $j3_slxL
}
};
SmallOp ds5_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds5_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True ->
case x5_abwM of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
tagToEnum#
@Bool (gtWord# x1_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
tagToEnum#
@Bool (<# x1_alxf -32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds6_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds6_Xc ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slxO
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slxO
};
1# -> jump $j2_slxO
}
};
SmallOp ds5_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds5_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_slxO
}
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slxR
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slxR
};
1# -> jump $j1_slxR
}
};
SmallOp ds5_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds5_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slxR
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxU
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_slxU
};
1# -> jump $j_slxU
}
};
SmallOp ds5_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds5_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j_slxU
}
};
: x6_abwT ds5_dhvD ->
case ds5_dhvD of {
[] ->
join {
$j_sly9 [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j_sly9
= join {
$j1_sly6 [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j1_sly6
= join {
$j2_sly3 [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_sly3
= join {
$j3_sly0 [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j3_sly0
= case x5_abwM of {
Op w38_abw2 ->
case w38_abw2 of
{ W# x1_alx7 ->
case gtWord# x1_alx7 65535##
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool))
x6_abwT
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
join {
$j4_slxX [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j4_slxX
= largeOp
(a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool))
x6_abwT } in
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768#
of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j4_slxX
};
1# -> jump $j4_slxX
}
};
SmallOp ds6_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds6_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv
~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True ->
case x6_abwT of {
Op w38_abw2 ->
case w38_abw2 of
{ W# x1_alx7 ->
tagToEnum#
@Bool
(gtWord#
x1_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767#
of {
__DEFAULT ->
tagToEnum#
@Bool
(<#
x1_alxf
-32768#);
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds7_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds7_Xe ->
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case x4_abwG of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_sly0
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_sly0
};
1# -> jump $j3_sly0
}
};
SmallOp ds6_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds6_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j3_sly0
}
} } in
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_sly3
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_sly3
};
1# -> jump $j2_sly3
}
};
SmallOp ds6_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds6_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_sly3
}
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_sly6
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_sly6
};
1# -> jump $j1_sly6
}
};
SmallOp ds6_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds6_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_sly6
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_sly9
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j_sly9
};
1# -> jump $j_sly9
}
};
SmallOp ds6_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds6_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True -> jump $j_sly9
}
};
: ipv_sj49 ipv1_sj4a ->
joinrec {
$sgo1_sqUz [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Operand -> [Operand] -> Bool
[LclId[JoinId(2)(Just [!])],
Arity=2,
Str=<1L><ML>,
Unf=OtherCon []]
$sgo1_sqUz (sc_sqUx :: Operand) (sc1_sqUy :: [Operand])
= case sc_sqUx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump go1_alL1 sc1_sqUy;
1# -> ghc-internal:GHC.Internal.Types.True
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump go1_alL1 sc1_sqUy;
1# -> ghc-internal:GHC.Internal.Types.True
};
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds6_dhwj -> jump go1_alL1 sc1_sqUy;
LabelOp ds6_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
joinrec {
go2_Xb [Occ=LoopBreaker, Dmd=SC(S,L)]
:: [Operand] -> Bool
[LclId[JoinId(1)(Just [!])],
Arity=1,
Str=<1L>,
Unf=OtherCon []]
go2_Xb (ds7_Xc :: [Operand])
= case ds7_Xc of {
[] ->
ghc-internal:GHC.Internal.Types.False;
: y1_Xe ys_Xf ->
case y1_Xe of {
Op w38_abw2 ->
case w38_abw2 of
{ W# x1_alx7 ->
case gtWord# x1_alx7 65535##
of {
__DEFAULT ->
jump go2_Xb ys_Xf;
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768#
of {
__DEFAULT ->
jump go2_Xb ys_Xf;
1# ->
ghc-internal:GHC.Internal.Types.True
};
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds8_dhwj ->
jump go2_Xb ys_Xf;
LabelOp ds8_Xh ->
jump go2_Xb ys_Xf
}
}; } in
jump go2_Xb sc1_sqUy;
True -> ghc-internal:GHC.Internal.Types.True
}
};
go1_alL1 [Occ=LoopBreaker] :: [Operand] -> Bool
[LclId[JoinId(1)(Just [!])],
Arity=1,
Str=<1L>,
Unf=OtherCon []]
go1_alL1 (ds6_alL2 :: [Operand])
= case ds6_alL2 of {
[] -> ghc-internal:GHC.Internal.Types.False;
: y1_alL5 ys_alL6 ->
case y1_alL5 of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump go1_alL1 ys_alL6;
1# -> ghc-internal:GHC.Internal.Types.True
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump go1_alL1 ys_alL6;
1# ->
ghc-internal:GHC.Internal.Types.True
};
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds7_dhwj -> jump go1_alL1 ys_alL6;
LabelOp ds7_dhwk ->
case a2_a8Qe
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False ->
joinrec {
go2_Xb [Occ=LoopBreaker, Dmd=SC(S,L)]
:: [Operand] -> Bool
[LclId[JoinId(1)(Just [!])],
Arity=1,
Str=<1L>,
Unf=OtherCon []]
go2_Xb (ds8_Xc :: [Operand])
= case ds8_Xc of {
[] ->
ghc-internal:GHC.Internal.Types.False;
: y2_Xe ys1_Xf ->
case y2_Xe of {
Op w38_abw2 ->
case w38_abw2 of
{ W# x1_alx7 ->
case gtWord#
x1_alx7 65535##
of {
__DEFAULT ->
jump go2_Xb ys1_Xf;
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
IOp i_abw3 ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768#
of {
__DEFAULT ->
jump go2_Xb ys1_Xf;
1# ->
ghc-internal:GHC.Internal.Types.True
};
1# ->
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds9_dhwj ->
jump go2_Xb ys1_Xf;
LabelOp ds9_Xh ->
jump go2_Xb ys1_Xf
}
}; } in
jump go2_Xb ys_alL6;
True ->
ghc-internal:GHC.Internal.Types.True
}
}
}; } in
jump $sgo1_sqUz x_abwu wild2_X3
}
}
}
}
}
}
} } in
join {
$j_slT4 [Dmd=SC(S,P(L,LA))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j_slT4 (x#_aiNQ [OS=OneShot] :: Word#)
= (# GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_die2 x#_aiNQ))
bx1_die3
bx2_die4
lblEnv1_B4,
ghc-internal:GHC.Internal.Tuple.() #) } in
joinrec {
$wgo1_sq3g [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,L))]
:: [Operand] -> Word# -> (# InspectState, () #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo1_sq3g (ds_sq3b :: [Operand]) (ww_sq3e :: Word#)
= case ds_sq3b of {
[] -> jump $j_slT4 ww_sq3e;
: y_alL5 ys_alL6 ->
join {
$j1_ss57 [Dmd=1C(1,!P(L,L!A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_ss57 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo1_sq3g ys_alL6 (plusWord# ww_sq3e y#_aiNT) } in
case y_alL5 of {
Op ds1_di9E ->
case largeOps_skv6 of {
False -> jump $j1_ss57 1##;
True ->
case eta_B0 of {
PW4 -> jump $j1_ss57 2##;
PW8 -> jump $j1_ss57 4##
}
};
IOp ds1_di9F ->
case largeOps_skv6 of {
False -> jump $j1_ss57 1##;
True ->
case eta_B0 of {
PW4 -> jump $j1_ss57 2##;
PW8 -> jump $j1_ss57 4##
}
};
SmallOp ds1_di9C -> jump $j1_ss57 1##;
LabelOp ds1_di9D ->
case largeOps_skv6 of {
False -> jump $j1_ss57 1##;
True ->
case eta_B0 of {
PW4 -> jump $j1_ss57 2##;
PW8 -> jump $j1_ss57 4##
}
}
}
}; } in
jump $wgo1_sq3g eta2_B2 0##
})
`cast` (<PlatformWordSize>_R
%<Many>_N ->_R <Word16>_R
%<Many>_N ->_R <[Operand]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:InspectAsm <()>_R)
:: (PlatformWordSize
-> Word16
-> [Operand]
-> InspectEnv
-> InspectState
-> (# InspectState, () #))
~R# (PlatformWordSize -> Word16 -> [Operand] -> InspectAsm ()))
-- RHS size: {terms: 6, types: 1, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm [InlPrag=CONLIKE]
:: MonadAssembler InspectAsm
[GblId[DFunId],
Unf=DFun: \ ->
GHC.ByteCode.Asm.C:MonadAssembler TYPE: InspectAsm
GHC.ByteCode.Asm.$fMonadInspectAsm
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cioptr
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clit
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clabel
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cemit]
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm
= GHC.ByteCode.Asm.C:MonadAssembler
@InspectAsm
GHC.ByteCode.Asm.$fMonadInspectAsm
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cioptr
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clit
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$clabel
GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$cemit
-- RHS size: {terms: 1,302,
types: 782,
coercions: 13,
joins: 29/29}
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cemit [InlPrag=INLINE (sat-args=3)]
:: PlatformWordSize -> Word16 -> [Operand] -> RunAsm ()
[GblId,
Arity=7,
Str=<L><SL><SL><L><L><L><1!P(L,L,L,L,L,L)>,
Cpr=1(, 1, 1),
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=False,boring_ok=False)
Tmpl= (\ (pwordsize_a8QR [Occ=OnceL1] :: PlatformWordSize)
(w38_a8QS [Occ=Once2!] :: Word16)
(ops_a8QT :: [Operand])
(b_a8R5 :: Bool)
(c2_a8R6 [Occ=OnceL1] :: LabelEnv)
(s_a8R7 [Occ=Once1] :: State# RealWorld)
(a2_a8R8 [Occ=Once1!] :: AsmState) ->
case a2_a8R8 of
{ AsmState ipv_sigh [Occ=Once1] ipv1_sigi [Occ=Once1]
ipv2_sigj [Occ=Once1] ipv3_sigk [Occ=Once1] ipv4_sigl [Occ=Once1]
ipv5_sigm [Occ=Once1] ->
join {
$j_slqB [Occ=Once93!T[1]]
:: Bool -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Unf=OtherCon []]
$j_slqB (largeArgs_a8QW [Occ=Once1, OS=OneShot] :: Bool)
= case largeArgs_a8QW of largeArgs1_X2 { __DEFAULT ->
join {
$j1_slqA [Occ=Once2!T[2]]
:: Word16# -> Word16 -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(2)(Nothing)], Arity=2, Unf=OtherCon []]
$j1_slqA _ [Occ=Dead, OS=OneShot]
(opcode_a8QX [Occ=Once1!, OS=OneShot] :: Word16)
= case opcode_a8QX of opcode1_X3 [Occ=Once1]
{ ghc-internal:GHC.Internal.Word.W16# _ [Occ=Dead] ->
case ghc-internal:GHC.Internal.Base.foldr
@Operand
@(SizedSeq Word16 -> SizedSeq Word16)
(\ (ds_aj5q [Occ=Once1] :: Operand)
(ds1_aj5r [Occ=Once1!, OS=OneShot]
:: SizedSeq Word16 -> SizedSeq Word16)
(v_aj5s [Occ=Once1!, OS=OneShot] :: SizedSeq Word16) ->
case v_aj5s of z_aj5t [Occ=Once1]
{ SizedSeq _ [Occ=Dead] _ [Occ=Dead] ->
ds1_aj5r
(expand
pwordsize_a8QR largeArgs1_X2 c2_a8R6 z_aj5t ds_aj5q)
})
(breakpoint @(SizedSeq Word16))
ops_a8QT
(GHC.Data.SizedSeq.SizedSeq
@Word16
(plusWord# ipv_sigh 1##)
(ghc-internal:GHC.Internal.Types.:
@Word16 opcode1_X3 ipv1_sigi))
of
{ SizedSeq unbx_af8q [Occ=Once1] unbx1_af8r [Occ=Once1] ->
(# s_a8R7,
GHC.ByteCode.Asm.AsmState
unbx_af8q unbx1_af8r ipv2_sigj ipv3_sigk ipv4_sigl ipv5_sigm,
ghc-internal:GHC.Internal.Tuple.() #)
}
} } in
case largeArgs1_X2 of {
False ->
case w38_a8QS of opcode_a8QX [Occ=Once1]
{ ghc-internal:GHC.Internal.Word.W16# ipv6_sj5u [Occ=Once1] ->
jump $j1_slqA ipv6_sj5u opcode_a8QX
};
True ->
case w38_a8QS of
{ ghc-internal:GHC.Internal.Word.W16# y#_aj0b [Occ=Once1] ->
let {
ipv6_sj5u :: Word16#
[LclId]
ipv6_sj5u
= wordToWord16# (or# 32768## (word16ToWord# y#_aj0b)) } in
jump $j1_slqA
ipv6_sj5u (ghc-internal:GHC.Internal.Word.W16# ipv6_sj5u)
}
}
} } in
case ops_a8QT of wild_X3 [Occ=Once1] {
[] -> jump $j_slqB ghc-internal:GHC.Internal.Types.False;
: x_abwu [Occ=Once6!] ds_dhvy [Occ=Once1!] ->
case ds_dhvy of {
[] ->
case largeOp b_a8R5 x_abwu of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
};
: y_abwx [Occ=Once6!] ds1_dhvz [Occ=Once1!] ->
case ds1_dhvz of {
[] ->
join {
$j1_slzE [Occ=Once3T[0]] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slzE
= case largeOp b_a8R5 y_abwx of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
} } in
case x_abwu of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $j_slqB ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slzE
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slzE
};
1# -> jump $j1_slzE
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False -> jump $j_slqB ghc-internal:GHC.Internal.Types.False;
True ->
case y_abwx of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case tagToEnum# @Bool (gtWord# x1_alx7 65535##)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum# @Bool (<# x1_alxf -32768#)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
};
1# -> jump $j_slqB ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.True
}
}
};
: z_abwB [Occ=Once5!] ds2_dhvA [Occ=Once1!] ->
case ds2_dhvA of {
[] ->
join {
$j1_slzK [Occ=Once4T[0]] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slzK
= join {
$j2_slzH [Occ=Once3T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slzH
= case largeOp b_a8R5 z_abwB
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
} } in
case y_abwx of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slzH
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slzH
};
1# -> jump $j2_slzH
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
True ->
case z_abwB of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case tagToEnum# @Bool (gtWord# x1_alx7 65535##)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum# @Bool (<# x1_alxf -32768#)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
};
1# ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case x_abwu of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slzK
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slzK
};
1# -> jump $j1_slzK
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False -> jump $j_slqB ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slzK
}
};
: x4_abwG [Occ=Once4!] ds3_dhvB [Occ=Once1!] ->
case ds3_dhvB of {
[] ->
join {
$j1_slzT [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slzT
= join {
$j2_slzQ [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slzQ
= join {
$j3_slzN [Occ=Once3T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j3_slzN
= case largeOp b_a8R5 x4_abwG
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
} } in
case z_abwB of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slzN
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slzN
};
1# -> jump $j3_slzN
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True ->
case x4_abwG of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case tagToEnum#
@Bool (gtWord# x1_alx7 65535##)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum#
@Bool (<# x1_alxf -32768#)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
};
1# ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case y_abwx of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slzQ
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slzQ
};
1# -> jump $j2_slzQ
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_slzQ
}
} } in
case x_abwu of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slzT
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slzT
};
1# -> jump $j1_slzT
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slzT
}
};
: x5_abwM [Occ=Once3!] ds4_dhvC [Occ=Once1!] ->
case ds4_dhvC of {
[] ->
join {
$j1_slA5 [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slA5
= join {
$j2_slA2 [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slA2
= join {
$j3_slzZ [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j3_slzZ
= join {
$j4_slzW [Occ=Once3T[0]]
:: (# State# RealWorld, AsmState,
() #)
[LclId[JoinId(0)(Nothing)]]
$j4_slzW
= case largeOp b_a8R5 x5_abwM
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
} } in
case x4_abwG of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j4_slzW
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j4_slzW
};
1# -> jump $j4_slzW
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True ->
case x5_abwM of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case tagToEnum#
@Bool
(gtWord#
x1_alx7 65535##)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum#
@Bool
(<#
x1_alxf
-32768#)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB
largeArgs_a8QW
};
1# ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case z_abwB of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slzZ
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slzZ
};
1# -> jump $j3_slzZ
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j3_slzZ
}
} } in
case y_abwx of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slA2
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slA2
};
1# -> jump $j2_slA2
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_slA2
}
} } in
case x_abwu of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slA5
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slA5
};
1# -> jump $j1_slA5
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slA5
}
};
: x6_abwT [Occ=Once2!] ds5_dhvD [Occ=Once1!] ->
case ds5_dhvD of {
[] ->
join {
$j1_slAk [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slAk
= join {
$j2_slAh [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slAh
= join {
$j3_slAe [Occ=Once4T[0]]
:: (# State# RealWorld, AsmState,
() #)
[LclId[JoinId(0)(Nothing)]]
$j3_slAe
= join {
$j4_slAb [Occ=Once4T[0]]
:: (# State# RealWorld,
AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j4_slAb
= join {
$j5_slA8 [Occ=Once3T[0]]
:: (# State# RealWorld,
AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j5_slA8
= case largeOp
b_a8R5 x6_abwT
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB
largeArgs_a8QW
} } in
case x5_abwM of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord#
x1_alx7 65535##
of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j5_slA8
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767#
of {
__DEFAULT ->
case <#
x1_alxf -32768#
of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j5_slA8
};
1# -> jump $j5_slA8
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True ->
case x6_abwT of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case tagToEnum#
@Bool
(gtWord#
x1_alx7
65535##)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB
largeArgs_a8QW
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of
{ I# x1_alxf ->
case >#
x1_alxf
32767#
of {
__DEFAULT ->
case tagToEnum#
@Bool
(<#
x1_alxf
-32768#)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB
largeArgs_a8QW
};
1# ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.True
}
}
} } in
case x4_abwG of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535##
of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j4_slAb
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j4_slAb
};
1# -> jump $j4_slAb
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j4_slAb
}
} } in
case z_abwB of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of
{ W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slAe
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j3_slAe
};
1# -> jump $j3_slAe
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j3_slAe
}
} } in
case y_abwx of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slAh
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slAh
};
1# -> jump $j2_slAh
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j2_slAh
}
} } in
case x_abwu of {
Op w39_abw2 [Occ=Once1!] ->
case w39_abw2 of { W# x1_alx7 [Occ=Once1] ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slAk
}
};
IOp i_abw3 [Occ=Once1!] ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
1# -> jump $j1_slAk
};
1# -> jump $j1_slAk
}
};
SmallOp _ [Occ=Dead] ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
LabelOp _ [Occ=Dead] ->
case b_a8R5 of {
False ->
jump $j_slqB
ghc-internal:GHC.Internal.Types.False;
True -> jump $j1_slAk
}
};
: _ [Occ=Dead] _ [Occ=Dead] ->
case (ghc-internal:GHC.Internal.Base.foldr
@Operand
@ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
(ghc-internal:GHC.Internal.Base.mapFB
@ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
@ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
@Operand
(||
`cast` (Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
%<Many>_N ->_R Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
%<Many>_N ->_R Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: (Bool -> Bool -> Bool)
~R# (ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any)))
((largeOp b_a8R5)
`cast` (<Operand>_R
%<Many>_N ->_R Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: (Operand -> Bool)
~R# (Operand
-> ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any))))
(ghc-internal:GHC.Internal.Types.False
`cast` (Sym ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: Bool
~R# ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any))
wild_X3)
`cast` (ghc-internal:GHC.Internal.Data.Semigroup.Internal.N:Any
:: ghc-internal:GHC.Internal.Data.Semigroup.Internal.Any
~R# Bool)
of largeArgs_a8QW [Occ=Once1]
{ __DEFAULT ->
jump $j_slqB largeArgs_a8QW
}
}
}
}
}
}
}
}
})
`cast` (<PlatformWordSize>_R
%<Many>_N ->_R <Word16>_R
%<Many>_N ->_R <[Operand]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <()>_R)
:: (PlatformWordSize
-> Word16
-> [Operand]
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, () #))
~R# (PlatformWordSize -> Word16 -> [Operand] -> RunAsm ()))}]
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cemit
= (\ (eta_B0 :: PlatformWordSize)
(eta1_B1 :: Word16)
(eta2_B2 :: [Operand])
(b_a8R5 :: Bool)
(c2_a8R6 :: LabelEnv)
(s_a8R7 :: State# RealWorld)
(a2_a8R8 :: AsmState) ->
case a2_a8R8 of
{ AsmState ipv_sigh ipv1_sigi ipv2_sigj ipv3_sigk ipv4_sigl
ipv5_sigm ->
join {
$s$j_sqVC :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$s$j_sqVC
= case eta1_B1 of { ghc-internal:GHC.Internal.Word.W16# y#_aj0b ->
join {
$j_slT5 [Dmd=SC(S,C(1,P(L,L,LA)))]
:: Word# -> [Word16] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(2)(Just [~, !])], Arity=2, Str=<L><1L>]
$j_slT5 (unbx_af8q [OS=OneShot] :: Word#)
(unbx1_af8r [OS=OneShot] :: [Word16])
= case unbx1_af8r of unbx2_X7 { __DEFAULT ->
(# s_a8R7,
GHC.ByteCode.Asm.AsmState
unbx_af8q unbx2_X7 ipv2_sigj ipv3_sigk ipv4_sigl ipv5_sigm,
ghc-internal:GHC.Internal.Tuple.() #)
} } in
joinrec {
$wgo1_sq3t [InlPrag=[2],
Occ=LoopBreaker,
Dmd=SC(S,C(1,C(1,!P(L,L,L))))]
:: [Operand]
-> Word# -> [Word16] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(3)(Just [!, ~, !])],
Arity=3,
Str=<1L><L><1L>,
Unf=OtherCon []]
$wgo1_sq3t (ds_sq3n :: [Operand])
(ww_sq3q :: Word#)
(ww1_sq3r :: [Word16])
= case ww1_sq3r of ww2_X7 { __DEFAULT ->
case ds_sq3n of {
[] -> jump $j_slT5 ww_sq3q ww2_X7;
: y_alL5 ys_alL6 ->
case GHC.ByteCode.Asm.$wexpand
eta_B0
ghc-internal:GHC.Internal.Types.True
c2_a8R6
ww_sq3q
ww2_X7
y_alL5
of
{ (# ww3_sqFw, ww4_sqFx #) ->
jump $wgo1_sq3t ys_alL6 ww3_sqFw ww4_sqFx
}
}
}; } in
jump $wgo1_sq3t
eta2_B2
(plusWord# ipv_sigh 1##)
(ghc-internal:GHC.Internal.Types.:
@Word16
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (or# 32768## (word16ToWord# y#_aj0b))))
ipv1_sigi)
} } in
join {
$s$j1_sqVM :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$s$j1_sqVM
= case eta1_B1 of opcode_X6
{ ghc-internal:GHC.Internal.Word.W16# ipv6_sj5j ->
join {
$j_slT5 [Dmd=SC(S,C(1,P(L,L,LA)))]
:: Word# -> [Word16] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(2)(Just [~, !])], Arity=2, Str=<L><1L>]
$j_slT5 (unbx_af8q [OS=OneShot] :: Word#)
(unbx1_af8r [OS=OneShot] :: [Word16])
= case unbx1_af8r of unbx2_X7 { __DEFAULT ->
(# s_a8R7,
GHC.ByteCode.Asm.AsmState
unbx_af8q unbx2_X7 ipv2_sigj ipv3_sigk ipv4_sigl ipv5_sigm,
ghc-internal:GHC.Internal.Tuple.() #)
} } in
joinrec {
$wgo1_sq3t [InlPrag=[2],
Occ=LoopBreaker,
Dmd=SC(S,C(1,C(1,!P(L,L,L))))]
:: [Operand]
-> Word# -> [Word16] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(3)(Just [!, ~, !])],
Arity=3,
Str=<1L><L><1L>,
Unf=OtherCon []]
$wgo1_sq3t (ds_sq3n :: [Operand])
(ww_sq3q :: Word#)
(ww1_sq3r :: [Word16])
= case ww1_sq3r of ww2_X7 { __DEFAULT ->
case ds_sq3n of {
[] -> jump $j_slT5 ww_sq3q ww2_X7;
: y_alL5 ys_alL6 ->
case GHC.ByteCode.Asm.$wexpand
eta_B0
ghc-internal:GHC.Internal.Types.False
c2_a8R6
ww_sq3q
ww2_X7
y_alL5
of
{ (# ww3_sqFw, ww4_sqFx #) ->
jump $wgo1_sq3t ys_alL6 ww3_sqFw ww4_sqFx
}
}
}; } in
jump $wgo1_sq3t
eta2_B2
(plusWord# ipv_sigh 1##)
(ghc-internal:GHC.Internal.Types.: @Word16 opcode_X6 ipv1_sigi)
} } in
join {
$j_slqz [Dmd=MC(1,L)]
:: Bool -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(1)(Just [!])], Arity=1, Str=<1L>, Unf=OtherCon []]
$j_slqz (largeArgs_X3 [OS=OneShot] :: Bool)
= case largeArgs_X3 of largeArgs1_X4 { __DEFAULT ->
join {
$w$j_sq3y [InlPrag=[2], Dmd=1C(1,!P(L,L,L))]
:: Word16 -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(1)(Just [!])], Arity=1, Str=<1L>, Unf=OtherCon []]
$w$j_sq3y (opcode_sq3x [OS=OneShot] :: Word16)
= case opcode_sq3x of opcode1_X6
{ ghc-internal:GHC.Internal.Word.W16# ipv6_sluA ->
join {
$j1_slT5 [Dmd=SC(S,C(1,P(L,L,LA)))]
:: Word# -> [Word16] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(2)(Just [~, !])], Arity=2, Str=<L><1L>]
$j1_slT5 (unbx_af8q [OS=OneShot] :: Word#)
(unbx1_af8r [OS=OneShot] :: [Word16])
= case unbx1_af8r of unbx2_X7 { __DEFAULT ->
(# s_a8R7,
GHC.ByteCode.Asm.AsmState
unbx_af8q unbx2_X7 ipv2_sigj ipv3_sigk ipv4_sigl ipv5_sigm,
ghc-internal:GHC.Internal.Tuple.() #)
} } in
joinrec {
$wgo1_sq3t [InlPrag=[2],
Occ=LoopBreaker,
Dmd=SC(S,C(1,C(1,!P(L,L,L))))]
:: [Operand]
-> Word# -> [Word16] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(3)(Just [!, ~, !])],
Arity=3,
Str=<1L><L><1L>,
Unf=OtherCon []]
$wgo1_sq3t (ds_sq3n :: [Operand])
(ww_sq3q :: Word#)
(ww1_sq3r :: [Word16])
= case ww1_sq3r of ww2_X7 { __DEFAULT ->
case ds_sq3n of {
[] -> jump $j1_slT5 ww_sq3q ww2_X7;
: y_alL5 ys_alL6 ->
case GHC.ByteCode.Asm.$wexpand
eta_B0 largeArgs1_X4 c2_a8R6 ww_sq3q ww2_X7 y_alL5
of
{ (# ww3_sqFw, ww4_sqFx #) ->
jump $wgo1_sq3t ys_alL6 ww3_sqFw ww4_sqFx
}
}
}; } in
jump $wgo1_sq3t
eta2_B2
(plusWord# ipv_sigh 1##)
(ghc-internal:GHC.Internal.Types.: @Word16 opcode1_X6 ipv1_sigi)
} } in
case largeArgs1_X4 of {
False ->
case eta1_B1 of opcode_X6
{ ghc-internal:GHC.Internal.Word.W16# ipv6_sj5j ->
jump $w$j_sq3y opcode_X6
};
True ->
case eta1_B1 of { ghc-internal:GHC.Internal.Word.W16# y#_aj0b ->
jump $w$j_sq3y
(ghc-internal:GHC.Internal.Word.W16#
(wordToWord16# (or# 32768## (word16ToWord# y#_aj0b))))
}
}
} } in
case eta2_B2 of {
[] -> jump $s$j1_sqVM;
: x_abwu ds_dhvy ->
case ds_dhvy of wild1_X4 {
[] ->
case largeOp b_a8R5 x_abwu of largeArgs_X5 { __DEFAULT ->
jump $j_slqz largeArgs_X5
};
: y_abwx ds1_dhvz ->
case ds1_dhvz of {
[] ->
join {
$j1_slyV [Dmd=ML] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slyV
= case largeOp b_a8R5 y_abwx of largeArgs_X6 { __DEFAULT ->
jump $j_slqz largeArgs_X6
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slyV
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slyV
};
1# -> jump $j1_slyV
}
};
SmallOp ds2_dhwj -> jump $s$j1_sqVM;
LabelOp ds2_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True ->
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case tagToEnum# @Bool (gtWord# x1_alx7 65535##) of largeArgs_X7
{ __DEFAULT ->
jump $j_slqz largeArgs_X7
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum# @Bool (<# x1_alxf -32768#) of largeArgs_X7
{ __DEFAULT ->
jump $j_slqz largeArgs_X7
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds3_dhwj -> jump $s$j1_sqVM;
LabelOp ds3_X7 -> jump $s$j_sqVC
}
}
};
: z_abwB ds2_dhvA ->
case ds2_dhvA of {
[] ->
join {
$j1_slz1 [Dmd=ML] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slz1
= join {
$j2_slyY [Dmd=M!P(L,L,L)] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slyY
= case largeOp b_a8R5 z_abwB of largeArgs_X8 { __DEFAULT ->
jump $j_slqz largeArgs_X8
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slyY
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slyY
};
1# -> jump $j2_slyY
}
};
SmallOp ds3_dhwj -> jump $s$j1_sqVM;
LabelOp ds3_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True ->
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case tagToEnum# @Bool (gtWord# x1_alx7 65535##)
of largeArgs_X9
{ __DEFAULT ->
jump $j_slqz largeArgs_X9
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum# @Bool (<# x1_alxf -32768#)
of largeArgs_X9
{ __DEFAULT ->
jump $j_slqz largeArgs_X9
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds4_dhwj -> jump $s$j1_sqVM;
LabelOp ds4_X9 -> jump $s$j_sqVC
}
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slz1
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slz1
};
1# -> jump $j1_slz1
}
};
SmallOp ds3_dhwj -> jump $s$j1_sqVM;
LabelOp ds3_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j1_slz1
}
};
: x4_abwG ds3_dhvB ->
case ds3_dhvB of {
[] ->
join {
$j1_slza [Dmd=ML] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slza
= join {
$j2_slz7 [Dmd=M!P(L,L,L)] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slz7
= join {
$j3_slz4 [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j3_slz4
= case largeOp b_a8R5 x4_abwG of largeArgs_Xa
{ __DEFAULT ->
jump $j_slqz largeArgs_Xa
} } in
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j3_slz4
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j3_slz4
};
1# -> jump $j3_slz4
}
};
SmallOp ds4_dhwj -> jump $s$j1_sqVM;
LabelOp ds4_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True ->
case x4_abwG of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case tagToEnum# @Bool (gtWord# x1_alx7 65535##)
of largeArgs_Xa
{ __DEFAULT ->
jump $j_slqz largeArgs_Xa
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum# @Bool (<# x1_alxf -32768#)
of largeArgs_Xa
{ __DEFAULT ->
jump $j_slqz largeArgs_Xa
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds5_dhwj -> jump $s$j1_sqVM;
LabelOp ds5_Xa -> jump $s$j_sqVC
}
}
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slz7
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slz7
};
1# -> jump $j2_slz7
}
};
SmallOp ds4_dhwj -> jump $s$j1_sqVM;
LabelOp ds4_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j2_slz7
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slza
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slza
};
1# -> jump $j1_slza
}
};
SmallOp ds4_dhwj -> jump $s$j1_sqVM;
LabelOp ds4_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j1_slza
}
};
: x5_abwM ds4_dhvC ->
case ds4_dhvC of {
[] ->
join {
$j1_slzm [Dmd=ML] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slzm
= join {
$j2_slzj [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slzj
= join {
$j3_slzg [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j3_slzg
= join {
$j4_slzd [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j4_slzd
= case largeOp b_a8R5 x5_abwM of largeArgs_Xc
{ __DEFAULT ->
jump $j_slqz largeArgs_Xc
} } in
case x4_abwG of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j4_slzd
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j4_slzd
};
1# -> jump $j4_slzd
}
};
SmallOp ds5_dhwj -> jump $s$j1_sqVM;
LabelOp ds5_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True ->
case x5_abwM of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case tagToEnum#
@Bool (gtWord# x1_alx7 65535##)
of largeArgs_Xc
{ __DEFAULT ->
jump $j_slqz largeArgs_Xc
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum#
@Bool (<# x1_alxf -32768#)
of largeArgs_Xc
{ __DEFAULT ->
jump $j_slqz largeArgs_Xc
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds6_dhwj -> jump $s$j1_sqVM;
LabelOp ds6_Xc -> jump $s$j_sqVC
}
}
} } in
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j3_slzg
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j3_slzg
};
1# -> jump $j3_slzg
}
};
SmallOp ds5_dhwj -> jump $s$j1_sqVM;
LabelOp ds5_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j3_slzg
}
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slzj
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slzj
};
1# -> jump $j2_slzj
}
};
SmallOp ds5_dhwj -> jump $s$j1_sqVM;
LabelOp ds5_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j2_slzj
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slzm
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slzm
};
1# -> jump $j1_slzm
}
};
SmallOp ds5_dhwj -> jump $s$j1_sqVM;
LabelOp ds5_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j1_slzm
}
};
: x6_abwT ds5_dhvD ->
case ds5_dhvD of {
[] ->
join {
$j1_slzB [Dmd=ML] :: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j1_slzB
= join {
$j2_slzy [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j2_slzy
= join {
$j3_slzv [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j3_slzv
= join {
$j4_slzs [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState, () #)
[LclId[JoinId(0)(Nothing)]]
$j4_slzs
= join {
$j5_slzp [Dmd=M!P(L,L,L)]
:: (# State# RealWorld, AsmState,
() #)
[LclId[JoinId(0)(Nothing)]]
$j5_slzp
= case largeOp b_a8R5 x6_abwT
of largeArgs_Xe
{ __DEFAULT ->
jump $j_slqz largeArgs_Xe
} } in
case x5_abwM of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j5_slzp
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j5_slzp
};
1# -> jump $j5_slzp
}
};
SmallOp ds6_dhwj -> jump $s$j1_sqVM;
LabelOp ds6_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True ->
case x6_abwT of {
Op w38_abw2 ->
case w38_abw2 of
{ W# x1_alx7 ->
case tagToEnum#
@Bool
(gtWord#
x1_alx7 65535##)
of largeArgs_Xe
{ __DEFAULT ->
jump $j_slqz largeArgs_Xe
}
};
IOp i_abw3 ->
case i_abw3 of
{ I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case tagToEnum#
@Bool
(<#
x1_alxf
-32768#)
of largeArgs_Xe
{ __DEFAULT ->
jump $j_slqz largeArgs_Xe
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds7_dhwj ->
jump $s$j1_sqVM;
LabelOp ds7_Xe ->
jump $s$j_sqVC
}
}
} } in
case x4_abwG of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j4_slzs
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j4_slzs
};
1# -> jump $j4_slzs
}
};
SmallOp ds6_dhwj -> jump $s$j1_sqVM;
LabelOp ds6_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j4_slzs
}
} } in
case z_abwB of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j3_slzv
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j3_slzv
};
1# -> jump $j3_slzv
}
};
SmallOp ds6_dhwj -> jump $s$j1_sqVM;
LabelOp ds6_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j3_slzv
}
} } in
case y_abwx of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slzy
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j2_slzy
};
1# -> jump $j2_slzy
}
};
SmallOp ds6_dhwj -> jump $s$j1_sqVM;
LabelOp ds6_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j2_slzy
}
} } in
case x_abwu of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slzB
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump $s$j1_sqVM;
1# -> jump $j1_slzB
};
1# -> jump $j1_slzB
}
};
SmallOp ds6_dhwj -> jump $s$j1_sqVM;
LabelOp ds6_dhwk ->
case b_a8R5 of {
False -> jump $s$j1_sqVM;
True -> jump $j1_slzB
}
};
: ipv6_sj49 ipv7_sj4a ->
joinrec {
$sgo1_sqVa [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Operand
-> [Operand] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(2)(Just [!])],
Arity=2,
Str=<1L><ML>,
Unf=OtherCon []]
$sgo1_sqVa (sc_sqV8 :: Operand) (sc1_sqV9 :: [Operand])
= case sc_sqV8 of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump go1_alL1 sc1_sqV9;
1# -> jump $s$j_sqVC
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump go1_alL1 sc1_sqV9;
1# -> jump $s$j_sqVC
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds6_dhwj -> jump go1_alL1 sc1_sqV9;
LabelOp ds6_dhwk ->
case b_a8R5 of {
False ->
joinrec {
go2_Xf [Occ=LoopBreaker, Dmd=SC(S,!P(L,L,L!A))]
:: [Operand]
-> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(1)(Just [!])],
Arity=1,
Str=<1L>,
Unf=OtherCon []]
go2_Xf (ds7_Xg :: [Operand])
= case ds7_Xg of {
[] -> jump $s$j1_sqVM;
: y1_Xi ys_Xj ->
case y1_Xi of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump go2_Xf ys_Xj;
1# -> jump $s$j_sqVC
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump go2_Xf ys_Xj;
1# -> jump $s$j_sqVC
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds8_dhwj -> jump go2_Xf ys_Xj;
LabelOp ds8_Xl -> jump go2_Xf ys_Xj
}
}; } in
jump go2_Xf sc1_sqV9;
True -> jump $s$j_sqVC
}
};
go1_alL1 [Occ=LoopBreaker, Dmd=LC(L,!P(L,L,L!A))]
:: [Operand] -> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(1)(Just [!])],
Arity=1,
Str=<1L>,
Unf=OtherCon []]
go1_alL1 (ds6_alL2 :: [Operand])
= case ds6_alL2 of {
[] -> jump $s$j1_sqVM;
: y1_alL5 ys_alL6 ->
case y1_alL5 of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT -> jump go1_alL1 ys_alL6;
1# -> jump $s$j_sqVC
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT -> jump go1_alL1 ys_alL6;
1# -> jump $s$j_sqVC
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds7_dhwj -> jump go1_alL1 ys_alL6;
LabelOp ds7_dhwk ->
case b_a8R5 of {
False ->
joinrec {
go2_Xf [Occ=LoopBreaker,
Dmd=SC(S,!P(L,L,L!A))]
:: [Operand]
-> (# State# RealWorld, AsmState, () #)
[LclId[JoinId(1)(Just [!])],
Arity=1,
Str=<1L>,
Unf=OtherCon []]
go2_Xf (ds8_Xg :: [Operand])
= case ds8_Xg of {
[] -> jump $s$j1_sqVM;
: y2_Xi ys1_Xj ->
case y2_Xi of {
Op w38_abw2 ->
case w38_abw2 of { W# x1_alx7 ->
case gtWord# x1_alx7 65535## of {
__DEFAULT ->
jump go2_Xf ys1_Xj;
1# -> jump $s$j_sqVC
}
};
IOp i_abw3 ->
case i_abw3 of { I# x1_alxf ->
case ># x1_alxf 32767# of {
__DEFAULT ->
case <# x1_alxf -32768# of {
__DEFAULT ->
jump go2_Xf ys1_Xj;
1# -> jump $s$j_sqVC
};
1# -> jump $s$j_sqVC
}
};
SmallOp ds9_dhwj ->
jump go2_Xf ys1_Xj;
LabelOp ds9_Xl ->
jump go2_Xf ys1_Xj
}
}; } in
jump go2_Xf ys_alL6;
True -> jump $s$j_sqVC
}
}
}; } in
jump $sgo1_sqVa x_abwu wild1_X4
}
}
}
}
}
}
}
})
`cast` (<PlatformWordSize>_R
%<Many>_N ->_R <Word16>_R
%<Many>_N ->_R <[Operand]>_R
%<Many>_N ->_R Sym (GHC.ByteCode.Asm.N:RunAsm <()>_R)
:: (PlatformWordSize
-> Word16
-> [Operand]
-> Bool
-> LabelEnv
-> State# RealWorld
-> AsmState
-> (# State# RealWorld, AsmState, () #))
~R# (PlatformWordSize -> Word16 -> [Operand] -> RunAsm ()))
-- RHS size: {terms: 6, types: 1, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm [InlPrag=CONLIKE]
:: MonadAssembler RunAsm
[GblId[DFunId],
Unf=DFun: \ ->
GHC.ByteCode.Asm.C:MonadAssembler TYPE: RunAsm
GHC.ByteCode.Asm.$fMonadRunAsm
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cioptr
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clit
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clabel
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cemit]
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm
= GHC.ByteCode.Asm.C:MonadAssembler
@RunAsm
GHC.ByteCode.Asm.$fMonadRunAsm
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cioptr
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clit
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$clabel
GHC.ByteCode.Asm.$fMonadAssemblerRunAsm_$cemit
Rec {
-- RHS size: {terms: 24, types: 13, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.mkNativeCallInfoLit_go4 [Occ=LoopBreaker]
:: GlobalReg -> Data.Set.Internal.Set GlobalReg -> Bool
[GblId[StrictWorker([!, !])],
Arity=2,
Str=<1L><1L>,
Unf=OtherCon []]
GHC.ByteCode.Asm.mkNativeCallInfoLit_go4
= \ (ds_aj9r :: GlobalReg)
(ds1_aj9s [OS=OneShot] :: Data.Set.Internal.Set GlobalReg) ->
case ds_aj9r of ds2_aj9t { __DEFAULT ->
case ds1_aj9s of {
Data.Set.Internal.Bin ipv_aj9v ipv1_aj9w ipv2_aj9x ipv3_aj9y ->
case GHC.Cmm.Reg.$fOrdCmmReg_$ccompare ds2_aj9t ipv1_aj9w of {
LT -> GHC.ByteCode.Asm.mkNativeCallInfoLit_go4 ds2_aj9t ipv2_aj9x;
EQ -> ghc-internal:GHC.Internal.Types.True;
GT -> GHC.ByteCode.Asm.mkNativeCallInfoLit_go4 ds2_aj9t ipv3_aj9y
};
Data.Set.Internal.Tip -> ghc-internal:GHC.Internal.Types.False
}
}
end Rec }
Rec {
-- RHS size: {terms: 13, types: 4, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.mkNativeCallInfoLit_go [Occ=LoopBreaker]
:: Int# -> [Int]
[GblId, Arity=1, Str=<L>, Unf=OtherCon []]
GHC.ByteCode.Asm.mkNativeCallInfoLit_go
= \ (x_alAw :: Int#) ->
ghc-internal:GHC.Internal.Types.:
@Int
(ghc-internal:GHC.Internal.Types.I# x_alAw)
(case x_alAw of wild_X2 {
__DEFAULT ->
GHC.ByteCode.Asm.mkNativeCallInfoLit_go (+# wild_X2 1#);
9223372036854775807# -> ghc-internal:GHC.Internal.Types.[] @Int
})
end Rec }
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
GHC.ByteCode.Asm.mkNativeCallInfoLit2 :: [Int]
[GblId,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=False, ConLike=False, WorkFree=False, Expandable=False,
Guidance=IF_ARGS [] 20 0}]
GHC.ByteCode.Asm.mkNativeCallInfoLit2
= GHC.ByteCode.Asm.mkNativeCallInfoLit_go 0#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl26_rt7F :: Addr#
[GblId, Unf=OtherCon []]
lvl26_rt7F
= "mkNativeCallInfoSig: tuple too big for the bytecode compiler"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl27_rt7G :: [Char]
[GblId]
lvl27_rt7G = unpackCString# lvl26_rt7F
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
a_rt7H :: Addr#
[GblId, Unf=OtherCon []]
a_rt7H = "stack words."#
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
lvl28_rt7I :: GHC.Utils.Ppr.TextDetails
[GblId, Unf=OtherCon []]
lvl28_rt7I = GHC.Utils.Ppr.LStr a_rt7H 12#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl29_rt7J :: GHC.Utils.Ppr.Doc
[GblId, Unf=OtherCon []]
lvl29_rt7J
= GHC.Utils.Ppr.TextBeside lvl28_rt7I 12# GHC.Utils.Ppr.Empty
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
a1_rt7K :: Addr#
[GblId, Unf=OtherCon []]
a1_rt7K = "Use -fobject-code to get around this limit"#
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
lvl30_rt7L :: GHC.Utils.Ppr.TextDetails
[GblId, Unf=OtherCon []]
lvl30_rt7L = GHC.Utils.Ppr.LStr a1_rt7K 42#
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl31_rt7M :: GHC.Utils.Ppr.Doc
[GblId, Unf=OtherCon []]
lvl31_rt7M
= GHC.Utils.Ppr.TextBeside lvl30_rt7L 42# GHC.Utils.Ppr.Empty
-- RHS size: {terms: 25, types: 7, coercions: 6, joins: 0/1}
GHC.ByteCode.Asm.mkNativeCallInfoLit1 :: Int# -> Word32
[GblId, Arity=1, Str=<S>b, Cpr=b, Unf=OtherCon []]
GHC.ByteCode.Asm.mkNativeCallInfoLit1
= \ (bx_dibg :: Int#) ->
pprPanic
@Word32
($dIP11_rt7D
`cast` (Sym (ghc-internal:GHC.Internal.Classes.N:IP
<"callStack">_N
<ghc-internal:GHC.Internal.Stack.Types.CallStack>_N)
:: ghc-internal:GHC.Internal.Stack.Types.CallStack
~R# (?callStack::ghc-internal:GHC.Internal.Stack.Types.CallStack)))
lvl27_rt7G
((\ _ [Occ=Dead, OS=OneShot] ->
let {
s_skvc [Dmd=SL] :: String
[LclId]
s_skvc
= ghc-internal:GHC.Internal.Show.itos
bx_dibg (ghc-internal:GHC.Internal.Types.[] @Char) } in
case ghc-internal:GHC.Internal.List.$wlenAcc @Char s_skvc 0#
of ww1_ajgT
{ __DEFAULT ->
GHC.Utils.Ppr.Beside
(GHC.Utils.Ppr.Beside
(GHC.Utils.Ppr.TextBeside
(GHC.Utils.Ppr.Str s_skvc) ww1_ajgT GHC.Utils.Ppr.Empty)
ghc-internal:GHC.Internal.Types.True
lvl29_rt7J)
ghc-internal:GHC.Internal.Types.True
lvl31_rt7M
})
`cast` (Sym GHC.Utils.Outputable.N:SDoc
:: (SDocContext -> GHC.Utils.Ppr.Doc) ~R# SDoc))
-- RHS size: {terms: 108, types: 60, coercions: 0, joins: 4/4}
GHC.ByteCode.Asm.$wmkNativeCallInfoSig [InlPrag=[2]]
:: Platform -> NativeCallType -> GlobalRegSet -> Int# -> Word32#
[GblId[StrictWorker([~, !, !])],
Arity=4,
Str=<MP(1P(L,A),A,A,A,A,A,A,A,A,A,A,1L)><1L><1L><L>,
Unf=Unf{Src=<vanilla>, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=IF_ARGS [20 20 20 0] 313 0}]
GHC.ByteCode.Asm.$wmkNativeCallInfoSig
= \ (platform_sq4C :: Platform)
(ww_sq4F :: NativeCallType)
(ww1_sq4H :: GlobalRegSet)
(ww2_sq4I :: Int#) ->
case ww1_sq4H of ww3_X2 { __DEFAULT ->
case ww_sq4F of wild_X3 { __DEFAULT ->
join {
$j_slrv [Dmd=1L] :: Word32#
[LclId[JoinId(0)(Nothing)]]
$j_slrv
= join {
$j1_slT6 [Dmd=SC(S,L)] :: Word32# -> Word32#
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slT6 (x#_aj92 [OS=OneShot] :: Word32#)
= join {
$j2_slrs [Dmd=1C(1,L)] :: Word32# -> Word32#
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_slrs (x#1_ajay [OS=OneShot] :: Word32#)
= wordToWord32#
(or#
(word32ToWord# x#_aj92)
(and#
(uncheckedShiftL# (word32ToWord# x#1_ajay) 24#) 4294967295##)) } in
case wild_X3 of {
NativePrimCall -> jump $j2_slrs 0#Word32;
NativeTupleReturn ->
jump $j2_slrs (wordToWord32# (int2Word# ww2_sq4I))
} } in
joinrec {
$wgo_sq4x [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,C(1,L)))]
:: [GlobalReg] -> [Int] -> Word32# -> Word32#
[LclId[JoinId(3)(Just [!])],
Arity=3,
Str=<1L><ML><L>,
Unf=OtherCon []]
$wgo_sq4x (ds_sq4r :: [GlobalReg])
(_ys_sq4s :: [Int])
(ww4_sq4v :: Word32#)
= case ds_sq4r of {
[] -> jump $j1_slT6 ww4_sq4v;
: ipv_alLz ipv1_alLA ->
case _ys_sq4s of {
[] -> jump $j1_slT6 ww4_sq4v;
: ipv2_alLE ipv3_alLF ->
case GHC.ByteCode.Asm.mkNativeCallInfoLit_go4 ipv_alLz ww3_X2 of {
False -> jump $wgo_sq4x ipv1_alLA ipv3_alLF ww4_sq4v;
True ->
case ipv2_alLE of { I# i#_ajaB ->
jump $wgo_sq4x
ipv1_alLA
ipv3_alLF
(wordToWord32#
(or#
(word32ToWord# ww4_sq4v)
(and# (uncheckedShiftL# 1## i#_ajaB) 4294967295##)))
}
}
}
}; } in
jump $wgo_sq4x
(ghc-internal:GHC.Internal.Data.OldList.nubBy
@GlobalReg
GHC.Cmm.Reg.$fEqCmmReg_$c==
(ghc-internal:GHC.Internal.Types.:
@GlobalReg
GHC.Cmm.CallConv.allArgRegsCover1
(case platform_sq4C of
{ Platform ww4_alqF ww5_alqG ww6_alqH ww7_alqI ww8_alqJ ww9_alqK
ww10_alqL ww11_alqM ww12_alqN ww13_alqO ww14_alqP ww15_alqQ ->
case ww4_alqF of { ArchOS ww16_sqPh ww17_sqPi ->
GHC.Cmm.CallConv.$wrealArgRegsCover
ww16_sqPh ww15_alqQ GHC.Cmm.Reg.SCALAR_ARG_REGS
}
})))
GHC.ByteCode.Asm.mkNativeCallInfoLit2
0#Word32 } in
case wild_X3 of {
NativePrimCall -> jump $j_slrv;
NativeTupleReturn ->
case ># ww2_sq4I 62# of {
__DEFAULT -> jump $j_slrv;
1# -> case GHC.ByteCode.Asm.mkNativeCallInfoLit1 ww2_sq4I of {}
}
}
}
}
-- RHS size: {terms: 14, types: 8, coercions: 0, joins: 0/0}
mkNativeCallInfoSig [InlPrag=[2]]
:: Platform -> NativeCallInfo -> Word32
[GblId,
Arity=2,
Str=<MP(1P(L,A),A,A,A,A,A,A,A,A,A,A,1L)><1!P(1L,A,1L,L)>,
Cpr=1,
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (platform_sq4C [Occ=Once1] :: Platform)
(ds_sq4D [Occ=Once1!] :: NativeCallInfo) ->
case ds_sq4D of
{ NativeCallInfo ww_sq4F [Occ=Once1] _ [Occ=Dead]
ww2_sq4H [Occ=Once1] ww3_sq4I [Occ=Once1] ->
case GHC.ByteCode.Asm.$wmkNativeCallInfoSig
platform_sq4C ww_sq4F ww2_sq4H ww3_sq4I
of ww4_sqFz [Occ=Once1]
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W32# ww4_sqFz
}
}}]
mkNativeCallInfoSig
= \ (platform_sq4C :: Platform)
(ds_sq4D [OS=OneShot] :: NativeCallInfo) ->
case ds_sq4D of
{ NativeCallInfo ww_sq4F ww1_sq4G ww2_sq4H ww3_sq4I ->
case GHC.ByteCode.Asm.$wmkNativeCallInfoSig
platform_sq4C ww_sq4F ww2_sq4H ww3_sq4I
of ww4_sqFz
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W32# ww4_sqFz
}
}
-- RHS size: {terms: 18, types: 8, coercions: 0, joins: 0/0}
mkNativeCallInfoLit :: Platform -> NativeCallInfo -> Literal
[GblId,
Arity=2,
Str=<MP(1P(L,A),A,A,A,A,A,A,A,A,A,A,1L)><1!P(1L,A,1L,L)>,
Cpr=2(7, 1),
Unf=Unf{Src=StableSystem, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
Tmpl= \ (platform_af80 [Occ=Once1] :: Platform)
(call_info_af81 [Occ=Once1] :: NativeCallInfo) ->
case mkNativeCallInfoSig platform_af80 call_info_af81 of
{ ghc-internal:GHC.Internal.Word.W32# x#_ajhh [Occ=Once1] ->
GHC.Types.Literal.LitNumber
GHC.Types.Literal.LitNumWord
(ghc-internal:GHC.Internal.Bignum.Integer.IS
(word2Int# (word32ToWord# x#_ajhh)))
}}]
mkNativeCallInfoLit
= \ (platform_af80 :: Platform)
(call_info_af81 :: NativeCallInfo) ->
case call_info_af81 of
{ NativeCallInfo ww_sq4F ww1_sq4G ww2_sq4H ww3_sq4I ->
case GHC.ByteCode.Asm.$wmkNativeCallInfoSig
platform_af80 ww_sq4F ww2_sq4H ww3_sq4I
of ww4_sqFz
{ __DEFAULT ->
GHC.Types.Literal.LitNumber
GHC.Types.Literal.LitNumWord
(ghc-internal:GHC.Internal.Bignum.Integer.IS
(word2Int# (word32ToWord# ww4_sqFz)))
}
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl32_rt7N :: Addr#
[GblId, Unf=OtherCon []]
lvl32_rt7N = "GHC.ByteCode.Asm.literal: LitNumBigNat"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl33_rt7O :: [Char]
[GblId]
lvl33_rt7O = unpackCString# lvl32_rt7N
-- RHS size: {terms: 2, types: 2, coercions: 0, joins: 0/0}
lvl34_rt7P :: InspectAsm Word
[GblId, Str=b, Cpr=b]
lvl34_rt7P
= GHC.Utils.Panic.Plain.$wpanic @(InspectAsm Word) lvl33_rt7O
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl35_rt7Q :: BCONPtr
[GblId, Unf=OtherCon []]
lvl35_rt7Q = GHC.ByteCode.Types.BCONPtrWord 0##
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl36_rt7R :: [BCONPtr]
[GblId, Unf=OtherCon []]
lvl36_rt7R
= ghc-internal:GHC.Internal.Types.:
@BCONPtr lvl35_rt7Q (ghc-internal:GHC.Internal.Types.[] @BCONPtr)
-- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0}
lvl37_rt7S :: WordBox Word#
[GblId]
lvl37_rt7S
= case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr lvl36_rt7R 0#
of ww1_aiO0
{ __DEFAULT ->
ghc-internal:GHC.Internal.Types.MkWordBox
@Word# (int2Word# ww1_aiO0)
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl38_rt7T :: Word16
[GblId, Unf=OtherCon []]
lvl38_rt7T = ghc-internal:GHC.Internal.Word.W16# 1#Word16
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl39_rt7U :: Operand
[GblId, Unf=OtherCon []]
lvl39_rt7U = GHC.ByteCode.Asm.SmallOp lvl38_rt7T
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl40_rt7V :: [Operand]
[GblId, Unf=OtherCon []]
lvl40_rt7V
= ghc-internal:GHC.Internal.Types.:
@Operand lvl39_rt7U (ghc-internal:GHC.Internal.Types.[] @Operand)
-- RHS size: {terms: 8,685,
types: 7,245,
coercions: 40,
joins: 214/272}
$winspectInstrs_rt7W
:: Platform -> Bool -> Word -> [BCInstr] -> (# Word, LabelEnvMap #)
[GblId[StrictWorker([~, ~, ~, !])],
Arity=4,
Str=<LP(LP(L,A),L,L,A,A,A,A,A,A,A,A,L)><L><ML><1L>,
Cpr=1,
Unf=OtherCon []]
$winspectInstrs_rt7W
= \ (platform_sqid :: Platform)
(long_jump_sqie [OS=OneShot] :: Bool)
(e_sqif [OS=OneShot] :: Word)
(instrs_sqig [OS=OneShot] :: [BCInstr]) ->
let {
$s$wword32_srag
:: Word32#
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId, Arity=5, Str=<L><L><L><L><L>, Unf=OtherCon []]
$s$wword32_srag
= \ (sc_sr9R :: Word32#)
(ww_sq5q [OS=OneShot] :: Word#)
(ww1_sq5r [OS=OneShot] :: Word#)
(ww2_sq5s [OS=OneShot] :: Word#)
(ww3_sq5t [OS=OneShot] :: LabelEnvMap) ->
case platform_sqid of
{ Platform ds4_ajhP ds5_ajhQ ds6_ajhR ds7_ajhS ds8_ajhT ds9_ajhU
ds10_ajhV ds11_ajhW ds12_ajhX ds13_ajhY ds14_ajhZ ds15_aji0 ->
case ds6_ajhR of {
BigEndian ->
case ds5_ajhQ of {
PW4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word32ToWord# sc_sr9R))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq5q, ww1_sq5r, plusWord# ww2_sq5s (int2Word# ww4_aiO0),
ww3_sq5t, ww2_sq5s #)
};
PW8 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord
(uncheckedShiftL# (word32ToWord# sc_sr9R) 32#))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq5q, ww1_sq5r, plusWord# ww2_sq5s (int2Word# ww4_aiO0),
ww3_sq5t, ww2_sq5s #)
}
};
LittleEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word32ToWord# sc_sr9R))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq5q, ww1_sq5r, plusWord# ww2_sq5s (int2Word# ww4_aiO0),
ww3_sq5t, ww2_sq5s #)
}
}
} } in
let {
$wword32_sqPu [InlPrag=[2], Dmd=LC(S,C(1,C(1,C(1,C(1,L)))))]
:: Word32
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId, Arity=5, Str=<ML><L><L><L><L>, Unf=OtherCon []]
$wword32_sqPu
= \ (x_sq5m [OS=OneShot] :: Word32)
(ww_sq5q [OS=OneShot] :: Word#)
(ww1_sq5r [OS=OneShot] :: Word#)
(ww2_sq5s [OS=OneShot] :: Word#)
(ww3_sq5t [OS=OneShot] :: LabelEnvMap) ->
case platform_sqid of
{ Platform ds4_ajhP ds5_ajhQ ds6_ajhR ds7_ajhS ds8_ajhT ds9_ajhU
ds10_ajhV ds11_ajhW ds12_ajhX ds13_ajhY ds14_ajhZ ds15_aji0 ->
case ds6_ajhR of {
BigEndian ->
case ds5_ajhQ of {
PW4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5m of { ghc-internal:GHC.Internal.Word.W32# x#_ajhh ->
GHC.ByteCode.Types.BCONPtrWord (word32ToWord# x#_ajhh)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq5q, ww1_sq5r, plusWord# ww2_sq5s (int2Word# ww4_aiO0),
ww3_sq5t, ww2_sq5s #)
};
PW8 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5m of { ghc-internal:GHC.Internal.Word.W32# x#_ajhh ->
GHC.ByteCode.Types.BCONPtrWord
(uncheckedShiftL# (word32ToWord# x#_ajhh) 32#)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq5q, ww1_sq5r, plusWord# ww2_sq5s (int2Word# ww4_aiO0),
ww3_sq5t, ww2_sq5s #)
}
};
LittleEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5m of { ghc-internal:GHC.Internal.Word.W32# x#_ajhh ->
GHC.ByteCode.Types.BCONPtrWord (word32ToWord# x#_ajhh)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq5q, ww1_sq5r, plusWord# ww2_sq5s (int2Word# ww4_aiO0),
ww3_sq5t, ww2_sq5s #)
}
}
} } in
let {
$s$wword64_sr9Q
:: Word64#
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId, Arity=5, Str=<L><L><L><L><L>, Unf=OtherCon []]
$s$wword64_sr9Q
= \ (sc_sr97 :: Word64#)
(ww_sq58 [OS=OneShot] :: Word#)
(ww1_sq59 [OS=OneShot] :: Word#)
(ww2_sq5a [OS=OneShot] :: Word#)
(ww3_sq5b [OS=OneShot] :: LabelEnvMap) ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 ->
case ds6_aiYJ of {
BigEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord
(word64ToWord# (uncheckedShiftRL64# sc_sr97 32#)))
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word64ToWord# sc_sr97))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr)))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq58, ww1_sq59, plusWord# ww2_sq5a (int2Word# ww4_aiO0),
ww3_sq5b, ww2_sq5a #)
};
LittleEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word64ToWord# sc_sr97))
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord
(word64ToWord# (uncheckedShiftRL64# sc_sr97 32#)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr)))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq58, ww1_sq59, plusWord# ww2_sq5a (int2Word# ww4_aiO0),
ww3_sq5b, ww2_sq5a #)
}
};
PW8 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word64ToWord# sc_sr97))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq58, ww1_sq59, plusWord# ww2_sq5a (int2Word# ww4_aiO0),
ww3_sq5b, ww2_sq5a #)
}
}
} } in
let {
$wword64_sqPs [InlPrag=[2], Dmd=LC(S,C(1,C(1,C(1,C(1,L)))))]
:: Word64
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId, Arity=5, Str=<ML><L><L><L><L>, Unf=OtherCon []]
$wword64_sqPs
= \ (ww_sq54 [OS=OneShot] :: Word64)
(ww1_sq58 [OS=OneShot] :: Word#)
(ww2_sq59 [OS=OneShot] :: Word#)
(ww3_sq5a [OS=OneShot] :: Word#)
(ww4_sq5b [OS=OneShot] :: LabelEnvMap) ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 ->
case ww_sq54 of { ghc-internal:GHC.Internal.Word.W64# x#_aj4u ->
case ds6_aiYJ of {
BigEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord
(word64ToWord# (uncheckedShiftRL64# x#_aj4u 32#)))
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word64ToWord# x#_aj4u))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr)))
0#
of ww5_aiO0
{ __DEFAULT ->
(# ww1_sq58, ww2_sq59, plusWord# ww3_sq5a (int2Word# ww5_aiO0),
ww4_sq5b, ww3_sq5a #)
};
LittleEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word64ToWord# x#_aj4u))
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord
(word64ToWord# (uncheckedShiftRL64# x#_aj4u 32#)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr)))
0#
of ww5_aiO0
{ __DEFAULT ->
(# ww1_sq58, ww2_sq59, plusWord# ww3_sq5a (int2Word# ww5_aiO0),
ww4_sq5b, ww3_sq5a #)
}
}
};
PW8 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case ww_sq54 of { ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
GHC.ByteCode.Types.BCONPtrWord (word64ToWord# x#_aiNy)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww5_aiO0
{ __DEFAULT ->
(# ww1_sq58, ww2_sq59, plusWord# ww3_sq5a (int2Word# ww5_aiO0),
ww4_sq5b, ww3_sq5a #)
}
}
} } in
let {
$wliteral_sqPG [InlPrag=[2],
Dmd=LC(S,C(1,C(1,C(1,C(1,!P(L,L,L,L,L))))))]
:: Literal
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId[StrictWorker([!])],
Arity=5,
Str=<1L><L><L><L><L>,
Unf=OtherCon []]
$wliteral_sqPG
= \ (ds_sq6h [OS=OneShot] :: Literal)
(ww_sq6l [OS=OneShot] :: Word#)
(ww1_sq6m [OS=OneShot] :: Word#)
(ww2_sq6n [OS=OneShot] :: Word#)
(ww3_sq6o [OS=OneShot] :: LabelEnvMap) ->
case ds_sq6h of {
__DEFAULT ->
case lvl37_rt7S of { MkWordBox v1_B2 ->
(# ww_sq6l, ww1_sq6m, plusWord# ww2_sq6n v1_B2, ww3_sq6o,
ww2_sq6n #)
};
LitChar c2_abEK ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case c2_abEK of { C# c#_ajiJ ->
GHC.ByteCode.Types.BCONPtrWord (int2Word# (ord# c#_ajiJ))
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq6l, ww1_sq6m, plusWord# ww2_sq6n (int2Word# ww4_aiO0),
ww3_sq6o, ww2_sq6n #)
};
LitNumber nt_abEM i_abEN ->
join {
$wword8_sqPE [InlPrag=[2], Dmd=MC(1,C(1,C(1,C(1,C(1,L)))))]
:: Word8
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId[JoinId(5)(Nothing)],
Arity=5,
Str=<ML><L><L><L><L>,
Unf=OtherCon []]
$wword8_sqPE (x_sq5Z [OS=OneShot] :: Word8)
(ww4_sq63 [OS=OneShot] :: Word#)
(ww5_sq64 [OS=OneShot] :: Word#)
(ww6_sq65 [OS=OneShot] :: Word#)
(ww7_sq66 [OS=OneShot] :: LabelEnvMap)
= case platform_sqid of
{ Platform ds4_ajhP ds5_ajhQ ds6_ajhR ds7_ajhS ds8_ajhT ds9_ajhU
ds10_ajhV ds11_ajhW ds12_ajhX ds13_ajhY ds14_ajhZ ds15_aji0 ->
case ds6_ajhR of {
BigEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5Z of
{ ghc-internal:GHC.Internal.Word.W8# x#_ajir ->
join {
$j_sqTZ [Dmd=1C(1,L)] :: Int# -> BCONPtr
[LclId[JoinId(1)(Nothing)],
Arity=1,
Str=<L>,
Unf=OtherCon []]
$j_sqTZ (x1_ajiw [OS=OneShot] :: Int#)
= GHC.ByteCode.Types.BCONPtrWord
(uncheckedShiftL#
(word8ToWord# x#_ajir) (-# x1_ajiw 8#)) } in
case ds5_ajhQ of {
PW4 -> jump $j_sqTZ 32#;
PW8 -> jump $j_sqTZ 64#
}
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww8_aiO0
{ __DEFAULT ->
(# ww4_sq63, ww5_sq64, plusWord# ww6_sq65 (int2Word# ww8_aiO0),
ww7_sq66, ww6_sq65 #)
};
LittleEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5Z of
{ ghc-internal:GHC.Internal.Word.W8# x#_ajir ->
GHC.ByteCode.Types.BCONPtrWord (word8ToWord# x#_ajir)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww8_aiO0
{ __DEFAULT ->
(# ww4_sq63, ww5_sq64, plusWord# ww6_sq65 (int2Word# ww8_aiO0),
ww7_sq66, ww6_sq65 #)
}
}
} } in
join {
$wword16_sqPC [InlPrag=[2], Dmd=MC(1,C(1,C(1,C(1,C(1,L)))))]
:: Word16
-> Word#
-> Word#
-> Word#
-> LabelEnvMap
-> (# Word#, Word#, Word#, LabelEnvMap, Word# #)
[LclId[JoinId(5)(Nothing)],
Arity=5,
Str=<ML><L><L><L><L>,
Unf=OtherCon []]
$wword16_sqPC (x_sq5H [OS=OneShot] :: Word16)
(ww4_sq5L [OS=OneShot] :: Word#)
(ww5_sq5M [OS=OneShot] :: Word#)
(ww6_sq5N [OS=OneShot] :: Word#)
(ww7_sq5O [OS=OneShot] :: LabelEnvMap)
= case platform_sqid of
{ Platform ds4_ajhP ds5_ajhQ ds6_ajhR ds7_ajhS ds8_ajhT ds9_ajhU
ds10_ajhV ds11_ajhW ds12_ajhX ds13_ajhY ds14_ajhZ ds15_aji0 ->
case ds6_ajhR of {
BigEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5H of
{ ghc-internal:GHC.Internal.Word.W16# x#_ajiD ->
join {
$j_sqU0 [Dmd=1C(1,L)] :: Int# -> BCONPtr
[LclId[JoinId(1)(Nothing)],
Arity=1,
Str=<L>,
Unf=OtherCon []]
$j_sqU0 (x1_ajiw [OS=OneShot] :: Int#)
= GHC.ByteCode.Types.BCONPtrWord
(uncheckedShiftL#
(word16ToWord# x#_ajiD) (-# x1_ajiw 16#)) } in
case ds5_ajhQ of {
PW4 -> jump $j_sqU0 32#;
PW8 -> jump $j_sqU0 64#
}
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww8_aiO0
{ __DEFAULT ->
(# ww4_sq5L, ww5_sq5M, plusWord# ww6_sq5N (int2Word# ww8_aiO0),
ww7_sq5O, ww6_sq5N #)
};
LittleEndian ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case x_sq5H of
{ ghc-internal:GHC.Internal.Word.W16# x#_ajiD ->
GHC.ByteCode.Types.BCONPtrWord (word16ToWord# x#_ajiD)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww8_aiO0
{ __DEFAULT ->
(# ww4_sq5L, ww5_sq5M, plusWord# ww6_sq5N (int2Word# ww8_aiO0),
ww7_sq5O, ww6_sq5N #)
}
}
} } in
case nt_abEM of {
LitNumBigNat -> case lvl34_rt7P of {};
LitNumInt ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case ghc-internal:GHC.Internal.Bignum.Integer.integerToWord#
i_abEN
of ds1_aiMU
{ __DEFAULT ->
GHC.ByteCode.Types.BCONPtrWord ds1_aiMU
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq6l, ww1_sq6m, plusWord# ww2_sq6n (int2Word# ww4_aiO0),
ww3_sq6o, ww2_sq6n #)
};
LitNumInt8 ->
jump $wword8_sqPE
(case wordToWord8#
(ghc-internal:GHC.Internal.Bignum.Integer.integerToWord# i_abEN)
of ds1_ajiN
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W8# ds1_ajiN
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumInt16 ->
jump $wword16_sqPC
(case wordToWord16#
(ghc-internal:GHC.Internal.Bignum.Integer.integerToWord# i_abEN)
of ds1_aj02
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W16# ds1_aj02
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumInt32 ->
$wword32_sqPu
(case wordToWord32#
(ghc-internal:GHC.Internal.Bignum.Integer.integerToWord# i_abEN)
of ds1_aj8W
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W32# ds1_aj8W
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumInt64 ->
$wword64_sqPs
(case ghc-internal:GHC.Internal.Bignum.Integer.integerToWord64#
i_abEN
of ds1_aj4K
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W64# ds1_aj4K
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumWord ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case ghc-internal:GHC.Internal.Bignum.Integer.integerToWord#
i_abEN
of ds1_aiMU
{ __DEFAULT ->
GHC.ByteCode.Types.BCONPtrWord ds1_aiMU
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq6l, ww1_sq6m, plusWord# ww2_sq6n (int2Word# ww4_aiO0),
ww3_sq6o, ww2_sq6n #)
};
LitNumWord8 ->
jump $wword8_sqPE
(case wordToWord8#
(ghc-internal:GHC.Internal.Bignum.Integer.integerToWord# i_abEN)
of ds1_ajiN
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W8# ds1_ajiN
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumWord16 ->
jump $wword16_sqPC
(case wordToWord16#
(ghc-internal:GHC.Internal.Bignum.Integer.integerToWord# i_abEN)
of ds1_aj02
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W16# ds1_aj02
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumWord32 ->
$wword32_sqPu
(case wordToWord32#
(ghc-internal:GHC.Internal.Bignum.Integer.integerToWord# i_abEN)
of ds1_aj8W
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W32# ds1_aj8W
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitNumWord64 ->
$wword64_sqPs
(case ghc-internal:GHC.Internal.Bignum.Integer.integerToWord64#
i_abEN
of ds1_aj4K
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W64# ds1_aj4K
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o
};
LitString bs_abEL ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrStr bs_abEL)
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq6l, ww1_sq6m, plusWord# ww2_sq6n (int2Word# ww4_aiO0),
ww3_sq6o, ww2_sq6n #)
};
LitFloat r_abEF ->
$wword32_sqPu
(case r_abEF of
{ ghc-internal:GHC.Internal.Real.:% n_alrE d_alrF ->
case ghc-internal:GHC.Internal.Float.$wrationalToFloat
n_alrE d_alrF
of ww4_alLK
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W32# (castFloatToWord32# ww4_alLK)
}
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitDouble r_abEJ ->
$wword64_sqPs
(case r_abEJ of
{ ghc-internal:GHC.Internal.Real.:% n_alrJ d_alrK ->
case ghc-internal:GHC.Internal.Float.$wrationalToDouble
n_alrJ d_alrK
of ww4_alMF
{ __DEFAULT ->
ghc-internal:GHC.Internal.Word.W64# (castDoubleToWord64# ww4_alMF)
}
})
ww_sq6l
ww1_sq6m
ww2_sq6n
ww3_sq6o;
LitLabel fs_abEE ds1_dhGa ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrLbl fs_abEE)
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww4_aiO0
{ __DEFAULT ->
(# ww_sq6l, ww1_sq6m, plusWord# ww2_sq6n (int2Word# ww4_aiO0),
ww3_sq6o, ww2_sq6n #)
}
} } in
letrec {
$wgo1_sqi9 [InlPrag=[2],
Occ=LoopBreaker,
Dmd=SC(S,C(1,C(1,!P(L))))]
:: [BCInstr] -> InspectEnv -> InspectState -> (# InspectState #)
[LclId[StrictWorker([!])],
Arity=3,
Str=<1L><L><L>,
Unf=OtherCon []]
$wgo1_sqi9
= \ (ds_sqi2 :: [BCInstr])
(eta_sqi3 [OS=OneShot] :: InspectEnv)
(eta1_sqi4 [OS=OneShot] :: InspectState) ->
case ds_sqi2 of {
[] -> (# eta1_sqi4 #);
: y_alL5 ys_alL6 ->
join {
$j_slVX [Dmd=SC(S,!P(L))] :: InspectState -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j_slVX (ipv_sigu [OS=OneShot] :: InspectState)
= $wgo1_sqi9 ys_alL6 eta_sqi3 ipv_sigu } in
case y_alL5 of {
__DEFAULT ->
case eta1_sqi4 of
{ InspectState bx_die2 bx1_die3 bx2_die4 lblEnv1_B4 ->
jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# bx_die2 1##) bx1_die3 bx2_die4 lblEnv1_B4)
};
STKCHECK bx_dibr ->
tick<STKCHECK>
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
case scc<STKCHECK>
join {
$j1_slTd [Dmd=1C(1,!P(L,A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTd (y#_aiNT [OS=OneShot] :: Word#)
= (# GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4,
ghc-internal:GHC.Internal.Tuple.() #) } in
case gtWord# bx_dibr 65535## of {
__DEFAULT -> jump $j1_slTd 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTd 2##;
PW8 -> jump $j1_slTd 4##
}
}
}
of
{ (# ipv_sigu, _ [Occ=Dead] #) ->
jump $j_slVX ipv_sigu
}
};
PUSH_L bx_dibt ->
tick<PUSH_L>
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
case scc<PUSH_L>
join {
$j1_slTe [Dmd=1C(1,!P(L,A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTe (y#_aiNT [OS=OneShot] :: Word#)
= (# GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4,
ghc-internal:GHC.Internal.Tuple.() #) } in
case gtWord# (int2Word# bx_dibt) 65535## of {
__DEFAULT -> jump $j1_slTe 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTe 2##;
PW8 -> jump $j1_slTe 4##
}
}
}
of
{ (# ipv_sigu, _ [Occ=Dead] #) ->
jump $j_slVX ipv_sigu
}
};
PUSH_LL bx_dibv bx1_dibw ->
tick<PUSH_LL>
case eta1_sqi4 of
{ InspectState bx2_die2 bx3_die3 bx4_die4 lblEnv1_B4 ->
case scc<PUSH_LL>
let {
ops_slAL :: Word#
[LclId]
ops_slAL = int2Word# bx_dibv } in
let {
ops1_slAO :: Word#
[LclId]
ops1_slAO = int2Word# bx1_dibw } in
let {
largeOps_skx2 :: Bool
[LclId]
largeOps_skx2
= case gtWord# ops_slAL 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> tagToEnum# @Bool (gtWord# ops1_slAO 65535##)
} } in
join {
$j1_slTf [Dmd=SC(S,P(L,A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTf (x#_aiNQ [OS=OneShot] :: Word#)
= (# GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_die2 x#_aiNQ))
bx3_die3
bx4_die4
lblEnv1_B4,
ghc-internal:GHC.Internal.Tuple.() #) } in
joinrec {
$s$wgo1_sqWU [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState, () #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sqWU (sc_sqWT :: Word#)
(sc1_sqWR :: Operand)
(sc2_sqWS :: [Operand])
= join {
$j2_ss5a [Dmd=1C(1,!P(L,A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5a (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq73 sc2_sqWS (plusWord# sc_sqWT y#_aiNT) } in
case sc1_sqWR of {
Op ds1_di9E ->
case largeOps_skx2 of {
False -> jump $j2_ss5a 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5a 2##;
PW8 -> jump $j2_ss5a 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skx2 of {
False -> jump $j2_ss5a 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5a 2##;
PW8 -> jump $j2_ss5a 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5a 1##;
LabelOp ds1_di9D ->
case largeOps_skx2 of {
False -> jump $j2_ss5a 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5a 2##;
PW8 -> jump $j2_ss5a 4##
}
}
}
};
$wgo2_sq73 [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L,A)))]
:: [Operand] -> Word# -> (# InspectState, () #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sq73 (ds1_sq6Y :: [Operand]) (ww_sq71 :: Word#)
= case ds1_sq6Y of {
[] -> jump $j1_slTf ww_sq71;
: y1_Xb ys1_Xc ->
join {
$j2_ss5b [Dmd=1C(1,!P(L,A))]
:: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)],
Arity=1,
Str=<L>,
Unf=OtherCon []]
$j2_ss5b (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq73 ys1_Xc (plusWord# ww_sq71 y#_aiNT) } in
case y1_Xb of {
Op ds2_di9E ->
case largeOps_skx2 of {
False -> jump $j2_ss5b 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP
ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5b 2##;
PW8 -> jump $j2_ss5b 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skx2 of {
False -> jump $j2_ss5b 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP
ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5b 2##;
PW8 -> jump $j2_ss5b 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5b 1##;
LabelOp ds2_di9D ->
case largeOps_skx2 of {
False -> jump $j2_ss5b 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP
ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5b 2##;
PW8 -> jump $j2_ss5b 4##
}
}
}
}
}; } in
jump $s$wgo1_sqWU
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ops_slAL))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# ops1_slAO))
(ghc-internal:GHC.Internal.Types.[] @Operand))
of
{ (# ipv_sigu, _ [Occ=Dead] #) ->
jump $j_slVX ipv_sigu
}
};
PUSH_LLL bx_diby bx1_dibz bx2_dibA ->
tick<PUSH_LLL>
case eta1_sqi4 of
{ InspectState bx3_die2 bx4_die3 bx5_die4 lblEnv1_B4 ->
case scc<PUSH_LLL>
let {
ops_slAT :: Word#
[LclId]
ops_slAT = int2Word# bx_diby } in
let {
ops1_slAW :: Word#
[LclId]
ops1_slAW = int2Word# bx1_dibz } in
let {
ops2_slAZ :: Word#
[LclId]
ops2_slAZ = int2Word# bx2_dibA } in
let {
largeOps_skx8 :: Bool
[LclId]
largeOps_skx8
= case gtWord# ops_slAT 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
case gtWord# ops1_slAW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> tagToEnum# @Bool (gtWord# ops2_slAZ 65535##)
}
} } in
join {
$j1_slTg [Dmd=SC(S,P(L,A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTg (x#_aiNQ [OS=OneShot] :: Word#)
= (# GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx3_die2 x#_aiNQ))
bx4_die3
bx5_die4
lblEnv1_B4,
ghc-internal:GHC.Internal.Tuple.() #) } in
joinrec {
$s$wgo1_sqX7 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState, () #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sqX7 (sc_sqX6 :: Word#)
(sc1_sqX4 :: Operand)
(sc2_sqX5 :: [Operand])
= join {
$j2_ss5c [Dmd=1C(1,!P(L,A))] :: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5c (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq7h sc2_sqX5 (plusWord# sc_sqX6 y#_aiNT) } in
case sc1_sqX4 of {
Op ds1_di9E ->
case largeOps_skx8 of {
False -> jump $j2_ss5c 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5c 2##;
PW8 -> jump $j2_ss5c 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skx8 of {
False -> jump $j2_ss5c 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5c 2##;
PW8 -> jump $j2_ss5c 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5c 1##;
LabelOp ds1_di9D ->
case largeOps_skx8 of {
False -> jump $j2_ss5c 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5c 2##;
PW8 -> jump $j2_ss5c 4##
}
}
}
};
$wgo2_sq7h [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L,A)))]
:: [Operand] -> Word# -> (# InspectState, () #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sq7h (ds1_sq7c :: [Operand]) (ww_sq7f :: Word#)
= case ds1_sq7c of {
[] -> jump $j1_slTg ww_sq7f;
: y1_Xb ys1_Xc ->
join {
$j2_ss5d [Dmd=1C(1,!P(L,A))]
:: Word# -> (# InspectState, () #)
[LclId[JoinId(1)(Nothing)],
Arity=1,
Str=<L>,
Unf=OtherCon []]
$j2_ss5d (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq7h ys1_Xc (plusWord# ww_sq7f y#_aiNT) } in
case y1_Xb of {
Op ds2_di9E ->
case largeOps_skx8 of {
False -> jump $j2_ss5d 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP
ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5d 2##;
PW8 -> jump $j2_ss5d 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skx8 of {
False -> jump $j2_ss5d 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP
ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5d 2##;
PW8 -> jump $j2_ss5d 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5d 1##;
LabelOp ds2_di9D ->
case largeOps_skx8 of {
False -> jump $j2_ss5d 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP
ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5d 2##;
PW8 -> jump $j2_ss5d 4##
}
}
}
}
}; } in
jump $s$wgo1_sqX7
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ops_slAT))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# ops1_slAW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# ops2_slAZ))
(ghc-internal:GHC.Internal.Types.[] @Operand)))
of
{ (# ipv_sigu, _ [Occ=Dead] #) ->
jump $j_slVX ipv_sigu
}
};
PUSH8 bx_dibC ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTh [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTh (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dibC) 65535## of {
__DEFAULT -> jump $j1_slTh 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTh 2##;
PW8 -> jump $j1_slTh 4##
}
}
}
};
PUSH16 bx_dibE ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTi [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTi (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dibE) 65535## of {
__DEFAULT -> jump $j1_slTi 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTi 2##;
PW8 -> jump $j1_slTi 4##
}
}
}
};
PUSH32 bx_dibG ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTj [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTj (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dibG) 65535## of {
__DEFAULT -> jump $j1_slTj 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTj 2##;
PW8 -> jump $j1_slTj 4##
}
}
}
};
PUSH8_W bx_dibI ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTk [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTk (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dibI) 65535## of {
__DEFAULT -> jump $j1_slTk 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTk 2##;
PW8 -> jump $j1_slTk 4##
}
}
}
};
PUSH16_W bx_dibK ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTl [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTl (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dibK) 65535## of {
__DEFAULT -> jump $j1_slTl 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTl 2##;
PW8 -> jump $j1_slTl 4##
}
}
}
};
PUSH32_W bx_dibM ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTm [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTm (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dibM) 65535## of {
__DEFAULT -> jump $j1_slTm 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTm 2##;
PW8 -> jump $j1_slTm 4##
}
}
}
};
PUSH_G nm_abKE ->
case eta1_sqi4 of
{ InspectState bx_didQ bx1_didR bx2_didS lblEnv1_B4 ->
join {
$j1_slTn [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTn (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_didQ y#_aiNT))
(plusWord# bx1_didR 1##)
bx2_didS
lblEnv1_B4) } in
case gtWord# bx1_didR 65535## of {
__DEFAULT -> jump $j1_slTn 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTn 2##;
PW8 -> jump $j1_slTn 4##
}
}
}
};
PUSH_PRIMOP op_abKG ->
case eta1_sqi4 of
{ InspectState bx_didQ bx1_didR bx2_didS lblEnv1_B4 ->
join {
$j1_slTo [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTo (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_didQ y#_aiNT))
(plusWord# bx1_didR 1##)
bx2_didS
lblEnv1_B4) } in
case gtWord# bx1_didR 65535## of {
__DEFAULT -> jump $j1_slTo 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTo 2##;
PW8 -> jump $j1_slTo 4##
}
}
}
};
PUSH_BCO proto_af4l ->
case eta1_sqi4 of
{ InspectState bx_didQ bx1_didR bx2_didS lblEnv1_B4 ->
join {
$j1_slTp [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTp (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_didQ y#_aiNT))
(plusWord# bx1_didR 1##)
bx2_didS
lblEnv1_B4) } in
case gtWord# bx1_didR 65535## of {
__DEFAULT -> jump $j1_slTp 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTp 2##;
PW8 -> jump $j1_slTp 4##
}
}
}
};
PUSH_ALTS proto_af4r pk_af4s ->
case eta1_sqi4 of
{ InspectState bx_didQ bx1_didR bx2_didS lblEnv1_B4 ->
join {
$j1_slTq [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTq (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_didQ y#_aiNT))
(plusWord# bx1_didR 1##)
bx2_didS
lblEnv1_B4) } in
case gtWord# bx1_didR 65535## of {
__DEFAULT -> jump $j1_slTq 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTq 2##;
PW8 -> jump $j1_slTq 4##
}
}
}
};
PUSH_ALTS_TUPLE proto_af4v bx_dibO bx1_dibP bx2_dibQ bx3_dibR
tuple_proto_af4x ->
case eta1_sqi4 of
{ InspectState bx4_didQ bx5_didR bx6_didS lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case GHC.ByteCode.Asm.$wmkNativeCallInfoSig
platform_sqid bx_dibO bx2_dibQ bx3_dibR
of ww_sqFz
{ __DEFAULT ->
GHC.ByteCode.Types.BCONPtrWord (word32ToWord# ww_sqFz)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
unbx_skym :: Word#
[LclId]
unbx_skym = plusWord# bx5_didR 1## } in
let {
largeOps_skyq :: Bool
[LclId]
largeOps_skyq
= case gtWord# bx5_didR 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
case gtWord# bx6_didS 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> tagToEnum# @Bool (gtWord# unbx_skym 65535##)
}
} } in
join {
$j1_slTr [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTr (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx4_didQ x#_Xb))
(plusWord# unbx_skym 1##)
(plusWord# bx6_didS (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sqYW [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sqYW (sc_sqYV :: Word#)
(sc1_sqYT :: Operand)
(sc2_sqYU :: [Operand])
= join {
$j2_ss5o [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5o (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq8N sc2_sqYU (plusWord# sc_sqYV y#_aiNT) } in
case sc1_sqYT of {
Op ds1_di9E ->
case largeOps_skyq of {
False -> jump $j2_ss5o 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5o 2##;
PW8 -> jump $j2_ss5o 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skyq of {
False -> jump $j2_ss5o 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5o 2##;
PW8 -> jump $j2_ss5o 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5o 1##;
LabelOp ds1_di9D ->
case largeOps_skyq of {
False -> jump $j2_ss5o 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5o 2##;
PW8 -> jump $j2_ss5o 4##
}
}
}
};
$wgo2_sq8N [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sq8N (ds1_sq8I :: [Operand]) (ww_sq8L :: Word#)
= case ds1_sq8I of {
[] -> jump $j1_slTr ww_sq8L;
: y1_Xe ys1_Xf ->
join {
$j2_ss5p [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5p (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq8N ys1_Xf (plusWord# ww_sq8L y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skyq of {
False -> jump $j2_ss5p 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5p 2##;
PW8 -> jump $j2_ss5p 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skyq of {
False -> jump $j2_ss5p 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5p 2##;
PW8 -> jump $j2_ss5p 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5p 1##;
LabelOp ds2_di9D ->
case largeOps_skyq of {
False -> jump $j2_ss5p 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5p 2##;
PW8 -> jump $j2_ss5p 4##
}
}
}
}
}; } in
jump $s$wgo1_sqYW
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx5_didR))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx6_didS))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# unbx_skym))
(ghc-internal:GHC.Internal.Types.[] @Operand)))
}
};
PUSH_UBX8 lit1_af4D ->
case eta1_sqi4 of
{ InspectState ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o ->
case $wliteral_sqPG lit1_af4D ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o of
{ (# ww4_sqG3, ww5_sqG4, ww6_sqG5, ww7_sqG6, ww8_sqG8 #) ->
join {
$j1_slTt [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTt (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqG3 y#_aiNT))
ww5_sqG4
ww6_sqG5
ww7_sqG6) } in
case gtWord# ww8_sqG8 65535## of {
__DEFAULT -> jump $j1_slTt 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTt 2##;
PW8 -> jump $j1_slTt 4##
}
}
}
}
};
PUSH_UBX16 lit1_af4F ->
case eta1_sqi4 of
{ InspectState ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o ->
case $wliteral_sqPG lit1_af4F ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o of
{ (# ww4_sqG3, ww5_sqG4, ww6_sqG5, ww7_sqG6, ww8_sqG8 #) ->
join {
$j1_slTv [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTv (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqG3 y#_aiNT))
ww5_sqG4
ww6_sqG5
ww7_sqG6) } in
case gtWord# ww8_sqG8 65535## of {
__DEFAULT -> jump $j1_slTv 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTv 2##;
PW8 -> jump $j1_slTv 4##
}
}
}
}
};
PUSH_UBX32 lit1_af4H ->
case eta1_sqi4 of
{ InspectState ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o ->
case $wliteral_sqPG lit1_af4H ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o of
{ (# ww4_sqG3, ww5_sqG4, ww6_sqG5, ww7_sqG6, ww8_sqG8 #) ->
join {
$j1_slTx [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTx (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqG3 y#_aiNT))
ww5_sqG4
ww6_sqG5
ww7_sqG6) } in
case gtWord# ww8_sqG8 65535## of {
__DEFAULT -> jump $j1_slTx 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTx 2##;
PW8 -> jump $j1_slTx 4##
}
}
}
}
};
PUSH_UBX lit1_af4J bx_dibT ->
case eta1_sqi4 of
{ InspectState ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o ->
case $wliteral_sqPG lit1_af4J ww_sq6l ww1_sq6m ww2_sq6n ww3_sq6o of
{ (# ww4_sqG3, ww5_sqG4, ww6_sqG5, ww7_sqG6, ww8_sqG8 #) ->
let {
lvl163_slrM :: Word#
[LclId]
lvl163_slrM = int2Word# bx_dibT } in
let {
largeOps_skyW :: Bool
[LclId]
largeOps_skyW
= case gtWord# ww8_sqG8 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> tagToEnum# @Bool (gtWord# lvl163_slrM 65535##)
} } in
join {
$j1_slTz [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTz (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqG3 x#_aiNQ))
ww5_sqG4
ww6_sqG5
ww7_sqG6) } in
joinrec {
$s$wgo1_sqZD [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sqZD (sc_sqZC :: Word#)
(sc1_sqZA :: Operand)
(sc2_sqZB :: [Operand])
= join {
$j2_ss5t [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5t (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq9p sc2_sqZB (plusWord# sc_sqZC y#_aiNT) } in
case sc1_sqZA of {
Op ds1_di9E ->
case largeOps_skyW of {
False -> jump $j2_ss5t 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5t 2##;
PW8 -> jump $j2_ss5t 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skyW of {
False -> jump $j2_ss5t 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5t 2##;
PW8 -> jump $j2_ss5t 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5t 1##;
LabelOp ds1_di9D ->
case largeOps_skyW of {
False -> jump $j2_ss5t 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5t 2##;
PW8 -> jump $j2_ss5t 4##
}
}
}
};
$wgo2_sq9p [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sq9p (ds1_sq9k :: [Operand]) (ww9_sq9n :: Word#)
= case ds1_sq9k of {
[] -> jump $j1_slTz ww9_sq9n;
: y1_Xc ys1_Xd ->
join {
$j2_ss5u [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5u (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq9p ys1_Xd (plusWord# ww9_sq9n y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skyW of {
False -> jump $j2_ss5u 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5u 2##;
PW8 -> jump $j2_ss5u 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skyW of {
False -> jump $j2_ss5u 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5u 2##;
PW8 -> jump $j2_ss5u 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5u 1##;
LabelOp ds2_di9D ->
case largeOps_skyW of {
False -> jump $j2_ss5u 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5u 2##;
PW8 -> jump $j2_ss5u 4##
}
}
}
}
}; } in
jump $s$wgo1_sqZD
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqG8))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# lvl163_slrM))
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
PUSH_ADDR nm_af4M ->
case eta1_sqi4 of
{ InspectState bx_didU bx1_didV bx2_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrAddr nm_af4M)
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
join {
$j1_slTA [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTA (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_didU x#_Xb))
bx1_didV
(plusWord# bx2_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sqZQ [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1A><1L>,
Unf=OtherCon []]
$s$wgo1_sqZQ (sc_sqZP :: Word#)
(sc1_sqZN :: Operand)
(sc2_sqZO :: [Operand])
= case sc1_sqZN of { __DEFAULT ->
jump $wgo2_sq9D sc2_sqZO (plusWord# sc_sqZP 1##)
};
$wgo2_sq9D [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sq9D (ds1_sq9y :: [Operand]) (ww_sq9B :: Word#)
= case ds1_sq9y of {
[] -> jump $j1_slTA ww_sq9B;
: y1_Xe ys1_Xf ->
case y1_Xe of { __DEFAULT ->
jump $wgo2_sq9D ys1_Xf (plusWord# ww_sq9B 1##)
}
}; } in
jump $s$wgo1_sqZQ
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx2_didW))
lvl40_rt7V
}
};
SLIDE bx_dibV bx1_dibW ->
case eta1_sqi4 of
{ InspectState bx2_die2 bx3_die3 bx4_die4 lblEnv1_B4 ->
let {
ops_slBR :: Word#
[LclId]
ops_slBR = int2Word# bx_dibV } in
let {
ops1_slBU :: Word#
[LclId]
ops1_slBU = int2Word# bx1_dibW } in
let {
largeOps_skzc :: Bool
[LclId]
largeOps_skzc
= case gtWord# ops_slBR 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> tagToEnum# @Bool (gtWord# ops1_slBU 65535##)
} } in
join {
$j1_slTB [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTB (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_die2 x#_aiNQ))
bx3_die3
bx4_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sqZZ [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sqZZ (sc_sqZY :: Word#)
(sc1_sqZW :: Operand)
(sc2_sqZX :: [Operand])
= join {
$j2_ss5v [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5v (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq9R sc2_sqZX (plusWord# sc_sqZY y#_aiNT) } in
case sc1_sqZW of {
Op ds1_di9E ->
case largeOps_skzc of {
False -> jump $j2_ss5v 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5v 2##;
PW8 -> jump $j2_ss5v 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skzc of {
False -> jump $j2_ss5v 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5v 2##;
PW8 -> jump $j2_ss5v 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5v 1##;
LabelOp ds1_di9D ->
case largeOps_skzc of {
False -> jump $j2_ss5v 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5v 2##;
PW8 -> jump $j2_ss5v 4##
}
}
}
};
$wgo2_sq9R [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sq9R (ds1_sq9M :: [Operand]) (ww_sq9P :: Word#)
= case ds1_sq9M of {
[] -> jump $j1_slTB ww_sq9P;
: y1_Xb ys1_Xc ->
join {
$j2_ss5w [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5w (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sq9R ys1_Xc (plusWord# ww_sq9P y#_aiNT) } in
case y1_Xb of {
Op ds2_di9E ->
case largeOps_skzc of {
False -> jump $j2_ss5w 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5w 2##;
PW8 -> jump $j2_ss5w 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skzc of {
False -> jump $j2_ss5w 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5w 2##;
PW8 -> jump $j2_ss5w 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5w 1##;
LabelOp ds2_di9D ->
case largeOps_skzc of {
False -> jump $j2_ss5w 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5w 2##;
PW8 -> jump $j2_ss5w 4##
}
}
}
}
}; } in
jump $s$wgo1_sqZZ
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ops_slBR))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# ops1_slBU))
(ghc-internal:GHC.Internal.Types.[] @Operand))
};
ALLOC_AP bx_dibY ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 ->
case leWord# bx_dibY 65535## of {
__DEFAULT -> case $wlvl_rt7i bx_dibY of {};
1# ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTC [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTC (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# bx_dibY 65535## of {
__DEFAULT -> jump $j1_slTC 1##;
1# -> jump $j1_slTC 2##
}
}
};
PW8 ->
case leWord# bx_dibY 4294967295## of {
__DEFAULT -> case $wlvl_rt7i bx_dibY of {};
1# ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTC [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTC (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# bx_dibY 65535## of {
__DEFAULT -> jump $j1_slTC 1##;
1# -> jump $j1_slTC 4##
}
}
}
}
};
ALLOC_AP_NOUPD bx_dic0 ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 ->
case leWord# bx_dic0 65535## of {
__DEFAULT -> case $wlvl_rt7i bx_dic0 of {};
1# ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTD [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTD (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# bx_dic0 65535## of {
__DEFAULT -> jump $j1_slTD 1##;
1# -> jump $j1_slTD 2##
}
}
};
PW8 ->
case leWord# bx_dic0 4294967295## of {
__DEFAULT -> case $wlvl_rt7i bx_dic0 of {};
1# ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTD [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTD (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# bx_dic0 65535## of {
__DEFAULT -> jump $j1_slTD 1##;
1# -> jump $j1_slTD 4##
}
}
}
}
};
ALLOC_PAP bx_dic2 bx1_dic3 ->
case eta1_sqi4 of
{ InspectState bx2_die2 bx3_die3 bx4_die4 lblEnv1_B4 ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
join {
$j1_st5G [Dmd=1C(1,!P(L))] :: Operand -> (# InspectState #)
[LclId[JoinId(1)(Just [!])], Arity=1, Str=<SL>, Unf=OtherCon []]
$j1_st5G (ops_slC1 [OS=OneShot] :: Operand)
= let {
ops1_slC2 :: Operand
[LclId]
ops1_slC2
= case ds5_aiYI of {
PW4 ->
case leWord# bx1_dic3 65535## of {
__DEFAULT -> $wlvl_rt7i bx1_dic3;
1# ->
GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# bx1_dic3)
};
PW8 ->
case leWord# bx1_dic3 4294967295## of {
__DEFAULT -> $wlvl_rt7i bx1_dic3;
1# ->
GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# bx1_dic3)
}
} } in
let {
largeOps_skzu :: Bool
[LclId]
largeOps_skzu
= case ops_slC1 of {
Op w38_abw2 ->
case w38_abw2 of { W# x_alx7 ->
case gtWord# x_alx7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
ops1_slC2
}
};
IOp i_abw3 ->
case i_abw3 of { I# x_alxf ->
join {
$j2_slC4 [Dmd=ML] :: Bool
[LclId[JoinId(0)(Nothing)]]
$j2_slC4
= largeOp
(eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool))
ops1_slC2 } in
case ># x_alxf 32767# of {
__DEFAULT ->
case <# x_alxf -32768# of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> jump $j2_slC4
};
1# -> jump $j2_slC4
}
};
SmallOp ds1_dhwj -> ghc-internal:GHC.Internal.Types.False;
LabelOp ds1_dhwk ->
case eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv
:: InspectEnv ~R# Bool)
of {
False -> ghc-internal:GHC.Internal.Types.False;
True ->
case ops1_slC2 of {
Op w38_abw2 ->
case w38_abw2 of { W# x_alx7 ->
tagToEnum# @Bool (gtWord# x_alx7 65535##)
};
IOp i_abw3 ->
case i_abw3 of { I# x_alxf ->
case ># x_alxf 32767# of {
__DEFAULT -> tagToEnum# @Bool (<# x_alxf -32768#);
1# -> ghc-internal:GHC.Internal.Types.True
}
};
SmallOp ds2_dhwj ->
ghc-internal:GHC.Internal.Types.False;
LabelOp ds2_X8 -> ghc-internal:GHC.Internal.Types.True
}
}
} } in
join {
$j2_slTE [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j2_slTE (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_die2 x#_aiNQ))
bx3_die3
bx4_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr0A [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr0A (sc_sr0z :: Word#)
(sc1_sr0x :: Operand)
(sc2_sr0y :: [Operand])
= join {
$j3_ss5x [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j3_ss5x (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqan sc2_sr0y (plusWord# sc_sr0z y#_aiNT) } in
case sc1_sr0x of {
Op ds1_di9E ->
case largeOps_skzu of {
False -> jump $j3_ss5x 1##;
True ->
case ds5_aiYI of {
PW4 -> jump $j3_ss5x 2##;
PW8 -> jump $j3_ss5x 4##
}
};
IOp ds1_di9F ->
case largeOps_skzu of {
False -> jump $j3_ss5x 1##;
True ->
case ds5_aiYI of {
PW4 -> jump $j3_ss5x 2##;
PW8 -> jump $j3_ss5x 4##
}
};
SmallOp ds1_di9C -> jump $j3_ss5x 1##;
LabelOp ds1_di9D ->
case largeOps_skzu of {
False -> jump $j3_ss5x 1##;
True ->
case ds5_aiYI of {
PW4 -> jump $j3_ss5x 2##;
PW8 -> jump $j3_ss5x 4##
}
}
};
$wgo2_sqan [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqan (ds1_sqai :: [Operand]) (ww_sqal :: Word#)
= case ds1_sqai of {
[] -> jump $j2_slTE ww_sqal;
: y1_Xb ys1_Xc ->
join {
$j3_ss5y [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)],
Arity=1,
Str=<L>,
Unf=OtherCon []]
$j3_ss5y (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqan ys1_Xc (plusWord# ww_sqal y#_aiNT) } in
case y1_Xb of {
Op ds2_di9E ->
case largeOps_skzu of {
False -> jump $j3_ss5y 1##;
True ->
case ds5_aiYI of {
PW4 -> jump $j3_ss5y 2##;
PW8 -> jump $j3_ss5y 4##
}
};
IOp ds2_di9F ->
case largeOps_skzu of {
False -> jump $j3_ss5y 1##;
True ->
case ds5_aiYI of {
PW4 -> jump $j3_ss5y 2##;
PW8 -> jump $j3_ss5y 4##
}
};
SmallOp ds2_di9C -> jump $j3_ss5y 1##;
LabelOp ds2_di9D ->
case largeOps_skzu of {
False -> jump $j3_ss5y 1##;
True ->
case ds5_aiYI of {
PW4 -> jump $j3_ss5y 2##;
PW8 -> jump $j3_ss5y 4##
}
}
}
}; } in
jump $s$wgo1_sr0A
0##
ops_slC1
(ghc-internal:GHC.Internal.Types.:
@Operand
ops1_slC2
(ghc-internal:GHC.Internal.Types.[] @Operand)) } in
case ds5_aiYI of {
PW4 ->
case leWord# bx_dic2 65535## of {
__DEFAULT -> case $wlvl_rt7i bx_dic2 of {};
1# ->
jump $j1_st5G
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx_dic2))
};
PW8 ->
case leWord# bx_dic2 4294967295## of {
__DEFAULT -> case $wlvl_rt7i bx_dic2 of {};
1# ->
jump $j1_st5G
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx_dic2))
}
}
}
};
MKAP bx_dic5 bx1_dic6 ->
case eta1_sqi4 of
{ InspectState bx2_die2 bx3_die3 bx4_die4 lblEnv1_B4 ->
let {
ops_slC7 :: Word#
[LclId]
ops_slC7 = int2Word# bx_dic5 } in
let {
ops1_slCa :: Operand
[LclId]
ops1_slCa
= case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 ->
case leWord# bx1_dic6 65535## of {
__DEFAULT -> $wlvl_rt7i bx1_dic6;
1# ->
GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# bx1_dic6)
};
PW8 ->
case leWord# bx1_dic6 4294967295## of {
__DEFAULT -> $wlvl_rt7i bx1_dic6;
1# ->
GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# bx1_dic6)
}
}
} } in
let {
largeOps_skzA :: Bool
[LclId]
largeOps_skzA
= case gtWord# ops_slC7 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool))
ops1_slCa
} } in
join {
$j1_slTF [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTF (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_die2 x#_aiNQ))
bx3_die3
bx4_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr0N [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr0N (sc_sr0M :: Word#)
(sc1_sr0K :: Operand)
(sc2_sr0L :: [Operand])
= join {
$j2_ss5z [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5z (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqaB sc2_sr0L (plusWord# sc_sr0M y#_aiNT) } in
case sc1_sr0K of {
Op ds1_di9E ->
case largeOps_skzA of {
False -> jump $j2_ss5z 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5z 2##;
PW8 -> jump $j2_ss5z 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skzA of {
False -> jump $j2_ss5z 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5z 2##;
PW8 -> jump $j2_ss5z 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5z 1##;
LabelOp ds1_di9D ->
case largeOps_skzA of {
False -> jump $j2_ss5z 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5z 2##;
PW8 -> jump $j2_ss5z 4##
}
}
}
};
$wgo2_sqaB [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqaB (ds1_sqaw :: [Operand]) (ww_sqaz :: Word#)
= case ds1_sqaw of {
[] -> jump $j1_slTF ww_sqaz;
: y1_Xb ys1_Xc ->
join {
$j2_ss5A [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5A (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqaB ys1_Xc (plusWord# ww_sqaz y#_aiNT) } in
case y1_Xb of {
Op ds2_di9E ->
case largeOps_skzA of {
False -> jump $j2_ss5A 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5A 2##;
PW8 -> jump $j2_ss5A 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skzA of {
False -> jump $j2_ss5A 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5A 2##;
PW8 -> jump $j2_ss5A 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5A 1##;
LabelOp ds2_di9D ->
case largeOps_skzA of {
False -> jump $j2_ss5A 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5A 2##;
PW8 -> jump $j2_ss5A 4##
}
}
}
}
}; } in
jump $s$wgo1_sr0N
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ops_slC7))
(ghc-internal:GHC.Internal.Types.:
@Operand ops1_slCa (ghc-internal:GHC.Internal.Types.[] @Operand))
};
MKPAP bx_dic8 bx1_dic9 ->
case eta1_sqi4 of
{ InspectState bx2_die2 bx3_die3 bx4_die4 lblEnv1_B4 ->
let {
ops_slCd :: Word#
[LclId]
ops_slCd = int2Word# bx_dic8 } in
let {
ops1_slCg :: Operand
[LclId]
ops1_slCg
= case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 ->
case leWord# bx1_dic9 65535## of {
__DEFAULT -> $wlvl_rt7i bx1_dic9;
1# ->
GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# bx1_dic9)
};
PW8 ->
case leWord# bx1_dic9 4294967295## of {
__DEFAULT -> $wlvl_rt7i bx1_dic9;
1# ->
GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# bx1_dic9)
}
}
} } in
let {
largeOps_skzG :: Bool
[LclId]
largeOps_skzG
= case gtWord# ops_slCd 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
largeOp
(eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool))
ops1_slCg
} } in
join {
$j1_slTG [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTG (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_die2 x#_aiNQ))
bx3_die3
bx4_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr10 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr10 (sc_sr0Z :: Word#)
(sc1_sr0X :: Operand)
(sc2_sr0Y :: [Operand])
= join {
$j2_ss5B [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5B (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqaP sc2_sr0Y (plusWord# sc_sr0Z y#_aiNT) } in
case sc1_sr0X of {
Op ds1_di9E ->
case largeOps_skzG of {
False -> jump $j2_ss5B 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5B 2##;
PW8 -> jump $j2_ss5B 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skzG of {
False -> jump $j2_ss5B 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5B 2##;
PW8 -> jump $j2_ss5B 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5B 1##;
LabelOp ds1_di9D ->
case largeOps_skzG of {
False -> jump $j2_ss5B 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5B 2##;
PW8 -> jump $j2_ss5B 4##
}
}
}
};
$wgo2_sqaP [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqaP (ds1_sqaK :: [Operand]) (ww_sqaN :: Word#)
= case ds1_sqaK of {
[] -> jump $j1_slTG ww_sqaN;
: y1_Xb ys1_Xc ->
join {
$j2_ss5C [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5C (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqaP ys1_Xc (plusWord# ww_sqaN y#_aiNT) } in
case y1_Xb of {
Op ds2_di9E ->
case largeOps_skzG of {
False -> jump $j2_ss5C 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5C 2##;
PW8 -> jump $j2_ss5C 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skzG of {
False -> jump $j2_ss5C 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5C 2##;
PW8 -> jump $j2_ss5C 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5C 1##;
LabelOp ds2_di9D ->
case largeOps_skzG of {
False -> jump $j2_ss5C 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5C 2##;
PW8 -> jump $j2_ss5C 4##
}
}
}
}
}; } in
jump $s$wgo1_sr10
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ops_slCd))
(ghc-internal:GHC.Internal.Types.:
@Operand ops1_slCg (ghc-internal:GHC.Internal.Types.[] @Operand))
};
UNPACK bx_dicb ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slTH [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slTH (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 y#_aiNT))
bx2_die3
bx3_die4
lblEnv1_B4) } in
case gtWord# (int2Word# bx_dicb) 65535## of {
__DEFAULT -> jump $j1_slTH 1##;
1# ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slTH 2##;
PW8 -> jump $j1_slTH 4##
}
}
}
};
PACK dcon_af4Z bx_dicd ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case dcon_af4Z of
{ GHC.Core.DataCon.MkData ds1_ajmc ds2_ajMv ds3_ajMw ds4_ajMx
ds5_ajMy ds6_ajMz ds7_ajMA ds8_ajMC
ds9_ajMD ds10_ajME ds11_ajMF ds12_ajMG
ds13_ajMH ds14_ajMI ds15_ajMJ ds16_ajMK
ds17_ajML ds18_ajMM ds19_ajMN ds20_ajMO
ds21_ajMP ds22_ajMQ ds23_ajMR ds24_ajMS
ds25_ajMT ->
GHC.ByteCode.Types.BCONPtrItbl ds1_ajmc
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
lvl163_slrN :: Word#
[LclId]
lvl163_slrN = int2Word# bx_dicd } in
let {
largeOps_skzW :: Bool
[LclId]
largeOps_skzW
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# -> tagToEnum# @Bool (gtWord# lvl163_slrN 65535##)
} } in
join {
$j1_slTI [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTI (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr1n [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr1n (sc_sr1m :: Word#)
(sc1_sr1k :: Operand)
(sc2_sr1l :: [Operand])
= join {
$j2_ss5E [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5E (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbb sc2_sr1l (plusWord# sc_sr1m y#_aiNT) } in
case sc1_sr1k of {
Op ds1_di9E ->
case largeOps_skzW of {
False -> jump $j2_ss5E 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5E 2##;
PW8 -> jump $j2_ss5E 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skzW of {
False -> jump $j2_ss5E 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5E 2##;
PW8 -> jump $j2_ss5E 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5E 1##;
LabelOp ds1_di9D ->
case largeOps_skzW of {
False -> jump $j2_ss5E 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5E 2##;
PW8 -> jump $j2_ss5E 4##
}
}
}
};
$wgo2_sqbb [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqbb (ds1_sqb6 :: [Operand]) (ww_sqb9 :: Word#)
= case ds1_sqb6 of {
[] -> jump $j1_slTI ww_sqb9;
: y1_Xe ys1_Xf ->
join {
$j2_ss5F [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5F (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbb ys1_Xf (plusWord# ww_sqb9 y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skzW of {
False -> jump $j2_ss5F 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5F 2##;
PW8 -> jump $j2_ss5F 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skzW of {
False -> jump $j2_ss5F 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5F 2##;
PW8 -> jump $j2_ss5F 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5F 1##;
LabelOp ds2_di9D ->
case largeOps_skzW of {
False -> jump $j2_ss5F 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5F 2##;
PW8 -> jump $j2_ss5F 4##
}
}
}
}
}; } in
jump $s$wgo1_sr1n
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# lvl163_slrN))
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
LABEL lbl_af55 ->
case eta1_sqi4 of
{ InspectState bx_didY bx1_didZ bx2_die0 ds1_di9j ->
jump $j_slVX
(GHC.ByteCode.Asm.InspectState
bx_didY
bx1_didZ
bx2_die0
(GHC.ByteCode.Asm.$fMonadAssemblerInspectAsm_$sgo8
@Word
lbl_af55
(ghc-internal:GHC.Internal.Types.W# bx_didY)
ds1_di9j))
};
TESTLT_I bx_dicf l_af57 ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# bx_dicf))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skA4 :: Bool
[LclId]
largeOps_skA4
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTK [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTK (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_aiNQ))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr1A [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr1A (sc_sr1z :: Word#)
(sc1_sr1x :: Operand)
(sc2_sr1y :: [Operand])
= join {
$j2_ss5G [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5G (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbp sc2_sr1y (plusWord# sc_sr1z y#_aiNT) } in
case sc1_sr1x of {
Op ds1_di9E ->
case largeOps_skA4 of {
False -> jump $j2_ss5G 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5G 2##;
PW8 -> jump $j2_ss5G 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skA4 of {
False -> jump $j2_ss5G 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5G 2##;
PW8 -> jump $j2_ss5G 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5G 1##;
LabelOp ds1_di9D ->
case largeOps_skA4 of {
False -> jump $j2_ss5G 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5G 2##;
PW8 -> jump $j2_ss5G 4##
}
}
}
};
$wgo2_sqbp [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqbp (ds1_sqbk :: [Operand]) (ww_sqbn :: Word#)
= case ds1_sqbk of {
[] -> jump $j1_slTK ww_sqbn;
: y1_Xc ys1_Xd ->
join {
$j2_ss5H [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5H (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbp ys1_Xd (plusWord# ww_sqbn y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skA4 of {
False -> jump $j2_ss5H 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5H 2##;
PW8 -> jump $j2_ss5H 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skA4 of {
False -> jump $j2_ss5H 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5H 2##;
PW8 -> jump $j2_ss5H 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5H 1##;
LabelOp ds2_di9D ->
case largeOps_skA4 of {
False -> jump $j2_ss5H 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5H 2##;
PW8 -> jump $j2_ss5H 4##
}
}
}
}
}; } in
jump $s$wgo1_sr1A
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af57)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_I bx_dich l_af5a ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# bx_dich))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skAc :: Bool
[LclId]
largeOps_skAc
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTM [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTM (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_aiNQ))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr1N [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr1N (sc_sr1M :: Word#)
(sc1_sr1K :: Operand)
(sc2_sr1L :: [Operand])
= join {
$j2_ss5I [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5I (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbD sc2_sr1L (plusWord# sc_sr1M y#_aiNT) } in
case sc1_sr1K of {
Op ds1_di9E ->
case largeOps_skAc of {
False -> jump $j2_ss5I 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5I 2##;
PW8 -> jump $j2_ss5I 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skAc of {
False -> jump $j2_ss5I 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5I 2##;
PW8 -> jump $j2_ss5I 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5I 1##;
LabelOp ds1_di9D ->
case largeOps_skAc of {
False -> jump $j2_ss5I 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5I 2##;
PW8 -> jump $j2_ss5I 4##
}
}
}
};
$wgo2_sqbD [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqbD (ds1_sqby :: [Operand]) (ww_sqbB :: Word#)
= case ds1_sqby of {
[] -> jump $j1_slTM ww_sqbB;
: y1_Xc ys1_Xd ->
join {
$j2_ss5J [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5J (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbD ys1_Xd (plusWord# ww_sqbB y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skAc of {
False -> jump $j2_ss5J 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5J 2##;
PW8 -> jump $j2_ss5J 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skAc of {
False -> jump $j2_ss5J 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5J 2##;
PW8 -> jump $j2_ss5J 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5J 1##;
LabelOp ds2_di9D ->
case largeOps_skAc of {
False -> jump $j2_ss5J 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5J 2##;
PW8 -> jump $j2_ss5J 4##
}
}
}
}
}; } in
jump $s$wgo1_sr1N
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5a)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_W bx_dicj l_af5d ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord bx_dicj)
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skAm :: Bool
[LclId]
largeOps_skAm
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTN [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTN (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr20 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr20 (sc_sr1Z :: Word#)
(sc1_sr1X :: Operand)
(sc2_sr1Y :: [Operand])
= join {
$j2_ss5K [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5K (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbR sc2_sr1Y (plusWord# sc_sr1Z y#_aiNT) } in
case sc1_sr1X of {
Op ds1_di9E ->
case largeOps_skAm of {
False -> jump $j2_ss5K 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5K 2##;
PW8 -> jump $j2_ss5K 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skAm of {
False -> jump $j2_ss5K 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5K 2##;
PW8 -> jump $j2_ss5K 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5K 1##;
LabelOp ds1_di9D ->
case largeOps_skAm of {
False -> jump $j2_ss5K 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5K 2##;
PW8 -> jump $j2_ss5K 4##
}
}
}
};
$wgo2_sqbR [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqbR (ds1_sqbM :: [Operand]) (ww_sqbP :: Word#)
= case ds1_sqbM of {
[] -> jump $j1_slTN ww_sqbP;
: y1_Xe ys1_Xf ->
join {
$j2_ss5L [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5L (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqbR ys1_Xf (plusWord# ww_sqbP y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skAm of {
False -> jump $j2_ss5L 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5L 2##;
PW8 -> jump $j2_ss5L 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skAm of {
False -> jump $j2_ss5L 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5L 2##;
PW8 -> jump $j2_ss5L 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5L 1##;
LabelOp ds2_di9D ->
case largeOps_skAm of {
False -> jump $j2_ss5L 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5L 2##;
PW8 -> jump $j2_ss5L 4##
}
}
}
}
}; } in
jump $s$wgo1_sr20
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5d)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_W bx_dicl l_af5g ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord bx_dicl)
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skAw :: Bool
[LclId]
largeOps_skAw
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTO [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTO (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr2d [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr2d (sc_sr2c :: Word#)
(sc1_sr2a :: Operand)
(sc2_sr2b :: [Operand])
= join {
$j2_ss5M [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5M (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqc5 sc2_sr2b (plusWord# sc_sr2c y#_aiNT) } in
case sc1_sr2a of {
Op ds1_di9E ->
case largeOps_skAw of {
False -> jump $j2_ss5M 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5M 2##;
PW8 -> jump $j2_ss5M 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skAw of {
False -> jump $j2_ss5M 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5M 2##;
PW8 -> jump $j2_ss5M 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5M 1##;
LabelOp ds1_di9D ->
case largeOps_skAw of {
False -> jump $j2_ss5M 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5M 2##;
PW8 -> jump $j2_ss5M 4##
}
}
}
};
$wgo2_sqc5 [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqc5 (ds1_sqc0 :: [Operand]) (ww_sqc3 :: Word#)
= case ds1_sqc0 of {
[] -> jump $j1_slTO ww_sqc3;
: y1_Xe ys1_Xf ->
join {
$j2_ss5N [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5N (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqc5 ys1_Xf (plusWord# ww_sqc3 y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skAw of {
False -> jump $j2_ss5N 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5N 2##;
PW8 -> jump $j2_ss5N 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skAw of {
False -> jump $j2_ss5N 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5N 2##;
PW8 -> jump $j2_ss5N 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5N 1##;
LabelOp ds2_di9D ->
case largeOps_skAw of {
False -> jump $j2_ss5N 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5N 2##;
PW8 -> jump $j2_ss5N 4##
}
}
}
}
}; } in
jump $s$wgo1_sr2d
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5g)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_I64 bx_dicn l_af5j ->
case eta1_sqi4 of
{ InspectState ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b ->
case $s$wword64_sr9Q
(int64ToWord64# bx_dicn) ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b
of
{ (# ww4_sqFB, ww5_sqFC, ww6_sqFD, ww7_sqFE, ww8_sqFG #) ->
let {
largeOps_skAE :: Bool
[LclId]
largeOps_skAE
= case gtWord# ww8_sqFG 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTS [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTS (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFB x#_aiNQ))
ww5_sqFC
ww6_sqFD
ww7_sqFE) } in
joinrec {
$s$wgo1_sr2q [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr2q (sc_sr2p :: Word#)
(sc1_sr2n :: Operand)
(sc2_sr2o :: [Operand])
= join {
$j2_ss5O [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5O (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcj sc2_sr2o (plusWord# sc_sr2p y#_aiNT) } in
case sc1_sr2n of {
Op ds1_di9E ->
case largeOps_skAE of {
False -> jump $j2_ss5O 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5O 2##;
PW8 -> jump $j2_ss5O 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skAE of {
False -> jump $j2_ss5O 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5O 2##;
PW8 -> jump $j2_ss5O 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5O 1##;
LabelOp ds1_di9D ->
case largeOps_skAE of {
False -> jump $j2_ss5O 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5O 2##;
PW8 -> jump $j2_ss5O 4##
}
}
}
};
$wgo2_sqcj [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqcj (ds1_sqce :: [Operand]) (ww9_sqch :: Word#)
= case ds1_sqce of {
[] -> jump $j1_slTS ww9_sqch;
: y1_Xc ys1_Xd ->
join {
$j2_ss5P [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5P (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcj ys1_Xd (plusWord# ww9_sqch y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skAE of {
False -> jump $j2_ss5P 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5P 2##;
PW8 -> jump $j2_ss5P 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skAE of {
False -> jump $j2_ss5P 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5P 2##;
PW8 -> jump $j2_ss5P 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5P 1##;
LabelOp ds2_di9D ->
case largeOps_skAE of {
False -> jump $j2_ss5P 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5P 2##;
PW8 -> jump $j2_ss5P 4##
}
}
}
}
}; } in
jump $s$wgo1_sr2q
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFG))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5j)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_I64 bx_dicp l_af5m ->
case eta1_sqi4 of
{ InspectState ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b ->
case $s$wword64_sr9Q
(int64ToWord64# bx_dicp) ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b
of
{ (# ww4_sqFB, ww5_sqFC, ww6_sqFD, ww7_sqFE, ww8_sqFG #) ->
let {
largeOps_skAM :: Bool
[LclId]
largeOps_skAM
= case gtWord# ww8_sqFG 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTW [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTW (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFB x#_aiNQ))
ww5_sqFC
ww6_sqFD
ww7_sqFE) } in
joinrec {
$s$wgo1_sr2D [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr2D (sc_sr2C :: Word#)
(sc1_sr2A :: Operand)
(sc2_sr2B :: [Operand])
= join {
$j2_ss5Q [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5Q (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcx sc2_sr2B (plusWord# sc_sr2C y#_aiNT) } in
case sc1_sr2A of {
Op ds1_di9E ->
case largeOps_skAM of {
False -> jump $j2_ss5Q 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Q 2##;
PW8 -> jump $j2_ss5Q 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skAM of {
False -> jump $j2_ss5Q 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Q 2##;
PW8 -> jump $j2_ss5Q 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5Q 1##;
LabelOp ds1_di9D ->
case largeOps_skAM of {
False -> jump $j2_ss5Q 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Q 2##;
PW8 -> jump $j2_ss5Q 4##
}
}
}
};
$wgo2_sqcx [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqcx (ds1_sqcs :: [Operand]) (ww9_sqcv :: Word#)
= case ds1_sqcs of {
[] -> jump $j1_slTW ww9_sqcv;
: y1_Xc ys1_Xd ->
join {
$j2_ss5R [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5R (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcx ys1_Xd (plusWord# ww9_sqcv y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skAM of {
False -> jump $j2_ss5R 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5R 2##;
PW8 -> jump $j2_ss5R 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skAM of {
False -> jump $j2_ss5R 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5R 2##;
PW8 -> jump $j2_ss5R 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5R 1##;
LabelOp ds2_di9D ->
case largeOps_skAM of {
False -> jump $j2_ss5R 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5R 2##;
PW8 -> jump $j2_ss5R 4##
}
}
}
}
}; } in
jump $s$wgo1_sr2D
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFG))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5m)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_I32 bx_dicr l_af5p ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# (int32ToInt# bx_dicr)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skAW :: Bool
[LclId]
largeOps_skAW
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTX [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTX (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr2Q [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr2Q (sc_sr2P :: Word#)
(sc1_sr2N :: Operand)
(sc2_sr2O :: [Operand])
= join {
$j2_ss5S [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5S (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcL sc2_sr2O (plusWord# sc_sr2P y#_aiNT) } in
case sc1_sr2N of {
Op ds1_di9E ->
case largeOps_skAW of {
False -> jump $j2_ss5S 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5S 2##;
PW8 -> jump $j2_ss5S 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skAW of {
False -> jump $j2_ss5S 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5S 2##;
PW8 -> jump $j2_ss5S 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5S 1##;
LabelOp ds1_di9D ->
case largeOps_skAW of {
False -> jump $j2_ss5S 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5S 2##;
PW8 -> jump $j2_ss5S 4##
}
}
}
};
$wgo2_sqcL [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqcL (ds1_sqcG :: [Operand]) (ww_sqcJ :: Word#)
= case ds1_sqcG of {
[] -> jump $j1_slTX ww_sqcJ;
: y1_Xe ys1_Xf ->
join {
$j2_ss5T [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5T (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcL ys1_Xf (plusWord# ww_sqcJ y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skAW of {
False -> jump $j2_ss5T 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5T 2##;
PW8 -> jump $j2_ss5T 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skAW of {
False -> jump $j2_ss5T 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5T 2##;
PW8 -> jump $j2_ss5T 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5T 1##;
LabelOp ds2_di9D ->
case largeOps_skAW of {
False -> jump $j2_ss5T 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5T 2##;
PW8 -> jump $j2_ss5T 4##
}
}
}
}
}; } in
jump $s$wgo1_sr2Q
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5p)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_I32 bx_dict l_af5s ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# (int32ToInt# bx_dict)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skB6 :: Bool
[LclId]
largeOps_skB6
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTY [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTY (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr33 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr33 (sc_sr32 :: Word#)
(sc1_sr30 :: Operand)
(sc2_sr31 :: [Operand])
= join {
$j2_ss5U [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5U (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcZ sc2_sr31 (plusWord# sc_sr32 y#_aiNT) } in
case sc1_sr30 of {
Op ds1_di9E ->
case largeOps_skB6 of {
False -> jump $j2_ss5U 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5U 2##;
PW8 -> jump $j2_ss5U 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skB6 of {
False -> jump $j2_ss5U 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5U 2##;
PW8 -> jump $j2_ss5U 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5U 1##;
LabelOp ds1_di9D ->
case largeOps_skB6 of {
False -> jump $j2_ss5U 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5U 2##;
PW8 -> jump $j2_ss5U 4##
}
}
}
};
$wgo2_sqcZ [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqcZ (ds1_sqcU :: [Operand]) (ww_sqcX :: Word#)
= case ds1_sqcU of {
[] -> jump $j1_slTY ww_sqcX;
: y1_Xe ys1_Xf ->
join {
$j2_ss5V [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5V (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqcZ ys1_Xf (plusWord# ww_sqcX y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skB6 of {
False -> jump $j2_ss5V 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5V 2##;
PW8 -> jump $j2_ss5V 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skB6 of {
False -> jump $j2_ss5V 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5V 2##;
PW8 -> jump $j2_ss5V 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5V 1##;
LabelOp ds2_di9D ->
case largeOps_skB6 of {
False -> jump $j2_ss5V 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5V 2##;
PW8 -> jump $j2_ss5V 4##
}
}
}
}
}; } in
jump $s$wgo1_sr33
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5s)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_I16 bx_dicv l_af5v ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# (int16ToInt# bx_dicv)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skBg :: Bool
[LclId]
largeOps_skBg
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slTZ [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slTZ (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr3g [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr3g (sc_sr3f :: Word#)
(sc1_sr3d :: Operand)
(sc2_sr3e :: [Operand])
= join {
$j2_ss5W [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5W (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdd sc2_sr3e (plusWord# sc_sr3f y#_aiNT) } in
case sc1_sr3d of {
Op ds1_di9E ->
case largeOps_skBg of {
False -> jump $j2_ss5W 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5W 2##;
PW8 -> jump $j2_ss5W 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skBg of {
False -> jump $j2_ss5W 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5W 2##;
PW8 -> jump $j2_ss5W 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5W 1##;
LabelOp ds1_di9D ->
case largeOps_skBg of {
False -> jump $j2_ss5W 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5W 2##;
PW8 -> jump $j2_ss5W 4##
}
}
}
};
$wgo2_sqdd [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqdd (ds1_sqd8 :: [Operand]) (ww_sqdb :: Word#)
= case ds1_sqd8 of {
[] -> jump $j1_slTZ ww_sqdb;
: y1_Xe ys1_Xf ->
join {
$j2_ss5X [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5X (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdd ys1_Xf (plusWord# ww_sqdb y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skBg of {
False -> jump $j2_ss5X 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5X 2##;
PW8 -> jump $j2_ss5X 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skBg of {
False -> jump $j2_ss5X 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5X 2##;
PW8 -> jump $j2_ss5X 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5X 1##;
LabelOp ds2_di9D ->
case largeOps_skBg of {
False -> jump $j2_ss5X 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5X 2##;
PW8 -> jump $j2_ss5X 4##
}
}
}
}
}; } in
jump $s$wgo1_sr3g
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5v)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_I16 bx_dicx l_af5y ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# (int16ToInt# bx_dicx)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skBq :: Bool
[LclId]
largeOps_skBq
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slU0 [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slU0 (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr3t [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr3t (sc_sr3s :: Word#)
(sc1_sr3q :: Operand)
(sc2_sr3r :: [Operand])
= join {
$j2_ss5Y [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5Y (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdr sc2_sr3r (plusWord# sc_sr3s y#_aiNT) } in
case sc1_sr3q of {
Op ds1_di9E ->
case largeOps_skBq of {
False -> jump $j2_ss5Y 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Y 2##;
PW8 -> jump $j2_ss5Y 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skBq of {
False -> jump $j2_ss5Y 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Y 2##;
PW8 -> jump $j2_ss5Y 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss5Y 1##;
LabelOp ds1_di9D ->
case largeOps_skBq of {
False -> jump $j2_ss5Y 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Y 2##;
PW8 -> jump $j2_ss5Y 4##
}
}
}
};
$wgo2_sqdr [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqdr (ds1_sqdm :: [Operand]) (ww_sqdp :: Word#)
= case ds1_sqdm of {
[] -> jump $j1_slU0 ww_sqdp;
: y1_Xe ys1_Xf ->
join {
$j2_ss5Z [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss5Z (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdr ys1_Xf (plusWord# ww_sqdp y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skBq of {
False -> jump $j2_ss5Z 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Z 2##;
PW8 -> jump $j2_ss5Z 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skBq of {
False -> jump $j2_ss5Z 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Z 2##;
PW8 -> jump $j2_ss5Z 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss5Z 1##;
LabelOp ds2_di9D ->
case largeOps_skBq of {
False -> jump $j2_ss5Z 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss5Z 2##;
PW8 -> jump $j2_ss5Z 4##
}
}
}
}
}; } in
jump $s$wgo1_sr3t
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5y)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_I8 bx_dicz l_af5B ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# (int8ToInt# bx_dicz)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skBA :: Bool
[LclId]
largeOps_skBA
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slU1 [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slU1 (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr3G [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr3G (sc_sr3F :: Word#)
(sc1_sr3D :: Operand)
(sc2_sr3E :: [Operand])
= join {
$j2_ss60 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss60 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdF sc2_sr3E (plusWord# sc_sr3F y#_aiNT) } in
case sc1_sr3D of {
Op ds1_di9E ->
case largeOps_skBA of {
False -> jump $j2_ss60 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss60 2##;
PW8 -> jump $j2_ss60 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skBA of {
False -> jump $j2_ss60 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss60 2##;
PW8 -> jump $j2_ss60 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss60 1##;
LabelOp ds1_di9D ->
case largeOps_skBA of {
False -> jump $j2_ss60 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss60 2##;
PW8 -> jump $j2_ss60 4##
}
}
}
};
$wgo2_sqdF [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqdF (ds1_sqdA :: [Operand]) (ww_sqdD :: Word#)
= case ds1_sqdA of {
[] -> jump $j1_slU1 ww_sqdD;
: y1_Xe ys1_Xf ->
join {
$j2_ss61 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss61 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdF ys1_Xf (plusWord# ww_sqdD y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skBA of {
False -> jump $j2_ss61 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss61 2##;
PW8 -> jump $j2_ss61 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skBA of {
False -> jump $j2_ss61 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss61 2##;
PW8 -> jump $j2_ss61 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss61 1##;
LabelOp ds2_di9D ->
case largeOps_skBA of {
False -> jump $j2_ss61 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss61 2##;
PW8 -> jump $j2_ss61 4##
}
}
}
}
}; } in
jump $s$wgo1_sr3G
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5B)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_I8 bx_dicB l_af5E ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (int2Word# (int16ToInt# bx_dicB)))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skBK :: Bool
[LclId]
largeOps_skBK
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slU2 [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slU2 (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr3T [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr3T (sc_sr3S :: Word#)
(sc1_sr3Q :: Operand)
(sc2_sr3R :: [Operand])
= join {
$j2_ss62 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss62 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdT sc2_sr3R (plusWord# sc_sr3S y#_aiNT) } in
case sc1_sr3Q of {
Op ds1_di9E ->
case largeOps_skBK of {
False -> jump $j2_ss62 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss62 2##;
PW8 -> jump $j2_ss62 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skBK of {
False -> jump $j2_ss62 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss62 2##;
PW8 -> jump $j2_ss62 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss62 1##;
LabelOp ds1_di9D ->
case largeOps_skBK of {
False -> jump $j2_ss62 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss62 2##;
PW8 -> jump $j2_ss62 4##
}
}
}
};
$wgo2_sqdT [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqdT (ds1_sqdO :: [Operand]) (ww_sqdR :: Word#)
= case ds1_sqdO of {
[] -> jump $j1_slU2 ww_sqdR;
: y1_Xe ys1_Xf ->
join {
$j2_ss63 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss63 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqdT ys1_Xf (plusWord# ww_sqdR y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skBK of {
False -> jump $j2_ss63 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss63 2##;
PW8 -> jump $j2_ss63 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skBK of {
False -> jump $j2_ss63 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss63 2##;
PW8 -> jump $j2_ss63 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss63 1##;
LabelOp ds2_di9D ->
case largeOps_skBK of {
False -> jump $j2_ss63 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss63 2##;
PW8 -> jump $j2_ss63 4##
}
}
}
}
}; } in
jump $s$wgo1_sr3T
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5E)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_W64 bx_dicD l_af5H ->
case eta1_sqi4 of
{ InspectState ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b ->
case $s$wword64_sr9Q bx_dicD ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b of
{ (# ww4_sqFB, ww5_sqFC, ww6_sqFD, ww7_sqFE, ww8_sqFG #) ->
let {
largeOps_skBS :: Bool
[LclId]
largeOps_skBS
= case gtWord# ww8_sqFG 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slU5 [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slU5 (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFB x#_aiNQ))
ww5_sqFC
ww6_sqFD
ww7_sqFE) } in
joinrec {
$s$wgo1_sr46 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr46 (sc_sr45 :: Word#)
(sc1_sr43 :: Operand)
(sc2_sr44 :: [Operand])
= join {
$j2_ss64 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss64 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqe7 sc2_sr44 (plusWord# sc_sr45 y#_aiNT) } in
case sc1_sr43 of {
Op ds1_di9E ->
case largeOps_skBS of {
False -> jump $j2_ss64 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss64 2##;
PW8 -> jump $j2_ss64 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skBS of {
False -> jump $j2_ss64 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss64 2##;
PW8 -> jump $j2_ss64 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss64 1##;
LabelOp ds1_di9D ->
case largeOps_skBS of {
False -> jump $j2_ss64 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss64 2##;
PW8 -> jump $j2_ss64 4##
}
}
}
};
$wgo2_sqe7 [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqe7 (ds1_sqe2 :: [Operand]) (ww9_sqe5 :: Word#)
= case ds1_sqe2 of {
[] -> jump $j1_slU5 ww9_sqe5;
: y1_Xc ys1_Xd ->
join {
$j2_ss65 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss65 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqe7 ys1_Xd (plusWord# ww9_sqe5 y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skBS of {
False -> jump $j2_ss65 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss65 2##;
PW8 -> jump $j2_ss65 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skBS of {
False -> jump $j2_ss65 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss65 2##;
PW8 -> jump $j2_ss65 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss65 1##;
LabelOp ds2_di9D ->
case largeOps_skBS of {
False -> jump $j2_ss65 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss65 2##;
PW8 -> jump $j2_ss65 4##
}
}
}
}
}; } in
jump $s$wgo1_sr46
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFG))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5H)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_W64 bx_dicF l_af5K ->
case eta1_sqi4 of
{ InspectState ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b ->
case $s$wword64_sr9Q bx_dicF ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b of
{ (# ww4_sqFB, ww5_sqFC, ww6_sqFD, ww7_sqFE, ww8_sqFG #) ->
let {
largeOps_skC0 :: Bool
[LclId]
largeOps_skC0
= case gtWord# ww8_sqFG 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slU8 [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slU8 (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFB x#_aiNQ))
ww5_sqFC
ww6_sqFD
ww7_sqFE) } in
joinrec {
$s$wgo1_sr4j [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr4j (sc_sr4i :: Word#)
(sc1_sr4g :: Operand)
(sc2_sr4h :: [Operand])
= join {
$j2_ss66 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss66 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqel sc2_sr4h (plusWord# sc_sr4i y#_aiNT) } in
case sc1_sr4g of {
Op ds1_di9E ->
case largeOps_skC0 of {
False -> jump $j2_ss66 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss66 2##;
PW8 -> jump $j2_ss66 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skC0 of {
False -> jump $j2_ss66 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss66 2##;
PW8 -> jump $j2_ss66 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss66 1##;
LabelOp ds1_di9D ->
case largeOps_skC0 of {
False -> jump $j2_ss66 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss66 2##;
PW8 -> jump $j2_ss66 4##
}
}
}
};
$wgo2_sqel [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqel (ds1_sqeg :: [Operand]) (ww9_sqej :: Word#)
= case ds1_sqeg of {
[] -> jump $j1_slU8 ww9_sqej;
: y1_Xc ys1_Xd ->
join {
$j2_ss67 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss67 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqel ys1_Xd (plusWord# ww9_sqej y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skC0 of {
False -> jump $j2_ss67 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss67 2##;
PW8 -> jump $j2_ss67 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skC0 of {
False -> jump $j2_ss67 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss67 2##;
PW8 -> jump $j2_ss67 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss67 1##;
LabelOp ds2_di9D ->
case largeOps_skC0 of {
False -> jump $j2_ss67 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss67 2##;
PW8 -> jump $j2_ss67 4##
}
}
}
}
}; } in
jump $s$wgo1_sr4j
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFG))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5K)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_W32 bx_dicH l_af5N ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word32ToWord# bx_dicH))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skCa :: Bool
[LclId]
largeOps_skCa
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slU9 [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slU9 (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr4w [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr4w (sc_sr4v :: Word#)
(sc1_sr4t :: Operand)
(sc2_sr4u :: [Operand])
= join {
$j2_ss68 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss68 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqez sc2_sr4u (plusWord# sc_sr4v y#_aiNT) } in
case sc1_sr4t of {
Op ds1_di9E ->
case largeOps_skCa of {
False -> jump $j2_ss68 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss68 2##;
PW8 -> jump $j2_ss68 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skCa of {
False -> jump $j2_ss68 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss68 2##;
PW8 -> jump $j2_ss68 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss68 1##;
LabelOp ds1_di9D ->
case largeOps_skCa of {
False -> jump $j2_ss68 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss68 2##;
PW8 -> jump $j2_ss68 4##
}
}
}
};
$wgo2_sqez [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqez (ds1_sqeu :: [Operand]) (ww_sqex :: Word#)
= case ds1_sqeu of {
[] -> jump $j1_slU9 ww_sqex;
: y1_Xe ys1_Xf ->
join {
$j2_ss69 [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss69 (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqez ys1_Xf (plusWord# ww_sqex y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skCa of {
False -> jump $j2_ss69 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss69 2##;
PW8 -> jump $j2_ss69 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skCa of {
False -> jump $j2_ss69 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss69 2##;
PW8 -> jump $j2_ss69 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss69 1##;
LabelOp ds2_di9D ->
case largeOps_skCa of {
False -> jump $j2_ss69 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss69 2##;
PW8 -> jump $j2_ss69 4##
}
}
}
}
}; } in
jump $s$wgo1_sr4w
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5N)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_W32 bx_dicJ l_af5Q ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word32ToWord# bx_dicJ))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skCk :: Bool
[LclId]
largeOps_skCk
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUa [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUa (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr4J [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr4J (sc_sr4I :: Word#)
(sc1_sr4G :: Operand)
(sc2_sr4H :: [Operand])
= join {
$j2_ss6a [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6a (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqeN sc2_sr4H (plusWord# sc_sr4I y#_aiNT) } in
case sc1_sr4G of {
Op ds1_di9E ->
case largeOps_skCk of {
False -> jump $j2_ss6a 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6a 2##;
PW8 -> jump $j2_ss6a 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skCk of {
False -> jump $j2_ss6a 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6a 2##;
PW8 -> jump $j2_ss6a 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6a 1##;
LabelOp ds1_di9D ->
case largeOps_skCk of {
False -> jump $j2_ss6a 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6a 2##;
PW8 -> jump $j2_ss6a 4##
}
}
}
};
$wgo2_sqeN [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqeN (ds1_sqeI :: [Operand]) (ww_sqeL :: Word#)
= case ds1_sqeI of {
[] -> jump $j1_slUa ww_sqeL;
: y1_Xe ys1_Xf ->
join {
$j2_ss6b [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6b (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqeN ys1_Xf (plusWord# ww_sqeL y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skCk of {
False -> jump $j2_ss6b 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6b 2##;
PW8 -> jump $j2_ss6b 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skCk of {
False -> jump $j2_ss6b 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6b 2##;
PW8 -> jump $j2_ss6b 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6b 1##;
LabelOp ds2_di9D ->
case largeOps_skCk of {
False -> jump $j2_ss6b 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6b 2##;
PW8 -> jump $j2_ss6b 4##
}
}
}
}
}; } in
jump $s$wgo1_sr4J
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5Q)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_W16 bx_dicL l_af5T ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word16ToWord# bx_dicL))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skCu :: Bool
[LclId]
largeOps_skCu
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUb [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUb (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr4W [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr4W (sc_sr4V :: Word#)
(sc1_sr4T :: Operand)
(sc2_sr4U :: [Operand])
= join {
$j2_ss6c [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6c (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqf1 sc2_sr4U (plusWord# sc_sr4V y#_aiNT) } in
case sc1_sr4T of {
Op ds1_di9E ->
case largeOps_skCu of {
False -> jump $j2_ss6c 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6c 2##;
PW8 -> jump $j2_ss6c 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skCu of {
False -> jump $j2_ss6c 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6c 2##;
PW8 -> jump $j2_ss6c 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6c 1##;
LabelOp ds1_di9D ->
case largeOps_skCu of {
False -> jump $j2_ss6c 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6c 2##;
PW8 -> jump $j2_ss6c 4##
}
}
}
};
$wgo2_sqf1 [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqf1 (ds1_sqeW :: [Operand]) (ww_sqeZ :: Word#)
= case ds1_sqeW of {
[] -> jump $j1_slUb ww_sqeZ;
: y1_Xe ys1_Xf ->
join {
$j2_ss6d [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6d (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqf1 ys1_Xf (plusWord# ww_sqeZ y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skCu of {
False -> jump $j2_ss6d 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6d 2##;
PW8 -> jump $j2_ss6d 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skCu of {
False -> jump $j2_ss6d 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6d 2##;
PW8 -> jump $j2_ss6d 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6d 1##;
LabelOp ds2_di9D ->
case largeOps_skCu of {
False -> jump $j2_ss6d 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6d 2##;
PW8 -> jump $j2_ss6d 4##
}
}
}
}
}; } in
jump $s$wgo1_sr4W
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5T)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_W16 bx_dicN l_af5W ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word16ToWord# bx_dicN))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skCE :: Bool
[LclId]
largeOps_skCE
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUc [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUc (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr59 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr59 (sc_sr58 :: Word#)
(sc1_sr56 :: Operand)
(sc2_sr57 :: [Operand])
= join {
$j2_ss6e [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6e (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqff sc2_sr57 (plusWord# sc_sr58 y#_aiNT) } in
case sc1_sr56 of {
Op ds1_di9E ->
case largeOps_skCE of {
False -> jump $j2_ss6e 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6e 2##;
PW8 -> jump $j2_ss6e 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skCE of {
False -> jump $j2_ss6e 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6e 2##;
PW8 -> jump $j2_ss6e 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6e 1##;
LabelOp ds1_di9D ->
case largeOps_skCE of {
False -> jump $j2_ss6e 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6e 2##;
PW8 -> jump $j2_ss6e 4##
}
}
}
};
$wgo2_sqff [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqff (ds1_sqfa :: [Operand]) (ww_sqfd :: Word#)
= case ds1_sqfa of {
[] -> jump $j1_slUc ww_sqfd;
: y1_Xe ys1_Xf ->
join {
$j2_ss6f [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6f (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqff ys1_Xf (plusWord# ww_sqfd y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skCE of {
False -> jump $j2_ss6f 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6f 2##;
PW8 -> jump $j2_ss6f 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skCE of {
False -> jump $j2_ss6f 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6f 2##;
PW8 -> jump $j2_ss6f 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6f 1##;
LabelOp ds2_di9D ->
case largeOps_skCE of {
False -> jump $j2_ss6f 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6f 2##;
PW8 -> jump $j2_ss6f 4##
}
}
}
}
}; } in
jump $s$wgo1_sr59
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5W)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_W8 bx_dicP l_af5Z ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word8ToWord# bx_dicP))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skCO :: Bool
[LclId]
largeOps_skCO
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUd [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUd (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr5m [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr5m (sc_sr5l :: Word#)
(sc1_sr5j :: Operand)
(sc2_sr5k :: [Operand])
= join {
$j2_ss6g [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6g (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqft sc2_sr5k (plusWord# sc_sr5l y#_aiNT) } in
case sc1_sr5j of {
Op ds1_di9E ->
case largeOps_skCO of {
False -> jump $j2_ss6g 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6g 2##;
PW8 -> jump $j2_ss6g 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skCO of {
False -> jump $j2_ss6g 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6g 2##;
PW8 -> jump $j2_ss6g 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6g 1##;
LabelOp ds1_di9D ->
case largeOps_skCO of {
False -> jump $j2_ss6g 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6g 2##;
PW8 -> jump $j2_ss6g 4##
}
}
}
};
$wgo2_sqft [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqft (ds1_sqfo :: [Operand]) (ww_sqfr :: Word#)
= case ds1_sqfo of {
[] -> jump $j1_slUd ww_sqfr;
: y1_Xe ys1_Xf ->
join {
$j2_ss6h [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6h (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqft ys1_Xf (plusWord# ww_sqfr y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skCO of {
False -> jump $j2_ss6h 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6h 2##;
PW8 -> jump $j2_ss6h 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skCO of {
False -> jump $j2_ss6h 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6h 2##;
PW8 -> jump $j2_ss6h 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6h 1##;
LabelOp ds2_di9D ->
case largeOps_skCO of {
False -> jump $j2_ss6h 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6h 2##;
PW8 -> jump $j2_ss6h 4##
}
}
}
}
}; } in
jump $s$wgo1_sr5m
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af5Z)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_W8 bx_dicR l_af62 ->
case eta1_sqi4 of
{ InspectState bx1_didU bx2_didV bx3_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(GHC.ByteCode.Types.BCONPtrWord (word8ToWord# bx_dicR))
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
let {
largeOps_skCY :: Bool
[LclId]
largeOps_skCY
= case gtWord# bx3_didW 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUe [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUe (x#_Xb [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_didU x#_Xb))
bx2_didV
(plusWord# bx3_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr5z [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr5z (sc_sr5y :: Word#)
(sc1_sr5w :: Operand)
(sc2_sr5x :: [Operand])
= join {
$j2_ss6i [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6i (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqfH sc2_sr5x (plusWord# sc_sr5y y#_aiNT) } in
case sc1_sr5w of {
Op ds1_di9E ->
case largeOps_skCY of {
False -> jump $j2_ss6i 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6i 2##;
PW8 -> jump $j2_ss6i 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skCY of {
False -> jump $j2_ss6i 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6i 2##;
PW8 -> jump $j2_ss6i 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6i 1##;
LabelOp ds1_di9D ->
case largeOps_skCY of {
False -> jump $j2_ss6i 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6i 2##;
PW8 -> jump $j2_ss6i 4##
}
}
}
};
$wgo2_sqfH [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqfH (ds1_sqfC :: [Operand]) (ww_sqfF :: Word#)
= case ds1_sqfC of {
[] -> jump $j1_slUe ww_sqfF;
: y1_Xe ys1_Xf ->
join {
$j2_ss6j [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6j (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqfH ys1_Xf (plusWord# ww_sqfF y#_aiNT) } in
case y1_Xe of {
Op ds2_di9E ->
case largeOps_skCY of {
False -> jump $j2_ss6j 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6j 2##;
PW8 -> jump $j2_ss6j 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skCY of {
False -> jump $j2_ss6j 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6j 2##;
PW8 -> jump $j2_ss6j 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6j 1##;
LabelOp ds2_di9D ->
case largeOps_skCY of {
False -> jump $j2_ss6j 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6j 2##;
PW8 -> jump $j2_ss6j 4##
}
}
}
}
}; } in
jump $s$wgo1_sr5z
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx3_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af62)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_F bx_dicT l_af65 ->
case eta1_sqi4 of
{ InspectState ww_sq5q ww1_sq5r ww2_sq5s ww3_sq5t ->
case $s$wword32_srag
(castFloatToWord32# bx_dicT) ww_sq5q ww1_sq5r ww2_sq5s ww3_sq5t
of
{ (# ww4_sqFI, ww5_sqFJ, ww6_sqFK, ww7_sqFL, ww8_sqFN #) ->
let {
largeOps_skD6 :: Bool
[LclId]
largeOps_skD6
= case gtWord# ww8_sqFN 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUi [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUi (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFI x#_aiNQ))
ww5_sqFJ
ww6_sqFK
ww7_sqFL) } in
joinrec {
$s$wgo1_sr5M [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr5M (sc_sr5L :: Word#)
(sc1_sr5J :: Operand)
(sc2_sr5K :: [Operand])
= join {
$j2_ss6k [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6k (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqfV sc2_sr5K (plusWord# sc_sr5L y#_aiNT) } in
case sc1_sr5J of {
Op ds1_di9E ->
case largeOps_skD6 of {
False -> jump $j2_ss6k 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6k 2##;
PW8 -> jump $j2_ss6k 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skD6 of {
False -> jump $j2_ss6k 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6k 2##;
PW8 -> jump $j2_ss6k 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6k 1##;
LabelOp ds1_di9D ->
case largeOps_skD6 of {
False -> jump $j2_ss6k 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6k 2##;
PW8 -> jump $j2_ss6k 4##
}
}
}
};
$wgo2_sqfV [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqfV (ds1_sqfQ :: [Operand]) (ww9_sqfT :: Word#)
= case ds1_sqfQ of {
[] -> jump $j1_slUi ww9_sqfT;
: y1_Xc ys1_Xd ->
join {
$j2_ss6l [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6l (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqfV ys1_Xd (plusWord# ww9_sqfT y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skD6 of {
False -> jump $j2_ss6l 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6l 2##;
PW8 -> jump $j2_ss6l 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skD6 of {
False -> jump $j2_ss6l 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6l 2##;
PW8 -> jump $j2_ss6l 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6l 1##;
LabelOp ds2_di9D ->
case largeOps_skD6 of {
False -> jump $j2_ss6l 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6l 2##;
PW8 -> jump $j2_ss6l 4##
}
}
}
}
}; } in
jump $s$wgo1_sr5M
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFN))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af65)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_F bx_dicV l_af68 ->
case eta1_sqi4 of
{ InspectState ww_sq5q ww1_sq5r ww2_sq5s ww3_sq5t ->
case $s$wword32_srag
(castFloatToWord32# bx_dicV) ww_sq5q ww1_sq5r ww2_sq5s ww3_sq5t
of
{ (# ww4_sqFI, ww5_sqFJ, ww6_sqFK, ww7_sqFL, ww8_sqFN #) ->
let {
largeOps_skDe :: Bool
[LclId]
largeOps_skDe
= case gtWord# ww8_sqFN 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUm [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUm (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFI x#_aiNQ))
ww5_sqFJ
ww6_sqFK
ww7_sqFL) } in
joinrec {
$s$wgo1_sr5Z [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr5Z (sc_sr5Y :: Word#)
(sc1_sr5W :: Operand)
(sc2_sr5X :: [Operand])
= join {
$j2_ss6m [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6m (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqg9 sc2_sr5X (plusWord# sc_sr5Y y#_aiNT) } in
case sc1_sr5W of {
Op ds1_di9E ->
case largeOps_skDe of {
False -> jump $j2_ss6m 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6m 2##;
PW8 -> jump $j2_ss6m 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skDe of {
False -> jump $j2_ss6m 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6m 2##;
PW8 -> jump $j2_ss6m 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6m 1##;
LabelOp ds1_di9D ->
case largeOps_skDe of {
False -> jump $j2_ss6m 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6m 2##;
PW8 -> jump $j2_ss6m 4##
}
}
}
};
$wgo2_sqg9 [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqg9 (ds1_sqg4 :: [Operand]) (ww9_sqg7 :: Word#)
= case ds1_sqg4 of {
[] -> jump $j1_slUm ww9_sqg7;
: y1_Xc ys1_Xd ->
join {
$j2_ss6n [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6n (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqg9 ys1_Xd (plusWord# ww9_sqg7 y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skDe of {
False -> jump $j2_ss6n 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6n 2##;
PW8 -> jump $j2_ss6n 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skDe of {
False -> jump $j2_ss6n 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6n 2##;
PW8 -> jump $j2_ss6n 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6n 1##;
LabelOp ds2_di9D ->
case largeOps_skDe of {
False -> jump $j2_ss6n 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6n 2##;
PW8 -> jump $j2_ss6n 4##
}
}
}
}
}; } in
jump $s$wgo1_sr5Z
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFN))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af68)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_D bx_dicX l_af6b ->
case eta1_sqi4 of
{ InspectState ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b ->
case $s$wword64_sr9Q
(castDoubleToWord64# bx_dicX) ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b
of
{ (# ww4_sqFB, ww5_sqFC, ww6_sqFD, ww7_sqFE, ww8_sqFG #) ->
let {
largeOps_skDm :: Bool
[LclId]
largeOps_skDm
= case gtWord# ww8_sqFG 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUq [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUq (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFB x#_aiNQ))
ww5_sqFC
ww6_sqFD
ww7_sqFE) } in
joinrec {
$s$wgo1_sr6c [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr6c (sc_sr6b :: Word#)
(sc1_sr69 :: Operand)
(sc2_sr6a :: [Operand])
= join {
$j2_ss6o [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6o (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqgn sc2_sr6a (plusWord# sc_sr6b y#_aiNT) } in
case sc1_sr69 of {
Op ds1_di9E ->
case largeOps_skDm of {
False -> jump $j2_ss6o 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6o 2##;
PW8 -> jump $j2_ss6o 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skDm of {
False -> jump $j2_ss6o 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6o 2##;
PW8 -> jump $j2_ss6o 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6o 1##;
LabelOp ds1_di9D ->
case largeOps_skDm of {
False -> jump $j2_ss6o 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6o 2##;
PW8 -> jump $j2_ss6o 4##
}
}
}
};
$wgo2_sqgn [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqgn (ds1_sqgi :: [Operand]) (ww9_sqgl :: Word#)
= case ds1_sqgi of {
[] -> jump $j1_slUq ww9_sqgl;
: y1_Xc ys1_Xd ->
join {
$j2_ss6p [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6p (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqgn ys1_Xd (plusWord# ww9_sqgl y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skDm of {
False -> jump $j2_ss6p 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6p 2##;
PW8 -> jump $j2_ss6p 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skDm of {
False -> jump $j2_ss6p 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6p 2##;
PW8 -> jump $j2_ss6p 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6p 1##;
LabelOp ds2_di9D ->
case largeOps_skDm of {
False -> jump $j2_ss6p 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6p 2##;
PW8 -> jump $j2_ss6p 4##
}
}
}
}
}; } in
jump $s$wgo1_sr6c
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFG))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af6b)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTEQ_D bx_dicZ l_af6e ->
case eta1_sqi4 of
{ InspectState ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b ->
case $s$wword64_sr9Q
(castDoubleToWord64# bx_dicZ) ww_sq58 ww1_sq59 ww2_sq5a ww3_sq5b
of
{ (# ww4_sqFB, ww5_sqFC, ww6_sqFD, ww7_sqFE, ww8_sqFG #) ->
let {
largeOps_skDu :: Bool
[LclId]
largeOps_skDu
= case gtWord# ww8_sqFG 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
} } in
join {
$j1_slUu [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUu (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# ww4_sqFB x#_aiNQ))
ww5_sqFC
ww6_sqFD
ww7_sqFE) } in
joinrec {
$s$wgo1_sr6p [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr6p (sc_sr6o :: Word#)
(sc1_sr6m :: Operand)
(sc2_sr6n :: [Operand])
= join {
$j2_ss6q [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6q (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqgB sc2_sr6n (plusWord# sc_sr6o y#_aiNT) } in
case sc1_sr6m of {
Op ds1_di9E ->
case largeOps_skDu of {
False -> jump $j2_ss6q 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6q 2##;
PW8 -> jump $j2_ss6q 4##
}
}
};
IOp ds1_di9F ->
case largeOps_skDu of {
False -> jump $j2_ss6q 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6q 2##;
PW8 -> jump $j2_ss6q 4##
}
}
};
SmallOp ds1_di9C -> jump $j2_ss6q 1##;
LabelOp ds1_di9D ->
case largeOps_skDu of {
False -> jump $j2_ss6q 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6q 2##;
PW8 -> jump $j2_ss6q 4##
}
}
}
};
$wgo2_sqgB [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqgB (ds1_sqgw :: [Operand]) (ww9_sqgz :: Word#)
= case ds1_sqgw of {
[] -> jump $j1_slUu ww9_sqgz;
: y1_Xc ys1_Xd ->
join {
$j2_ss6r [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6r (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqgB ys1_Xd (plusWord# ww9_sqgz y#_aiNT) } in
case y1_Xc of {
Op ds2_di9E ->
case largeOps_skDu of {
False -> jump $j2_ss6r 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6r 2##;
PW8 -> jump $j2_ss6r 4##
}
}
};
IOp ds2_di9F ->
case largeOps_skDu of {
False -> jump $j2_ss6r 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6r 2##;
PW8 -> jump $j2_ss6r 4##
}
}
};
SmallOp ds2_di9C -> jump $j2_ss6r 1##;
LabelOp ds2_di9D ->
case largeOps_skDu of {
False -> jump $j2_ss6r 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL
ds9_aiYM ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ
ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6r 2##;
PW8 -> jump $j2_ss6r 4##
}
}
}
}
}; } in
jump $s$wgo1_sr6p
0##
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# ww8_sqFG))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af6e)
(ghc-internal:GHC.Internal.Types.[] @Operand))
}
};
TESTLT_P bx_did1 l_af6h ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slUv [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUv (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 x#_aiNQ))
bx2_die3
bx3_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr6C [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1A><1L>,
Unf=OtherCon []]
$s$wgo1_sr6C (sc_sr6B :: Word#)
(sc1_sr6z :: Operand)
(sc2_sr6A :: [Operand])
= case sc1_sr6z of { __DEFAULT ->
jump $wgo2_sqgP sc2_sr6A (plusWord# sc_sr6B 1##)
};
$wgo2_sqgP [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqgP (ds1_sqgK :: [Operand]) (ww_sqgN :: Word#)
= case ds1_sqgK of {
[] -> jump $j1_slUv ww_sqgN;
: y1_Xb ys1_Xc ->
case y1_Xb of { __DEFAULT ->
jump $wgo2_sqgP ys1_Xc (plusWord# ww_sqgN 1##)
}
}; } in
jump $s$wgo1_sr6C
0##
(GHC.ByteCode.Asm.SmallOp
(ghc-internal:GHC.Internal.Word.W16# bx_did1))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af6h)
(ghc-internal:GHC.Internal.Types.[] @Operand))
};
TESTEQ_P bx_did3 l_af6j ->
case eta1_sqi4 of
{ InspectState bx1_die2 bx2_die3 bx3_die4 lblEnv1_B4 ->
join {
$j1_slUw [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUw (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx1_die2 x#_aiNQ))
bx2_die3
bx3_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr6L [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1A><1L>,
Unf=OtherCon []]
$s$wgo1_sr6L (sc_sr6K :: Word#)
(sc1_sr6I :: Operand)
(sc2_sr6J :: [Operand])
= case sc1_sr6I of { __DEFAULT ->
jump $wgo2_sqh3 sc2_sr6J (plusWord# sc_sr6K 1##)
};
$wgo2_sqh3 [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqh3 (ds1_sqgY :: [Operand]) (ww_sqh1 :: Word#)
= case ds1_sqgY of {
[] -> jump $j1_slUw ww_sqh1;
: y1_Xb ys1_Xc ->
case y1_Xb of { __DEFAULT ->
jump $wgo2_sqh3 ys1_Xc (plusWord# ww_sqh1 1##)
}
}; } in
jump $s$wgo1_sr6L
0##
(GHC.ByteCode.Asm.SmallOp
(ghc-internal:GHC.Internal.Word.W16# bx_did3))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.LabelOp l_af6j)
(ghc-internal:GHC.Internal.Types.[] @Operand))
};
JMP l_af6m ->
case eta1_sqi4 of
{ InspectState bx_die2 bx1_die3 bx2_die4 lblEnv1_B4 ->
join {
$j1_slUx [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j1_slUx (y#_aiNT [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx_die2 y#_aiNT))
bx1_die3
bx2_die4
lblEnv1_B4) } in
case eta_sqi3
`cast` (GHC.ByteCode.Asm.N:InspectEnv :: InspectEnv ~R# Bool)
of {
False -> jump $j1_slUx 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j1_slUx 2##;
PW8 -> jump $j1_slUx 4##
}
}
}
};
CCALL bx_did5 m_addr_af6p bx1_did6 ->
case eta1_sqi4 of
{ InspectState bx2_didU bx3_didV bx4_didW lblEnv1_B4 ->
case ghc-internal:GHC.Internal.List.$wlenAcc
@BCONPtr
(ghc-internal:GHC.Internal.Types.:
@BCONPtr
(case m_addr_af6p
`cast` (GHCi.RemoteTypes.N:RemotePtr <GHCi.FFI.C_ffi_cif>_P
:: RemotePtr GHCi.FFI.C_ffi_cif ~R# Word64)
of
{ ghc-internal:GHC.Internal.Word.W64# x#_aiNy ->
GHC.ByteCode.Types.BCONPtrWord (word64ToWord# x#_aiNy)
})
(ghc-internal:GHC.Internal.Types.[] @BCONPtr))
0#
of ww1_aiO0
{ __DEFAULT ->
join {
$j1_slUy [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUy (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_didU x#_aiNQ))
bx3_didV
(plusWord# bx4_didW (int2Word# ww1_aiO0))
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr75 [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1A><1L>,
Unf=OtherCon []]
$s$wgo1_sr75 (sc_sr74 :: Word#)
(sc1_sr72 :: Operand)
(sc2_sr73 :: [Operand])
= case sc1_sr72 of { __DEFAULT ->
jump $wgo2_sqhp sc2_sr73 (plusWord# sc_sr74 1##)
};
$wgo2_sqhp [InlPrag=[2], Occ=LoopBreaker, Dmd=SC(S,C(1,!P(L)))]
:: [Operand] -> Word# -> (# InspectState #)
[LclId[JoinId(2)(Just [!])], Arity=2, Str=<1L><L>, Unf=OtherCon []]
$wgo2_sqhp (ds1_sqhk :: [Operand]) (ww_sqhn :: Word#)
= case ds1_sqhk of {
[] -> jump $j1_slUy ww_sqhn;
: y1_Xc ys1_Xd ->
case y1_Xc of { __DEFAULT ->
jump $wgo2_sqhp ys1_Xd (plusWord# ww_sqhn 1##)
}
}; } in
jump $s$wgo1_sr75
0##
(GHC.ByteCode.Asm.Op
(ghc-internal:GHC.Internal.Types.W# (int2Word# bx_did5)))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.Op (ghc-internal:GHC.Internal.Types.W# bx4_didW))
(ghc-internal:GHC.Internal.Types.:
@Operand
(GHC.ByteCode.Asm.SmallOp
(ghc-internal:GHC.Internal.Word.W16# bx1_did6))
(ghc-internal:GHC.Internal.Types.[] @Operand)))
}
};
SWIZZLE bx_did8 bx1_did9 ->
case eta1_sqi4 of
{ InspectState bx2_die2 bx3_die3 bx4_die4 lblEnv1_B4 ->
let {
ops_slEt :: Word#
[LclId]
ops_slEt = int2Word# bx_did8 } in
let {
largeOps_skE2 :: Bool
[LclId]
largeOps_skE2
= case gtWord# ops_slEt 65535## of {
__DEFAULT -> ghc-internal:GHC.Internal.Types.False;
1# ->
case ># bx1_did9 32767# of {
__DEFAULT -> tagToEnum# @Bool (<# bx1_did9 -32768#);
1# -> ghc-internal:GHC.Internal.Types.True
}
} } in
join {
$j1_slUz [Dmd=SC(S,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>]
$j1_slUz (x#_aiNQ [OS=OneShot] :: Word#)
= jump $j_slVX
(GHC.ByteCode.Asm.InspectState
(plusWord# 1## (plusWord# bx2_die2 x#_aiNQ))
bx3_die3
bx4_die4
lblEnv1_B4) } in
joinrec {
$s$wgo1_sr7e [Occ=LoopBreaker, Dmd=SC(S,L)]
:: Word# -> Operand -> [Operand] -> (# InspectState #)
[LclId[JoinId(3)(Just [~, !, !])],
Arity=3,
Str=<L><1L><1L>,
Unf=OtherCon []]
$s$wgo1_sr7e (sc_sr7d :: Word#)
(sc1_sr7b :: Operand)
(sc2_sr7c :: [Operand])
= join {
$j2_ss6s [Dmd=1C(1,!P(L))] :: Word# -> (# InspectState #)
[LclId[JoinId(1)(Nothing)], Arity=1, Str=<L>, Unf=OtherCon []]
$j2_ss6s (y#_aiNT [OS=OneShot] :: Word#)
= jump $wgo2_sqhD sc2_sr7c (plusWord# sc_sr7d y#_aiNT) } in
case sc1_sr7b of {
Op ds1_di9E ->
case largeOps_skE2 of {
False -> jump $j2_ss6s 1##;
True ->
case platform_sqid of
{ Platform ds4_aiO5 ds5_aiYI ds6_aiYJ ds7_aiYK ds8_aiYL ds9_aiYM
ds10_aiYN ds11_aiYO ds12_aiYP ds13_aiYQ ds14_aiYR
ds15_aiYS ->
case ds5_aiYI of {
PW4 -> jump $j2_ss6s 2##;
PW8 -> jump $j2_ss6s 4##
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment