Skip to content

Instantly share code, notes, and snippets.

@bgamari bgamari/7.4.stg
Created Jul 31, 2015

Embed
What would you like to do?
let {
$wa3_s3ad =
sat-only \r [ww3_s39q
ww4_s3ab
ww5_s3a9
w_s39t]
case
>=# [ww3_s39q
ipv_s39r]
of
wild14_s3eO
{ GHC.Types.False ->
case
readWord8OffAddr# [a3_s36C
0
w_s39t]
of
wild15_s3eN
{ (#,#) s9_s39E
x1_s39z ->
case
+# [ww3_s39q
1]
of
a10_s39y
{ __DEFAULT ->
case
eqWord# [x1_s39z
__word 0]
of
wild16_s3eM
{ GHC.Types.False ->
case
int2Word# [ww_s35r]
of
sat_s3ds
{ __DEFAULT ->
case
__pkg_ccall base memcpy [a9_s39k
a3_s36C
sat_s3ds
s9_s39E]
of
wild17_s3eL
{ (#,#) ds4_s39I
ds5_s3dw ->
case
$wa_r325
a3_s36C
a6_s372
ds4_s39I
of
wild18_s3eK
{ (#,#) new_s3_s3am
a11_s3dv ->
let-no-escape {
$wa4_s3a3 =
sat-only \r [ww6_s3a2
w1_s39P]
case
readWord8OffAddr# [a9_s39k
0
w1_s39P]
of
wild19_s3eJ
{ (#,#) s10_s39Y
x2_s39T ->
case
eqWord# [x2_s39T
__word 0]
of
wild20_s3eI
{ GHC.Types.False ->
case
word2Int# [x2_s39T]
of
sat_s39W
{ __DEFAULT ->
case
plusAddr# [a9_s39k
sat_s39W]
of
sat_s3dk
{ __DEFAULT ->
case
$wa1_r328
a9_s39k
sat_s3dk
s10_s39Y
of
wild21_s3eH
{ (#,#) new_s4_s3a5
a12_s3dr ->
case
+# [ww6_s3a2
1]
of
sat_s3dj
{ __DEFAULT ->
$wa4_s3a3
sat_s3dj
new_s4_s3a5;
};
};
};
};
GHC.Types.True ->
case
int2Word# [ww3_s39q]
of
sat_s3dn
{ __DEFAULT ->
case
and# [sat_s3dn
__word 1]
of
sat_s3dm
{ __DEFAULT ->
case
word2Int# [sat_s3dm]
of
wild21_s3eT
{ __DEFAULT ->
case
<=# [ww5_s3a9
ww6_s3a2]
of
wild22_s3eS
{ GHC.Types.False ->
case
negateInt# [ww6_s3a2]
of
sat_s3ae
{ __DEFAULT ->
case
+# [ww4_s3ab
sat_s3ae]
of
sat_s3dl
{ __DEFAULT ->
$wa3_s3ad
a10_s39y
sat_s3dl
ww5_s3a9
s10_s39Y;
};
};
GHC.Types.True ->
case
negateInt# [ww6_s3a2]
of
sat_s3ah
{ __DEFAULT ->
case
+# [ww4_s3ab
sat_s3ah]
of
sat_s3dq
{ __DEFAULT ->
$wa3_s3ad
a10_s39y
sat_s3dq
ww6_s3a2
s10_s39Y;
};
};
};
0 ->
case
<=# [ww5_s3a9
ww6_s3a2]
of
wild22_s3eU
{ GHC.Types.False ->
case
+# [ww4_s3ab
ww6_s3a2]
of
sat_s3do
{ __DEFAULT ->
$wa3_s3ad
a10_s39y
sat_s3do
ww5_s3a9
s10_s39Y;
};
GHC.Types.True ->
case
+# [ww4_s3ab
ww6_s3a2]
of
sat_s3dp
{ __DEFAULT ->
$wa3_s3ad
a10_s39y
sat_s3dp
ww6_s3a2
s10_s39Y;
};
};
};
};
};
};
};
} in
$wa4_s3a3
0
new_s3_s3am;
};
};
};
GHC.Types.True ->
case
$wa_r325
a3_s36C
a6_s372
s9_s39E
of
wild17_s3eV
{ (#,#) new_s3_s3aq
a11_s3du ->
$wa3_s3ad
a10_s39y
ww4_s3ab
ww5_s3a9
new_s3_s3aq;
};
};
};
};
GHC.Types.True ->
let {
sat_s3dt =
NO_CCS Main.F! [ww4_s3ab
ww5_s3a9];
} in
(#,#) [w_s39t
sat_s3dt];
};
} in ...
let {
$wa3_s3Cl [Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
Main.F #)
[LclId,
Arity=4,
Str=DmdType LLLL,
Unf=OtherCon []] =
sat-only \r [ww3_s3Bu
ww4_s3Cj
ww5_s3Ch
w_s3Bx]
case
>=# [ww3_s3Bu
ipv22_s3Bv]
of
_
{ GHC.Types.False ->
case
readWord8OffAddr# [a4_s3zf
0
w_s3Bx]
of
_
{ (#,#) ipv27_s3BI
ipv28_s3BD ->
case
+# [ww3_s3Bu
1]
of
a9_s3BC [Dmd=Just L]
{ __DEFAULT ->
case
eqWord# [ipv28_s3BD
__word 0]
of
_
{ GHC.Types.False ->
case
int2Word# [ww_s3y0]
of
sat_s3Eu
{ __DEFAULT ->
case
__pkg_ccall base memcpy [a8_s3Bo
a4_s3zf
sat_s3Eu
ipv27_s3BI]
of
_
{ (#,#) ds14_s3BM
_ ->
case
$wa_r3uw
a4_s3zf
a6_s3zF
ds14_s3BM
of
_
{ (#,#) ipv29_s3Cu
_ ->
let {
lvl6_s3BV
:: GHC.Types.Bool
[LclId,
Str=DmdType] =
\u []
case
int2Word# [ww3_s3Bu]
of
sat_s3BU
{ __DEFAULT ->
case
and# [sat_s3BU
__word 1]
of
sat_s3Em
{ __DEFAULT ->
case
word2Int# [sat_s3Em]
of
_
{ __DEFAULT ->
GHC.Types.False [];
0 ->
GHC.Types.True [];
};
};
};
} in
let-no-escape {
$wa4_s3Cd [Occ=LoopBreaker]
:: GHC.Prim.Int#
-> GHC.Prim.State#
GHC.Prim.RealWorld
-> (# GHC.Prim.State#
GHC.Prim.RealWorld,
Main.F #)
[LclId,
Arity=2,
Str=DmdType LL,
Unf=OtherCon []] =
sat-only \r [ww6_s3Cc
w1_s3BZ]
case
readWord8OffAddr# [a8_s3Bo
0
w1_s3BZ]
of
_
{ (#,#) ipv31_s3C8
ipv32_s3C3 ->
case
eqWord# [ipv32_s3C3
__word 0]
of
_
{ GHC.Types.False ->
case
word2Int# [ipv32_s3C3]
of
sat_s3C6
{ __DEFAULT ->
case
plusAddr# [a8_s3Bo
sat_s3C6]
of
sat_s3Eo
{ __DEFAULT ->
case
$wa1_r3uz
a8_s3Bo
sat_s3Eo
ipv31_s3C8
of
_
{ (#,#) ipv33_s3Cf
_ ->
case
+# [ww6_s3Cc
1]
of
sat_s3En
{ __DEFAULT ->
$wa4_s3Cd
sat_s3En
ipv33_s3Cf;
};
};
};
};
GHC.Types.True ->
case
lvl6_s3BV
of
_
{ GHC.Types.False ->
case
<=# [ww5_s3Ch
ww6_s3Cc]
of
_
{ GHC.Types.False ->
case
negateInt# [ww6_s3Cc]
of
sat_s3Cm
{ __DEFAULT ->
case
+# [ww4_s3Cj
sat_s3Cm]
of
sat_s3Ep
{ __DEFAULT ->
$wa3_s3Cl
a9_s3BC
sat_s3Ep
ww5_s3Ch
ipv31_s3C8;
};
};
GHC.Types.True ->
case
negateInt# [ww6_s3Cc]
of
sat_s3Cp
{ __DEFAULT ->
case
+# [ww4_s3Cj
sat_s3Cp]
of
sat_s3Es
{ __DEFAULT ->
$wa3_s3Cl
a9_s3BC
sat_s3Es
ww6_s3Cc
ipv31_s3C8;
};
};
};
GHC.Types.True ->
case
<=# [ww5_s3Ch
ww6_s3Cc]
of
_
{ GHC.Types.False ->
case
+# [ww4_s3Cj
ww6_s3Cc]
of
sat_s3Eq
{ __DEFAULT ->
$wa3_s3Cl
a9_s3BC
sat_s3Eq
ww5_s3Ch
ipv31_s3C8;
};
GHC.Types.True ->
case
+# [ww4_s3Cj
ww6_s3Cc]
of
sat_s3Er
{ __DEFAULT ->
$wa3_s3Cl
a9_s3BC
sat_s3Er
ww6_s3Cc
ipv31_s3C8;
};
};
};
};
};
} in
$wa4_s3Cd
0
ipv29_s3Cu;
};
};
};
GHC.Types.True ->
case
$wa_r3uw
a4_s3zf
a6_s3zF
ipv27_s3BI
of
_
{ (#,#) ipv29_s3Cy
_ ->
$wa3_s3Cl
a9_s3BC
ww4_s3Cj
ww5_s3Ch
ipv29_s3Cy;
};
};
};
};
GHC.Types.True ->
let {
sat_s3Ev
:: Main.F
[LclId] =
NO_CCS Main.F! [ww4_s3Cj
ww5_s3Ch];
} in
(#,#) [w_s3Bx
sat_s3Ev];
};
} in ...
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.