Created
July 31, 2015 13:49
-
-
Save bgamari/4b64d9d845933fed712c to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 ... |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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