Skip to content

Instantly share code, notes, and snippets.

@sgraf812 sgraf812/11284.hs Secret
Created Sep 18, 2018

Embed
What would you like to do?
let-no-escape {
$wloop_length_s5fR [InlPrag=NOUSERINLINE[2],
Occ=LoopBreakerT[2]]
:: GHC.Prim.Int# -> GHC.Prim.Int# -> GHC.Prim.Int#
[LclId[JoinId(2)],
Arity=2,
Str=<S,U><S,U>,
Unf=OtherCon []] =
sat-only [dt_s5fJ
end_s5fN
exit_s5fO
$wloop_length_s5fR] \r [ww2_s5fS ww3_s5fT]
case >=# [ww3_s5fT end_s5fN] of {
__DEFAULT ->
case
indexWord16Array# [dt_s5fJ ww3_s5fT]
of
r#_s5fV
{ __DEFAULT ->
case geWord# [r#_s5fV 55296##] of {
__DEFAULT ->
case
+# [ww3_s5fT 1#]
of
sat_s5fY [Occ=Once]
{ __DEFAULT ->
case
+# [ww2_s5fS 1#]
of
sat_s5fX [Occ=Once]
{ __DEFAULT ->
$wloop_length_s5fR
sat_s5fX
sat_s5fY;
};
};
1# ->
case
leWord# [r#_s5fV 56319##]
of
{ __DEFAULT ->
case
+# [ww3_s5fT 1#]
of
sat_s5g1 [Occ=Once]
{ __DEFAULT ->
case
+# [ww2_s5fS 1#]
of
sat_s5g0 [Occ=Once]
{ __DEFAULT ->
$wloop_length_s5fR
sat_s5g0
sat_s5g1;
};
};
1# ->
case
+# [ww3_s5fT 2#]
of
sat_s5g3 [Occ=Once]
{ __DEFAULT ->
case
+# [ww2_s5fS 1#]
of
sat_s5g2 [Occ=Once]
{ __DEFAULT ->
$wloop_length_s5fR
sat_s5g2
sat_s5g3;
};
};
};
};
};
1# -> exit_s5fO ww2_s5fS;
};
} in $wloop_length_s5fR 0# dt1_s5fK;
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.