@sml_check_flag=external local_unnamed_addr global i32
@_SMLZN9Substring4getcE=external local_unnamed_addr global i8*
@_SMLZ6Domain=external unnamed_addr constant i8*
@_SMLZ3Chr=external unnamed_addr constant i8*
@a=private unnamed_addr constant<{[4x i8],i32,[16x i8]}><{[4x i8]zeroinitializer,i32 -2147483632,[16x i8]c"UTF8.Incomplete\00"}>,align 8
@b=private unnamed_addr constant<{[4x i8],i32,i8*,i32,[4x i8],i32}><{[4x i8]zeroinitializer,i32 -805306352,i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[16x i8]}>,<{[4x i8],i32,[16x i8]}>*@a,i32 0,i32 0,i32 0),i32 8),i32 0,[4x i8]zeroinitializer,i32 1}>,align 8
@_SMLDL93=private constant<{[4x i8],i32,i8*}><{[4x i8]zeroinitializer,i32 -1879048184,i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,i8*,i32,[4x i8],i32}>,<{[4x i8],i32,i8*,i32,[4x i8],i32}>*@b,i32 0,i32 0,i32 0),i32 8)}>,align 8
@c=private unnamed_addr constant<{[4x i8],i32,[40x i8]}><{[4x i8]zeroinitializer,i32 -2147483608,[40x i8]c"src/smlnj-lib/Util/utf8.sml:58.17(1734)\00"}>,align 8
@d=private unnamed_addr constant<{[4x i8],i32,i8*,i8*,i32}><{[4x i8]zeroinitializer,i32 -805306352,i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL93,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[40x i8]}>,<{[4x i8],i32,[40x i8]}>*@c,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@e=private unnamed_addr constant<{[4x i8],i32,[40x i8]}><{[4x i8]zeroinitializer,i32 -2147483608,[40x i8]c"src/smlnj-lib/Util/utf8.sml:52.21(1551)\00"}>,align 8
@f=private unnamed_addr constant<{[4x i8],i32,i8*,i8*,i32}><{[4x i8]zeroinitializer,i32 -805306352,i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL93,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[40x i8]}>,<{[4x i8],i32,[40x i8]}>*@e,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@g=private unnamed_addr constant<{[4x i8],i32,[40x i8]}><{[4x i8]zeroinitializer,i32 -2147483608,[40x i8]c"src/smlnj-lib/Util/utf8.sml:77.16(2352)\00"}>,align 8
@h=private unnamed_addr constant<{[4x i8],i32,i8*,i8*,i32}><{[4x i8]zeroinitializer,i32 -805306352,i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL93,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[40x i8]}>,<{[4x i8],i32,[40x i8]}>*@g,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@i=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4UTF84getuE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4UTF84getuE_184 to void(...)*),i32 -2147483647}>,align 8
@j=private unnamed_addr constant<{[4x i8],i32,[3x i8]}><{[4x i8]zeroinitializer,i32 -2147483645,[3x i8]c"\5Cu\00"}>,align 8
@k=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32)*@_SMLFN4UTF88toStringE to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF88toStringE_185 to void(...)*),i32 -2147483647}>,align 8
@l=private unnamed_addr constant<{[4x i8],i32,[41x i8]}><{[4x i8]zeroinitializer,i32 -2147483607,[41x i8]c"src/smlnj-lib/Util/utf8.sml:114.16(3680)\00"}>,align 8
@m=private unnamed_addr constant<{[4x i8],i32,[39x i8]}><{[4x i8]zeroinitializer,i32 -2147483609,[39x i8]c"src/smlnj-lib/Util/utf8.sml:30.16(778)\00"}>,align 8
@n=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i8*)*@_SMLLN4UTF87encode_GE_135 to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87encode_GE_186 to void(...)*),i32 -2147483647}>,align 8
@o=private unnamed_addr constant<{[4x i8],i32,[41x i8]}><{[4x i8]zeroinitializer,i32 -2147483607,[41x i8]c"src/smlnj-lib/Util/utf8.sml:130.18(4199)\00"}>,align 8
@p=private unnamed_addr constant<{[4x i8],i32,i8*,i8*,i32}><{[4x i8]zeroinitializer,i32 -805306352,i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL93,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[41x i8]}>,<{[4x i8],i32,[41x i8]}>*@o,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@q=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32)*@_SMLFN4UTF86encodeE to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF86encodeE_196 to void(...)*),i32 -2147483647}>,align 8
@r=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i8*)*@_SMLLN4UTF87explodeE_162 to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87explodeE_197 to void(...)*),i32 -2147483647}>,align 8
@s=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i32(i8)*@_SMLFN4UTF89fromAsciiE to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF89fromAsciiE_198 to void(...)*),i32 -2147483647}>,align 8
@t=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i8*)*@_SMLFN4UTF87implodeE to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87implodeE_199 to void(...)*),i32 -2147483647}>,align 8
@u=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i32(i32)*@_SMLFN4UTF87isAsciiE to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87isAsciiE_200 to void(...)*),i32 -2147483647}>,align 8
@v=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8(i32)*@_SMLFN4UTF87toAsciiE to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87toAsciiE_201 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4UTF812maxCodePointE=local_unnamed_addr constant i32 1114111
@_SMLZN4UTF810IncompleteE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL93,i64 0,i32 2)to i8*)
@_SMLZN4UTF84getuE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@i,i64 0,i32 2)to i8*)
@_SMLZN4UTF86encodeE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@q,i64 0,i32 2)to i8*)
@_SMLZN4UTF87isAsciiE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@u,i64 0,i32 2)to i8*)
@_SMLZN4UTF87toAsciiE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@v,i64 0,i32 2)to i8*)
@_SMLZN4UTF89fromAsciiE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@s,i64 0,i32 2)to i8*)
@_SMLZN4UTF88toStringE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@k,i64 0,i32 2)to i8*)
@_SMLZN4UTF87implodeE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@t,i64 0,i32 2)to i8*)
@_SML_gvardc75c24a45712161_utf8=private global<{[4x i8],i32,[7x i8*]}><{[4x i8]zeroinitializer,i32 -1342177224,[7x i8*]zeroinitializer}>,align 8
@w=private unnamed_addr global[2x i64][i64 1,i64 sub(i64 ptrtoint(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 0)to i64),i64 ptrtoint([2x i64]*@w to i64))]
@_SML_ftabdc75c24a45712161_utf8=external global i8
@x=private unnamed_addr global i8 0
@_SMLZN4UTF84sizeE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 0)
@_SMLZN4UTF87explodeE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 1)
@_SMLZN4UTF83mapE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 2)
@_SMLZN4UTF83appE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 3)
@_SMLZN4UTF84foldE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 4)
@_SMLZN4UTF83allE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 5)
@_SMLZN4UTF86existsE=alias i8*,getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i32 0,i32 2,i32 6)
declare void@llvm.gcroot(i8**,i8*)#0
declare i8*@sml_alloc(i32 inreg)local_unnamed_addr#0
declare void@sml_check(i32 inreg)local_unnamed_addr
declare void@sml_end()local_unnamed_addr#0
declare void@sml_gcroot(i8*,void()*,i8*,i8*)local_unnamed_addr#0
declare i32@sml_personality(...)#0
declare void@sml_raise(i8*inreg)local_unnamed_addr#1
declare void@sml_save_exn(i8*inreg)local_unnamed_addr#0
declare void@sml_start(i8*inreg)local_unnamed_addr#0
declare void@sml_write(i8*inreg,i8**inreg,i8*inreg)local_unnamed_addr#0
declare i8*@_SMLFN10CharVector8fromListE(i8*inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN4Char9toCStringE(i8 inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN4List3revE(i32 inreg,i32 inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN4List5foldrE(i32 inreg,i32 inreg,i32 inreg,i32 inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN4List9revAppendE(i32 inreg,i32 inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN6String1_ZE(i8*inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN6Word328toStringE(i32 inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN9StringCvt7padLeftE(i8 inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN9Substring4fullE(i8*inreg)local_unnamed_addr#2 gc"smlsharp"
declare i8*@_SMLFN9Substring4getcE(i8*inreg)local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_main5c37eb24573fc5f9_StringCvt()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_main145db56e6796da5b_Substring()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_maince7036f3433e1102_Char()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_mainadbb5309e852b68c_CharVector()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_main03d87556ec7f64b2_List()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_main1ef93e13728790b1_String()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_mainf19563e8df97169c_Word32()local_unnamed_addr#2 gc"smlsharp"
declare void@_SML_load5c37eb24573fc5f9_StringCvt(i8*)local_unnamed_addr
declare void@_SML_load145db56e6796da5b_Substring(i8*)local_unnamed_addr
declare void@_SML_loadce7036f3433e1102_Char(i8*)local_unnamed_addr
declare void@_SML_loadadbb5309e852b68c_CharVector(i8*)local_unnamed_addr
declare void@_SML_load03d87556ec7f64b2_List(i8*)local_unnamed_addr
declare void@_SML_load1ef93e13728790b1_String(i8*)local_unnamed_addr
declare void@_SML_loadf19563e8df97169c_Word32(i8*)local_unnamed_addr
define private void@_SML_tabbdc75c24a45712161_utf8()#3{
unreachable
}
define void@_SML_loaddc75c24a45712161_utf8(i8*%a)local_unnamed_addr#0{
%b=load i8,i8*@x,align 1
%c=icmp eq i8%b,0
br i1%c,label%e,label%d
d:
ret void
e:
store i8 1,i8*@x,align 1
tail call void@_SML_load5c37eb24573fc5f9_StringCvt(i8*%a)#0
tail call void@_SML_load145db56e6796da5b_Substring(i8*%a)#0
tail call void@_SML_loadce7036f3433e1102_Char(i8*%a)#0
tail call void@_SML_loadadbb5309e852b68c_CharVector(i8*%a)#0
tail call void@_SML_load03d87556ec7f64b2_List(i8*%a)#0
tail call void@_SML_load1ef93e13728790b1_String(i8*%a)#0
tail call void@_SML_loadf19563e8df97169c_Word32(i8*%a)#0
tail call void@sml_gcroot(i8*%a,void()*@_SML_tabbdc75c24a45712161_utf8,i8*@_SML_ftabdc75c24a45712161_utf8,i8*bitcast([2x i64]*@w to i8*))#0
ret void
}
define void@_SML_maindc75c24a45712161_utf8()local_unnamed_addr#2 gc"smlsharp"personality i32(...)*@sml_personality{
%a=alloca[3x i8*],align 8
%b=alloca i8*,align 8
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
%h=alloca i8*,align 8
%i=alloca i8*,align 8
%j=load i8,i8*@x,align 1
%k=and i8%j,2
%l=icmp eq i8%k,0
br i1%l,label%n,label%m
m:
ret void
n:
store i8 3,i8*@x,align 1
tail call void@_SML_main5c37eb24573fc5f9_StringCvt()#2
tail call void@_SML_main145db56e6796da5b_Substring()#2
tail call void@_SML_maince7036f3433e1102_Char()#2
tail call void@_SML_mainadbb5309e852b68c_CharVector()#2
tail call void@_SML_main03d87556ec7f64b2_List()#2
tail call void@_SML_main1ef93e13728790b1_String()#2
tail call void@_SML_mainf19563e8df97169c_Word32()#2
call void@llvm.gcroot(i8**%b,i8*null)#0
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
call void@llvm.gcroot(i8**%h,i8*null)#0
call void@llvm.gcroot(i8**%i,i8*null)#0
%o=bitcast[3x i8*]*%a to i8*
call void@sml_start(i8*inreg%o)#0
%p=load atomic i32,i32*@sml_check_flag unordered,align 4
%q=icmp eq i32%p,0
br i1%q,label%s,label%r
r:
invoke void@sml_check(i32 inreg%p)
to label%s unwind label%c9
s:
%t=invoke fastcc i8*@_SMLFN4List3revE(i32 inreg 0,i32 inreg 1)
to label%u unwind label%c9
u:
store i8*%t,i8**%b,align 8
%v=call i8*@sml_alloc(i32 inreg 12)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177288,i32*%x,align 4
store i8*%v,i8**%c,align 8
%y=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%z=bitcast i8*%v to i8**
store i8*%y,i8**%z,align 8
%A=getelementptr inbounds i8,i8*%v,i64 8
%B=bitcast i8*%A to i32*
store i32 1,i32*%B,align 4
%C=call i8*@sml_alloc(i32 inreg 28)#0
%D=getelementptr inbounds i8,i8*%C,i64 -4
%E=bitcast i8*%D to i32*
store i32 1342177304,i32*%E,align 4
store i8*%C,i8**%d,align 8
%F=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%G=bitcast i8*%C to i8**
store i8*%F,i8**%G,align 8
%H=getelementptr inbounds i8,i8*%C,i64 8
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN6String10implodeRevE_90 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%C,i64 16
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN6String10implodeRevE_90 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%C,i64 24
%M=bitcast i8*%L to i32*
store i32 -2147483647,i32*%M,align 4
%N=call fastcc i8*@_SMLLN4UTF811getContByteE_100(i32 inreg 1,i32 inreg 8,i32 inreg 1,i32 inreg 8)
%O=getelementptr inbounds i8,i8*%N,i64 16
%P=bitcast i8*%O to i8*(i8*,i8*)**
%Q=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%P,align 8
%R=bitcast i8*%N to i8**
%S=load i8*,i8**%R,align 8
%T=load i8*,i8**@_SMLZN9Substring4getcE,align 8
%U=invoke fastcc i8*%Q(i8*inreg%S,i8*inreg%T)
to label%V unwind label%c9
V:
store i8*%U,i8**%b,align 8
%W=call i8*@sml_alloc(i32 inreg 12)#0
%X=getelementptr inbounds i8,i8*%W,i64 -4
%Y=bitcast i8*%X to i32*
store i32 1342177288,i32*%Y,align 4
store i8*%W,i8**%c,align 8
%Z=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%aa=bitcast i8*%W to i8**
store i8*%Z,i8**%aa,align 8
%ab=getelementptr inbounds i8,i8*%W,i64 8
%ac=bitcast i8*%ab to i32*
store i32 1,i32*%ac,align 4
%ad=call i8*@sml_alloc(i32 inreg 28)#0
%ae=getelementptr inbounds i8,i8*%ad,i64 -4
%af=bitcast i8*%ae to i32*
store i32 1342177304,i32*%af,align 4
%ag=load i8*,i8**%c,align 8
%ah=bitcast i8*%ad to i8**
store i8*%ag,i8**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ad,i64 8
%aj=bitcast i8*%ai to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF85getWCE_139 to void(...)*),void(...)**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ad,i64 16
%al=bitcast i8*%ak to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF85getWCE_139 to void(...)*),void(...)**%al,align 8
%am=getelementptr inbounds i8,i8*%ad,i64 24
%an=bitcast i8*%am to i32*
store i32 -2147483647,i32*%an,align 4
%ao=call i8*@sml_alloc(i32 inreg 12)#0
%ap=getelementptr inbounds i8,i8*%ao,i64 -4
%aq=bitcast i8*%ap to i32*
store i32 1342177288,i32*%aq,align 4
store i8*%ao,i8**%b,align 8
%ar=load i8*,i8**%c,align 8
%as=bitcast i8*%ao to i8**
store i8*%ar,i8**%as,align 8
%at=getelementptr inbounds i8,i8*%ao,i64 8
%au=bitcast i8*%at to i32*
store i32 1,i32*%au,align 4
%av=call i8*@sml_alloc(i32 inreg 28)#0
%aw=getelementptr inbounds i8,i8*%av,i64 -4
%ax=bitcast i8*%aw to i32*
store i32 1342177304,i32*%ax,align 4
store i8*%av,i8**%e,align 8
%ay=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%az=bitcast i8*%av to i8**
store i8*%ay,i8**%az,align 8
%aA=getelementptr inbounds i8,i8*%av,i64 8
%aB=bitcast i8*%aA to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4UTF84sizeE_141 to void(...)*),void(...)**%aB,align 8
%aC=getelementptr inbounds i8,i8*%av,i64 16
%aD=bitcast i8*%aC to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84sizeE_188 to void(...)*),void(...)**%aD,align 8
%aE=getelementptr inbounds i8,i8*%av,i64 24
%aF=bitcast i8*%aE to i32*
store i32 -2147483647,i32*%aF,align 4
%aG=call i8*@sml_alloc(i32 inreg 20)#0
%aH=getelementptr inbounds i8,i8*%aG,i64 -4
%aI=bitcast i8*%aH to i32*
store i32 1342177296,i32*%aI,align 4
store i8*%aG,i8**%b,align 8
%aJ=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aK=bitcast i8*%aG to i8**
store i8*%aJ,i8**%aK,align 8
%aL=load i8*,i8**%c,align 8
%aM=getelementptr inbounds i8,i8*%aG,i64 8
%aN=bitcast i8*%aM to i8**
store i8*%aL,i8**%aN,align 8
%aO=getelementptr inbounds i8,i8*%aG,i64 16
%aP=bitcast i8*%aO to i32*
store i32 3,i32*%aP,align 4
%aQ=call i8*@sml_alloc(i32 inreg 28)#0
%aR=getelementptr inbounds i8,i8*%aQ,i64 -4
%aS=bitcast i8*%aR to i32*
store i32 1342177304,i32*%aS,align 4
%aT=load i8*,i8**%b,align 8
%aU=bitcast i8*%aQ to i8**
store i8*%aT,i8**%aU,align 8
%aV=getelementptr inbounds i8,i8*%aQ,i64 8
%aW=bitcast i8*%aV to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83mapE_144 to void(...)*),void(...)**%aW,align 8
%aX=getelementptr inbounds i8,i8*%aQ,i64 16
%aY=bitcast i8*%aX to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83mapE_144 to void(...)*),void(...)**%aY,align 8
%aZ=getelementptr inbounds i8,i8*%aQ,i64 24
%a0=bitcast i8*%aZ to i32*
store i32 -2147483647,i32*%a0,align 4
%a1=call i8*@sml_alloc(i32 inreg 12)#0
%a2=getelementptr inbounds i8,i8*%a1,i64 -4
%a3=bitcast i8*%a2 to i32*
store i32 1342177288,i32*%a3,align 4
store i8*%a1,i8**%d,align 8
%a4=load i8*,i8**%c,align 8
%a5=bitcast i8*%a1 to i8**
store i8*%a4,i8**%a5,align 8
%a6=getelementptr inbounds i8,i8*%a1,i64 8
%a7=bitcast i8*%a6 to i32*
store i32 1,i32*%a7,align 4
%a8=call i8*@sml_alloc(i32 inreg 28)#0
%a9=getelementptr inbounds i8,i8*%a8,i64 -4
%ba=bitcast i8*%a9 to i32*
store i32 1342177304,i32*%ba,align 4
%bb=load i8*,i8**%d,align 8
%bc=bitcast i8*%a8 to i8**
store i8*%bb,i8**%bc,align 8
%bd=getelementptr inbounds i8,i8*%a8,i64 8
%be=bitcast i8*%bd to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83appE_147 to void(...)*),void(...)**%be,align 8
%bf=getelementptr inbounds i8,i8*%a8,i64 16
%bg=bitcast i8*%bf to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83appE_147 to void(...)*),void(...)**%bg,align 8
%bh=getelementptr inbounds i8,i8*%a8,i64 24
%bi=bitcast i8*%bh to i32*
store i32 -2147483647,i32*%bi,align 4
%bj=call i8*@sml_alloc(i32 inreg 12)#0
%bk=getelementptr inbounds i8,i8*%bj,i64 -4
%bl=bitcast i8*%bk to i32*
store i32 1342177288,i32*%bl,align 4
store i8*%bj,i8**%f,align 8
%bm=load i8*,i8**%c,align 8
%bn=bitcast i8*%bj to i8**
store i8*%bm,i8**%bn,align 8
%bo=getelementptr inbounds i8,i8*%bj,i64 8
%bp=bitcast i8*%bo to i32*
store i32 1,i32*%bp,align 4
%bq=call i8*@sml_alloc(i32 inreg 28)#0
%br=getelementptr inbounds i8,i8*%bq,i64 -4
%bs=bitcast i8*%br to i32*
store i32 1342177304,i32*%bs,align 4
store i8*%bq,i8**%g,align 8
%bt=load i8*,i8**%f,align 8
%bu=bitcast i8*%bq to i8**
store i8*%bt,i8**%bu,align 8
%bv=getelementptr inbounds i8,i8*%bq,i64 8
%bw=bitcast i8*%bv to void(...)**
store void(...)*bitcast(i8*(i8*,i32,i32)*@_SMLLN4UTF84foldE_152 to void(...)*),void(...)**%bw,align 8
%bx=getelementptr inbounds i8,i8*%bq,i64 16
%by=bitcast i8*%bx to void(...)**
store void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4UTF84foldE_191 to void(...)*),void(...)**%by,align 8
%bz=getelementptr inbounds i8,i8*%bq,i64 24
%bA=bitcast i8*%bz to i32*
store i32 -2147483647,i32*%bA,align 4
%bB=call i8*@sml_alloc(i32 inreg 12)#0
%bC=getelementptr inbounds i8,i8*%bB,i64 -4
%bD=bitcast i8*%bC to i32*
store i32 1342177288,i32*%bD,align 4
store i8*%bB,i8**%h,align 8
%bE=load i8*,i8**%c,align 8
%bF=bitcast i8*%bB to i8**
store i8*%bE,i8**%bF,align 8
%bG=getelementptr inbounds i8,i8*%bB,i64 8
%bH=bitcast i8*%bG to i32*
store i32 1,i32*%bH,align 4
%bI=call i8*@sml_alloc(i32 inreg 28)#0
%bJ=getelementptr inbounds i8,i8*%bI,i64 -4
%bK=bitcast i8*%bJ to i32*
store i32 1342177304,i32*%bK,align 4
store i8*%bI,i8**%i,align 8
%bL=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%bM=bitcast i8*%bI to i8**
store i8*%bL,i8**%bM,align 8
%bN=getelementptr inbounds i8,i8*%bI,i64 8
%bO=bitcast i8*%bN to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83allE_155 to void(...)*),void(...)**%bO,align 8
%bP=getelementptr inbounds i8,i8*%bI,i64 16
%bQ=bitcast i8*%bP to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83allE_155 to void(...)*),void(...)**%bQ,align 8
%bR=getelementptr inbounds i8,i8*%bI,i64 24
%bS=bitcast i8*%bR to i32*
store i32 -2147483647,i32*%bS,align 4
%bT=call i8*@sml_alloc(i32 inreg 12)#0
%bU=getelementptr inbounds i8,i8*%bT,i64 -4
%bV=bitcast i8*%bU to i32*
store i32 1342177288,i32*%bV,align 4
store i8*%bT,i8**%h,align 8
%bW=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bX=bitcast i8*%bT to i8**
store i8*%bW,i8**%bX,align 8
%bY=getelementptr inbounds i8,i8*%bT,i64 8
%bZ=bitcast i8*%bY to i32*
store i32 1,i32*%bZ,align 4
%b0=call i8*@sml_alloc(i32 inreg 28)#0
%b1=getelementptr inbounds i8,i8*%b0,i64 -4
%b2=bitcast i8*%b1 to i32*
store i32 1342177304,i32*%b2,align 4
store i8*%b0,i8**%c,align 8
%b3=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%b4=bitcast i8*%b0 to i8**
store i8*%b3,i8**%b4,align 8
%b5=getelementptr inbounds i8,i8*%b0,i64 8
%b6=bitcast i8*%b5 to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF86existsE_158 to void(...)*),void(...)**%b6,align 8
%b7=getelementptr inbounds i8,i8*%b0,i64 16
%b8=bitcast i8*%b7 to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF86existsE_158 to void(...)*),void(...)**%b8,align 8
%b9=getelementptr inbounds i8,i8*%b0,i64 24
%ca=bitcast i8*%b9 to i32*
store i32 -2147483647,i32*%ca,align 4
%cb=call i8*@sml_alloc(i32 inreg 12)#0
%cc=getelementptr inbounds i8,i8*%cb,i64 -4
%cd=bitcast i8*%cc to i32*
store i32 1342177288,i32*%cd,align 4
store i8*%cb,i8**%h,align 8
%ce=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cf=bitcast i8*%cb to i8**
store i8*%ce,i8**%cf,align 8
%cg=getelementptr inbounds i8,i8*%cb,i64 8
%ch=bitcast i8*%cg to i32*
store i32 1,i32*%ch,align 4
%ci=call i8*@sml_alloc(i32 inreg 28)#0
%cj=getelementptr inbounds i8,i8*%ci,i64 -4
%ck=bitcast i8*%cj to i32*
store i32 1342177304,i32*%ck,align 4
store i8*%ci,i8**%d,align 8
%cl=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%cm=bitcast i8*%ci to i8**
store i8*%cl,i8**%cm,align 8
%cn=getelementptr inbounds i8,i8*%ci,i64 8
%co=bitcast i8*%cn to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83appE_159 to void(...)*),void(...)**%co,align 8
%cp=getelementptr inbounds i8,i8*%ci,i64 16
%cq=bitcast i8*%cp to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83appE_159 to void(...)*),void(...)**%cq,align 8
%cr=getelementptr inbounds i8,i8*%ci,i64 24
%cs=bitcast i8*%cr to i32*
store i32 -2147483647,i32*%cs,align 4
%ct=call i8*@sml_alloc(i32 inreg 12)#0
%cu=getelementptr inbounds i8,i8*%ct,i64 -4
%cv=bitcast i8*%cu to i32*
store i32 1342177288,i32*%cv,align 4
store i8*%ct,i8**%h,align 8
%cw=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%cx=bitcast i8*%ct to i8**
store i8*%cw,i8**%cx,align 8
%cy=getelementptr inbounds i8,i8*%ct,i64 8
%cz=bitcast i8*%cy to i32*
store i32 1,i32*%cz,align 4
%cA=call i8*@sml_alloc(i32 inreg 28)#0
%cB=getelementptr inbounds i8,i8*%cA,i64 -4
%cC=bitcast i8*%cB to i32*
store i32 1342177304,i32*%cC,align 4
store i8*%cA,i8**%f,align 8
%cD=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%cE=bitcast i8*%cA to i8**
store i8*%cD,i8**%cE,align 8
%cF=getelementptr inbounds i8,i8*%cA,i64 8
%cG=bitcast i8*%cF to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87explodeE_164 to void(...)*),void(...)**%cG,align 8
%cH=getelementptr inbounds i8,i8*%cA,i64 16
%cI=bitcast i8*%cH to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF87explodeE_164 to void(...)*),void(...)**%cI,align 8
%cJ=getelementptr inbounds i8,i8*%cA,i64 24
%cK=bitcast i8*%cJ to i32*
store i32 -2147483647,i32*%cK,align 4
%cL=call i8*@sml_alloc(i32 inreg 12)#0
%cM=getelementptr inbounds i8,i8*%cL,i64 -4
%cN=bitcast i8*%cM to i32*
store i32 1342177288,i32*%cN,align 4
store i8*%cL,i8**%h,align 8
%cO=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%cP=bitcast i8*%cL to i8**
store i8*%cO,i8**%cP,align 8
%cQ=getelementptr inbounds i8,i8*%cL,i64 8
%cR=bitcast i8*%cQ to i32*
store i32 1,i32*%cR,align 4
%cS=call i8*@sml_alloc(i32 inreg 28)#0
%cT=getelementptr inbounds i8,i8*%cS,i64 -4
%cU=bitcast i8*%cT to i32*
store i32 1342177304,i32*%cU,align 4
%cV=load i8*,i8**%h,align 8
%cW=bitcast i8*%cS to i8**
store i8*%cV,i8**%cW,align 8
%cX=getelementptr inbounds i8,i8*%cS,i64 8
%cY=bitcast i8*%cX to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83mapE_171 to void(...)*),void(...)**%cY,align 8
%cZ=getelementptr inbounds i8,i8*%cS,i64 16
%c0=bitcast i8*%cZ to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83mapE_171 to void(...)*),void(...)**%c0,align 8
%c1=getelementptr inbounds i8,i8*%cS,i64 24
%c2=bitcast i8*%c1 to i32*
store i32 -2147483647,i32*%c2,align 4
%c3=load i8*,i8**%e,align 8
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0),i8*inreg%c3)#0
%c4=load i8*,i8**%f,align 8
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 1),i8*inreg%c4)#0
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 2),i8*inreg%cS)#0
%c5=load i8*,i8**%d,align 8
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 3),i8*inreg%c5)#0
%c6=load i8*,i8**%g,align 8
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 4),i8*inreg%c6)#0
%c7=load i8*,i8**%i,align 8
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 5),i8*inreg%c7)#0
%c8=load i8*,i8**%c,align 8
call void@sml_write(i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8*),i8**inreg getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 6),i8*inreg%c8)#0
call void@sml_end()#0
ret void
c9:
%da=landingpad{i8*,i8*}
cleanup
%db=extractvalue{i8*,i8*}%da,1
call void@sml_save_exn(i8*inreg%db)#0
call void@sml_end()#0
resume{i8*,i8*}%da
}
define internal fastcc i8*@_SMLLN6String10implodeRevE_90(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%c,align 8
store i8*%b,i8**%d,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%g,label%i
g:
%h=bitcast i8*%a to i8**
br label%m
i:
call void@sml_check(i32 inreg%e)
%j=load i8*,i8**%d,align 8
%k=bitcast i8**%c to i8***
%l=load i8**,i8***%k,align 8
br label%m
m:
%n=phi i8**[%l,%i],[%h,%g]
%o=phi i8*[%j,%i],[%b,%g]
store i8*null,i8**%d,align 8
%p=load i8*,i8**%n,align 8
%q=getelementptr inbounds i8,i8*%p,i64 16
%r=bitcast i8*%q to i8*(i8*,i8*)**
%s=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%r,align 8
store i8*null,i8**%c,align 8
%t=bitcast i8**%n to i8***
%u=load i8**,i8***%t,align 8
%v=load i8*,i8**%u,align 8
%w=call fastcc i8*%s(i8*inreg%v,i8*inreg%o)
%x=tail call fastcc i8*@_SMLFN10CharVector8fromListE(i8*inreg%w)
ret i8*%x
}
define internal fastcc i8*@_SMLLN4UTF811getContByteE_98(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%h,label%j
h:
%i=bitcast i8*%b to i32*
br label%o
j:
call void@sml_check(i32 inreg%f)
%k=bitcast i8**%c to i32**
%l=load i32*,i32**%k,align 8
%m=load i8*,i8**%e,align 8
%n=bitcast i32*%l to i8*
br label%o
o:
%p=phi i8*[%n,%j],[%b,%h]
%q=phi i8*[%m,%j],[%a,%h]
%r=phi i32*[%l,%j],[%i,%h]
%s=getelementptr inbounds i8,i8*%q,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,3
%w=sub i32 0,%u
%x=and i32%v,%w
%y=getelementptr inbounds i8,i8*%q,i64 20
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=sub i32 0,%A
%C=and i32%A,%B
%D=add i32%A,3
%E=and i32%D,%B
%F=add i32%A,7
%G=add i32%F,%E
%H=and i32%G,-8
%I=lshr i32%E,3
%J=getelementptr inbounds i8,i8*%q,i64 16
%K=bitcast i8*%J to i32*
%L=load i32,i32*%K,align 4
%M=shl i32%L,%I
%N=or i32%H,4
%O=load i32,i32*%r,align 4
%P=bitcast i8*%q to i8**
%Q=load i8*,i8**%P,align 8
%R=getelementptr inbounds i8,i8*%Q,i64 16
%S=bitcast i8*%R to i8*(i8*,i8*)**
%T=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%S,align 8
%U=bitcast i8*%Q to i8**
%V=load i8*,i8**%U,align 8
store i8*%V,i8**%d,align 8
%W=getelementptr inbounds i8,i8*%q,i64 8
%X=bitcast i8*%W to i32*
%Y=load i32,i32*%X,align 4
%Z=icmp eq i32%Y,0
br i1%Z,label%af,label%aa
aa:
store i8*null,i8**%c,align 8
%ab=sext i32%x to i64
%ac=getelementptr inbounds i8,i8*%p,i64%ab
%ad=bitcast i8*%ac to i8**
%ae=load i8*,i8**%ad,align 8
br label%an
af:
%ag=call i8*@sml_alloc(i32 inreg%u)#0
%ah=getelementptr inbounds i8,i8*%ag,i64 -4
%ai=bitcast i8*%ah to i32*
store i32%u,i32*%ai,align 4
%aj=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%ak=sext i32%x to i64
%al=getelementptr inbounds i8,i8*%aj,i64%ak
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ag,i8*%al,i32%u,i1 false)
%am=load i8*,i8**%d,align 8
br label%an
an:
%ao=phi i8*[%V,%aa],[%am,%af]
%ap=phi i8*[%ae,%aa],[%ag,%af]
store i8*null,i8**%d,align 8
%aq=call fastcc i8*%T(i8*inreg%ao,i8*inreg%ap)
%ar=icmp eq i8*%aq,null
br i1%ar,label%as,label%az
as:
store i8*null,i8**%e,align 8
%at=call i8*@sml_alloc(i32 inreg 60)#0
%au=getelementptr inbounds i8,i8*%at,i64 -4
%av=bitcast i8*%au to i32*
store i32 1342177336,i32*%av,align 4
%aw=getelementptr inbounds i8,i8*%at,i64 56
%ax=bitcast i8*%aw to i32*
store i32 1,i32*%ax,align 4
%ay=bitcast i8*%at to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@f,i64 0,i32 2)to i8*),i8**%ay,align 8
call void@sml_raise(i8*inreg%at)#1
unreachable
az:
%aA=bitcast i8*%aq to i8**
%aB=load i8*,i8**%aA,align 8
store i8*%aB,i8**%c,align 8
%aC=load i8*,i8**%e,align 8
%aD=getelementptr inbounds i8,i8*%aC,i64 16
%aE=bitcast i8*%aD to i32*
%aF=load i32,i32*%aE,align 4
%aG=icmp eq i32%aF,0
br i1%aG,label%aM,label%aH
aH:
%aI=sext i32%C to i64
%aJ=getelementptr inbounds i8,i8*%aB,i64%aI
%aK=bitcast i8*%aJ to i8**
%aL=load i8*,i8**%aK,align 8
br label%aW
aM:
%aN=getelementptr inbounds i8,i8*%aC,i64 20
%aO=bitcast i8*%aN to i32*
%aP=load i32,i32*%aO,align 4
%aQ=call i8*@sml_alloc(i32 inreg%aP)#0
%aR=getelementptr inbounds i8,i8*%aQ,i64 -4
%aS=bitcast i8*%aR to i32*
store i32%aP,i32*%aS,align 4
%aT=load i8*,i8**%c,align 8
%aU=sext i32%C to i64
%aV=getelementptr inbounds i8,i8*%aT,i64%aU
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aQ,i8*%aV,i32%aP,i1 false)
br label%aW
aW:
%aX=phi i8*[%aT,%aM],[%aB,%aH]
%aY=phi i8*[%aQ,%aM],[%aL,%aH]
store i8*%aY,i8**%d,align 8
store i8*null,i8**%c,align 8
%aZ=load i8,i8*%aX,align 1
%a0=zext i8%aZ to i32
%a1=and i32%a0,192
%a2=icmp eq i32%a1,128
br i1%a2,label%a3,label%bu
a3:
%a4=shl i32%O,6
%a5=and i32%a0,63
%a6=or i32%a5,%a4
%a7=load i8*,i8**%e,align 8
%a8=getelementptr inbounds i8,i8*%a7,i64 20
%a9=bitcast i8*%a8 to i32*
%ba=load i32,i32*%a9,align 4
store i8*null,i8**%e,align 8
%bb=getelementptr inbounds i8,i8*%a7,i64 16
%bc=bitcast i8*%bb to i32*
%bd=load i32,i32*%bc,align 4
%be=call i8*@sml_alloc(i32 inreg%N)#0
%bf=or i32%H,1342177280
%bg=bitcast i8*%be to i32*
%bh=getelementptr inbounds i8,i8*%be,i64 -4
%bi=bitcast i8*%bh to i32*
store i32%bf,i32*%bi,align 4
call void@llvm.memset.p0i8.i32(i8*%be,i8 0,i32%N,i1 false)
store i32%a6,i32*%bg,align 4
%bj=icmp eq i32%bd,0
%bk=load i8*,i8**%d,align 8
%bl=sext i32%E to i64
%bm=getelementptr inbounds i8,i8*%be,i64%bl
br i1%bj,label%bp,label%bn
bn:
%bo=bitcast i8*%bm to i8**
store i8*%bk,i8**%bo,align 8
br label%bq
bp:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bm,i8*%bk,i32%ba,i1 false)
br label%bq
bq:
%br=sext i32%H to i64
%bs=getelementptr inbounds i8,i8*%be,i64%br
%bt=bitcast i8*%bs to i32*
store i32%M,i32*%bt,align 4
ret i8*%be
bu:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
%bv=call i8*@sml_alloc(i32 inreg 60)#0
%bw=getelementptr inbounds i8,i8*%bv,i64 -4
%bx=bitcast i8*%bw to i32*
store i32 1342177336,i32*%bx,align 4
%by=getelementptr inbounds i8,i8*%bv,i64 56
%bz=bitcast i8*%by to i32*
store i32 1,i32*%bz,align 4
%bA=bitcast i8*%bv to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@d,i64 0,i32 2)to i8*),i8**%bA,align 8
call void@sml_raise(i8*inreg%bv)#1
unreachable
}
define internal fastcc i8*@_SMLLN4UTF811getContByteE_99(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%b,i8**%c,align 8
%e=bitcast i8*%a to i32*
%f=load i32,i32*%e,align 4
%g=getelementptr inbounds i8,i8*%a,i64 4
%h=bitcast i8*%g to i32*
%i=load i32,i32*%h,align 4
%j=getelementptr inbounds i8,i8*%a,i64 8
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=getelementptr inbounds i8,i8*%a,i64 12
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=call i8*@sml_alloc(i32 inreg 28)#0
%q=getelementptr inbounds i8,i8*%p,i64 -4
%r=bitcast i8*%q to i32*
store i32 1342177304,i32*%r,align 4
store i8*%p,i8**%d,align 8
%s=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%t=bitcast i8*%p to i8**
store i8*%s,i8**%t,align 8
%u=getelementptr inbounds i8,i8*%p,i64 8
%v=bitcast i8*%u to i32*
store i32%f,i32*%v,align 4
%w=getelementptr inbounds i8,i8*%p,i64 12
%x=bitcast i8*%w to i32*
store i32%i,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%p,i64 16
%z=bitcast i8*%y to i32*
store i32%l,i32*%z,align 4
%A=getelementptr inbounds i8,i8*%p,i64 20
%B=bitcast i8*%A to i32*
store i32%o,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%p,i64 24
%D=bitcast i8*%C to i32*
store i32 1,i32*%D,align 4
%E=call i8*@sml_alloc(i32 inreg 28)#0
%F=getelementptr inbounds i8,i8*%E,i64 -4
%G=bitcast i8*%F to i32*
store i32 1342177304,i32*%G,align 4
%H=load i8*,i8**%d,align 8
%I=bitcast i8*%E to i8**
store i8*%H,i8**%I,align 8
%J=getelementptr inbounds i8,i8*%E,i64 8
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF811getContByteE_98 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%E,i64 16
%M=bitcast i8*%L to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF811getContByteE_98 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%E,i64 24
%O=bitcast i8*%N to i32*
store i32 -2147483647,i32*%O,align 4
ret i8*%E
}
define internal fastcc i8*@_SMLLN4UTF811getContByteE_100(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)unnamed_addr#4 gc"smlsharp"{
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%e,i8*null)#0
%f=call i8*@sml_alloc(i32 inreg 20)#0
%g=bitcast i8*%f to i32*
%h=getelementptr inbounds i8,i8*%f,i64 -4
%i=bitcast i8*%h to i32*
store i32 1342177296,i32*%i,align 4
store i8*%f,i8**%e,align 8
store i32%a,i32*%g,align 4
%j=getelementptr inbounds i8,i8*%f,i64 4
%k=bitcast i8*%j to i32*
store i32%b,i32*%k,align 4
%l=getelementptr inbounds i8,i8*%f,i64 8
%m=bitcast i8*%l to i32*
store i32%c,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%f,i64 12
%o=bitcast i8*%n to i32*
store i32%d,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%f,i64 16
%q=bitcast i8*%p to i32*
store i32 0,i32*%q,align 4
%r=call i8*@sml_alloc(i32 inreg 28)#0
%s=getelementptr inbounds i8,i8*%r,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177304,i32*%t,align 4
%u=load i8*,i8**%e,align 8
%v=bitcast i8*%r to i8**
store i8*%u,i8**%v,align 8
%w=getelementptr inbounds i8,i8*%r,i64 8
%x=bitcast i8*%w to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF811getContByteE_99 to void(...)*),void(...)**%x,align 8
%y=getelementptr inbounds i8,i8*%r,i64 16
%z=bitcast i8*%y to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF811getContByteE_99 to void(...)*),void(...)**%z,align 8
%A=getelementptr inbounds i8,i8*%r,i64 24
%B=bitcast i8*%A to i32*
store i32 -2147483647,i32*%B,align 4
ret i8*%r
}
define internal fastcc i8*@_SMLL3get_104(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
o:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%h=load atomic i32,i32*@sml_check_flag unordered,align 4
%i=icmp eq i32%h,0
br i1%i,label%m,label%j
j:
call void@sml_check(i32 inreg%h)
%k=load i8*,i8**%e,align 8
%l=load i8*,i8**%c,align 8
br label%m
m:
%n=phi i8*[%l,%j],[%b,%o]
%p=phi i8*[%k,%j],[%a,%o]
%q=getelementptr inbounds i8,i8*%p,i64 20
%r=bitcast i8*%q to i32*
%s=load i32,i32*%r,align 4
%t=sub i32 0,%s
%u=and i32%s,%t
%v=add i32%s,3
%w=and i32%v,%t
%x=add i32%s,7
%y=add i32%x,%w
%z=and i32%y,-8
%A=lshr i32%w,3
%B=getelementptr inbounds i8,i8*%p,i64 16
%C=bitcast i8*%B to i32*
%D=load i32,i32*%C,align 4
%E=shl i32%D,%A
%F=or i32%z,4
%G=bitcast i8*%p to i8**
%H=load i8*,i8**%G,align 8
%I=getelementptr inbounds i8,i8*%H,i64 16
%J=bitcast i8*%I to i8*(i8*,i8*)**
%K=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%J,align 8
%L=bitcast i8*%H to i8**
%M=load i8*,i8**%L,align 8
store i8*null,i8**%c,align 8
%N=call fastcc i8*%K(i8*inreg%M,i8*inreg%n)
%O=icmp eq i8*%N,null
br i1%O,label%P,label%Q
P:
ret i8*null
Q:
%R=bitcast i8*%N to i8**
%S=load i8*,i8**%R,align 8
store i8*%S,i8**%c,align 8
%T=load i8*,i8**%e,align 8
%U=getelementptr inbounds i8,i8*%T,i64 16
%V=bitcast i8*%U to i32*
%W=load i32,i32*%V,align 4
%X=icmp eq i32%W,0
br i1%X,label%ad,label%Y
Y:
%Z=sext i32%u to i64
%aa=getelementptr inbounds i8,i8*%S,i64%Z
%ab=bitcast i8*%aa to i8**
%ac=load i8*,i8**%ab,align 8
br label%an
ad:
%ae=getelementptr inbounds i8,i8*%T,i64 20
%af=bitcast i8*%ae to i32*
%ag=load i32,i32*%af,align 4
%ah=call i8*@sml_alloc(i32 inreg%ag)#0
%ai=getelementptr inbounds i8,i8*%ah,i64 -4
%aj=bitcast i8*%ai to i32*
store i32%ag,i32*%aj,align 4
%ak=load i8*,i8**%c,align 8
%al=sext i32%u to i64
%am=getelementptr inbounds i8,i8*%ak,i64%al
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ah,i8*%am,i32%ag,i1 false)
br label%an
an:
%ao=phi i8*[%ak,%ad],[%S,%Y]
%ap=phi i8*[%ah,%ad],[%ac,%Y]
store i8*%ap,i8**%d,align 8
%aq=load i8,i8*%ao,align 1
%ar=zext i8%aq to i32
%as=icmp slt i8%aq,0
br i1%as,label%aR,label%at
at:
%au=load i8*,i8**%e,align 8
%av=getelementptr inbounds i8,i8*%au,i64 20
%aw=bitcast i8*%av to i32*
%ax=load i32,i32*%aw,align 4
%ay=getelementptr inbounds i8,i8*%au,i64 16
%az=bitcast i8*%ay to i32*
%aA=load i32,i32*%az,align 4
%aB=call i8*@sml_alloc(i32 inreg%F)#0
%aC=or i32%z,1342177280
%aD=bitcast i8*%aB to i32*
%aE=getelementptr inbounds i8,i8*%aB,i64 -4
%aF=bitcast i8*%aE to i32*
store i32%aC,i32*%aF,align 4
call void@llvm.memset.p0i8.i32(i8*%aB,i8 0,i32%F,i1 false)
store i32%ar,i32*%aD,align 4
%aG=icmp eq i32%aA,0
%aH=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aI=sext i32%w to i64
%aJ=getelementptr inbounds i8,i8*%aB,i64%aI
br i1%aG,label%aM,label%aK
aK:
%aL=bitcast i8*%aJ to i8**
store i8*%aH,i8**%aL,align 8
br label%aN
aM:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aJ,i8*%aH,i32%ax,i1 false)
br label%aN
aN:
%aO=sext i32%z to i64
%aP=getelementptr inbounds i8,i8*%aB,i64%aO
%aQ=bitcast i8*%aP to i32*
store i32%E,i32*%aQ,align 4
br label%cU
aR:
%aS=icmp ugt i8%aq,-33
br i1%aS,label%bs,label%aT
aT:
%aU=load i8*,i8**%e,align 8
%aV=getelementptr inbounds i8,i8*%aU,i64 8
%aW=bitcast i8*%aV to i8**
%aX=load i8*,i8**%aW,align 8
%aY=getelementptr inbounds i8,i8*%aX,i64 16
%aZ=bitcast i8*%aY to i8*(i8*,i8*)**
%a0=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aZ,align 8
%a1=bitcast i8*%aX to i8**
%a2=load i8*,i8**%a1,align 8
store i8*%a2,i8**%c,align 8
%a3=and i32%ar,31
%a4=getelementptr inbounds i8,i8*%aU,i64 20
%a5=bitcast i8*%a4 to i32*
%a6=load i32,i32*%a5,align 4
%a7=getelementptr inbounds i8,i8*%aU,i64 16
%a8=bitcast i8*%a7 to i32*
%a9=load i32,i32*%a8,align 4
%ba=call i8*@sml_alloc(i32 inreg%F)#0
%bb=or i32%z,1342177280
%bc=bitcast i8*%ba to i32*
%bd=getelementptr inbounds i8,i8*%ba,i64 -4
%be=bitcast i8*%bd to i32*
store i32%bb,i32*%be,align 4
call void@llvm.memset.p0i8.i32(i8*%ba,i8 0,i32%F,i1 false)
store i32%a3,i32*%bc,align 4
%bf=icmp eq i32%a9,0
%bg=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bh=sext i32%w to i64
%bi=getelementptr inbounds i8,i8*%ba,i64%bh
br i1%bf,label%bl,label%bj
bj:
%bk=bitcast i8*%bi to i8**
store i8*%bg,i8**%bk,align 8
br label%bm
bl:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bi,i8*%bg,i32%a6,i1 false)
br label%bm
bm:
%bn=sext i32%z to i64
%bo=getelementptr inbounds i8,i8*%ba,i64%bn
%bp=bitcast i8*%bo to i32*
store i32%E,i32*%bp,align 4
%bq=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%br=call fastcc i8*%a0(i8*inreg%bq,i8*inreg%ba)
br label%cU
bs:
%bt=icmp ugt i8%aq,-17
br i1%bt,label%b6,label%bu
bu:
%bv=load i8*,i8**%e,align 8
%bw=getelementptr inbounds i8,i8*%bv,i64 8
%bx=bitcast i8*%bw to i8**
%by=load i8*,i8**%bx,align 8
%bz=getelementptr inbounds i8,i8*%by,i64 16
%bA=bitcast i8*%bz to i8*(i8*,i8*)**
%bB=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bA,align 8
%bC=bitcast i8*%by to i8**
%bD=load i8*,i8**%bC,align 8
store i8*%bD,i8**%f,align 8
%bE=load i8*,i8**%bC,align 8
store i8*%bE,i8**%c,align 8
%bF=and i32%ar,15
%bG=getelementptr inbounds i8,i8*%bv,i64 20
%bH=bitcast i8*%bG to i32*
%bI=load i32,i32*%bH,align 4
%bJ=getelementptr inbounds i8,i8*%bv,i64 16
%bK=bitcast i8*%bJ to i32*
%bL=load i32,i32*%bK,align 4
%bM=call i8*@sml_alloc(i32 inreg%F)#0
%bN=or i32%z,1342177280
%bO=bitcast i8*%bM to i32*
%bP=getelementptr inbounds i8,i8*%bM,i64 -4
%bQ=bitcast i8*%bP to i32*
store i32%bN,i32*%bQ,align 4
call void@llvm.memset.p0i8.i32(i8*%bM,i8 0,i32%F,i1 false)
store i32%bF,i32*%bO,align 4
%bR=icmp eq i32%bL,0
%bS=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bT=sext i32%w to i64
%bU=getelementptr inbounds i8,i8*%bM,i64%bT
br i1%bR,label%bX,label%bV
bV:
%bW=bitcast i8*%bU to i8**
store i8*%bS,i8**%bW,align 8
br label%bY
bX:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bU,i8*%bS,i32%bI,i1 false)
br label%bY
bY:
%bZ=sext i32%z to i64
%b0=getelementptr inbounds i8,i8*%bM,i64%bZ
%b1=bitcast i8*%b0 to i32*
store i32%E,i32*%b1,align 4
%b2=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%b3=call fastcc i8*%bB(i8*inreg%b2,i8*inreg%bM)
%b4=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%b5=call fastcc i8*%bB(i8*inreg%b4,i8*inreg%b3)
br label%cU
b6:
%b7=icmp ugt i8%aq,-9
br i1%b7,label%cN,label%b8
b8:
%b9=load i8*,i8**%e,align 8
%ca=getelementptr inbounds i8,i8*%b9,i64 8
%cb=bitcast i8*%ca to i8**
%cc=load i8*,i8**%cb,align 8
%cd=getelementptr inbounds i8,i8*%cc,i64 16
%ce=bitcast i8*%cd to i8*(i8*,i8*)**
%cf=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%ce,align 8
%cg=bitcast i8*%cc to i8**
%ch=load i8*,i8**%cg,align 8
store i8*%ch,i8**%g,align 8
%ci=load i8*,i8**%cg,align 8
store i8*%ci,i8**%f,align 8
%cj=load i8*,i8**%cg,align 8
store i8*%cj,i8**%c,align 8
%ck=and i32%ar,7
%cl=getelementptr inbounds i8,i8*%b9,i64 20
%cm=bitcast i8*%cl to i32*
%cn=load i32,i32*%cm,align 4
%co=getelementptr inbounds i8,i8*%b9,i64 16
%cp=bitcast i8*%co to i32*
%cq=load i32,i32*%cp,align 4
%cr=call i8*@sml_alloc(i32 inreg%F)#0
%cs=or i32%z,1342177280
%ct=bitcast i8*%cr to i32*
%cu=getelementptr inbounds i8,i8*%cr,i64 -4
%cv=bitcast i8*%cu to i32*
store i32%cs,i32*%cv,align 4
call void@llvm.memset.p0i8.i32(i8*%cr,i8 0,i32%F,i1 false)
store i32%ck,i32*%ct,align 4
%cw=icmp eq i32%cq,0
%cx=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cy=sext i32%w to i64
%cz=getelementptr inbounds i8,i8*%cr,i64%cy
br i1%cw,label%cC,label%cA
cA:
%cB=bitcast i8*%cz to i8**
store i8*%cx,i8**%cB,align 8
br label%cD
cC:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cz,i8*%cx,i32%cn,i1 false)
br label%cD
cD:
%cE=sext i32%z to i64
%cF=getelementptr inbounds i8,i8*%cr,i64%cE
%cG=bitcast i8*%cF to i32*
store i32%E,i32*%cG,align 4
%cH=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%cI=call fastcc i8*%cf(i8*inreg%cH,i8*inreg%cr)
%cJ=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%cK=call fastcc i8*%cf(i8*inreg%cJ,i8*inreg%cI)
%cL=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%cM=call fastcc i8*%cf(i8*inreg%cL,i8*inreg%cK)
br label%cU
cN:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
%cO=call i8*@sml_alloc(i32 inreg 60)#0
%cP=getelementptr inbounds i8,i8*%cO,i64 -4
%cQ=bitcast i8*%cP to i32*
store i32 1342177336,i32*%cQ,align 4
%cR=getelementptr inbounds i8,i8*%cO,i64 56
%cS=bitcast i8*%cR to i32*
store i32 1,i32*%cS,align 4
%cT=bitcast i8*%cO to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@h,i64 0,i32 2)to i8*),i8**%cT,align 8
call void@sml_raise(i8*inreg%cO)#1
unreachable
cU:
%cV=phi i8*[%aB,%aN],[%br,%bm],[%b5,%bY],[%cM,%cD]
store i8*%cV,i8**%c,align 8
%cW=bitcast i8*%cV to i32*
%cX=load i32,i32*%cW,align 4
%cY=load i8*,i8**%e,align 8
%cZ=getelementptr inbounds i8,i8*%cY,i64 16
%c0=bitcast i8*%cZ to i32*
%c1=load i32,i32*%c0,align 4
%c2=icmp eq i32%c1,0
br i1%c2,label%c8,label%c3
c3:
store i8*null,i8**%c,align 8
%c4=sext i32%w to i64
%c5=getelementptr inbounds i8,i8*%cV,i64%c4
%c6=bitcast i8*%c5 to i8**
%c7=load i8*,i8**%c6,align 8
br label%dm
c8:
%c9=getelementptr inbounds i8,i8*%cY,i64 20
%da=bitcast i8*%c9 to i32*
%db=load i32,i32*%da,align 4
%dc=call i8*@sml_alloc(i32 inreg%db)#0
%dd=getelementptr inbounds i8,i8*%dc,i64 -4
%de=bitcast i8*%dd to i32*
store i32%db,i32*%de,align 4
%df=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%dg=sext i32%w to i64
%dh=getelementptr inbounds i8,i8*%df,i64%dg
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dc,i8*%dh,i32%db,i1 false)
%di=load i8*,i8**%e,align 8
%dj=getelementptr inbounds i8,i8*%di,i64 16
%dk=bitcast i8*%dj to i32*
%dl=load i32,i32*%dk,align 4
br label%dm
dm:
%dn=phi i64[%dg,%c8],[%c4,%c3]
%do=phi i32[%dl,%c8],[%c1,%c3]
%dp=phi i8*[%di,%c8],[%cY,%c3]
%dq=phi i8*[%dc,%c8],[%c7,%c3]
store i8*%dq,i8**%c,align 8
%dr=getelementptr inbounds i8,i8*%dp,i64 20
%ds=bitcast i8*%dr to i32*
%dt=load i32,i32*%ds,align 4
store i8*null,i8**%e,align 8
%du=call i8*@sml_alloc(i32 inreg%F)#0
%dv=or i32%z,1342177280
%dw=getelementptr inbounds i8,i8*%du,i64 -4
%dx=bitcast i8*%dw to i32*
store i32%dv,i32*%dx,align 4
store i8*%du,i8**%d,align 8
call void@llvm.memset.p0i8.i32(i8*%du,i8 0,i32%F,i1 false)
%dy=bitcast i8*%du to i32*
store i32%cX,i32*%dy,align 4
%dz=icmp eq i32%do,0
%dA=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%dB=getelementptr inbounds i8,i8*%du,i64%dn
br i1%dz,label%dE,label%dC
dC:
%dD=bitcast i8*%dB to i8**
store i8*%dA,i8**%dD,align 8
br label%dF
dE:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dB,i8*%dA,i32%dt,i1 false)
br label%dF
dF:
%dG=sext i32%z to i64
%dH=getelementptr inbounds i8,i8*%du,i64%dG
%dI=bitcast i8*%dH to i32*
store i32%E,i32*%dI,align 4
%dJ=call i8*@sml_alloc(i32 inreg 12)#0
%dK=getelementptr inbounds i8,i8*%dJ,i64 -4
%dL=bitcast i8*%dK to i32*
store i32 1342177288,i32*%dL,align 4
%dM=load i8*,i8**%d,align 8
%dN=bitcast i8*%dJ to i8**
store i8*%dM,i8**%dN,align 8
%dO=getelementptr inbounds i8,i8*%dJ,i64 8
%dP=bitcast i8*%dO to i32*
store i32 1,i32*%dP,align 4
ret i8*%dJ
}
define internal fastcc i8*@_SMLLN4UTF84getuE_105(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=call fastcc i8*@_SMLLN4UTF811getContByteE_100(i32 inreg%n,i32 inreg%q,i32 inreg%n,i32 inreg%q)
%s=getelementptr inbounds i8,i8*%r,i64 16
%t=bitcast i8*%s to i8*(i8*,i8*)**
%u=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%t,align 8
%v=bitcast i8*%r to i8**
%w=load i8*,i8**%v,align 8
%x=load i8*,i8**%c,align 8
%y=call fastcc i8*%u(i8*inreg%w,i8*inreg%x)
store i8*%y,i8**%d,align 8
%z=load i8*,i8**%e,align 8
%A=bitcast i8*%z to i32*
%B=load i32,i32*%A,align 4
store i8*null,i8**%e,align 8
%C=getelementptr inbounds i8,i8*%z,i64 4
%D=bitcast i8*%C to i32*
%E=load i32,i32*%D,align 4
%F=call i8*@sml_alloc(i32 inreg 28)#0
%G=getelementptr inbounds i8,i8*%F,i64 -4
%H=bitcast i8*%G to i32*
store i32 1342177304,i32*%H,align 4
store i8*%F,i8**%e,align 8
%I=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%J=bitcast i8*%F to i8**
store i8*%I,i8**%J,align 8
%K=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%L=getelementptr inbounds i8,i8*%F,i64 8
%M=bitcast i8*%L to i8**
store i8*%K,i8**%M,align 8
%N=getelementptr inbounds i8,i8*%F,i64 16
%O=bitcast i8*%N to i32*
store i32%B,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%F,i64 20
%Q=bitcast i8*%P to i32*
store i32%E,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%F,i64 24
%S=bitcast i8*%R to i32*
store i32 3,i32*%S,align 4
%T=call i8*@sml_alloc(i32 inreg 28)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32 1342177304,i32*%V,align 4
%W=load i8*,i8**%e,align 8
%X=bitcast i8*%T to i8**
store i8*%W,i8**%X,align 8
%Y=getelementptr inbounds i8,i8*%T,i64 8
%Z=bitcast i8*%Y to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL3get_104 to void(...)*),void(...)**%Z,align 8
%aa=getelementptr inbounds i8,i8*%T,i64 16
%ab=bitcast i8*%aa to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL3get_104 to void(...)*),void(...)**%ab,align 8
%ac=getelementptr inbounds i8,i8*%T,i64 24
%ad=bitcast i8*%ac to i32*
store i32 1,i32*%ad,align 4
ret i8*%T
}
define fastcc i8*@_SMLFN4UTF84getuE(i32 inreg%a,i32 inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84getuE_105 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84getuE_105 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define fastcc i8*@_SMLFN4UTF88toStringE(i32 inreg%a)#2 gc"smlsharp"{
%b=alloca i8*,align 8
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=load atomic i32,i32*@sml_check_flag unordered,align 4
%e=icmp eq i32%d,0
br i1%e,label%g,label%f
f:
call void@sml_check(i32 inreg%d)
br label%g
g:
%h=icmp ugt i32%a,127
br i1%h,label%m,label%i
i:
%j=trunc i32%a to i8
%k=and i8%j,127
%l=tail call fastcc i8*@_SMLFN4Char9toCStringE(i8 inreg%k)
ret i8*%l
m:
%n=icmp ugt i32%a,223
%o=call fastcc i8*@_SMLFN9StringCvt7padLeftE(i8 inreg 48)
%p=getelementptr inbounds i8,i8*%o,i64 16
%q=bitcast i8*%p to i8*(i8*,i8*)**
%r=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%q,align 8
%s=bitcast i8*%o to i8**
%t=load i8*,i8**%s,align 8
store i8*%t,i8**%b,align 8
%u=call i8*@sml_alloc(i32 inreg 4)#0
%v=bitcast i8*%u to i32*
%w=getelementptr inbounds i8,i8*%u,i64 -4
%x=bitcast i8*%w to i32*
store i32 4,i32*%x,align 4
br i1%n,label%T,label%y
y:
store i32 4,i32*%v,align 4
%z=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%A=call fastcc i8*%r(i8*inreg%z,i8*inreg%u)
%B=getelementptr inbounds i8,i8*%A,i64 16
%C=bitcast i8*%B to i8*(i8*,i8*)**
%D=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%C,align 8
%E=bitcast i8*%A to i8**
%F=load i8*,i8**%E,align 8
store i8*%F,i8**%b,align 8
%G=call fastcc i8*@_SMLFN6Word328toStringE(i32 inreg%a)
%H=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%I=call fastcc i8*%D(i8*inreg%H,i8*inreg%G)
store i8*%I,i8**%b,align 8
%J=call i8*@sml_alloc(i32 inreg 20)#0
%K=getelementptr inbounds i8,i8*%J,i64 -4
%L=bitcast i8*%K to i32*
store i32 1342177296,i32*%L,align 4
%M=bitcast i8*%J to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[3x i8]}>,<{[4x i8],i32,[3x i8]}>*@j,i64 0,i32 2,i64 0),i8**%M,align 8
%N=load i8*,i8**%b,align 8
%O=getelementptr inbounds i8,i8*%J,i64 8
%P=bitcast i8*%O to i8**
store i8*%N,i8**%P,align 8
%Q=getelementptr inbounds i8,i8*%J,i64 16
%R=bitcast i8*%Q to i32*
store i32 3,i32*%R,align 4
%S=tail call fastcc i8*@_SMLFN6String1_ZE(i8*inreg%J)
ret i8*%S
T:
store i32 8,i32*%v,align 4
%U=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%V=call fastcc i8*%r(i8*inreg%U,i8*inreg%u)
%W=getelementptr inbounds i8,i8*%V,i64 16
%X=bitcast i8*%W to i8*(i8*,i8*)**
%Y=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%X,align 8
%Z=bitcast i8*%V to i8**
%aa=load i8*,i8**%Z,align 8
store i8*%aa,i8**%b,align 8
%ab=call fastcc i8*@_SMLFN6Word328toStringE(i32 inreg%a)
%ac=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%ad=call fastcc i8*%Y(i8*inreg%ac,i8*inreg%ab)
store i8*%ad,i8**%b,align 8
%ae=call i8*@sml_alloc(i32 inreg 20)#0
%af=getelementptr inbounds i8,i8*%ae,i64 -4
%ag=bitcast i8*%af to i32*
store i32 1342177296,i32*%ag,align 4
%ah=bitcast i8*%ae to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[3x i8]}>,<{[4x i8],i32,[3x i8]}>*@j,i64 0,i32 2,i64 0),i8**%ah,align 8
%ai=load i8*,i8**%b,align 8
%aj=getelementptr inbounds i8,i8*%ae,i64 8
%ak=bitcast i8*%aj to i8**
store i8*%ai,i8**%ak,align 8
%al=getelementptr inbounds i8,i8*%ae,i64 16
%am=bitcast i8*%al to i32*
store i32 3,i32*%am,align 4
%an=tail call fastcc i8*@_SMLFN6String1_ZE(i8*inreg%ae)
ret i8*%an
}
define internal fastcc i8*@_SMLLN4UTF87encode_GE_135(i8*inreg%a)#2 gc"smlsharp"{
%b=alloca i8*,align 8
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=bitcast i8*%a to i32*
%e=load i32,i32*%d,align 4
%f=getelementptr inbounds i8,i8*%a,i64 8
%g=bitcast i8*%f to i8**
%h=load i8*,i8**%g,align 8
store i8*%h,i8**%b,align 8
%i=icmp ugt i32%e,127
br i1%i,label%u,label%j
j:
%k=trunc i32%e to i8
%l=call i8*@sml_alloc(i32 inreg 20)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177296,i32*%n,align 4
%o=getelementptr inbounds i8,i8*%l,i64 1
call void@llvm.memset.p0i8.i32(i8*%o,i8 0,i32 7,i1 false)
store i8%k,i8*%l,align 1
%p=load i8*,i8**%b,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to i8**
store i8*%p,i8**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to i32*
store i32 2,i32*%t,align 4
ret i8*%l
u:
%v=icmp ugt i32%e,2047
br i1%v,label%ap,label%w
w:
%x=lshr i32%e,6
%y=or i32%x,192
%z=icmp ugt i32%y,255
br i1%z,label%X,label%A
A:
%B=trunc i32%y to i8
%C=trunc i32%e to i8
%D=and i8%C,63
%E=or i8%D,-128
%F=call i8*@sml_alloc(i32 inreg 20)#0
%G=getelementptr inbounds i8,i8*%F,i64 -4
%H=bitcast i8*%G to i32*
store i32 1342177296,i32*%H,align 4
store i8*%F,i8**%c,align 8
%I=getelementptr inbounds i8,i8*%F,i64 1
call void@llvm.memset.p0i8.i32(i8*%I,i8 0,i32 7,i1 false)
store i8%E,i8*%F,align 1
%J=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%K=getelementptr inbounds i8,i8*%F,i64 8
%L=bitcast i8*%K to i8**
store i8*%J,i8**%L,align 8
%M=getelementptr inbounds i8,i8*%F,i64 16
%N=bitcast i8*%M to i32*
store i32 2,i32*%N,align 4
%O=call i8*@sml_alloc(i32 inreg 20)#0
%P=getelementptr inbounds i8,i8*%O,i64 -4
%Q=bitcast i8*%P to i32*
store i32 1342177296,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%O,i64 1
call void@llvm.memset.p0i8.i32(i8*%R,i8 0,i32 7,i1 false)
store i8%B,i8*%O,align 1
%S=load i8*,i8**%c,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to i8**
store i8*%S,i8**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to i32*
store i32 2,i32*%W,align 4
ret i8*%O
X:
%Y=load i8*,i8**@_SMLZ3Chr,align 8
store i8*%Y,i8**%b,align 8
%Z=call i8*@sml_alloc(i32 inreg 20)#0
%aa=getelementptr inbounds i8,i8*%Z,i64 -4
%ab=bitcast i8*%aa to i32*
store i32 1342177296,i32*%ab,align 4
store i8*%Z,i8**%c,align 8
%ac=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%ad=bitcast i8*%Z to i8**
store i8*%ac,i8**%ad,align 8
%ae=getelementptr inbounds i8,i8*%Z,i64 8
%af=bitcast i8*%ae to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[39x i8]}>,<{[4x i8],i32,[39x i8]}>*@m,i64 0,i32 2,i64 0),i8**%af,align 8
%ag=getelementptr inbounds i8,i8*%Z,i64 16
%ah=bitcast i8*%ag to i32*
store i32 3,i32*%ah,align 4
%ai=call i8*@sml_alloc(i32 inreg 60)#0
%aj=getelementptr inbounds i8,i8*%ai,i64 -4
%ak=bitcast i8*%aj to i32*
store i32 1342177336,i32*%ak,align 4
%al=getelementptr inbounds i8,i8*%ai,i64 56
%am=bitcast i8*%al to i32*
store i32 1,i32*%am,align 4
%an=load i8*,i8**%c,align 8
%ao=bitcast i8*%ai to i8**
store i8*%an,i8**%ao,align 8
call void@sml_raise(i8*inreg%ai)#1
unreachable
ap:
%aq=icmp ugt i32%e,65535
br i1%aq,label%bn,label%ar
ar:
%as=lshr i32%e,12
%at=or i32%as,224
%au=icmp ugt i32%at,255
br i1%au,label%a5,label%av
av:
%aw=trunc i32%at to i8
%ax=lshr i32%e,6
%ay=trunc i32%ax to i8
%az=and i8%ay,63
%aA=or i8%az,-128
%aB=trunc i32%e to i8
%aC=and i8%aB,63
%aD=or i8%aC,-128
%aE=call i8*@sml_alloc(i32 inreg 20)#0
%aF=getelementptr inbounds i8,i8*%aE,i64 -4
%aG=bitcast i8*%aF to i32*
store i32 1342177296,i32*%aG,align 4
store i8*%aE,i8**%c,align 8
%aH=getelementptr inbounds i8,i8*%aE,i64 1
call void@llvm.memset.p0i8.i32(i8*%aH,i8 0,i32 7,i1 false)
store i8%aD,i8*%aE,align 1
%aI=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%aJ=getelementptr inbounds i8,i8*%aE,i64 8
%aK=bitcast i8*%aJ to i8**
store i8*%aI,i8**%aK,align 8
%aL=getelementptr inbounds i8,i8*%aE,i64 16
%aM=bitcast i8*%aL to i32*
store i32 2,i32*%aM,align 4
%aN=call i8*@sml_alloc(i32 inreg 20)#0
%aO=getelementptr inbounds i8,i8*%aN,i64 -4
%aP=bitcast i8*%aO to i32*
store i32 1342177296,i32*%aP,align 4
store i8*%aN,i8**%b,align 8
%aQ=getelementptr inbounds i8,i8*%aN,i64 1
call void@llvm.memset.p0i8.i32(i8*%aQ,i8 0,i32 7,i1 false)
store i8%aA,i8*%aN,align 1
%aR=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aS=getelementptr inbounds i8,i8*%aN,i64 8
%aT=bitcast i8*%aS to i8**
store i8*%aR,i8**%aT,align 8
%aU=getelementptr inbounds i8,i8*%aN,i64 16
%aV=bitcast i8*%aU to i32*
store i32 2,i32*%aV,align 4
%aW=call i8*@sml_alloc(i32 inreg 20)#0
%aX=getelementptr inbounds i8,i8*%aW,i64 -4
%aY=bitcast i8*%aX to i32*
store i32 1342177296,i32*%aY,align 4
%aZ=getelementptr inbounds i8,i8*%aW,i64 1
call void@llvm.memset.p0i8.i32(i8*%aZ,i8 0,i32 7,i1 false)
store i8%aw,i8*%aW,align 1
%a0=load i8*,i8**%b,align 8
%a1=getelementptr inbounds i8,i8*%aW,i64 8
%a2=bitcast i8*%a1 to i8**
store i8*%a0,i8**%a2,align 8
%a3=getelementptr inbounds i8,i8*%aW,i64 16
%a4=bitcast i8*%a3 to i32*
store i32 2,i32*%a4,align 4
ret i8*%aW
a5:
%a6=load i8*,i8**@_SMLZ3Chr,align 8
store i8*%a6,i8**%b,align 8
%a7=call i8*@sml_alloc(i32 inreg 20)#0
%a8=getelementptr inbounds i8,i8*%a7,i64 -4
%a9=bitcast i8*%a8 to i32*
store i32 1342177296,i32*%a9,align 4
store i8*%a7,i8**%c,align 8
%ba=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%bb=bitcast i8*%a7 to i8**
store i8*%ba,i8**%bb,align 8
%bc=getelementptr inbounds i8,i8*%a7,i64 8
%bd=bitcast i8*%bc to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[39x i8]}>,<{[4x i8],i32,[39x i8]}>*@m,i64 0,i32 2,i64 0),i8**%bd,align 8
%be=getelementptr inbounds i8,i8*%a7,i64 16
%bf=bitcast i8*%be to i32*
store i32 3,i32*%bf,align 4
%bg=call i8*@sml_alloc(i32 inreg 60)#0
%bh=getelementptr inbounds i8,i8*%bg,i64 -4
%bi=bitcast i8*%bh to i32*
store i32 1342177336,i32*%bi,align 4
%bj=getelementptr inbounds i8,i8*%bg,i64 56
%bk=bitcast i8*%bj to i32*
store i32 1,i32*%bk,align 4
%bl=load i8*,i8**%c,align 8
%bm=bitcast i8*%bg to i8**
store i8*%bl,i8**%bm,align 8
call void@sml_raise(i8*inreg%bg)#1
unreachable
bn:
%bo=icmp ugt i32%e,1114111
br i1%bo,label%cy,label%bp
bp:
%bq=lshr i32%e,18
%br=or i32%bq,240
%bs=icmp ugt i32%br,255
br i1%bs,label%cg,label%bt
bt:
%bu=trunc i32%br to i8
%bv=lshr i32%e,12
%bw=trunc i32%bv to i8
%bx=and i8%bw,63
%by=or i8%bx,-128
%bz=lshr i32%e,6
%bA=trunc i32%bz to i8
%bB=and i8%bA,63
%bC=or i8%bB,-128
%bD=trunc i32%e to i8
%bE=and i8%bD,63
%bF=or i8%bE,-128
%bG=call i8*@sml_alloc(i32 inreg 20)#0
%bH=getelementptr inbounds i8,i8*%bG,i64 -4
%bI=bitcast i8*%bH to i32*
store i32 1342177296,i32*%bI,align 4
store i8*%bG,i8**%c,align 8
%bJ=getelementptr inbounds i8,i8*%bG,i64 1
call void@llvm.memset.p0i8.i32(i8*%bJ,i8 0,i32 7,i1 false)
store i8%bF,i8*%bG,align 1
%bK=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%bL=getelementptr inbounds i8,i8*%bG,i64 8
%bM=bitcast i8*%bL to i8**
store i8*%bK,i8**%bM,align 8
%bN=getelementptr inbounds i8,i8*%bG,i64 16
%bO=bitcast i8*%bN to i32*
store i32 2,i32*%bO,align 4
%bP=call i8*@sml_alloc(i32 inreg 20)#0
%bQ=getelementptr inbounds i8,i8*%bP,i64 -4
%bR=bitcast i8*%bQ to i32*
store i32 1342177296,i32*%bR,align 4
store i8*%bP,i8**%b,align 8
%bS=getelementptr inbounds i8,i8*%bP,i64 1
call void@llvm.memset.p0i8.i32(i8*%bS,i8 0,i32 7,i1 false)
store i8%bC,i8*%bP,align 1
%bT=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bU=getelementptr inbounds i8,i8*%bP,i64 8
%bV=bitcast i8*%bU to i8**
store i8*%bT,i8**%bV,align 8
%bW=getelementptr inbounds i8,i8*%bP,i64 16
%bX=bitcast i8*%bW to i32*
store i32 2,i32*%bX,align 4
%bY=call i8*@sml_alloc(i32 inreg 20)#0
%bZ=getelementptr inbounds i8,i8*%bY,i64 -4
%b0=bitcast i8*%bZ to i32*
store i32 1342177296,i32*%b0,align 4
store i8*%bY,i8**%c,align 8
%b1=getelementptr inbounds i8,i8*%bY,i64 1
call void@llvm.memset.p0i8.i32(i8*%b1,i8 0,i32 7,i1 false)
store i8%by,i8*%bY,align 1
%b2=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%b3=getelementptr inbounds i8,i8*%bY,i64 8
%b4=bitcast i8*%b3 to i8**
store i8*%b2,i8**%b4,align 8
%b5=getelementptr inbounds i8,i8*%bY,i64 16
%b6=bitcast i8*%b5 to i32*
store i32 2,i32*%b6,align 4
%b7=call i8*@sml_alloc(i32 inreg 20)#0
%b8=getelementptr inbounds i8,i8*%b7,i64 -4
%b9=bitcast i8*%b8 to i32*
store i32 1342177296,i32*%b9,align 4
%ca=getelementptr inbounds i8,i8*%b7,i64 1
call void@llvm.memset.p0i8.i32(i8*%ca,i8 0,i32 7,i1 false)
store i8%bu,i8*%b7,align 1
%cb=load i8*,i8**%c,align 8
%cc=getelementptr inbounds i8,i8*%b7,i64 8
%cd=bitcast i8*%cc to i8**
store i8*%cb,i8**%cd,align 8
%ce=getelementptr inbounds i8,i8*%b7,i64 16
%cf=bitcast i8*%ce to i32*
store i32 2,i32*%cf,align 4
ret i8*%b7
cg:
%ch=load i8*,i8**@_SMLZ3Chr,align 8
store i8*%ch,i8**%b,align 8
%ci=call i8*@sml_alloc(i32 inreg 20)#0
%cj=getelementptr inbounds i8,i8*%ci,i64 -4
%ck=bitcast i8*%cj to i32*
store i32 1342177296,i32*%ck,align 4
store i8*%ci,i8**%c,align 8
%cl=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%cm=bitcast i8*%ci to i8**
store i8*%cl,i8**%cm,align 8
%cn=getelementptr inbounds i8,i8*%ci,i64 8
%co=bitcast i8*%cn to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[39x i8]}>,<{[4x i8],i32,[39x i8]}>*@m,i64 0,i32 2,i64 0),i8**%co,align 8
%cp=getelementptr inbounds i8,i8*%ci,i64 16
%cq=bitcast i8*%cp to i32*
store i32 3,i32*%cq,align 4
%cr=call i8*@sml_alloc(i32 inreg 60)#0
%cs=getelementptr inbounds i8,i8*%cr,i64 -4
%ct=bitcast i8*%cs to i32*
store i32 1342177336,i32*%ct,align 4
%cu=getelementptr inbounds i8,i8*%cr,i64 56
%cv=bitcast i8*%cu to i32*
store i32 1,i32*%cv,align 4
%cw=load i8*,i8**%c,align 8
%cx=bitcast i8*%cr to i8**
store i8*%cw,i8**%cx,align 8
call void@sml_raise(i8*inreg%cr)#1
unreachable
cy:
%cz=load i8*,i8**@_SMLZ6Domain,align 8
store i8*%cz,i8**%b,align 8
%cA=call i8*@sml_alloc(i32 inreg 20)#0
%cB=getelementptr inbounds i8,i8*%cA,i64 -4
%cC=bitcast i8*%cB to i32*
store i32 1342177296,i32*%cC,align 4
store i8*%cA,i8**%c,align 8
%cD=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%cE=bitcast i8*%cA to i8**
store i8*%cD,i8**%cE,align 8
%cF=getelementptr inbounds i8,i8*%cA,i64 8
%cG=bitcast i8*%cF to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[41x i8]}>,<{[4x i8],i32,[41x i8]}>*@l,i64 0,i32 2,i64 0),i8**%cG,align 8
%cH=getelementptr inbounds i8,i8*%cA,i64 16
%cI=bitcast i8*%cH to i32*
store i32 3,i32*%cI,align 4
%cJ=call i8*@sml_alloc(i32 inreg 60)#0
%cK=getelementptr inbounds i8,i8*%cJ,i64 -4
%cL=bitcast i8*%cK to i32*
store i32 1342177336,i32*%cL,align 4
%cM=getelementptr inbounds i8,i8*%cJ,i64 56
%cN=bitcast i8*%cM to i32*
store i32 1,i32*%cN,align 4
%cO=load i8*,i8**%c,align 8
%cP=bitcast i8*%cJ to i8**
store i8*%cO,i8**%cP,align 8
call void@sml_raise(i8*inreg%cJ)#1
unreachable
}
define internal fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
m:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%k,label%i
i:
call void@sml_check(i32 inreg%g)
%j=load i8*,i8**%c,align 8
br label%k
k:
%l=phi i8*[%j,%i],[%b,%m]
%n=getelementptr inbounds i8,i8*%l,i64 8
%o=bitcast i8*%n to i8**
%p=load i8*,i8**%o,align 8
store i8*%p,i8**%c,align 8
%q=load i8,i8*%l,align 1
%r=zext i8%q to i32
%s=icmp slt i8%q,0
br i1%s,label%F,label%t
t:
store i8*null,i8**%d,align 8
%u=call i8*@sml_alloc(i32 inreg 20)#0
%v=bitcast i8*%u to i32*
%w=getelementptr inbounds i8,i8*%u,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177296,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%u,i64 4
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 1
store i32%r,i32*%v,align 4
%A=load i8*,i8**%c,align 8
%B=getelementptr inbounds i8,i8*%u,i64 8
%C=bitcast i8*%B to i8**
store i8*%A,i8**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 16
%E=bitcast i8*%D to i32*
store i32 2,i32*%E,align 4
br label%bx
F:
%G=icmp ugt i8%q,-33
br i1%G,label%ae,label%H
H:
%I=bitcast i8**%d to i8***
%J=load i8**,i8***%I,align 8
%K=load i8*,i8**%J,align 8
%L=getelementptr inbounds i8,i8*%K,i64 16
%M=bitcast i8*%L to i8*(i8*,i8*)**
%N=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%M,align 8
%O=bitcast i8*%K to i8**
%P=load i8*,i8**%O,align 8
store i8*%P,i8**%d,align 8
%Q=and i32%r,31
%R=call i8*@sml_alloc(i32 inreg 20)#0
%S=bitcast i8*%R to i32*
%T=getelementptr inbounds i8,i8*%R,i64 -4
%U=bitcast i8*%T to i32*
store i32 1342177296,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%R,i64 4
%W=bitcast i8*%V to i32*
store i32 0,i32*%W,align 1
store i32%Q,i32*%S,align 4
%X=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%Y=getelementptr inbounds i8,i8*%R,i64 8
%Z=bitcast i8*%Y to i8**
store i8*%X,i8**%Z,align 8
%aa=getelementptr inbounds i8,i8*%R,i64 16
%ab=bitcast i8*%aa to i32*
store i32 2,i32*%ab,align 4
%ac=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ad=call fastcc i8*%N(i8*inreg%ac,i8*inreg%R)
br label%bx
ae:
%af=icmp ugt i8%q,-17
br i1%af,label%aL,label%ag
ag:
%ah=bitcast i8**%d to i8***
%ai=load i8**,i8***%ah,align 8
%aj=load i8*,i8**%ai,align 8
%ak=getelementptr inbounds i8,i8*%aj,i64 16
%al=bitcast i8*%ak to i8*(i8*,i8*)**
%am=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%al,align 8
%an=bitcast i8*%aj to i8**
%ao=load i8*,i8**%an,align 8
store i8*%ao,i8**%e,align 8
%ap=load i8*,i8**%ai,align 8
%aq=getelementptr inbounds i8,i8*%ap,i64 16
%ar=bitcast i8*%aq to i8*(i8*,i8*)**
%as=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%ar,align 8
%at=bitcast i8*%ap to i8**
%au=load i8*,i8**%at,align 8
store i8*%au,i8**%d,align 8
%av=and i32%r,15
%aw=call i8*@sml_alloc(i32 inreg 20)#0
%ax=bitcast i8*%aw to i32*
%ay=getelementptr inbounds i8,i8*%aw,i64 -4
%az=bitcast i8*%ay to i32*
store i32 1342177296,i32*%az,align 4
%aA=getelementptr inbounds i8,i8*%aw,i64 4
%aB=bitcast i8*%aA to i32*
store i32 0,i32*%aB,align 1
store i32%av,i32*%ax,align 4
%aC=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aD=getelementptr inbounds i8,i8*%aw,i64 8
%aE=bitcast i8*%aD to i8**
store i8*%aC,i8**%aE,align 8
%aF=getelementptr inbounds i8,i8*%aw,i64 16
%aG=bitcast i8*%aF to i32*
store i32 2,i32*%aG,align 4
%aH=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aI=call fastcc i8*%as(i8*inreg%aH,i8*inreg%aw)
%aJ=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%aK=call fastcc i8*%am(i8*inreg%aJ,i8*inreg%aI)
br label%bx
aL:
%aM=icmp ugt i8%q,-9
br i1%aM,label%bq,label%aN
aN:
%aO=bitcast i8**%d to i8***
%aP=load i8**,i8***%aO,align 8
%aQ=load i8*,i8**%aP,align 8
%aR=getelementptr inbounds i8,i8*%aQ,i64 16
%aS=bitcast i8*%aR to i8*(i8*,i8*)**
%aT=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aS,align 8
%aU=bitcast i8*%aQ to i8**
%aV=load i8*,i8**%aU,align 8
store i8*%aV,i8**%f,align 8
%aW=load i8*,i8**%aP,align 8
%aX=getelementptr inbounds i8,i8*%aW,i64 16
%aY=bitcast i8*%aX to i8*(i8*,i8*)**
%aZ=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aY,align 8
%a0=bitcast i8*%aW to i8**
%a1=load i8*,i8**%a0,align 8
store i8*%a1,i8**%e,align 8
%a2=load i8*,i8**%aP,align 8
%a3=getelementptr inbounds i8,i8*%a2,i64 16
%a4=bitcast i8*%a3 to i8*(i8*,i8*)**
%a5=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%a4,align 8
%a6=bitcast i8*%a2 to i8**
%a7=load i8*,i8**%a6,align 8
store i8*%a7,i8**%d,align 8
%a8=and i32%r,7
%a9=call i8*@sml_alloc(i32 inreg 20)#0
%ba=bitcast i8*%a9 to i32*
%bb=getelementptr inbounds i8,i8*%a9,i64 -4
%bc=bitcast i8*%bb to i32*
store i32 1342177296,i32*%bc,align 4
%bd=getelementptr inbounds i8,i8*%a9,i64 4
%be=bitcast i8*%bd to i32*
store i32 0,i32*%be,align 1
store i32%a8,i32*%ba,align 4
%bf=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bg=getelementptr inbounds i8,i8*%a9,i64 8
%bh=bitcast i8*%bg to i8**
store i8*%bf,i8**%bh,align 8
%bi=getelementptr inbounds i8,i8*%a9,i64 16
%bj=bitcast i8*%bi to i32*
store i32 2,i32*%bj,align 4
%bk=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bl=call fastcc i8*%a5(i8*inreg%bk,i8*inreg%a9)
%bm=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bn=call fastcc i8*%aZ(i8*inreg%bm,i8*inreg%bl)
%bo=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bp=call fastcc i8*%aT(i8*inreg%bo,i8*inreg%bn)
br label%bx
bq:
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
%br=call i8*@sml_alloc(i32 inreg 60)#0
%bs=getelementptr inbounds i8,i8*%br,i64 -4
%bt=bitcast i8*%bs to i32*
store i32 1342177336,i32*%bt,align 4
%bu=getelementptr inbounds i8,i8*%br,i64 56
%bv=bitcast i8*%bu to i32*
store i32 1,i32*%bv,align 4
%bw=bitcast i8*%br to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@p,i64 0,i32 2)to i8*),i8**%bw,align 8
call void@sml_raise(i8*inreg%br)#1
unreachable
bx:
%by=phi i8*[%u,%t],[%ad,%H],[%aK,%ag],[%bp,%aN]
%bz=bitcast i8*%by to i32*
%bA=load i32,i32*%bz,align 4
%bB=getelementptr inbounds i8,i8*%by,i64 8
%bC=bitcast i8*%bB to i8**
%bD=load i8*,i8**%bC,align 8
store i8*%bD,i8**%c,align 8
%bE=call i8*@sml_alloc(i32 inreg 20)#0
%bF=bitcast i8*%bE to i32*
%bG=getelementptr inbounds i8,i8*%bE,i64 -4
%bH=bitcast i8*%bG to i32*
store i32 1342177296,i32*%bH,align 4
%bI=getelementptr inbounds i8,i8*%bE,i64 4
%bJ=bitcast i8*%bI to i32*
store i32 0,i32*%bJ,align 1
store i32%bA,i32*%bF,align 4
%bK=load i8*,i8**%c,align 8
%bL=getelementptr inbounds i8,i8*%bE,i64 8
%bM=bitcast i8*%bL to i8**
store i8*%bK,i8**%bM,align 8
%bN=getelementptr inbounds i8,i8*%bE,i64 16
%bO=bitcast i8*%bN to i32*
store i32 2,i32*%bO,align 4
ret i8*%bE
}
define internal fastcc i32@_SMLL3len_140(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
h:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
%e=bitcast i8**%d to i8***
br label%f
f:
%g=phi i8*[%G,%w],[%b,%h]
store i8*%g,i8**%c,align 8
%i=load atomic i32,i32*@sml_check_flag unordered,align 4
%j=icmp eq i32%i,0
br i1%j,label%m,label%k
k:
call void@sml_check(i32 inreg%i)
%l=load i8*,i8**%c,align 8
br label%m
m:
%n=phi i8*[%l,%k],[%g,%f]
store i8*null,i8**%c,align 8
%o=getelementptr inbounds i8,i8*%n,i64 8
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%n to i8**
%s=load i8*,i8**%r,align 8
%t=call fastcc i8*@_SMLFN9Substring4getcE(i8*inreg%s)
%u=icmp eq i8*%t,null
br i1%u,label%v,label%w
v:
ret i32%q
w:
%x=bitcast i8*%t to i8**
%y=load i8*,i8**%x,align 8
%z=load i8**,i8***%e,align 8
%A=load i8*,i8**%z,align 8
%B=call fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%A,i8*inreg%y)
%C=getelementptr inbounds i8,i8*%B,i64 8
%D=bitcast i8*%C to i8**
%E=load i8*,i8**%D,align 8
store i8*%E,i8**%c,align 8
%F=add nsw i32%q,1
%G=call i8*@sml_alloc(i32 inreg 20)#0
%H=getelementptr inbounds i8,i8*%G,i64 -4
%I=bitcast i8*%H to i32*
store i32 1342177296,i32*%I,align 4
%J=getelementptr inbounds i8,i8*%G,i64 12
%K=bitcast i8*%J to i32*
store i32 0,i32*%K,align 1
%L=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%M=bitcast i8*%G to i8**
store i8*%L,i8**%M,align 8
%N=getelementptr inbounds i8,i8*%G,i64 8
%O=bitcast i8*%N to i32*
store i32%F,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%G,i64 16
%Q=bitcast i8*%P to i32*
store i32 1,i32*%Q,align 4
br label%f
}
define internal fastcc i32@_SMLLN4UTF84sizeE_141(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%h,label%j
h:
%i=bitcast i8*%a to i8**
br label%m
j:
call void@sml_check(i32 inreg%f)
%k=bitcast i8**%d to i8***
%l=load i8**,i8***%k,align 8
br label%m
m:
%n=phi i8**[%l,%j],[%i,%h]
%o=load i8*,i8**%n,align 8
store i8*%o,i8**%d,align 8
%p=call i8*@sml_alloc(i32 inreg 12)#0
%q=getelementptr inbounds i8,i8*%p,i64 -4
%r=bitcast i8*%q to i32*
store i32 1342177288,i32*%r,align 4
store i8*%p,i8**%e,align 8
%s=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%t=bitcast i8*%p to i8**
store i8*%s,i8**%t,align 8
%u=getelementptr inbounds i8,i8*%p,i64 8
%v=bitcast i8*%u to i32*
store i32 1,i32*%v,align 4
%w=call i8*@sml_alloc(i32 inreg 28)#0
%x=getelementptr inbounds i8,i8*%w,i64 -4
%y=bitcast i8*%x to i32*
store i32 1342177304,i32*%y,align 4
%z=load i8*,i8**%e,align 8
%A=bitcast i8*%w to i8**
store i8*%z,i8**%A,align 8
%B=getelementptr inbounds i8,i8*%w,i64 8
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLL3len_140 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%w,i64 16
%E=bitcast i8*%D to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL3len_187 to void(...)*),void(...)**%E,align 8
%F=getelementptr inbounds i8,i8*%w,i64 24
%G=bitcast i8*%F to i32*
store i32 -2147483647,i32*%G,align 4
%H=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%I=call fastcc i8*@_SMLFN9Substring4fullE(i8*inreg%H)
store i8*%I,i8**%c,align 8
%J=call i8*@sml_alloc(i32 inreg 20)#0
%K=getelementptr inbounds i8,i8*%J,i64 -4
%L=bitcast i8*%K to i32*
store i32 1342177296,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%J,i64 12
%N=bitcast i8*%M to i32*
store i32 0,i32*%N,align 1
%O=load i8*,i8**%c,align 8
%P=bitcast i8*%J to i8**
store i8*%O,i8**%P,align 8
%Q=getelementptr inbounds i8,i8*%J,i64 8
%R=bitcast i8*%Q to i32*
store i32 0,i32*%R,align 4
%S=getelementptr inbounds i8,i8*%J,i64 16
%T=bitcast i8*%S to i32*
store i32 1,i32*%T,align 4
%U=load i8*,i8**%e,align 8
%V=tail call fastcc i32@_SMLL3len_140(i8*inreg%U,i8*inreg%J)
ret i32%V
}
define internal fastcc i8*@_SMLL4mapf_142(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
j:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
br label%h
h:
%i=phi i8*[%ay,%I],[%b,%j]
store i8*%i,i8**%c,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%c,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
store i8*null,i8**%c,align 8
%q=getelementptr inbounds i8,i8*%p,i64 8
%r=bitcast i8*%q to i8**
%s=load i8*,i8**%r,align 8
store i8*%s,i8**%e,align 8
%t=bitcast i8*%p to i8**
%u=load i8*,i8**%t,align 8
%v=call fastcc i8*@_SMLFN9Substring4getcE(i8*inreg%u)
%w=icmp eq i8*%v,null
br i1%w,label%x,label%I
x:
%y=bitcast i8**%f to i8***
%z=load i8**,i8***%y,align 8
%A=load i8*,i8**%z,align 8
%B=getelementptr inbounds i8,i8*%A,i64 16
%C=bitcast i8*%B to i8*(i8*,i8*)**
%D=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%C,align 8
%E=bitcast i8*%A to i8**
%F=load i8*,i8**%E,align 8
%G=load i8*,i8**%e,align 8
%H=tail call fastcc i8*%D(i8*inreg%F,i8*inreg%G)
ret i8*%H
I:
%J=bitcast i8*%v to i8**
%K=load i8*,i8**%J,align 8
%L=load i8*,i8**%f,align 8
%M=getelementptr inbounds i8,i8*%L,i64 8
%N=bitcast i8*%M to i8**
%O=load i8*,i8**%N,align 8
%P=call fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%O,i8*inreg%K)
%Q=bitcast i8*%P to i32*
%R=load i32,i32*%Q,align 4
%S=getelementptr inbounds i8,i8*%P,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
store i8*%U,i8**%c,align 8
%V=call fastcc i8*@_SMLFN4List9revAppendE(i32 inreg 0,i32 inreg 1)
%W=getelementptr inbounds i8,i8*%V,i64 16
%X=bitcast i8*%W to i8*(i8*,i8*)**
%Y=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%X,align 8
%Z=bitcast i8*%V to i8**
%aa=load i8*,i8**%Z,align 8
store i8*%aa,i8**%g,align 8
%ab=call i8*@sml_alloc(i32 inreg 20)#0
%ac=bitcast i8*%ab to i32*
%ad=getelementptr inbounds i8,i8*%ab,i64 -4
%ae=bitcast i8*%ad to i32*
store i32 1342177296,i32*%ae,align 4
%af=getelementptr inbounds i8,i8*%ab,i64 4
%ag=bitcast i8*%af to i32*
store i32 0,i32*%ag,align 1
store i32%R,i32*%ac,align 4
%ah=getelementptr inbounds i8,i8*%ab,i64 8
%ai=bitcast i8*%ah to i8**
store i8*null,i8**%ai,align 8
%aj=getelementptr inbounds i8,i8*%ab,i64 16
%ak=bitcast i8*%aj to i32*
store i32 2,i32*%ak,align 4
%al=call fastcc i8*@_SMLLN4UTF87encode_GE_135(i8*inreg%ab)
store i8*%al,i8**%d,align 8
%am=call i8*@sml_alloc(i32 inreg 20)#0
%an=getelementptr inbounds i8,i8*%am,i64 -4
%ao=bitcast i8*%an to i32*
store i32 1342177296,i32*%ao,align 4
%ap=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aq=bitcast i8*%am to i8**
store i8*%ap,i8**%aq,align 8
%ar=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%as=getelementptr inbounds i8,i8*%am,i64 8
%at=bitcast i8*%as to i8**
store i8*%ar,i8**%at,align 8
%au=getelementptr inbounds i8,i8*%am,i64 16
%av=bitcast i8*%au to i32*
store i32 3,i32*%av,align 4
%aw=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%ax=call fastcc i8*%Y(i8*inreg%aw,i8*inreg%am)
store i8*%ax,i8**%d,align 8
%ay=call i8*@sml_alloc(i32 inreg 20)#0
%az=getelementptr inbounds i8,i8*%ay,i64 -4
%aA=bitcast i8*%az to i32*
store i32 1342177296,i32*%aA,align 4
%aB=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aC=bitcast i8*%ay to i8**
store i8*%aB,i8**%aC,align 8
%aD=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aE=getelementptr inbounds i8,i8*%ay,i64 8
%aF=bitcast i8*%aE to i8**
store i8*%aD,i8**%aF,align 8
%aG=getelementptr inbounds i8,i8*%ay,i64 16
%aH=bitcast i8*%aG to i32*
store i32 3,i32*%aH,align 4
br label%h
}
define internal fastcc i8*@_SMLLN4UTF83mapE_143(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%i,label%k
i:
%j=bitcast i8*%a to i8**
br label%n
k:
call void@sml_check(i32 inreg%g)
%l=bitcast i8**%d to i8***
%m=load i8**,i8***%l,align 8
br label%n
n:
%o=phi i8**[%m,%k],[%j,%i]
%p=load i8*,i8**%o,align 8
store i8*%p,i8**%e,align 8
%q=getelementptr inbounds i8*,i8**%o,i64 1
%r=load i8*,i8**%q,align 8
store i8*%r,i8**%d,align 8
%s=call i8*@sml_alloc(i32 inreg 20)#0
%t=getelementptr inbounds i8,i8*%s,i64 -4
%u=bitcast i8*%t to i32*
store i32 1342177296,i32*%u,align 4
store i8*%s,i8**%f,align 8
%v=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%w=bitcast i8*%s to i8**
store i8*%v,i8**%w,align 8
%x=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i8**
store i8*%x,i8**%z,align 8
%A=getelementptr inbounds i8,i8*%s,i64 16
%B=bitcast i8*%A to i32*
store i32 3,i32*%B,align 4
%C=call i8*@sml_alloc(i32 inreg 28)#0
%D=getelementptr inbounds i8,i8*%C,i64 -4
%E=bitcast i8*%D to i32*
store i32 1342177304,i32*%E,align 4
%F=load i8*,i8**%f,align 8
%G=bitcast i8*%C to i8**
store i8*%F,i8**%G,align 8
%H=getelementptr inbounds i8,i8*%C,i64 8
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4mapf_142 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%C,i64 16
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4mapf_142 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%C,i64 24
%M=bitcast i8*%L to i32*
store i32 -2147483647,i32*%M,align 4
%N=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%O=call fastcc i8*@_SMLFN9Substring4fullE(i8*inreg%N)
store i8*%O,i8**%c,align 8
%P=call i8*@sml_alloc(i32 inreg 20)#0
%Q=getelementptr inbounds i8,i8*%P,i64 -4
%R=bitcast i8*%Q to i32*
store i32 1342177296,i32*%R,align 4
%S=load i8*,i8**%c,align 8
%T=bitcast i8*%P to i8**
store i8*%S,i8**%T,align 8
%U=getelementptr inbounds i8,i8*%P,i64 8
%V=bitcast i8*%U to i8**
store i8*null,i8**%V,align 8
%W=getelementptr inbounds i8,i8*%P,i64 16
%X=bitcast i8*%W to i32*
store i32 3,i32*%X,align 4
store i8*null,i8**%d,align 8
%Y=call i8*@sml_alloc(i32 inreg 20)#0
%Z=getelementptr inbounds i8,i8*%Y,i64 -4
%aa=bitcast i8*%Z to i32*
store i32 1342177296,i32*%aa,align 4
%ab=load i8*,i8**%c,align 8
%ac=bitcast i8*%Y to i8**
store i8*%ab,i8**%ac,align 8
%ad=load i8*,i8**%d,align 8
%ae=getelementptr inbounds i8,i8*%Y,i64 8
%af=bitcast i8*%ae to i8**
store i8*%ad,i8**%af,align 8
%ag=getelementptr inbounds i8,i8*%Y,i64 16
%ah=bitcast i8*%ag to i32*
store i32 3,i32*%ah,align 4
%ai=load i8*,i8**%f,align 8
%aj=tail call fastcc i8*@_SMLL4mapf_142(i8*inreg%ai,i8*inreg%Y)
ret i8*%aj
}
define internal fastcc i8*@_SMLLN4UTF83mapE_144(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
%f=bitcast i8*%a to i8**
%g=load i8*,i8**%f,align 8
store i8*%g,i8**%c,align 8
%h=getelementptr inbounds i8,i8*%a,i64 8
%i=bitcast i8*%h to i8**
%j=load i8*,i8**%i,align 8
store i8*%j,i8**%d,align 8
%k=call i8*@sml_alloc(i32 inreg 20)#0
%l=getelementptr inbounds i8,i8*%k,i64 -4
%m=bitcast i8*%l to i32*
store i32 1342177296,i32*%m,align 4
store i8*%k,i8**%e,align 8
%n=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%o=bitcast i8*%k to i8**
store i8*%n,i8**%o,align 8
%p=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%q=getelementptr inbounds i8,i8*%k,i64 8
%r=bitcast i8*%q to i8**
store i8*%p,i8**%r,align 8
%s=getelementptr inbounds i8,i8*%k,i64 16
%t=bitcast i8*%s to i32*
store i32 3,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%e,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83mapE_143 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83mapE_143 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define internal fastcc void@_SMLL4appf_145(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
i:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
%f=bitcast i8**%d to i8***
br label%g
g:
%h=phi i8*[%S,%s],[%b,%i]
store i8*%h,i8**%c,align 8
%j=load atomic i32,i32*@sml_check_flag unordered,align 4
%k=icmp eq i32%j,0
br i1%k,label%n,label%l
l:
call void@sml_check(i32 inreg%j)
%m=load i8*,i8**%c,align 8
br label%n
n:
%o=phi i8*[%m,%l],[%h,%g]
store i8*null,i8**%c,align 8
%p=call fastcc i8*@_SMLFN9Substring4getcE(i8*inreg%o)
%q=icmp eq i8*%p,null
br i1%q,label%r,label%s
r:
ret void
s:
%t=bitcast i8*%p to i8**
%u=load i8*,i8**%t,align 8
%v=load i8*,i8**%d,align 8
%w=getelementptr inbounds i8,i8*%v,i64 8
%x=bitcast i8*%w to i8**
%y=load i8*,i8**%x,align 8
%z=call fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%y,i8*inreg%u)
store i8*%z,i8**%c,align 8
%A=load i8**,i8***%f,align 8
%B=load i8*,i8**%A,align 8
%C=getelementptr inbounds i8,i8*%B,i64 16
%D=bitcast i8*%C to i8*(i8*,i8*)**
%E=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%D,align 8
%F=bitcast i8*%B to i8**
%G=load i8*,i8**%F,align 8
store i8*%G,i8**%e,align 8
%H=bitcast i8*%z to i32*
%I=load i32,i32*%H,align 4
%J=call i8*@sml_alloc(i32 inreg 4)#0
%K=bitcast i8*%J to i32*
%L=getelementptr inbounds i8,i8*%J,i64 -4
%M=bitcast i8*%L to i32*
store i32 4,i32*%M,align 4
store i32%I,i32*%K,align 4
%N=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%O=call fastcc i8*%E(i8*inreg%N,i8*inreg%J)
%P=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%Q=getelementptr inbounds i8,i8*%P,i64 8
%R=bitcast i8*%Q to i8**
%S=load i8*,i8**%R,align 8
br label%g
}
define internal fastcc void@_SMLLN4UTF83appE_146(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%i,label%k
i:
%j=bitcast i8*%a to i8**
br label%n
k:
call void@sml_check(i32 inreg%g)
%l=bitcast i8**%d to i8***
%m=load i8**,i8***%l,align 8
br label%n
n:
%o=phi i8**[%m,%k],[%j,%i]
%p=load i8*,i8**%o,align 8
store i8*%p,i8**%e,align 8
%q=getelementptr inbounds i8*,i8**%o,i64 1
%r=load i8*,i8**%q,align 8
store i8*%r,i8**%d,align 8
%s=call i8*@sml_alloc(i32 inreg 20)#0
%t=getelementptr inbounds i8,i8*%s,i64 -4
%u=bitcast i8*%t to i32*
store i32 1342177296,i32*%u,align 4
store i8*%s,i8**%f,align 8
%v=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%w=bitcast i8*%s to i8**
store i8*%v,i8**%w,align 8
%x=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i8**
store i8*%x,i8**%z,align 8
%A=getelementptr inbounds i8,i8*%s,i64 16
%B=bitcast i8*%A to i32*
store i32 3,i32*%B,align 4
%C=call i8*@sml_alloc(i32 inreg 28)#0
%D=getelementptr inbounds i8,i8*%C,i64 -4
%E=bitcast i8*%D to i32*
store i32 1342177304,i32*%E,align 4
%F=load i8*,i8**%f,align 8
%G=bitcast i8*%C to i8**
store i8*%F,i8**%G,align 8
%H=getelementptr inbounds i8,i8*%C,i64 8
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(void(i8*,i8*)*@_SMLL4appf_145 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%C,i64 16
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4appf_189 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%C,i64 24
%M=bitcast i8*%L to i32*
store i32 -2147483647,i32*%M,align 4
%N=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%O=call fastcc i8*@_SMLFN9Substring4fullE(i8*inreg%N)
%P=load i8*,i8**%f,align 8
tail call fastcc void@_SMLL4appf_145(i8*inreg%P,i8*inreg%O)
ret void
}
define internal fastcc i8*@_SMLLN4UTF83appE_147(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%b,i8**%c,align 8
%f=bitcast i8*%a to i8**
%g=load i8*,i8**%f,align 8
store i8*%g,i8**%d,align 8
%h=call i8*@sml_alloc(i32 inreg 20)#0
%i=getelementptr inbounds i8,i8*%h,i64 -4
%j=bitcast i8*%i to i32*
store i32 1342177296,i32*%j,align 4
store i8*%h,i8**%e,align 8
%k=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%l=bitcast i8*%h to i8**
store i8*%k,i8**%l,align 8
%m=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i8**
store i8*%m,i8**%o,align 8
%p=getelementptr inbounds i8,i8*%h,i64 16
%q=bitcast i8*%p to i32*
store i32 3,i32*%q,align 4
%r=call i8*@sml_alloc(i32 inreg 28)#0
%s=getelementptr inbounds i8,i8*%r,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177304,i32*%t,align 4
%u=load i8*,i8**%e,align 8
%v=bitcast i8*%r to i8**
store i8*%u,i8**%v,align 8
%w=getelementptr inbounds i8,i8*%r,i64 8
%x=bitcast i8*%w to void(...)**
store void(...)*bitcast(void(i8*,i8*)*@_SMLLN4UTF83appE_146 to void(...)*),void(...)**%x,align 8
%y=getelementptr inbounds i8,i8*%r,i64 16
%z=bitcast i8*%y to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83appE_190 to void(...)*),void(...)**%z,align 8
%A=getelementptr inbounds i8,i8*%r,i64 24
%B=bitcast i8*%A to i32*
store i32 -2147483647,i32*%B,align 4
ret i8*%r
}
define internal fastcc i8*@_SMLL5foldf_148(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
j:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%e,align 8
%g=bitcast i8**%e to i8***
br label%h
h:
%i=phi i8*[%a8,%bl],[%b,%j]
store i8*%i,i8**%c,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%n,label%m
m:
call void@sml_check(i32 inreg%k)
br label%n
n:
%o=load i8*,i8**%e,align 8
%p=getelementptr inbounds i8,i8*%o,i64 20
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=add i32%r,7
%t=sub i32 0,%r
%u=and i32%s,%t
%v=add i32%r,3
%w=and i32%v,%t
%x=add i32%s,%w
%y=and i32%x,-8
%z=lshr i32%w,3
%A=getelementptr inbounds i8,i8*%o,i64 16
%B=bitcast i8*%A to i32*
%C=load i32,i32*%B,align 4
%D=shl i32%C,%z
%E=or i32%y,4
%F=add i32%s,%u
%G=and i32%F,-8
%H=lshr i32%u,3
%I=shl i32%C,%H
%J=or i32%I,1
%K=or i32%G,4
%L=icmp eq i32%C,0
br i1%L,label%S,label%M
M:
%N=load i8*,i8**%c,align 8
%O=sext i32%u to i64
%P=getelementptr inbounds i8,i8*%N,i64%O
%Q=bitcast i8*%P to i8**
%R=load i8*,i8**%Q,align 8
br label%Z
S:
%T=call i8*@sml_alloc(i32 inreg%r)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32%r,i32*%V,align 4
%W=load i8*,i8**%c,align 8
%X=sext i32%u to i64
%Y=getelementptr inbounds i8,i8*%W,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%T,i8*%Y,i32%r,i1 false)
br label%Z
Z:
%aa=phi i8*[%W,%S],[%N,%M]
%ab=phi i8*[%T,%S],[%R,%M]
%ac=bitcast i8*%aa to i8**
store i8*%ab,i8**%d,align 8
store i8*null,i8**%c,align 8
%ad=load i8*,i8**%ac,align 8
%ae=call fastcc i8*@_SMLFN9Substring4getcE(i8*inreg%ad)
%af=icmp eq i8*%ae,null
br i1%af,label%ag,label%ai
ag:
%ah=load i8*,i8**%d,align 8
ret i8*%ah
ai:
%aj=bitcast i8*%ae to i8**
%ak=load i8*,i8**%aj,align 8
%al=load i8*,i8**%e,align 8
%am=getelementptr inbounds i8,i8*%al,i64 8
%an=bitcast i8*%am to i8**
%ao=load i8*,i8**%an,align 8
%ap=call fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%ao,i8*inreg%ak)
%aq=bitcast i8*%ap to i32*
%ar=load i32,i32*%aq,align 4
%as=getelementptr inbounds i8,i8*%ap,i64 8
%at=bitcast i8*%as to i8**
%au=load i8*,i8**%at,align 8
store i8*%au,i8**%c,align 8
%av=load i8**,i8***%g,align 8
%aw=load i8*,i8**%av,align 8
%ax=getelementptr inbounds i8,i8*%aw,i64 16
%ay=bitcast i8*%ax to i8*(i8*,i8*)**
%az=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%ay,align 8
%aA=bitcast i8*%aw to i8**
%aB=load i8*,i8**%aA,align 8
store i8*%aB,i8**%f,align 8
%aC=bitcast i8**%av to i8*
%aD=getelementptr inbounds i8,i8*%aC,i64 20
%aE=bitcast i8*%aD to i32*
%aF=load i32,i32*%aE,align 4
%aG=getelementptr inbounds i8*,i8**%av,i64 2
%aH=bitcast i8**%aG to i32*
%aI=load i32,i32*%aH,align 4
%aJ=call i8*@sml_alloc(i32 inreg%E)#0
%aK=or i32%y,1342177280
%aL=bitcast i8*%aJ to i32*
%aM=getelementptr inbounds i8,i8*%aJ,i64 -4
%aN=bitcast i8*%aM to i32*
store i32%aK,i32*%aN,align 4
call void@llvm.memset.p0i8.i32(i8*%aJ,i8 0,i32%E,i1 false)
store i32%ar,i32*%aL,align 4
%aO=icmp eq i32%aI,0
%aP=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aQ=sext i32%w to i64
%aR=getelementptr inbounds i8,i8*%aJ,i64%aQ
br i1%aO,label%aU,label%aS
aS:
%aT=bitcast i8*%aR to i8**
store i8*%aP,i8**%aT,align 8
br label%aV
aU:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aR,i8*%aP,i32%aF,i1 false)
br label%aV
aV:
%aW=sext i32%y to i64
%aX=getelementptr inbounds i8,i8*%aJ,i64%aW
%aY=bitcast i8*%aX to i32*
store i32%D,i32*%aY,align 4
%aZ=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%a0=call fastcc i8*%az(i8*inreg%aZ,i8*inreg%aJ)
store i8*%a0,i8**%d,align 8
%a1=load i8*,i8**%e,align 8
%a2=getelementptr inbounds i8,i8*%a1,i64 20
%a3=bitcast i8*%a2 to i32*
%a4=load i32,i32*%a3,align 4
%a5=getelementptr inbounds i8,i8*%a1,i64 16
%a6=bitcast i8*%a5 to i32*
%a7=load i32,i32*%a6,align 4
%a8=call i8*@sml_alloc(i32 inreg%K)#0
%a9=or i32%G,1342177280
%ba=getelementptr inbounds i8,i8*%a8,i64 -4
%bb=bitcast i8*%ba to i32*
store i32%a9,i32*%bb,align 4
call void@llvm.memset.p0i8.i32(i8*%a8,i8 0,i32%K,i1 false)
%bc=load i8*,i8**%c,align 8
%bd=bitcast i8*%a8 to i8**
store i8*%bc,i8**%bd,align 8
%be=icmp eq i32%a7,0
%bf=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bg=sext i32%u to i64
%bh=getelementptr inbounds i8,i8*%a8,i64%bg
br i1%be,label%bk,label%bi
bi:
%bj=bitcast i8*%bh to i8**
store i8*%bf,i8**%bj,align 8
br label%bl
bk:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bh,i8*%bf,i32%a4,i1 false)
br label%bl
bl:
%bm=sext i32%G to i64
%bn=getelementptr inbounds i8,i8*%a8,i64%bm
%bo=bitcast i8*%bn to i32*
store i32%J,i32*%bo,align 4
br label%h
}
define internal fastcc i8*@_SMLLN4UTF84foldE_149(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
n:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%l,label%i
i:
call void@sml_check(i32 inreg%g)
%j=load i8*,i8**%c,align 8
%k=load i8*,i8**%d,align 8
br label%l
l:
%m=phi i8*[%k,%i],[%a,%n]
%o=phi i8*[%j,%i],[%b,%n]
store i8*null,i8**%c,align 8
%p=getelementptr inbounds i8,i8*%m,i64 20
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=add i32%r,7
%t=sub i32 0,%r
%u=and i32%s,%t
%v=add i32%s,%u
%w=and i32%v,-8
%x=lshr i32%u,3
%y=getelementptr inbounds i8,i8*%m,i64 16
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=shl i32%A,%x
%C=or i32%B,1
%D=or i32%w,4
%E=getelementptr inbounds i8,i8*%m,i64 8
%F=bitcast i8*%E to i8**
%G=load i8*,i8**%F,align 8
store i8*%G,i8**%f,align 8
%H=call fastcc i8*@_SMLFN9Substring4fullE(i8*inreg%o)
store i8*%H,i8**%c,align 8
%I=load i8*,i8**%d,align 8
%J=getelementptr inbounds i8,i8*%I,i64 16
%K=bitcast i8*%J to i32*
%L=load i32,i32*%K,align 4
%M=icmp eq i32%L,0
br i1%M,label%Q,label%N
N:
%O=bitcast i8*%I to i8**
%P=load i8*,i8**%O,align 8
br label%ab
Q:
%R=getelementptr inbounds i8,i8*%I,i64 20
%S=bitcast i8*%R to i32*
%T=load i32,i32*%S,align 4
%U=call i8*@sml_alloc(i32 inreg%T)#0
%V=getelementptr inbounds i8,i8*%U,i64 -4
%W=bitcast i8*%V to i32*
store i32%T,i32*%W,align 4
%X=load i8*,i8**%d,align 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%U,i8*%X,i32%T,i1 false)
%Y=getelementptr inbounds i8,i8*%X,i64 16
%Z=bitcast i8*%Y to i32*
%aa=load i32,i32*%Z,align 4
br label%ab
ab:
%ac=phi i32[%aa,%Q],[%L,%N]
%ad=phi i8*[%X,%Q],[%I,%N]
%ae=phi i8*[%U,%Q],[%P,%N]
store i8*%ae,i8**%e,align 8
%af=getelementptr inbounds i8,i8*%ad,i64 20
%ag=bitcast i8*%af to i32*
%ah=load i32,i32*%ag,align 4
store i8*null,i8**%d,align 8
%ai=call i8*@sml_alloc(i32 inreg%D)#0
%aj=or i32%w,1342177280
%ak=getelementptr inbounds i8,i8*%ai,i64 -4
%al=bitcast i8*%ak to i32*
store i32%aj,i32*%al,align 4
call void@llvm.memset.p0i8.i32(i8*%ai,i8 0,i32%D,i1 false)
%am=load i8*,i8**%c,align 8
%an=bitcast i8*%ai to i8**
store i8*%am,i8**%an,align 8
%ao=icmp eq i32%ac,0
%ap=load i8*,i8**%e,align 8
%aq=sext i32%u to i64
%ar=getelementptr inbounds i8,i8*%ai,i64%aq
br i1%ao,label%au,label%as
as:
%at=bitcast i8*%ar to i8**
store i8*%ap,i8**%at,align 8
br label%av
au:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ar,i8*%ap,i32%ah,i1 false)
br label%av
av:
%aw=sext i32%w to i64
%ax=getelementptr inbounds i8,i8*%ai,i64%aw
%ay=bitcast i8*%ax to i32*
store i32%C,i32*%ay,align 4
%az=load i8*,i8**%f,align 8
%aA=tail call fastcc i8*@_SMLL5foldf_148(i8*inreg%az,i8*inreg%ai)
ret i8*%aA
}
define internal fastcc i8*@_SMLLN4UTF84foldE_150(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%b,i8**%c,align 8
%f=getelementptr inbounds i8,i8*%a,i64 8
%g=bitcast i8*%f to i32*
%h=load i32,i32*%g,align 4
%i=or i32%h,2
%j=getelementptr inbounds i8,i8*%a,i64 12
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=bitcast i8*%a to i8**
%n=load i8*,i8**%m,align 8
store i8*%n,i8**%d,align 8
%o=call i8*@sml_alloc(i32 inreg 28)#0
%p=getelementptr inbounds i8,i8*%o,i64 -4
%q=bitcast i8*%p to i32*
store i32 1342177304,i32*%q,align 4
store i8*%o,i8**%e,align 8
%r=icmp eq i32%h,0
%s=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
br i1%r,label%v,label%t
t:
%u=bitcast i8*%o to i8**
store i8*%s,i8**%u,align 8
br label%w
v:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%o,i8*%s,i32%l,i1 false)
br label%w
w:
%x=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%y=getelementptr inbounds i8,i8*%o,i64 8
%z=bitcast i8*%y to i8**
store i8*%x,i8**%z,align 8
%A=getelementptr inbounds i8,i8*%o,i64 16
%B=bitcast i8*%A to i32*
store i32%h,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%o,i64 20
%D=bitcast i8*%C to i32*
store i32%l,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%o,i64 24
%F=bitcast i8*%E to i32*
store i32%i,i32*%F,align 4
%G=call i8*@sml_alloc(i32 inreg 28)#0
%H=getelementptr inbounds i8,i8*%G,i64 -4
%I=bitcast i8*%H to i32*
store i32 1342177304,i32*%I,align 4
%J=load i8*,i8**%e,align 8
%K=bitcast i8*%G to i8**
store i8*%J,i8**%K,align 8
%L=getelementptr inbounds i8,i8*%G,i64 8
%M=bitcast i8*%L to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84foldE_149 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%G,i64 16
%O=bitcast i8*%N to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84foldE_149 to void(...)*),void(...)**%O,align 8
%P=getelementptr inbounds i8,i8*%G,i64 24
%Q=bitcast i8*%P to i32*
store i32 1,i32*%Q,align 4
ret i8*%G
}
define internal fastcc i8*@_SMLLN4UTF84foldE_151(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=bitcast i8*%a to i8**
%h=load i8*,i8**%g,align 8
store i8*%h,i8**%e,align 8
%i=getelementptr inbounds i8,i8*%a,i64 8
%j=bitcast i8*%i to i32*
%k=load i32,i32*%j,align 4
%l=getelementptr inbounds i8,i8*%a,i64 12
%m=bitcast i8*%l to i32*
%n=load i32,i32*%m,align 4
%o=call i8*@sml_alloc(i32 inreg 28)#0
%p=getelementptr inbounds i8,i8*%o,i64 -4
%q=bitcast i8*%p to i32*
store i32 1342177304,i32*%q,align 4
store i8*%o,i8**%f,align 8
%r=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%s=bitcast i8*%o to i8**
store i8*%r,i8**%s,align 8
%t=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%u=getelementptr inbounds i8,i8*%o,i64 8
%v=bitcast i8*%u to i8**
store i8*%t,i8**%v,align 8
%w=getelementptr inbounds i8,i8*%o,i64 16
%x=bitcast i8*%w to i32*
store i32%k,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%o,i64 20
%z=bitcast i8*%y to i32*
store i32%n,i32*%z,align 4
%A=getelementptr inbounds i8,i8*%o,i64 24
%B=bitcast i8*%A to i32*
store i32 3,i32*%B,align 4
%C=call i8*@sml_alloc(i32 inreg 28)#0
%D=getelementptr inbounds i8,i8*%C,i64 -4
%E=bitcast i8*%D to i32*
store i32 1342177304,i32*%E,align 4
%F=load i8*,i8**%f,align 8
%G=bitcast i8*%C to i8**
store i8*%F,i8**%G,align 8
%H=getelementptr inbounds i8,i8*%C,i64 8
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL5foldf_148 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%C,i64 16
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL5foldf_148 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%C,i64 24
%M=bitcast i8*%L to i32*
store i32 1,i32*%M,align 4
%N=load i8*,i8**%d,align 8
%O=getelementptr inbounds i8,i8*%N,i64 8
%P=bitcast i8*%O to i32*
%Q=load i32,i32*%P,align 4
store i8*null,i8**%d,align 8
%R=getelementptr inbounds i8,i8*%N,i64 12
%S=bitcast i8*%R to i32*
%T=load i32,i32*%S,align 4
%U=call i8*@sml_alloc(i32 inreg 20)#0
%V=getelementptr inbounds i8,i8*%U,i64 -4
%W=bitcast i8*%V to i32*
store i32 1342177296,i32*%W,align 4
store i8*%U,i8**%c,align 8
%X=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%Y=bitcast i8*%U to i8**
store i8*%X,i8**%Y,align 8
%Z=getelementptr inbounds i8,i8*%U,i64 8
%aa=bitcast i8*%Z to i32*
store i32%Q,i32*%aa,align 4
%ab=getelementptr inbounds i8,i8*%U,i64 12
%ac=bitcast i8*%ab to i32*
store i32%T,i32*%ac,align 4
%ad=getelementptr inbounds i8,i8*%U,i64 16
%ae=bitcast i8*%ad to i32*
store i32 1,i32*%ae,align 4
%af=call i8*@sml_alloc(i32 inreg 28)#0
%ag=getelementptr inbounds i8,i8*%af,i64 -4
%ah=bitcast i8*%ag to i32*
store i32 1342177304,i32*%ah,align 4
%ai=load i8*,i8**%c,align 8
%aj=bitcast i8*%af to i8**
store i8*%ai,i8**%aj,align 8
%ak=getelementptr inbounds i8,i8*%af,i64 8
%al=bitcast i8*%ak to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84foldE_150 to void(...)*),void(...)**%al,align 8
%am=getelementptr inbounds i8,i8*%af,i64 16
%an=bitcast i8*%am to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84foldE_150 to void(...)*),void(...)**%an,align 8
%ao=getelementptr inbounds i8,i8*%af,i64 24
%ap=bitcast i8*%ao to i32*
store i32 1,i32*%ap,align 4
ret i8*%af
}
define internal fastcc i8*@_SMLLN4UTF84foldE_152(i8*inreg%a,i32 inreg%b,i32 inreg%c)#4 gc"smlsharp"{
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
%f=bitcast i8*%a to i8**
%g=load i8*,i8**%f,align 8
store i8*%g,i8**%d,align 8
%h=call i8*@sml_alloc(i32 inreg 20)#0
%i=getelementptr inbounds i8,i8*%h,i64 -4
%j=bitcast i8*%i to i32*
store i32 1342177296,i32*%j,align 4
store i8*%h,i8**%e,align 8
%k=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%l=bitcast i8*%h to i8**
store i8*%k,i8**%l,align 8
%m=getelementptr inbounds i8,i8*%h,i64 8
%n=bitcast i8*%m to i32*
store i32%b,i32*%n,align 4
%o=getelementptr inbounds i8,i8*%h,i64 12
%p=bitcast i8*%o to i32*
store i32%c,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%h,i64 16
%r=bitcast i8*%q to i32*
store i32 1,i32*%r,align 4
%s=call i8*@sml_alloc(i32 inreg 28)#0
%t=getelementptr inbounds i8,i8*%s,i64 -4
%u=bitcast i8*%t to i32*
store i32 1342177304,i32*%u,align 4
%v=load i8*,i8**%e,align 8
%w=bitcast i8*%s to i8**
store i8*%v,i8**%w,align 8
%x=getelementptr inbounds i8,i8*%s,i64 8
%y=bitcast i8*%x to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84foldE_151 to void(...)*),void(...)**%y,align 8
%z=getelementptr inbounds i8,i8*%s,i64 16
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF84foldE_151 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%s,i64 24
%C=bitcast i8*%B to i32*
store i32 -2147483647,i32*%C,align 4
ret i8*%s
}
define internal fastcc i32@_SMLL4allf_153(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
i:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
%f=bitcast i8**%d to i8***
br label%g
g:
%h=phi i8*[%X,%T],[%b,%i]
store i8*%h,i8**%c,align 8
%j=load atomic i32,i32*@sml_check_flag unordered,align 4
%k=icmp eq i32%j,0
br i1%k,label%n,label%l
l:
call void@sml_check(i32 inreg%j)
%m=load i8*,i8**%c,align 8
br label%n
n:
%o=phi i8*[%m,%l],[%h,%g]
store i8*null,i8**%c,align 8
%p=call fastcc i8*@_SMLFN9Substring4getcE(i8*inreg%o)
%q=icmp eq i8*%p,null
br i1%q,label%r,label%t
r:
%s=phi i32[1,%n],[0,%t]
ret i32%s
t:
%u=bitcast i8*%p to i8**
%v=load i8*,i8**%u,align 8
%w=load i8*,i8**%d,align 8
%x=getelementptr inbounds i8,i8*%w,i64 8
%y=bitcast i8*%x to i8**
%z=load i8*,i8**%y,align 8
%A=call fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%z,i8*inreg%v)
store i8*%A,i8**%c,align 8
%B=load i8**,i8***%f,align 8
%C=load i8*,i8**%B,align 8
%D=getelementptr inbounds i8,i8*%C,i64 16
%E=bitcast i8*%D to i8*(i8*,i8*)**
%F=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%E,align 8
%G=bitcast i8*%C to i8**
%H=load i8*,i8**%G,align 8
store i8*%H,i8**%e,align 8
%I=bitcast i8*%A to i32*
%J=load i32,i32*%I,align 4
%K=call i8*@sml_alloc(i32 inreg 4)#0
%L=bitcast i8*%K to i32*
%M=getelementptr inbounds i8,i8*%K,i64 -4
%N=bitcast i8*%M to i32*
store i32 4,i32*%N,align 4
store i32%J,i32*%L,align 4
%O=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%P=call fastcc i8*%F(i8*inreg%O,i8*inreg%K)
%Q=bitcast i8*%P to i32*
%R=load i32,i32*%Q,align 4
%S=icmp eq i32%R,0
br i1%S,label%r,label%T
T:
%U=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%V=getelementptr inbounds i8,i8*%U,i64 8
%W=bitcast i8*%V to i8**
%X=load i8*,i8**%W,align 8
br label%g
}
define internal fastcc i32@_SMLLN4UTF83allE_154(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%i,label%k
i:
%j=bitcast i8*%a to i8**
br label%n
k:
call void@sml_check(i32 inreg%g)
%l=bitcast i8**%d to i8***
%m=load i8**,i8***%l,align 8
br label%n
n:
%o=phi i8**[%m,%k],[%j,%i]
%p=load i8*,i8**%o,align 8
store i8*%p,i8**%e,align 8
%q=getelementptr inbounds i8*,i8**%o,i64 1
%r=load i8*,i8**%q,align 8
store i8*%r,i8**%d,align 8
%s=call i8*@sml_alloc(i32 inreg 20)#0
%t=getelementptr inbounds i8,i8*%s,i64 -4
%u=bitcast i8*%t to i32*
store i32 1342177296,i32*%u,align 4
store i8*%s,i8**%f,align 8
%v=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%w=bitcast i8*%s to i8**
store i8*%v,i8**%w,align 8
%x=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i8**
store i8*%x,i8**%z,align 8
%A=getelementptr inbounds i8,i8*%s,i64 16
%B=bitcast i8*%A to i32*
store i32 3,i32*%B,align 4
%C=call i8*@sml_alloc(i32 inreg 28)#0
%D=getelementptr inbounds i8,i8*%C,i64 -4
%E=bitcast i8*%D to i32*
store i32 1342177304,i32*%E,align 4
%F=load i8*,i8**%f,align 8
%G=bitcast i8*%C to i8**
store i8*%F,i8**%G,align 8
%H=getelementptr inbounds i8,i8*%C,i64 8
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLL4allf_153 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%C,i64 16
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4allf_192 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%C,i64 24
%M=bitcast i8*%L to i32*
store i32 -2147483647,i32*%M,align 4
%N=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%O=call fastcc i8*@_SMLFN9Substring4fullE(i8*inreg%N)
%P=load i8*,i8**%f,align 8
%Q=tail call fastcc i32@_SMLL4allf_153(i8*inreg%P,i8*inreg%O)
ret i32%Q
}
define internal fastcc i8*@_SMLLN4UTF83allE_155(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%b,i8**%c,align 8
%f=bitcast i8*%a to i8**
%g=load i8*,i8**%f,align 8
store i8*%g,i8**%d,align 8
%h=call i8*@sml_alloc(i32 inreg 20)#0
%i=getelementptr inbounds i8,i8*%h,i64 -4
%j=bitcast i8*%i to i32*
store i32 1342177296,i32*%j,align 4
store i8*%h,i8**%e,align 8
%k=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%l=bitcast i8*%h to i8**
store i8*%k,i8**%l,align 8
%m=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i8**
store i8*%m,i8**%o,align 8
%p=getelementptr inbounds i8,i8*%h,i64 16
%q=bitcast i8*%p to i32*
store i32 3,i32*%q,align 4
%r=call i8*@sml_alloc(i32 inreg 28)#0
%s=getelementptr inbounds i8,i8*%r,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177304,i32*%t,align 4
%u=load i8*,i8**%e,align 8
%v=bitcast i8*%r to i8**
store i8*%u,i8**%v,align 8
%w=getelementptr inbounds i8,i8*%r,i64 8
%x=bitcast i8*%w to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4UTF83allE_154 to void(...)*),void(...)**%x,align 8
%y=getelementptr inbounds i8,i8*%r,i64 16
%z=bitcast i8*%y to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF83allE_193 to void(...)*),void(...)**%z,align 8
%A=getelementptr inbounds i8,i8*%r,i64 24
%B=bitcast i8*%A to i32*
store i32 -2147483647,i32*%B,align 4
ret i8*%r
}
define internal fastcc i32@_SMLL7existsf_156(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
i:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
%f=bitcast i8**%d to i8***
br label%g
g:
%h=phi i8*[%W,%S],[%b,%i]
store i8*%h,i8**%c,align 8
%j=load atomic i32,i32*@sml_check_flag unordered,align 4
%k=icmp eq i32%j,0
br i1%k,label%n,label%l
l:
call void@sml_check(i32 inreg%j)
%m=load i8*,i8**%c,align 8
br label%n
n:
%o=phi i8*[%m,%l],[%h,%g]
store i8*null,i8**%c,align 8
%p=call fastcc i8*@_SMLFN9Substring4getcE(i8*inreg%o)
%q=icmp eq i8*%p,null
br i1%q,label%r,label%s
r:
ret i32 1
s:
%t=bitcast i8*%p to i8**
%u=load i8*,i8**%t,align 8
%v=load i8*,i8**%d,align 8
%w=getelementptr inbounds i8,i8*%v,i64 8
%x=bitcast i8*%w to i8**
%y=load i8*,i8**%x,align 8
%z=call fastcc i8*@_SMLLN4UTF85getWCE_139(i8*inreg%y,i8*inreg%u)
store i8*%z,i8**%c,align 8
%A=load i8**,i8***%f,align 8
%B=load i8*,i8**%A,align 8
%C=getelementptr inbounds i8,i8*%B,i64 16
%D=bitcast i8*%C to i8*(i8*,i8*)**
%E=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%D,align 8
%F=bitcast i8*%B to i8**
%G=load i8*,i8**%F,align 8
store i8*%G,i8**%e,align 8
%H=bitcast i8*%z to i32*
%I=load i32,i32*%H,align 4
%J=call i8*@sml_alloc(i32 inreg 4)#0
%K=bitcast i8*%J to i32*
%L=getelementptr inbounds i8,i8*%J,i64 -4
%M=bitcast i8*%L to i32*
store i32 4,i32*%M,align 4
store i32%I,i32*%K,align 4
%N=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%O=call fastcc i8*%E(i8*inreg%N,i8*inreg%J)
%P=bitcast i8*%O to i32*
%Q=load i32,i32*%P,align 4
%R=icmp eq i32%Q,0
br i1%R,label%S,label%r
S:
%T=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%U=getelementptr inbounds i8,i8*%T,i64 8
%V=bitcast i8*%U to i8**
%W=load i8*,i8**%V,align 8
br label%g
}
define internal fastcc i32@_SMLLN4UTF86existsE_157(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%i,label%k
i:
%j=bitcast i8*%a to i8**
br label%n
k:
call void@sml_check(i32 inreg%g)
%l=bitcast i8**%d to i8***
%m=load i8**,i8***%l,align 8
br label%n
n:
%o=phi i8**[%m,%k],[%j,%i]
%p=load i8*,i8**%o,align 8
store i8*%p,i8**%e,align 8
%q=getelementptr inbounds i8*,i8**%o,i64 1
%r=load i8*,i8**%q,align 8
store i8*%r,i8**%d,align 8
%s=call i8*@sml_alloc(i32 inreg 20)#0
%t=getelementptr inbounds i8,i8*%s,i64 -4
%u=bitcast i8*%t to i32*
store i32 1342177296,i32*%u,align 4
store i8*%s,i8**%f,align 8
%v=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%w=bitcast i8*%s to i8**
store i8*%v,i8**%w,align 8
%x=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i8**
store i8*%x,i8**%z,align 8
%A=getelementptr inbounds i8,i8*%s,i64 16
%B=bitcast i8*%A to i32*
store i32 3,i32*%B,align 4
%C=call i8*@sml_alloc(i32 inreg 28)#0
%D=getelementptr inbounds i8,i8*%C,i64 -4
%E=bitcast i8*%D to i32*
store i32 1342177304,i32*%E,align 4
%F=load i8*,i8**%f,align 8
%G=bitcast i8*%C to i8**
store i8*%F,i8**%G,align 8
%H=getelementptr inbounds i8,i8*%C,i64 8
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLL7existsf_156 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%C,i64 16
%K=bitcast i8*%J to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL7existsf_194 to void(...)*),void(...)**%K,align 8
%L=getelementptr inbounds i8,i8*%C,i64 24
%M=bitcast i8*%L to i32*
store i32 -2147483647,i32*%M,align 4
%N=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%O=call fastcc i8*@_SMLFN9Substring4fullE(i8*inreg%N)
%P=load i8*,i8**%f,align 8
%Q=tail call fastcc i32@_SMLL7existsf_156(i8*inreg%P,i8*inreg%O)
ret i32 1
}
define internal fastcc i8*@_SMLLN4UTF86existsE_158(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%b,i8**%c,align 8
%f=bitcast i8*%a to i8**
%g=load i8*,i8**%f,align 8
store i8*%g,i8**%d,align 8
%h=call i8*@sml_alloc(i32 inreg 20)#0
%i=getelementptr inbounds i8,i8*%h,i64 -4
%j=bitcast i8*%i to i32*
store i32 1342177296,i32*%j,align 4
store i8*%h,i8**%e,align 8
%k=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%l=bitcast i8*%h to i8**
store i8*%k,i8**%l,align 8
%m=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i8**
store i8*%m,i8**%o,align 8
%p=getelementptr inbounds i8,i8*%h,i64 16
%q=bitcast i8*%p to i32*
store i32 3,i32*%q,align 4
%r=call i8*@sml_alloc(i32 inreg 28)#0
%s=getelementptr inbounds i8,i8*%r,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177304,i32*%t,align 4
%u=load i8*,i8**%e,align 8
%v=bitcast i8*%r to i8**
store i8*%u,i8**%v,align 8
%w=getelementptr inbounds i8,i8*%r,i64 8
%x=bitcast i8*%w to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4UTF86existsE_157 to void(...)*),void(...)**%x,align 8
%y=getelementptr inbounds i8,i8*%r,i64 16
%z=bitcast i8*%y to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4UTF86existsE_195 to void(...)*),void(...)**%z,align 8
%A=getelementptr inbounds i8,i8*%r,i64 24
%B=bitcast i8*%A to i32*
store i32 -2147483647,i32*%B,align 4
ret i8*%r
}
define internal fastcc i8*@_SMLLN4UTF83appE_159(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%c,align 8
store i8*%b,i8**%d,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%g,label%i
g:
%h=bitcast i8*%a to i8**
br label%m
i:
call void@sml_check(i32 inreg%e)
%j=load i8*,i8**%d,align 8
%k=bitcast i8**%c to i8***
%l=load i8**,i8***%k,align 8
br label%m
m:
%n=phi i8**[%l,%i],[%h,%g]
%o=phi i8*[%j,%i],[%b,%g]
store i8*null,i8**%d,align 8
store i8*null,i8**%c,align 8
%p=load i8*,i8**%n,align 8
%q=call fastcc i8*@_SMLLN4UTF83appE_147(i8*inreg%p,i8*inreg%o)
ret i8*%q
}
define fastcc i8*@_SMLFN4UTF86encodeE(i32 inreg%a)#2 gc"smlsharp"{
%b=load atomic i32,i32*@sml_check_flag unordered,align 4
%c=icmp eq i32%b,0
br i1%c,label%e,label%d
d:
tail call void@sml_check(i32 inreg%b)
br label%e
e:
%f=tail call i8*@sml_alloc(i32 inreg 20)#0
%g=bitcast i8*%f to i32*
%h=getelementptr inbounds i8,i8*%f,i64 -4
%i=bitcast i8*%h to i32*
store i32 1342177296,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%f,i64 4
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 1
store i32%a,i32*%g,align 4
%l=getelementptr inbounds i8,i8*%f,i64 8
%m=bitcast i8*%l to i8**
store i8*null,i8**%m,align 8
%n=getelementptr inbounds i8,i8*%f,i64 16
%o=bitcast i8*%n to i32*
store i32 2,i32*%o,align 4
%p=tail call fastcc i8*@_SMLLN4UTF87encode_GE_135(i8*inreg%f)
%q=tail call fastcc i8*@_SMLFN10CharVector8fromListE(i8*inreg%p)
ret i8*%q
}
define internal fastcc i8*@_SMLLN4UTF87explodeE_162(i8*inreg%a)#4 gc"smlsharp"{
ret i8*%a
}
define internal fastcc i8*@_SMLLN4UTF87explodeE_164(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%i,label%h
h:
call void@sml_check(i32 inreg%f)
br label%i
i:
%j=call fastcc i8*@_SMLFN4List3revE(i32 inreg 0,i32 inreg 4)
%k=getelementptr inbounds i8,i8*%j,i64 16
%l=bitcast i8*%k to i8*(i8*,i8*)**
%m=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%l,align 8
%n=bitcast i8*%j to i8**
%o=load i8*,i8**%n,align 8
store i8*%o,i8**%e,align 8
%p=bitcast i8**%d to i8***
%q=load i8**,i8***%p,align 8
store i8*null,i8**%d,align 8
%r=load i8*,i8**%q,align 8
%s=call fastcc i8*@_SMLLN4UTF84foldE_152(i8*inreg%r,i32 inreg 1,i32 inreg 8)
%t=getelementptr inbounds i8,i8*%s,i64 16
%u=bitcast i8*%t to i8*(i8*,i8*)**
%v=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%u,align 8
%w=bitcast i8*%s to i8**
%x=load i8*,i8**%w,align 8
%y=call fastcc i8*%v(i8*inreg%x,i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@r,i64 0,i32 2)to i8*))
%z=getelementptr inbounds i8,i8*%y,i64 16
%A=bitcast i8*%z to i8*(i8*,i8*)**
%B=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%A,align 8
%C=bitcast i8*%y to i8**
%D=load i8*,i8**%C,align 8
%E=call fastcc i8*%B(i8*inreg%D,i8*inreg null)
%F=getelementptr inbounds i8,i8*%E,i64 16
%G=bitcast i8*%F to i8*(i8*,i8*)**
%H=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%G,align 8
%I=bitcast i8*%E to i8**
%J=load i8*,i8**%I,align 8
%K=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%L=call fastcc i8*%H(i8*inreg%J,i8*inreg%K)
%M=load i8*,i8**%e,align 8
%N=tail call fastcc i8*%m(i8*inreg%M,i8*inreg%L)
ret i8*%N
}
define fastcc i32@_SMLFN4UTF89fromAsciiE(i8 inreg%a)#4 gc"smlsharp"{
%b=and i8%a,127
%c=zext i8%b to i32
ret i32%c
}
define fastcc i8*@_SMLFN4UTF87implodeE(i8*inreg%a)#2 gc"smlsharp"{
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%f,label%e
e:
call void@sml_check(i32 inreg%c)
br label%f
f:
%g=call fastcc i8*@_SMLFN4List5foldrE(i32 inreg 0,i32 inreg 4,i32 inreg 1,i32 inreg 8)
%h=getelementptr inbounds i8,i8*%g,i64 16
%i=bitcast i8*%h to i8*(i8*,i8*)**
%j=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%i,align 8
%k=bitcast i8*%g to i8**
%l=load i8*,i8**%k,align 8
%m=call fastcc i8*%j(i8*inreg%l,i8*inreg bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@n,i64 0,i32 2)to i8*))
%n=getelementptr inbounds i8,i8*%m,i64 16
%o=bitcast i8*%n to i8*(i8*,i8*)**
%p=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%o,align 8
%q=bitcast i8*%m to i8**
%r=load i8*,i8**%q,align 8
%s=call fastcc i8*%p(i8*inreg%r,i8*inreg null)
%t=getelementptr inbounds i8,i8*%s,i64 16
%u=bitcast i8*%t to i8*(i8*,i8*)**
%v=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%u,align 8
%w=bitcast i8*%s to i8**
%x=load i8*,i8**%w,align 8
%y=load i8*,i8**%b,align 8
store i8*null,i8**%b,align 8
%z=call fastcc i8*%v(i8*inreg%x,i8*inreg%y)
%A=tail call fastcc i8*@_SMLFN10CharVector8fromListE(i8*inreg%z)
ret i8*%A
}
define fastcc i32@_SMLFN4UTF87isAsciiE(i32 inreg%a)#4 gc"smlsharp"{
%b=icmp ult i32%a,128
%c=zext i1%b to i32
ret i32%c
}
define internal fastcc i8*@_SMLLN4UTF83mapE_171(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%c,align 8
store i8*%b,i8**%d,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%g,label%i
g:
%h=bitcast i8*%a to i8**
br label%m
i:
call void@sml_check(i32 inreg%e)
%j=load i8*,i8**%d,align 8
%k=bitcast i8**%c to i8***
%l=load i8**,i8***%k,align 8
br label%m
m:
%n=phi i8**[%l,%i],[%h,%g]
%o=phi i8*[%j,%i],[%b,%g]
store i8*null,i8**%d,align 8
store i8*null,i8**%c,align 8
%p=load i8*,i8**%n,align 8
%q=call fastcc i8*@_SMLLN4UTF83mapE_144(i8*inreg%p,i8*inreg%o)
ret i8*%q
}
define fastcc i8@_SMLFN4UTF87toAsciiE(i32 inreg%a)#4 gc"smlsharp"{
%b=alloca i8*,align 8
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=trunc i32%a to i8
%e=and i8%d,127
ret i8%e
}
define fastcc i32@_SMLFN4UTF84sizeE(i8*inreg%a)local_unnamed_addr#2 gc"smlsharp"{
i:
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%g,label%e
e:
call void@sml_check(i32 inreg%c)
%f=load i8*,i8**%b,align 8
br label%g
g:
%h=phi i8*[%f,%e],[%a,%i]
%j=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 0)to i8***),align 8
%k=load i8*,i8**%j,align 8
%l=tail call fastcc i32@_SMLLN4UTF84sizeE_141(i8*inreg%k,i8*inreg%h)
ret i32%l
}
define fastcc i8*@_SMLFN4UTF87explodeE(i8*inreg%a)local_unnamed_addr#2 gc"smlsharp"{
i:
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%g,label%e
e:
call void@sml_check(i32 inreg%c)
%f=load i8*,i8**%b,align 8
br label%g
g:
%h=phi i8*[%f,%e],[%a,%i]
%j=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 1)to i8***),align 8
%k=load i8*,i8**%j,align 8
%l=tail call fastcc i8*@_SMLLN4UTF87explodeE_164(i8*inreg%k,i8*inreg%h)
ret i8*%l
}
define fastcc i8*@_SMLFN4UTF83mapE(i8*inreg%a)local_unnamed_addr#2 gc"smlsharp"{
i:
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%g,label%e
e:
call void@sml_check(i32 inreg%c)
%f=load i8*,i8**%b,align 8
br label%g
g:
%h=phi i8*[%f,%e],[%a,%i]
%j=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 2)to i8***),align 8
%k=load i8*,i8**%j,align 8
%l=tail call fastcc i8*@_SMLLN4UTF83mapE_171(i8*inreg%k,i8*inreg%h)
ret i8*%l
}
define fastcc i8*@_SMLFN4UTF83appE(i8*inreg%a)local_unnamed_addr#2 gc"smlsharp"{
i:
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%g,label%e
e:
call void@sml_check(i32 inreg%c)
%f=load i8*,i8**%b,align 8
br label%g
g:
%h=phi i8*[%f,%e],[%a,%i]
%j=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 3)to i8***),align 8
%k=load i8*,i8**%j,align 8
%l=tail call fastcc i8*@_SMLLN4UTF83appE_159(i8*inreg%k,i8*inreg%h)
ret i8*%l
}
define fastcc i8*@_SMLFN4UTF84foldE(i32 inreg%a,i32 inreg%b)local_unnamed_addr#2 gc"smlsharp"{
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%f,label%e
e:
tail call void@sml_check(i32 inreg%c)
br label%f
f:
%g=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 4)to i8***),align 8
%h=load i8*,i8**%g,align 8
%i=tail call fastcc i8*@_SMLLN4UTF84foldE_152(i8*inreg%h,i32 inreg%a,i32 inreg%b)
ret i8*%i
}
define fastcc i8*@_SMLFN4UTF83allE(i8*inreg%a)local_unnamed_addr#2 gc"smlsharp"{
i:
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%g,label%e
e:
call void@sml_check(i32 inreg%c)
%f=load i8*,i8**%b,align 8
br label%g
g:
%h=phi i8*[%f,%e],[%a,%i]
%j=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 5)to i8***),align 8
%k=load i8*,i8**%j,align 8
%l=tail call fastcc i8*@_SMLLN4UTF83allE_155(i8*inreg%k,i8*inreg%h)
ret i8*%l
}
define fastcc i8*@_SMLFN4UTF86existsE(i8*inreg%a)local_unnamed_addr#2 gc"smlsharp"{
i:
%b=alloca i8*,align 8
call void@llvm.gcroot(i8**%b,i8*null)#0
store i8*%a,i8**%b,align 8
%c=load atomic i32,i32*@sml_check_flag unordered,align 4
%d=icmp eq i32%c,0
br i1%d,label%g,label%e
e:
call void@sml_check(i32 inreg%c)
%f=load i8*,i8**%b,align 8
br label%g
g:
%h=phi i8*[%f,%e],[%a,%i]
%j=load i8**,i8***bitcast(i8**getelementptr inbounds(<{[4x i8],i32,[7x i8*]}>,<{[4x i8],i32,[7x i8*]}>*@_SML_gvardc75c24a45712161_utf8,i64 0,i32 2,i64 6)to i8***),align 8
%k=load i8*,i8**%j,align 8
%l=tail call fastcc i8*@_SMLLN4UTF86existsE_158(i8*inreg%k,i8*inreg%h)
ret i8*%l
}
define internal fastcc i8*@_SMLLN4UTF84getuE_184(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4UTF84getuE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4UTF88toStringE_185(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=bitcast i8*%b to i32*
%d=load i32,i32*%c,align 4
%e=tail call fastcc i8*@_SMLFN4UTF88toStringE(i32 inreg%d)
ret i8*%e
}
define internal fastcc i8*@_SMLLN4UTF87encode_GE_186(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i8*@_SMLLN4UTF87encode_GE_135(i8*inreg%b)
ret i8*%c
}
define internal fastcc i8*@_SMLL3len_187(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i32@_SMLL3len_140(i8*inreg%a,i8*inreg%b)
%d=tail call i8*@sml_alloc(i32 inreg 4)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 4,i32*%g,align 4
store i32%c,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLLN4UTF84sizeE_188(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4UTF84sizeE_141(i8*inreg%a,i8*inreg%b)
%d=tail call i8*@sml_alloc(i32 inreg 4)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 4,i32*%g,align 4
store i32%c,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLL4appf_189(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
tail call fastcc void@_SMLL4appf_145(i8*inreg%a,i8*inreg%b)
%c=tail call i8*@sml_alloc(i32 inreg 4)#0
%d=bitcast i8*%c to i32*
%e=getelementptr inbounds i8,i8*%c,i64 -4
%f=bitcast i8*%e to i32*
store i32 4,i32*%f,align 4
store i32 0,i32*%d,align 4
ret i8*%c
}
define internal fastcc i8*@_SMLLN4UTF83appE_190(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
tail call fastcc void@_SMLLN4UTF83appE_146(i8*inreg%a,i8*inreg%b)
%c=tail call i8*@sml_alloc(i32 inreg 4)#0
%d=bitcast i8*%c to i32*
%e=getelementptr inbounds i8,i8*%c,i64 -4
%f=bitcast i8*%e to i32*
store i32 4,i32*%f,align 4
store i32 0,i32*%d,align 4
ret i8*%c
}
define internal fastcc i8*@_SMLLN4UTF84foldE_191(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLLN4UTF84foldE_152(i8*inreg%a,i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLL4allf_192(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i32@_SMLL4allf_153(i8*inreg%a,i8*inreg%b)
%d=tail call i8*@sml_alloc(i32 inreg 4)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 4,i32*%g,align 4
store i32%c,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLLN4UTF83allE_193(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4UTF83allE_154(i8*inreg%a,i8*inreg%b)
%d=tail call i8*@sml_alloc(i32 inreg 4)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 4,i32*%g,align 4
store i32%c,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLL7existsf_194(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i32@_SMLL7existsf_156(i8*inreg%a,i8*inreg%b)
%d=tail call i8*@sml_alloc(i32 inreg 4)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 4,i32*%g,align 4
store i32 1,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLLN4UTF86existsE_195(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4UTF86existsE_157(i8*inreg%a,i8*inreg%b)
%d=tail call i8*@sml_alloc(i32 inreg 4)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 4,i32*%g,align 4
store i32 1,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLLN4UTF86encodeE_196(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=bitcast i8*%b to i32*
%d=load i32,i32*%c,align 4
%e=tail call fastcc i8*@_SMLFN4UTF86encodeE(i32 inreg%d)
ret i8*%e
}
define internal fastcc i8*@_SMLLN4UTF87explodeE_197(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
ret i8*%b
}
define internal fastcc i8*@_SMLLN4UTF89fromAsciiE_198(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=load i8,i8*%b,align 1
%d=and i8%c,127
%e=zext i8%d to i32
%f=tail call i8*@sml_alloc(i32 inreg 4)#0
%g=bitcast i8*%f to i32*
%h=getelementptr inbounds i8,i8*%f,i64 -4
%i=bitcast i8*%h to i32*
store i32 4,i32*%i,align 4
store i32%e,i32*%g,align 4
ret i8*%f
}
define internal fastcc i8*@_SMLLN4UTF87implodeE_199(i8*inreg%a,i8*inreg%b)#2 gc"smlsharp"{
%c=tail call fastcc i8*@_SMLFN4UTF87implodeE(i8*inreg%b)
ret i8*%c
}
define internal fastcc i8*@_SMLLN4UTF87isAsciiE_200(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=bitcast i8*%b to i32*
%d=load i32,i32*%c,align 4
%e=icmp ult i32%d,128
%f=zext i1%e to i32
%g=tail call i8*@sml_alloc(i32 inreg 4)#0
%h=bitcast i8*%g to i32*
%i=getelementptr inbounds i8,i8*%g,i64 -4
%j=bitcast i8*%i to i32*
store i32 4,i32*%j,align 4
store i32%f,i32*%h,align 4
ret i8*%g
}
define internal fastcc i8*@_SMLLN4UTF87toAsciiE_201(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=bitcast i8*%b to i32*
%f=load i32,i32*%e,align 4
%g=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%g)
%h=bitcast i8**%d to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%h)
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
%i=trunc i32%f to i8
%j=and i8%i,127
call void@llvm.lifetime.end.p0i8(i64 8,i8*%g)
call void@llvm.lifetime.end.p0i8(i64 8,i8*%h)
%k=call i8*@sml_alloc(i32 inreg 1)#0
%l=getelementptr inbounds i8,i8*%k,i64 -4
%m=bitcast i8*%l to i32*
store i32 1,i32*%m,align 4
store i8%j,i8*%k,align 1
ret i8*%k
}
declare void@llvm.memcpy.p0i8.p0i8.i32(i8*,i8*,i32,i1)#0
declare void@llvm.memset.p0i8.i32(i8*,i8,i32,i1)#0
declare void@llvm.lifetime.start.p0i8(i64,i8*)#0
declare void@llvm.lifetime.end.p0i8(i64,i8*)#0
attributes#0={nounwind}
attributes#1={noreturn}
attributes#2={uwtable}
attributes#3={noreturn nounwind}
attributes#4={nounwind uwtable}
