@sml_check_flag=external local_unnamed_addr global i32
@a=private unnamed_addr constant<{[4x i8],i32,[24x i8]}><{[4x i8]zeroinitializer,i32 -2147483624,[24x i8]c"ListPair.UnequalLengths\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,[24x i8]}>,<{[4x i8],i32,[24x i8]}>*@a,i32 0,i32 0,i32 0),i32 8),i32 0,[4x i8]zeroinitializer,i32 1}>,align 8
@_SMLDL98=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,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32)*@_SMLFN8ListPair3zipE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair3zipE_166 to void(...)*),i32 -2147483647}>,align 8
@d=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32)*@_SMLFN8ListPair5zipEqE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5zipEqE_167 to void(...)*),i32 -2147483647}>,align 8
@e=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32)*@_SMLFN8ListPair5unzipE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5unzipE_168 to void(...)*),i32 -2147483647}>,align 8
@f=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32)*@_SMLFN8ListPair3appE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair3appE_170 to void(...)*),i32 -2147483647}>,align 8
@g=private unnamed_addr constant<{[4x i8],i32,[40x i8]}><{[4x i8]zeroinitializer,i32 -2147483608,[40x i8]c"src/basis/main/ListPair.sml:67.29(1699)\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*}>*@_SMLDL98,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,i32,i32)*@_SMLFN8ListPair5appEqE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5appEqE_172 to void(...)*),i32 -2147483647}>,align 8
@j=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32,i32,i32)*@_SMLFN8ListPair3mapE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair3mapE_173 to void(...)*),i32 -2147483647}>,align 8
@k=private unnamed_addr constant<{[4x i8],i32,[40x i8]}><{[4x i8]zeroinitializer,i32 -2147483608,[40x i8]c"src/basis/main/ListPair.sml:50.31(1287)\00"}>,align 8
@l=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*}>*@_SMLDL98,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]}>*@k,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@m=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32,i32,i32)*@_SMLFN8ListPair5mapEqE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5mapEqE_174 to void(...)*),i32 -2147483647}>,align 8
@n=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32,i32,i32)*@_SMLFN8ListPair5foldlE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5foldlE_175 to void(...)*),i32 -2147483647}>,align 8
@o=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32,i32,i32)*@_SMLFN8ListPair5foldrE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5foldrE_176 to void(...)*),i32 -2147483647}>,align 8
@p=private unnamed_addr constant<{[4x i8],i32,[40x i8]}><{[4x i8]zeroinitializer,i32 -2147483608,[40x i8]c"src/basis/main/ListPair.sml:84.31(2119)\00"}>,align 8
@q=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*}>*@_SMLDL98,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]}>*@p,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@r=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32,i32,i32)*@_SMLFN8ListPair7foldlEqE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_177 to void(...)*),i32 -2147483647}>,align 8
@s=private unnamed_addr constant<{[4x i8],i32,[39x i8]}><{[4x i8]zeroinitializer,i32 -2147483609,[39x i8]c"src/basis/main/ListPair.sml:24.35(552)\00"}>,align 8
@t=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*}>*@_SMLDL98,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[39x i8]}>,<{[4x i8],i32,[39x i8]}>*@s,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@u=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32,i32,i32)*@_SMLFN8ListPair7foldrEqE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_178 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,i32,i32,i32)*@_SMLFN8ListPair3allE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair3allE_180 to void(...)*),i32 -2147483647}>,align 8
@w=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32)*@_SMLFN8ListPair6existsE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair6existsE_182 to void(...)*),i32 -2147483647}>,align 8
@x=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32,i32,i32)*@_SMLFN8ListPair5allEqE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLLN8ListPair5allEqE_184 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN8ListPair14UnequalLengthsE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL98,i64 0,i32 2)to i8*)
@_SMLZN8ListPair3zipE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@c,i64 0,i32 2)to i8*)
@_SMLZN8ListPair5zipEqE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@d,i64 0,i32 2)to i8*)
@_SMLZN8ListPair5unzipE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@e,i64 0,i32 2)to i8*)
@_SMLZN8ListPair3appE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@f,i64 0,i32 2)to i8*)
@_SMLZN8ListPair5appEqE=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*)
@_SMLZN8ListPair3mapE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@j,i64 0,i32 2)to i8*)
@_SMLZN8ListPair5mapEqE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@m,i64 0,i32 2)to i8*)
@_SMLZN8ListPair5foldlE=local_unnamed_addr constant i8*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*)
@_SMLZN8ListPair5foldrE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@o,i64 0,i32 2)to i8*)
@_SMLZN8ListPair7foldlEqE=local_unnamed_addr constant i8*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*)
@_SMLZN8ListPair7foldrEqE=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*)
@_SMLZN8ListPair3allE=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*)
@_SMLZN8ListPair6existsE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@w,i64 0,i32 2)to i8*)
@_SMLZN8ListPair5allEqE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@x,i64 0,i32 2)to i8*)
@_SML_ftab7aa263535439ee1c_ListPair=external global i8
@y=internal unnamed_addr global i1 false
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_gcroot(i8*,void()*,i8*,i8*)local_unnamed_addr#0
declare void@sml_raise(i8*inreg)local_unnamed_addr#1
define private void@_SML_tabb7aa263535439ee1c_ListPair()#2{
unreachable
}
define void@_SML_load7aa263535439ee1c_ListPair(i8*%a)local_unnamed_addr#0{
%b=load i1,i1*@y,align 1
br i1%b,label%c,label%d
c:
ret void
d:
store i1 true,i1*@y,align 1
tail call void@sml_gcroot(i8*%a,void()*@_SML_tabb7aa263535439ee1c_ListPair,i8*@_SML_ftab7aa263535439ee1c_ListPair,i8*null)#0
ret void
}
define void@_SML_main7aa263535439ee1c_ListPair()local_unnamed_addr#3 gc"smlsharp"{
ret void
}
define internal fastcc i8*@_SMLLLN8ListPair3zipE_99(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
ae:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 4
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%o,%l
%q=add i32%p,7
%r=and i32%q,-8
%s=getelementptr inbounds i8,i8*%a,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%u,7
%z=add i32%y,%x
%A=and i32%z,-8
%B=add i32%v,%p
%C=and i32%B,%w
%D=add i32%y,%C
%E=and i32%D,-8
%F=lshr i32%C,3
%G=lshr i32%o,3
%H=sub nsw i32%F,%G
%I=getelementptr inbounds i8,i8*%a,i64 8
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=shl i32%K,%H
%M=bitcast i8*%a to i32*
%N=load i32,i32*%M,align 4
%O=or i32%L,%N
%P=or i32%E,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%o to i64
%W=sext i32%r to i64
%X=sext i32%x to i64
%Y=sext i32%A to i64
%Z=or i32%E,1342177280
%aa=sext i32%C to i64
%ab=sext i32%E to i64
br label%ac
ac:
%ad=phi i8*[%bW,%bJ],[%R,%ae]
%af=phi i8*[%bX,%bJ],[%U,%ae]
%ag=phi i8*[%bM,%bJ],[null,%ae]
store i8*%ad,i8**%c,align 8
store i8*%af,i8**%d,align 8
store i8*%ag,i8**%e,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ad,%ac]
%an=icmp eq i8*%am,null
br i1%an,label%ao,label%ap
ao:
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%bY
ap:
%aq=load i8*,i8**%h,align 8
%ar=bitcast i8*%aq to i32*
%as=load i32,i32*%ar,align 4
%at=icmp eq i32%as,0
br i1%at,label%ay,label%au
au:
%av=getelementptr inbounds i8,i8*%am,i64%V
%aw=bitcast i8*%av to i8**
%ax=load i8*,i8**%aw,align 8
br label%aH
ay:
%az=getelementptr inbounds i8,i8*%aq,i64 4
%aA=bitcast i8*%az to i32*
%aB=load i32,i32*%aA,align 4
%aC=call i8*@sml_alloc(i32 inreg%aB)#0
%aD=getelementptr inbounds i8,i8*%aC,i64 -4
%aE=bitcast i8*%aD to i32*
store i32%aB,i32*%aE,align 4
%aF=load i8*,i8**%c,align 8
%aG=getelementptr inbounds i8,i8*%aF,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aC,i8*%aG,i32%aB,i1 false)
br label%aH
aH:
%aI=phi i8*[%aF,%ay],[%am,%au]
%aJ=phi i8*[%aC,%ay],[%ax,%au]
store i8*%aJ,i8**%f,align 8
%aK=getelementptr inbounds i8,i8*%aI,i64%W
%aL=bitcast i8*%aK to i8**
%aM=load i8*,i8**%aL,align 8
store i8*%aM,i8**%c,align 8
%aN=load i8*,i8**%d,align 8
%aO=icmp eq i8*%aN,null
br i1%aO,label%aP,label%aQ
aP:
store i8*null,i8**%d,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
br label%bY
aQ:
%aR=load i8*,i8**%h,align 8
%aS=getelementptr inbounds i8,i8*%aR,i64 8
%aT=bitcast i8*%aS to i32*
%aU=load i32,i32*%aT,align 4
%aV=icmp eq i32%aU,0
br i1%aV,label%a0,label%aW
aW:
%aX=getelementptr inbounds i8,i8*%aN,i64%X
%aY=bitcast i8*%aX to i8**
%aZ=load i8*,i8**%aY,align 8
br label%bd
a0:
%a1=getelementptr inbounds i8,i8*%aR,i64 12
%a2=bitcast i8*%a1 to i32*
%a3=load i32,i32*%a2,align 4
%a4=call i8*@sml_alloc(i32 inreg%a3)#0
%a5=getelementptr inbounds i8,i8*%a4,i64 -4
%a6=bitcast i8*%a5 to i32*
store i32%a3,i32*%a6,align 4
%a7=load i8*,i8**%d,align 8
%a8=getelementptr inbounds i8,i8*%a7,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a4,i8*%a8,i32%a3,i1 false)
%a9=load i8*,i8**%h,align 8
%ba=getelementptr inbounds i8,i8*%a9,i64 8
%bb=bitcast i8*%ba to i32*
%bc=load i32,i32*%bb,align 4
br label%bd
bd:
%be=phi i32[%bc,%a0],[%aU,%aW]
%bf=phi i8*[%a9,%a0],[%aR,%aW]
%bg=phi i8*[%a7,%a0],[%aN,%aW]
%bh=phi i8*[%a4,%a0],[%aZ,%aW]
store i8*%bh,i8**%g,align 8
store i8*null,i8**%d,align 8
%bi=getelementptr inbounds i8,i8*%bg,i64%Y
%bj=bitcast i8*%bi to i8**
%bk=load i8*,i8**%bj,align 8
store i8*%bk,i8**%i,align 8
%bl=getelementptr inbounds i8,i8*%bf,i64 4
%bm=bitcast i8*%bl to i32*
%bn=load i32,i32*%bm,align 4
%bo=bitcast i8*%bf to i32*
%bp=load i32,i32*%bo,align 4
%bq=getelementptr inbounds i8,i8*%bf,i64 12
%br=bitcast i8*%bq to i32*
%bs=load i32,i32*%br,align 4
%bt=call i8*@sml_alloc(i32 inreg%P)#0
%bu=getelementptr inbounds i8,i8*%bt,i64 -4
%bv=bitcast i8*%bu to i32*
store i32%Z,i32*%bv,align 4
store i8*%bt,i8**%d,align 8
call void@llvm.memset.p0i8.i32(i8*%bt,i8 0,i32%P,i1 false)
%bw=icmp eq i32%bp,0
%bx=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%by=getelementptr inbounds i8,i8*%bt,i64%V
br i1%bw,label%bz,label%bA
bz:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%by,i8*%bx,i32%bn,i1 false)
br label%bC
bA:
%bB=bitcast i8*%by to i8**
store i8*%bx,i8**%bB,align 8
br label%bC
bC:
%bD=icmp eq i32%be,0
%bE=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%bF=getelementptr inbounds i8,i8*%bt,i64%aa
br i1%bD,label%bG,label%bH
bG:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bF,i8*%bE,i32%bs,i1 false)
br label%bJ
bH:
%bI=bitcast i8*%bF to i8**
store i8*%bE,i8**%bI,align 8
br label%bJ
bJ:
%bK=getelementptr inbounds i8,i8*%bt,i64%ab
%bL=bitcast i8*%bK to i32*
store i32%O,i32*%bL,align 4
%bM=call i8*@sml_alloc(i32 inreg 20)#0
%bN=getelementptr inbounds i8,i8*%bM,i64 -4
%bO=bitcast i8*%bN to i32*
store i32 1342177296,i32*%bO,align 4
%bP=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bQ=bitcast i8*%bM to i8**
store i8*%bP,i8**%bQ,align 8
%bR=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bS=getelementptr inbounds i8,i8*%bM,i64 8
%bT=bitcast i8*%bS to i8**
store i8*%bR,i8**%bT,align 8
%bU=getelementptr inbounds i8,i8*%bM,i64 16
%bV=bitcast i8*%bU to i32*
store i32 3,i32*%bV,align 4
%bW=load i8*,i8**%c,align 8
%bX=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%ac
bY:
store i8*null,i8**%h,align 8
%bZ=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%bZ,i8**%c,align 8
br label%b0
b0:
%b1=phi i8*[%cg,%ca],[null,%bY]
store i8*%b1,i8**%d,align 8
%b2=load atomic i32,i32*@sml_check_flag unordered,align 4
%b3=icmp eq i32%b2,0
br i1%b3,label%b5,label%b4
b4:
call void@sml_check(i32 inreg%b2)
br label%b5
b5:
%b6=load i8*,i8**%c,align 8
%b7=icmp eq i8*%b6,null
br i1%b7,label%b8,label%ca
b8:
%b9=load i8*,i8**%d,align 8
ret i8*%b9
ca:
%cb=bitcast i8*%b6 to i8**
%cc=load i8*,i8**%cb,align 8
store i8*%cc,i8**%e,align 8
%cd=getelementptr inbounds i8,i8*%b6,i64 8
%ce=bitcast i8*%cd to i8**
%cf=load i8*,i8**%ce,align 8
store i8*%cf,i8**%c,align 8
%cg=call i8*@sml_alloc(i32 inreg 20)#0
%ch=getelementptr inbounds i8,i8*%cg,i64 -4
%ci=bitcast i8*%ch to i32*
store i32 1342177296,i32*%ci,align 4
%cj=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%ck=bitcast i8*%cg to i8**
store i8*%cj,i8**%ck,align 8
%cl=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cm=getelementptr inbounds i8,i8*%cg,i64 8
%cn=bitcast i8*%cm to i8**
store i8*%cl,i8**%cn,align 8
%co=getelementptr inbounds i8,i8*%cg,i64 16
%cp=bitcast i8*%co to i32*
store i32 3,i32*%cp,align 4
br label%b0
}
define fastcc i8*@_SMLFN8ListPair3zipE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair3zipE_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*)*@_SMLLLN8ListPair3zipE_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*@_SMLLLN8ListPair5zipEqE_104(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
ae:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 4
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%o,%l
%q=add i32%p,7
%r=and i32%q,-8
%s=getelementptr inbounds i8,i8*%a,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%u,7
%z=add i32%y,%x
%A=and i32%z,-8
%B=add i32%v,%p
%C=and i32%B,%w
%D=add i32%y,%C
%E=and i32%D,-8
%F=lshr i32%C,3
%G=lshr i32%o,3
%H=sub nsw i32%F,%G
%I=getelementptr inbounds i8,i8*%a,i64 8
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=shl i32%K,%H
%M=bitcast i8*%a to i32*
%N=load i32,i32*%M,align 4
%O=or i32%L,%N
%P=or i32%E,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%o to i64
%W=sext i32%r to i64
%X=sext i32%x to i64
%Y=sext i32%A to i64
%Z=or i32%E,1342177280
%aa=sext i32%C to i64
%ab=sext i32%E to i64
br label%ac
ac:
%ad=phi i8*[%b1,%bO],[%R,%ae]
%af=phi i8*[%b2,%bO],[%U,%ae]
%ag=phi i8*[%bR,%bO],[null,%ae]
store i8*%ad,i8**%c,align 8
store i8*%af,i8**%d,align 8
store i8*%ag,i8**%e,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ad,%ac]
%an=icmp eq i8*%am,null
br i1%an,label%ao,label%au
ao:
store i8*null,i8**%c,align 8
store i8*null,i8**%h,align 8
%ap=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aq=icmp eq i8*%ap,null
br i1%aq,label%ar,label%at
ar:
%as=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%as,i8**%c,align 8
br label%ca
at:
store i8*null,i8**%e,align 8
br label%b3
au:
%av=load i8*,i8**%h,align 8
%aw=bitcast i8*%av to i32*
%ax=load i32,i32*%aw,align 4
%ay=icmp eq i32%ax,0
br i1%ay,label%aD,label%az
az:
%aA=getelementptr inbounds i8,i8*%am,i64%V
%aB=bitcast i8*%aA to i8**
%aC=load i8*,i8**%aB,align 8
br label%aM
aD:
%aE=getelementptr inbounds i8,i8*%av,i64 4
%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=getelementptr inbounds i8,i8*%aK,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aH,i8*%aL,i32%aG,i1 false)
br label%aM
aM:
%aN=phi i8*[%aK,%aD],[%am,%az]
%aO=phi i8*[%aH,%aD],[%aC,%az]
store i8*%aO,i8**%f,align 8
%aP=getelementptr inbounds i8,i8*%aN,i64%W
%aQ=bitcast i8*%aP to i8**
%aR=load i8*,i8**%aQ,align 8
store i8*%aR,i8**%c,align 8
%aS=load i8*,i8**%d,align 8
%aT=icmp eq i8*%aS,null
br i1%aT,label%aU,label%aV
aU:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%h,align 8
br label%b3
aV:
%aW=load i8*,i8**%h,align 8
%aX=getelementptr inbounds i8,i8*%aW,i64 8
%aY=bitcast i8*%aX to i32*
%aZ=load i32,i32*%aY,align 4
%a0=icmp eq i32%aZ,0
br i1%a0,label%a5,label%a1
a1:
%a2=getelementptr inbounds i8,i8*%aS,i64%X
%a3=bitcast i8*%a2 to i8**
%a4=load i8*,i8**%a3,align 8
br label%bi
a5:
%a6=getelementptr inbounds i8,i8*%aW,i64 12
%a7=bitcast i8*%a6 to i32*
%a8=load i32,i32*%a7,align 4
%a9=call i8*@sml_alloc(i32 inreg%a8)#0
%ba=getelementptr inbounds i8,i8*%a9,i64 -4
%bb=bitcast i8*%ba to i32*
store i32%a8,i32*%bb,align 4
%bc=load i8*,i8**%d,align 8
%bd=getelementptr inbounds i8,i8*%bc,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a9,i8*%bd,i32%a8,i1 false)
%be=load i8*,i8**%h,align 8
%bf=getelementptr inbounds i8,i8*%be,i64 8
%bg=bitcast i8*%bf to i32*
%bh=load i32,i32*%bg,align 4
br label%bi
bi:
%bj=phi i32[%bh,%a5],[%aZ,%a1]
%bk=phi i8*[%be,%a5],[%aW,%a1]
%bl=phi i8*[%bc,%a5],[%aS,%a1]
%bm=phi i8*[%a9,%a5],[%a4,%a1]
store i8*%bm,i8**%g,align 8
store i8*null,i8**%d,align 8
%bn=getelementptr inbounds i8,i8*%bl,i64%Y
%bo=bitcast i8*%bn to i8**
%bp=load i8*,i8**%bo,align 8
store i8*%bp,i8**%i,align 8
%bq=getelementptr inbounds i8,i8*%bk,i64 4
%br=bitcast i8*%bq to i32*
%bs=load i32,i32*%br,align 4
%bt=bitcast i8*%bk to i32*
%bu=load i32,i32*%bt,align 4
%bv=getelementptr inbounds i8,i8*%bk,i64 12
%bw=bitcast i8*%bv to i32*
%bx=load i32,i32*%bw,align 4
%by=call i8*@sml_alloc(i32 inreg%P)#0
%bz=getelementptr inbounds i8,i8*%by,i64 -4
%bA=bitcast i8*%bz to i32*
store i32%Z,i32*%bA,align 4
store i8*%by,i8**%d,align 8
call void@llvm.memset.p0i8.i32(i8*%by,i8 0,i32%P,i1 false)
%bB=icmp eq i32%bu,0
%bC=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bD=getelementptr inbounds i8,i8*%by,i64%V
br i1%bB,label%bE,label%bF
bE:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bD,i8*%bC,i32%bs,i1 false)
br label%bH
bF:
%bG=bitcast i8*%bD to i8**
store i8*%bC,i8**%bG,align 8
br label%bH
bH:
%bI=icmp eq i32%bj,0
%bJ=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%bK=getelementptr inbounds i8,i8*%by,i64%aa
br i1%bI,label%bL,label%bM
bL:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bK,i8*%bJ,i32%bx,i1 false)
br label%bO
bM:
%bN=bitcast i8*%bK to i8**
store i8*%bJ,i8**%bN,align 8
br label%bO
bO:
%bP=getelementptr inbounds i8,i8*%by,i64%ab
%bQ=bitcast i8*%bP to i32*
store i32%O,i32*%bQ,align 4
%bR=call i8*@sml_alloc(i32 inreg 20)#0
%bS=getelementptr inbounds i8,i8*%bR,i64 -4
%bT=bitcast i8*%bS to i32*
store i32 1342177296,i32*%bT,align 4
%bU=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bV=bitcast i8*%bR to i8**
store i8*%bU,i8**%bV,align 8
%bW=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bX=getelementptr inbounds i8,i8*%bR,i64 8
%bY=bitcast i8*%bX to i8**
store i8*%bW,i8**%bY,align 8
%bZ=getelementptr inbounds i8,i8*%bR,i64 16
%b0=bitcast i8*%bZ to i32*
store i32 3,i32*%b0,align 4
%b1=load i8*,i8**%c,align 8
%b2=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%ac
b3:
%b4=call i8*@sml_alloc(i32 inreg 60)#0
%b5=getelementptr inbounds i8,i8*%b4,i64 -4
%b6=bitcast i8*%b5 to i32*
store i32 1342177336,i32*%b6,align 4
%b7=getelementptr inbounds i8,i8*%b4,i64 56
%b8=bitcast i8*%b7 to i32*
store i32 1,i32*%b8,align 4
%b9=bitcast i8*%b4 to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@t,i64 0,i32 2)to i8*),i8**%b9,align 8
call void@sml_raise(i8*inreg%b4)#1
unreachable
ca:
%cb=phi i8*[%cq,%ck],[null,%ar]
store i8*%cb,i8**%d,align 8
%cc=load atomic i32,i32*@sml_check_flag unordered,align 4
%cd=icmp eq i32%cc,0
br i1%cd,label%cf,label%ce
ce:
call void@sml_check(i32 inreg%cc)
br label%cf
cf:
%cg=load i8*,i8**%c,align 8
%ch=icmp eq i8*%cg,null
br i1%ch,label%ci,label%ck
ci:
%cj=load i8*,i8**%d,align 8
ret i8*%cj
ck:
%cl=bitcast i8*%cg to i8**
%cm=load i8*,i8**%cl,align 8
store i8*%cm,i8**%e,align 8
%cn=getelementptr inbounds i8,i8*%cg,i64 8
%co=bitcast i8*%cn to i8**
%cp=load i8*,i8**%co,align 8
store i8*%cp,i8**%c,align 8
%cq=call i8*@sml_alloc(i32 inreg 20)#0
%cr=getelementptr inbounds i8,i8*%cq,i64 -4
%cs=bitcast i8*%cr to i32*
store i32 1342177296,i32*%cs,align 4
%ct=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cu=bitcast i8*%cq to i8**
store i8*%ct,i8**%cu,align 8
%cv=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cw=getelementptr inbounds i8,i8*%cq,i64 8
%cx=bitcast i8*%cw to i8**
store i8*%cv,i8**%cx,align 8
%cy=getelementptr inbounds i8,i8*%cq,i64 16
%cz=bitcast i8*%cy to i32*
store i32 3,i32*%cz,align 4
br label%ca
}
define fastcc i8*@_SMLFN8ListPair5zipEqE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair5zipEqE_104 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*)*@_SMLLLN8ListPair5zipEqE_104 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*@_SMLLLN8ListPair5unzipE_107(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
aj:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 4
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%o,%l
%q=getelementptr inbounds i8,i8*%a,i64 12
%r=bitcast i8*%q to i32*
%s=load i32,i32*%r,align 4
%t=add i32%s,-1
%u=add i32%t,%p
%v=sub i32 0,%s
%w=and i32%u,%v
%x=add i32%p,7
%y=and i32%x,-8
%z=add i32%y,15
%A=and i32%z,-8
%B=lshr i32%x,3
%C=lshr i32%o,3
%D=sub nsw i32%B,%C
%E=shl i32 1,%D
%F=bitcast i8*%a to i32*
%G=load i32,i32*%F,align 4
%H=or i32%E,%G
%I=or i32%A,4
%J=and i32%t,%v
%K=add i32%s,7
%L=add i32%K,%J
%M=and i32%L,-8
%N=add i32%M,15
%O=and i32%N,-8
%P=lshr i32%L,3
%Q=lshr i32%J,3
%R=sub nsw i32%P,%Q
%S=shl i32 1,%R
%T=getelementptr inbounds i8,i8*%a,i64 8
%U=bitcast i8*%T to i32*
%V=load i32,i32*%U,align 4
%W=or i32%S,%V
%X=or i32%O,4
%Y=sext i32%o to i64
%Z=sext i32%w to i64
%aa=or i32%A,1342177280
%ab=sext i32%y to i64
%ac=sext i32%A to i64
%ad=or i32%O,1342177280
%ae=sext i32%J to i64
%af=sext i32%M to i64
%ag=sext i32%O to i64
br label%ah
ah:
%ai=phi i8*[%d2,%dW],[%b,%aj]
%ak=phi i8*[%d3,%dW],[null,%aj]
%al=phi i8*[%dN,%dW],[null,%aj]
store i8*%ai,i8**%c,align 8
store i8*%ak,i8**%d,align 8
store i8*%al,i8**%e,align 8
%am=load atomic i32,i32*@sml_check_flag unordered,align 4
%an=icmp eq i32%am,0
br i1%an,label%aq,label%ao
ao:
call void@sml_check(i32 inreg%am)
%ap=load i8*,i8**%c,align 8
br label%aq
aq:
%ar=phi i8*[%ap,%ao],[%ai,%ah]
%as=icmp eq i8*%ar,null
br i1%as,label%at,label%cy
at:
%au=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
store i8*%au,i8**%c,align 8
br label%av
av:
%aw=phi i8*[%bc,%bl],[null,%at]
store i8*%aw,i8**%d,align 8
%ax=load atomic i32,i32*@sml_check_flag unordered,align 4
%ay=icmp eq i32%ax,0
br i1%ay,label%aA,label%az
az:
call void@sml_check(i32 inreg%ax)
br label%aA
aA:
%aB=load i8*,i8**%c,align 8
%aC=icmp eq i8*%aB,null
br i1%aC,label%aD,label%aG
aD:
%aE=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
store i8*%aE,i8**%f,align 8
%aF=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%aF,i8**%c,align 8
br label%br
aG:
%aH=load i8*,i8**%h,align 8
%aI=bitcast i8*%aH to i32*
%aJ=load i32,i32*%aI,align 4
%aK=icmp eq i32%aJ,0
br i1%aK,label%aP,label%aL
aL:
%aM=getelementptr inbounds i8,i8*%aB,i64%Y
%aN=bitcast i8*%aM to i8**
%aO=load i8*,i8**%aN,align 8
br label%a0
aP:
%aQ=getelementptr inbounds i8,i8*%aH,i64 4
%aR=bitcast i8*%aQ to i32*
%aS=load i32,i32*%aR,align 4
%aT=call i8*@sml_alloc(i32 inreg%aS)#0
%aU=getelementptr inbounds i8,i8*%aT,i64 -4
%aV=bitcast i8*%aU to i32*
store i32%aS,i32*%aV,align 4
%aW=load i8*,i8**%c,align 8
%aX=getelementptr inbounds i8,i8*%aW,i64%Y
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aT,i8*%aX,i32%aS,i1 false)
%aY=load i8*,i8**%h,align 8
%aZ=bitcast i8*%aY to i32*
br label%a0
a0:
%a1=phi i32*[%aZ,%aP],[%aI,%aL]
%a2=phi i8*[%aY,%aP],[%aH,%aL]
%a3=phi i8*[%aW,%aP],[%aB,%aL]
%a4=phi i8*[%aT,%aP],[%aO,%aL]
store i8*%a4,i8**%f,align 8
%a5=getelementptr inbounds i8,i8*%a3,i64%ab
%a6=bitcast i8*%a5 to i8**
%a7=load i8*,i8**%a6,align 8
store i8*%a7,i8**%c,align 8
%a8=getelementptr inbounds i8,i8*%a2,i64 4
%a9=bitcast i8*%a8 to i32*
%ba=load i32,i32*%a9,align 4
%bb=load i32,i32*%a1,align 4
%bc=call i8*@sml_alloc(i32 inreg%I)#0
%bd=getelementptr inbounds i8,i8*%bc,i64 -4
%be=bitcast i8*%bd to i32*
store i32%aa,i32*%be,align 4
call void@llvm.memset.p0i8.i32(i8*%bc,i8 0,i32%I,i1 false)
%bf=icmp eq i32%bb,0
%bg=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bh=getelementptr inbounds i8,i8*%bc,i64%Y
br i1%bf,label%bi,label%bj
bi:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bh,i8*%bg,i32%ba,i1 false)
br label%bl
bj:
%bk=bitcast i8*%bh to i8**
store i8*%bg,i8**%bk,align 8
br label%bl
bl:
%bm=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bn=getelementptr inbounds i8,i8*%bc,i64%ab
%bo=bitcast i8*%bn to i8**
store i8*%bm,i8**%bo,align 8
%bp=getelementptr inbounds i8,i8*%bc,i64%ac
%bq=bitcast i8*%bp to i32*
store i32%H,i32*%bq,align 4
br label%av
br:
%bs=phi i8*[%cj,%cs],[null,%aD]
store i8*%bs,i8**%d,align 8
%bt=load atomic i32,i32*@sml_check_flag unordered,align 4
%bu=icmp eq i32%bt,0
br i1%bu,label%bw,label%bv
bv:
call void@sml_check(i32 inreg%bt)
br label%bw
bw:
%bx=load i8*,i8**%c,align 8
%by=icmp eq i8*%bx,null
br i1%by,label%bz,label%bL
bz:
store i8*null,i8**%h,align 8
%bA=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
store i8*%bA,i8**%c,align 8
%bB=call i8*@sml_alloc(i32 inreg 20)#0
%bC=getelementptr inbounds i8,i8*%bB,i64 -4
%bD=bitcast i8*%bC to i32*
store i32 1342177296,i32*%bD,align 4
%bE=load i8*,i8**%f,align 8
%bF=bitcast i8*%bB to i8**
store i8*%bE,i8**%bF,align 8
%bG=load i8*,i8**%c,align 8
%bH=getelementptr inbounds i8,i8*%bB,i64 8
%bI=bitcast i8*%bH to i8**
store i8*%bG,i8**%bI,align 8
%bJ=getelementptr inbounds i8,i8*%bB,i64 16
%bK=bitcast i8*%bJ to i32*
store i32 3,i32*%bK,align 4
ret i8*%bB
bL:
%bM=load i8*,i8**%h,align 8
%bN=getelementptr inbounds i8,i8*%bM,i64 8
%bO=bitcast i8*%bN to i32*
%bP=load i32,i32*%bO,align 4
%bQ=icmp eq i32%bP,0
br i1%bQ,label%bV,label%bR
bR:
%bS=getelementptr inbounds i8,i8*%bx,i64%ae
%bT=bitcast i8*%bS to i8**
%bU=load i8*,i8**%bT,align 8
br label%b8
bV:
%bW=getelementptr inbounds i8,i8*%bM,i64 12
%bX=bitcast i8*%bW to i32*
%bY=load i32,i32*%bX,align 4
%bZ=call i8*@sml_alloc(i32 inreg%bY)#0
%b0=getelementptr inbounds i8,i8*%bZ,i64 -4
%b1=bitcast i8*%b0 to i32*
store i32%bY,i32*%b1,align 4
%b2=load i8*,i8**%c,align 8
%b3=getelementptr inbounds i8,i8*%b2,i64%ae
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bZ,i8*%b3,i32%bY,i1 false)
%b4=load i8*,i8**%h,align 8
%b5=getelementptr inbounds i8,i8*%b4,i64 8
%b6=bitcast i8*%b5 to i32*
%b7=load i32,i32*%b6,align 4
br label%b8
b8:
%b9=phi i32[%b7,%bV],[%bP,%bR]
%ca=phi i8*[%b4,%bV],[%bM,%bR]
%cb=phi i8*[%b2,%bV],[%bx,%bR]
%cc=phi i8*[%bZ,%bV],[%bU,%bR]
store i8*%cc,i8**%e,align 8
%cd=getelementptr inbounds i8,i8*%cb,i64%af
%ce=bitcast i8*%cd to i8**
%cf=load i8*,i8**%ce,align 8
store i8*%cf,i8**%c,align 8
%cg=getelementptr inbounds i8,i8*%ca,i64 12
%ch=bitcast i8*%cg to i32*
%ci=load i32,i32*%ch,align 4
%cj=call i8*@sml_alloc(i32 inreg%X)#0
%ck=getelementptr inbounds i8,i8*%cj,i64 -4
%cl=bitcast i8*%ck to i32*
store i32%ad,i32*%cl,align 4
call void@llvm.memset.p0i8.i32(i8*%cj,i8 0,i32%X,i1 false)
%cm=icmp eq i32%b9,0
%cn=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%co=getelementptr inbounds i8,i8*%cj,i64%ae
br i1%cm,label%cp,label%cq
cp:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%co,i8*%cn,i32%ci,i1 false)
br label%cs
cq:
%cr=bitcast i8*%co to i8**
store i8*%cn,i8**%cr,align 8
br label%cs
cs:
%ct=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cu=getelementptr inbounds i8,i8*%cj,i64%af
%cv=bitcast i8*%cu to i8**
store i8*%ct,i8**%cv,align 8
%cw=getelementptr inbounds i8,i8*%cj,i64%ag
%cx=bitcast i8*%cw to i32*
store i32%W,i32*%cx,align 4
br label%br
cy:
%cz=bitcast i8*%ar to i8**
%cA=load i8*,i8**%cz,align 8
store i8*%cA,i8**%f,align 8
%cB=load i8*,i8**%h,align 8
%cC=bitcast i8*%cB to i32*
%cD=load i32,i32*%cC,align 4
%cE=icmp eq i32%cD,0
br i1%cE,label%cJ,label%cF
cF:
%cG=getelementptr inbounds i8,i8*%cA,i64%Y
%cH=bitcast i8*%cG to i8**
%cI=load i8*,i8**%cH,align 8
br label%cT
cJ:
%cK=getelementptr inbounds i8,i8*%cB,i64 4
%cL=bitcast i8*%cK to i32*
%cM=load i32,i32*%cL,align 4
%cN=call i8*@sml_alloc(i32 inreg%cM)#0
%cO=getelementptr inbounds i8,i8*%cN,i64 -4
%cP=bitcast i8*%cO to i32*
store i32%cM,i32*%cP,align 4
%cQ=load i8*,i8**%f,align 8
%cR=getelementptr inbounds i8,i8*%cQ,i64%Y
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cN,i8*%cR,i32%cM,i1 false)
%cS=load i8*,i8**%h,align 8
br label%cT
cT:
%cU=phi i8*[%cQ,%cJ],[%cA,%cF]
%cV=phi i8*[%cS,%cJ],[%cB,%cF]
%cW=phi i8*[%cN,%cJ],[%cI,%cF]
store i8*%cW,i8**%g,align 8
%cX=getelementptr inbounds i8,i8*%cV,i64 8
%cY=bitcast i8*%cX to i32*
%cZ=load i32,i32*%cY,align 4
%c0=icmp eq i32%cZ,0
br i1%c0,label%c5,label%c1
c1:
store i8*null,i8**%f,align 8
%c2=getelementptr inbounds i8,i8*%cU,i64%Z
%c3=bitcast i8*%c2 to i8**
%c4=load i8*,i8**%c3,align 8
br label%df
c5:
%c6=getelementptr inbounds i8,i8*%cV,i64 12
%c7=bitcast i8*%c6 to i32*
%c8=load i32,i32*%c7,align 4
%c9=call i8*@sml_alloc(i32 inreg%c8)#0
%da=getelementptr inbounds i8,i8*%c9,i64 -4
%db=bitcast i8*%da to i32*
store i32%c8,i32*%db,align 4
%dc=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%dd=getelementptr inbounds i8,i8*%dc,i64%Z
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%c9,i8*%dd,i32%c8,i1 false)
%de=load i8*,i8**%h,align 8
br label%df
df:
%dg=phi i8*[%de,%c5],[%cV,%c1]
%dh=phi i8*[%c9,%c5],[%c4,%c1]
store i8*%dh,i8**%f,align 8
%di=load i8*,i8**%c,align 8
%dj=getelementptr inbounds i8,i8*%di,i64 8
%dk=bitcast i8*%dj to i8**
%dl=load i8*,i8**%dk,align 8
store i8*%dl,i8**%c,align 8
%dm=getelementptr inbounds i8,i8*%dg,i64 4
%dn=bitcast i8*%dm to i32*
%do=load i32,i32*%dn,align 4
%dp=bitcast i8*%dg to i32*
%dq=load i32,i32*%dp,align 4
%dr=call i8*@sml_alloc(i32 inreg%I)#0
%ds=getelementptr inbounds i8,i8*%dr,i64 -4
%dt=bitcast i8*%ds to i32*
store i32%aa,i32*%dt,align 4
store i8*%dr,i8**%i,align 8
call void@llvm.memset.p0i8.i32(i8*%dr,i8 0,i32%I,i1 false)
%du=icmp eq i32%dq,0
%dv=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%dw=getelementptr inbounds i8,i8*%dr,i64%Y
br i1%du,label%dx,label%dy
dx:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dw,i8*%dv,i32%do,i1 false)
br label%dA
dy:
%dz=bitcast i8*%dw to i8**
store i8*%dv,i8**%dz,align 8
br label%dA
dA:
%dB=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%dC=getelementptr inbounds i8,i8*%dr,i64%ab
%dD=bitcast i8*%dC to i8**
store i8*%dB,i8**%dD,align 8
%dE=getelementptr inbounds i8,i8*%dr,i64%ac
%dF=bitcast i8*%dE to i32*
store i32%H,i32*%dF,align 4
%dG=load i8*,i8**%h,align 8
%dH=getelementptr inbounds i8,i8*%dG,i64 12
%dI=bitcast i8*%dH to i32*
%dJ=load i32,i32*%dI,align 4
%dK=getelementptr inbounds i8,i8*%dG,i64 8
%dL=bitcast i8*%dK to i32*
%dM=load i32,i32*%dL,align 4
%dN=call i8*@sml_alloc(i32 inreg%X)#0
%dO=getelementptr inbounds i8,i8*%dN,i64 -4
%dP=bitcast i8*%dO to i32*
store i32%ad,i32*%dP,align 4
call void@llvm.memset.p0i8.i32(i8*%dN,i8 0,i32%X,i1 false)
%dQ=icmp eq i32%dM,0
%dR=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%dS=getelementptr inbounds i8,i8*%dN,i64%ae
br i1%dQ,label%dT,label%dU
dT:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dS,i8*%dR,i32%dJ,i1 false)
br label%dW
dU:
%dV=bitcast i8*%dS to i8**
store i8*%dR,i8**%dV,align 8
br label%dW
dW:
%dX=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%dY=getelementptr inbounds i8,i8*%dN,i64%af
%dZ=bitcast i8*%dY to i8**
store i8*%dX,i8**%dZ,align 8
%d0=getelementptr inbounds i8,i8*%dN,i64%ag
%d1=bitcast i8*%d0 to i32*
store i32%W,i32*%d1,align 4
%d2=load i8*,i8**%c,align 8
%d3=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%ah
}
define fastcc i8*@_SMLFN8ListPair5unzipE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair5unzipE_107 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*)*@_SMLLLN8ListPair5unzipE_107 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 void@_SMLLLN8ListPair3appE_110(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
af:
%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
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
store i8*%a,i8**%g,align 8
%i=getelementptr inbounds i8,i8*%a,i64 12
%j=bitcast i8*%i to i32*
%k=load i32,i32*%j,align 4
%l=add i32%k,-1
%m=sub i32 0,%k
%n=and i32%l,%m
%o=add i32%n,%k
%p=add i32%o,7
%q=and i32%p,-8
%r=getelementptr inbounds i8,i8*%a,i64 20
%s=bitcast i8*%r to i32*
%t=load i32,i32*%s,align 4
%u=add i32%t,-1
%v=sub i32 0,%t
%w=and i32%u,%v
%x=add i32%t,7
%y=add i32%x,%w
%z=and i32%y,-8
%A=add i32%u,%o
%B=and i32%A,%v
%C=add i32%x,%B
%D=and i32%C,-8
%E=lshr i32%B,3
%F=lshr i32%n,3
%G=sub nsw i32%E,%F
%H=getelementptr inbounds i8,i8*%a,i64 16
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=shl i32%J,%G
%L=getelementptr inbounds i8,i8*%a,i64 8
%M=bitcast i8*%L to i32*
%N=load i32,i32*%M,align 4
%O=or i32%K,%N
%P=or i32%D,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%n to i64
%W=sext i32%q to i64
%X=sext i32%w to i64
%Y=sext i32%z to i64
%Z=bitcast i8**%g to i8***
%aa=or i32%D,1342177280
%ab=sext i32%B to i64
%ac=sext i32%D to i64
br label%ad
ad:
%ae=phi i8*[%R,%af],[%bX,%bS]
%ag=phi i8*[%U,%af],[%bY,%bS]
store i8*%ae,i8**%c,align 8
store i8*%ag,i8**%d,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ae,%ad]
%an=icmp eq i8*%am,null
br i1%an,label%bZ,label%ao
ao:
%ap=load i8*,i8**%g,align 8
%aq=getelementptr inbounds i8,i8*%ap,i64 8
%ar=bitcast i8*%aq to i32*
%as=load i32,i32*%ar,align 4
%at=icmp eq i32%as,0
br i1%at,label%ay,label%au
au:
%av=getelementptr inbounds i8,i8*%am,i64%V
%aw=bitcast i8*%av to i8**
%ax=load i8*,i8**%aw,align 8
br label%aH
ay:
%az=getelementptr inbounds i8,i8*%ap,i64 12
%aA=bitcast i8*%az to i32*
%aB=load i32,i32*%aA,align 4
%aC=call i8*@sml_alloc(i32 inreg%aB)#0
%aD=getelementptr inbounds i8,i8*%aC,i64 -4
%aE=bitcast i8*%aD to i32*
store i32%aB,i32*%aE,align 4
%aF=load i8*,i8**%c,align 8
%aG=getelementptr inbounds i8,i8*%aF,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aC,i8*%aG,i32%aB,i1 false)
br label%aH
aH:
%aI=phi i8*[%aF,%ay],[%am,%au]
%aJ=phi i8*[%aC,%ay],[%ax,%au]
store i8*%aJ,i8**%e,align 8
%aK=getelementptr inbounds i8,i8*%aI,i64%W
%aL=bitcast i8*%aK to i8**
%aM=load i8*,i8**%aL,align 8
store i8*%aM,i8**%c,align 8
%aN=load i8*,i8**%d,align 8
%aO=icmp eq i8*%aN,null
br i1%aO,label%bZ,label%aP
aP:
%aQ=load i8*,i8**%g,align 8
%aR=getelementptr inbounds i8,i8*%aQ,i64 16
%aS=bitcast i8*%aR to i32*
%aT=load i32,i32*%aS,align 4
%aU=icmp eq i32%aT,0
br i1%aU,label%a0,label%aV
aV:
%aW=bitcast i8*%aQ to i8**
%aX=getelementptr inbounds i8,i8*%aN,i64%X
%aY=bitcast i8*%aX to i8**
%aZ=load i8*,i8**%aY,align 8
br label%be
a0:
%a1=getelementptr inbounds i8,i8*%aQ,i64 20
%a2=bitcast i8*%a1 to i32*
%a3=load i32,i32*%a2,align 4
%a4=call i8*@sml_alloc(i32 inreg%a3)#0
%a5=getelementptr inbounds i8,i8*%a4,i64 -4
%a6=bitcast i8*%a5 to i32*
store i32%a3,i32*%a6,align 4
%a7=load i8*,i8**%d,align 8
%a8=getelementptr inbounds i8,i8*%a7,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a4,i8*%a8,i32%a3,i1 false)
%a9=load i8**,i8***%Z,align 8
%ba=bitcast i8**%a9 to i8*
%bb=getelementptr inbounds i8*,i8**%a9,i64 2
%bc=bitcast i8**%bb to i32*
%bd=load i32,i32*%bc,align 4
br label%be
be:
%bf=phi i32[%bd,%a0],[%aT,%aV]
%bg=phi i8*[%ba,%a0],[%aQ,%aV]
%bh=phi i8**[%a9,%a0],[%aW,%aV]
%bi=phi i8*[%a7,%a0],[%aN,%aV]
%bj=phi i8*[%a4,%a0],[%aZ,%aV]
store i8*%bj,i8**%f,align 8
%bk=getelementptr inbounds i8,i8*%bi,i64%Y
%bl=bitcast i8*%bk to i8**
%bm=load i8*,i8**%bl,align 8
store i8*%bm,i8**%d,align 8
%bn=load i8*,i8**%bh,align 8
%bo=getelementptr inbounds i8,i8*%bn,i64 16
%bp=bitcast i8*%bo to i8*(i8*,i8*)**
%bq=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bp,align 8
%br=bitcast i8*%bn to i8**
%bs=load i8*,i8**%br,align 8
store i8*%bs,i8**%h,align 8
%bt=getelementptr inbounds i8,i8*%bg,i64 12
%bu=bitcast i8*%bt to i32*
%bv=load i32,i32*%bu,align 4
%bw=getelementptr inbounds i8,i8*%bg,i64 8
%bx=bitcast i8*%bw to i32*
%by=load i32,i32*%bx,align 4
%bz=getelementptr inbounds i8,i8*%bg,i64 20
%bA=bitcast i8*%bz to i32*
%bB=load i32,i32*%bA,align 4
%bC=call i8*@sml_alloc(i32 inreg%P)#0
%bD=getelementptr inbounds i8,i8*%bC,i64 -4
%bE=bitcast i8*%bD to i32*
store i32%aa,i32*%bE,align 4
call void@llvm.memset.p0i8.i32(i8*%bC,i8 0,i32%P,i1 false)
%bF=icmp eq i32%by,0
%bG=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bH=getelementptr inbounds i8,i8*%bC,i64%V
br i1%bF,label%bI,label%bJ
bI:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bH,i8*%bG,i32%bv,i1 false)
br label%bL
bJ:
%bK=bitcast i8*%bH to i8**
store i8*%bG,i8**%bK,align 8
br label%bL
bL:
%bM=icmp eq i32%bf,0
%bN=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bO=getelementptr inbounds i8,i8*%bC,i64%ab
br i1%bM,label%bP,label%bQ
bP:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bO,i8*%bN,i32%bB,i1 false)
br label%bS
bQ:
%bR=bitcast i8*%bO to i8**
store i8*%bN,i8**%bR,align 8
br label%bS
bS:
%bT=getelementptr inbounds i8,i8*%bC,i64%ac
%bU=bitcast i8*%bT to i32*
store i32%O,i32*%bU,align 4
%bV=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%bW=call fastcc i8*%bq(i8*inreg%bV,i8*inreg%bC)
%bX=load i8*,i8**%c,align 8
%bY=load i8*,i8**%d,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%ad
bZ:
ret void
}
define internal fastcc i8*@_SMLLLN8ListPair3appE_111(i8*inreg%a,i8*inreg%b)#3 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(void(i8*,i8*)*@_SMLLLN8ListPair3appE_110 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*)*@_SMLLLN8ListPair3appE_169 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 fastcc i8*@_SMLFN8ListPair3appE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair3appE_111 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*)*@_SMLLLN8ListPair3appE_111 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 void@_SMLLLN8ListPair5appEqE_116(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
af:
%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
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
store i8*%a,i8**%g,align 8
%i=getelementptr inbounds i8,i8*%a,i64 12
%j=bitcast i8*%i to i32*
%k=load i32,i32*%j,align 4
%l=add i32%k,-1
%m=sub i32 0,%k
%n=and i32%l,%m
%o=add i32%n,%k
%p=add i32%o,7
%q=and i32%p,-8
%r=getelementptr inbounds i8,i8*%a,i64 20
%s=bitcast i8*%r to i32*
%t=load i32,i32*%s,align 4
%u=add i32%t,-1
%v=sub i32 0,%t
%w=and i32%u,%v
%x=add i32%t,7
%y=add i32%x,%w
%z=and i32%y,-8
%A=add i32%u,%o
%B=and i32%A,%v
%C=add i32%x,%B
%D=and i32%C,-8
%E=lshr i32%B,3
%F=lshr i32%n,3
%G=sub nsw i32%E,%F
%H=getelementptr inbounds i8,i8*%a,i64 16
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=shl i32%J,%G
%L=getelementptr inbounds i8,i8*%a,i64 8
%M=bitcast i8*%L to i32*
%N=load i32,i32*%M,align 4
%O=or i32%K,%N
%P=or i32%D,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%n to i64
%W=sext i32%q to i64
%X=sext i32%w to i64
%Y=sext i32%z to i64
%Z=bitcast i8**%g to i8***
%aa=or i32%D,1342177280
%ab=sext i32%B to i64
%ac=sext i32%D to i64
br label%ad
ad:
%ae=phi i8*[%R,%af],[%b2,%bX]
%ag=phi i8*[%U,%af],[%b3,%bX]
store i8*%ae,i8**%c,align 8
store i8*%ag,i8**%d,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ae,%ad]
%an=icmp eq i8*%am,null
br i1%an,label%ao,label%as
ao:
store i8*null,i8**%c,align 8
store i8*null,i8**%g,align 8
%ap=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aq=icmp eq i8*%ap,null
br i1%aq,label%ar,label%b4
ar:
ret void
as:
%at=load i8*,i8**%g,align 8
%au=getelementptr inbounds i8,i8*%at,i64 8
%av=bitcast i8*%au to i32*
%aw=load i32,i32*%av,align 4
%ax=icmp eq i32%aw,0
br i1%ax,label%aC,label%ay
ay:
%az=getelementptr inbounds i8,i8*%am,i64%V
%aA=bitcast i8*%az to i8**
%aB=load i8*,i8**%aA,align 8
br label%aL
aC:
%aD=getelementptr inbounds i8,i8*%at,i64 12
%aE=bitcast i8*%aD to i32*
%aF=load i32,i32*%aE,align 4
%aG=call i8*@sml_alloc(i32 inreg%aF)#0
%aH=getelementptr inbounds i8,i8*%aG,i64 -4
%aI=bitcast i8*%aH to i32*
store i32%aF,i32*%aI,align 4
%aJ=load i8*,i8**%c,align 8
%aK=getelementptr inbounds i8,i8*%aJ,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aG,i8*%aK,i32%aF,i1 false)
br label%aL
aL:
%aM=phi i8*[%aJ,%aC],[%am,%ay]
%aN=phi i8*[%aG,%aC],[%aB,%ay]
store i8*%aN,i8**%e,align 8
%aO=getelementptr inbounds i8,i8*%aM,i64%W
%aP=bitcast i8*%aO to i8**
%aQ=load i8*,i8**%aP,align 8
store i8*%aQ,i8**%c,align 8
%aR=load i8*,i8**%d,align 8
%aS=icmp eq i8*%aR,null
br i1%aS,label%aT,label%aU
aT:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%g,align 8
br label%b4
aU:
%aV=load i8*,i8**%g,align 8
%aW=getelementptr inbounds i8,i8*%aV,i64 16
%aX=bitcast i8*%aW to i32*
%aY=load i32,i32*%aX,align 4
%aZ=icmp eq i32%aY,0
br i1%aZ,label%a5,label%a0
a0:
%a1=bitcast i8*%aV to i8**
%a2=getelementptr inbounds i8,i8*%aR,i64%X
%a3=bitcast i8*%a2 to i8**
%a4=load i8*,i8**%a3,align 8
br label%bj
a5:
%a6=getelementptr inbounds i8,i8*%aV,i64 20
%a7=bitcast i8*%a6 to i32*
%a8=load i32,i32*%a7,align 4
%a9=call i8*@sml_alloc(i32 inreg%a8)#0
%ba=getelementptr inbounds i8,i8*%a9,i64 -4
%bb=bitcast i8*%ba to i32*
store i32%a8,i32*%bb,align 4
%bc=load i8*,i8**%d,align 8
%bd=getelementptr inbounds i8,i8*%bc,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a9,i8*%bd,i32%a8,i1 false)
%be=load i8**,i8***%Z,align 8
%bf=bitcast i8**%be to i8*
%bg=getelementptr inbounds i8*,i8**%be,i64 2
%bh=bitcast i8**%bg to i32*
%bi=load i32,i32*%bh,align 4
br label%bj
bj:
%bk=phi i32[%bi,%a5],[%aY,%a0]
%bl=phi i8*[%bf,%a5],[%aV,%a0]
%bm=phi i8**[%be,%a5],[%a1,%a0]
%bn=phi i8*[%bc,%a5],[%aR,%a0]
%bo=phi i8*[%a9,%a5],[%a4,%a0]
store i8*%bo,i8**%f,align 8
%bp=getelementptr inbounds i8,i8*%bn,i64%Y
%bq=bitcast i8*%bp to i8**
%br=load i8*,i8**%bq,align 8
store i8*%br,i8**%d,align 8
%bs=load i8*,i8**%bm,align 8
%bt=getelementptr inbounds i8,i8*%bs,i64 16
%bu=bitcast i8*%bt to i8*(i8*,i8*)**
%bv=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bu,align 8
%bw=bitcast i8*%bs to i8**
%bx=load i8*,i8**%bw,align 8
store i8*%bx,i8**%h,align 8
%by=getelementptr inbounds i8,i8*%bl,i64 12
%bz=bitcast i8*%by to i32*
%bA=load i32,i32*%bz,align 4
%bB=getelementptr inbounds i8,i8*%bl,i64 8
%bC=bitcast i8*%bB to i32*
%bD=load i32,i32*%bC,align 4
%bE=getelementptr inbounds i8,i8*%bl,i64 20
%bF=bitcast i8*%bE to i32*
%bG=load i32,i32*%bF,align 4
%bH=call i8*@sml_alloc(i32 inreg%P)#0
%bI=getelementptr inbounds i8,i8*%bH,i64 -4
%bJ=bitcast i8*%bI to i32*
store i32%aa,i32*%bJ,align 4
call void@llvm.memset.p0i8.i32(i8*%bH,i8 0,i32%P,i1 false)
%bK=icmp eq i32%bD,0
%bL=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bM=getelementptr inbounds i8,i8*%bH,i64%V
br i1%bK,label%bN,label%bO
bN:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bM,i8*%bL,i32%bA,i1 false)
br label%bQ
bO:
%bP=bitcast i8*%bM to i8**
store i8*%bL,i8**%bP,align 8
br label%bQ
bQ:
%bR=icmp eq i32%bk,0
%bS=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bT=getelementptr inbounds i8,i8*%bH,i64%ab
br i1%bR,label%bU,label%bV
bU:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bT,i8*%bS,i32%bG,i1 false)
br label%bX
bV:
%bW=bitcast i8*%bT to i8**
store i8*%bS,i8**%bW,align 8
br label%bX
bX:
%bY=getelementptr inbounds i8,i8*%bH,i64%ac
%bZ=bitcast i8*%bY to i32*
store i32%O,i32*%bZ,align 4
%b0=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%b1=call fastcc i8*%bv(i8*inreg%b0,i8*inreg%bH)
%b2=load i8*,i8**%c,align 8
%b3=load i8*,i8**%d,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%ad
b4:
%b5=call i8*@sml_alloc(i32 inreg 60)#0
%b6=getelementptr inbounds i8,i8*%b5,i64 -4
%b7=bitcast i8*%b6 to i32*
store i32 1342177336,i32*%b7,align 4
%b8=getelementptr inbounds i8,i8*%b5,i64 56
%b9=bitcast i8*%b8 to i32*
store i32 1,i32*%b9,align 4
%ca=bitcast i8*%b5 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**%ca,align 8
call void@sml_raise(i8*inreg%b5)#1
unreachable
}
define internal fastcc i8*@_SMLLLN8ListPair5appEqE_117(i8*inreg%a,i8*inreg%b)#3 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(void(i8*,i8*)*@_SMLLLN8ListPair5appEqE_116 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*)*@_SMLLLN8ListPair5appEqE_171 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 fastcc i8*@_SMLFN8ListPair5appEqE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair5appEqE_117 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*)*@_SMLLLN8ListPair5appEqE_117 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*@_SMLLLN8ListPair3mapE_120(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
aE:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 28
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%l,7
%q=add i32%p,%o
%r=and i32%q,-8
%s=add i32%r,15
%t=and i32%s,-8
%u=lshr i32%q,3
%v=lshr i32%o,3
%w=sub nsw i32%u,%v
%x=shl i32 1,%w
%y=getelementptr inbounds i8,i8*%a,i64 24
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=or i32%x,%A
%C=or i32%t,4
%D=getelementptr inbounds i8,i8*%a,i64 12
%E=bitcast i8*%D to i32*
%F=load i32,i32*%E,align 4
%G=add i32%F,-1
%H=sub i32 0,%F
%I=and i32%G,%H
%J=add i32%I,%F
%K=add i32%J,7
%L=and i32%K,-8
%M=getelementptr inbounds i8,i8*%a,i64 20
%N=bitcast i8*%M to i32*
%O=load i32,i32*%N,align 4
%P=add i32%O,-1
%Q=sub i32 0,%O
%R=and i32%P,%Q
%S=add i32%O,7
%T=add i32%S,%R
%U=and i32%T,-8
%V=add i32%P,%J
%W=and i32%V,%Q
%X=add i32%S,%W
%Y=and i32%X,-8
%Z=lshr i32%W,3
%aa=lshr i32%I,3
%ab=sub nsw i32%Z,%aa
%ac=getelementptr inbounds i8,i8*%a,i64 16
%ad=bitcast i8*%ac to i32*
%ae=load i32,i32*%ad,align 4
%af=shl i32%ae,%ab
%ag=getelementptr inbounds i8,i8*%a,i64 8
%ah=bitcast i8*%ag to i32*
%ai=load i32,i32*%ah,align 4
%aj=or i32%af,%ai
%ak=or i32%Y,4
%al=bitcast i8*%b to i8**
%am=load i8*,i8**%al,align 8
%an=getelementptr inbounds i8,i8*%b,i64 8
%ao=bitcast i8*%an to i8**
%ap=load i8*,i8**%ao,align 8
%aq=sext i32%I to i64
%ar=sext i32%L to i64
%as=sext i32%R to i64
%at=sext i32%U to i64
%au=bitcast i8**%h to i8***
%av=or i32%Y,1342177280
%aw=sext i32%W to i64
%ax=sext i32%Y to i64
%ay=or i32%t,1342177280
%az=sext i32%o to i64
%aA=sext i32%r to i64
%aB=sext i32%t to i64
br label%aC
aC:
%aD=phi i8*[%cL,%cF],[%am,%aE]
%aF=phi i8*[%cM,%cF],[%ap,%aE]
%aG=phi i8*[%cw,%cF],[null,%aE]
store i8*%aD,i8**%c,align 8
store i8*%aF,i8**%d,align 8
store i8*%aG,i8**%e,align 8
%aH=load atomic i32,i32*@sml_check_flag unordered,align 4
%aI=icmp eq i32%aH,0
br i1%aI,label%aL,label%aJ
aJ:
call void@sml_check(i32 inreg%aH)
%aK=load i8*,i8**%c,align 8
br label%aL
aL:
%aM=phi i8*[%aK,%aJ],[%aD,%aC]
%aN=icmp eq i8*%aM,null
br i1%aN,label%aO,label%aP
aO:
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%cN
aP:
%aQ=load i8*,i8**%h,align 8
%aR=getelementptr inbounds i8,i8*%aQ,i64 8
%aS=bitcast i8*%aR to i32*
%aT=load i32,i32*%aS,align 4
%aU=icmp eq i32%aT,0
br i1%aU,label%aZ,label%aV
aV:
%aW=getelementptr inbounds i8,i8*%aM,i64%aq
%aX=bitcast i8*%aW to i8**
%aY=load i8*,i8**%aX,align 8
br label%a8
aZ:
%a0=getelementptr inbounds i8,i8*%aQ,i64 12
%a1=bitcast i8*%a0 to i32*
%a2=load i32,i32*%a1,align 4
%a3=call i8*@sml_alloc(i32 inreg%a2)#0
%a4=getelementptr inbounds i8,i8*%a3,i64 -4
%a5=bitcast i8*%a4 to i32*
store i32%a2,i32*%a5,align 4
%a6=load i8*,i8**%c,align 8
%a7=getelementptr inbounds i8,i8*%a6,i64%aq
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a3,i8*%a7,i32%a2,i1 false)
br label%a8
a8:
%a9=phi i8*[%a6,%aZ],[%aM,%aV]
%ba=phi i8*[%a3,%aZ],[%aY,%aV]
store i8*%ba,i8**%f,align 8
%bb=getelementptr inbounds i8,i8*%a9,i64%ar
%bc=bitcast i8*%bb to i8**
%bd=load i8*,i8**%bc,align 8
store i8*%bd,i8**%c,align 8
%be=load i8*,i8**%d,align 8
%bf=icmp eq i8*%be,null
br i1%bf,label%bg,label%bh
bg:
store i8*null,i8**%d,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
br label%cN
bh:
%bi=load i8*,i8**%h,align 8
%bj=getelementptr inbounds i8,i8*%bi,i64 16
%bk=bitcast i8*%bj to i32*
%bl=load i32,i32*%bk,align 4
%bm=icmp eq i32%bl,0
br i1%bm,label%bs,label%bn
bn:
%bo=bitcast i8*%bi to i8**
%bp=getelementptr inbounds i8,i8*%be,i64%as
%bq=bitcast i8*%bp to i8**
%br=load i8*,i8**%bq,align 8
br label%bG
bs:
%bt=getelementptr inbounds i8,i8*%bi,i64 20
%bu=bitcast i8*%bt to i32*
%bv=load i32,i32*%bu,align 4
%bw=call i8*@sml_alloc(i32 inreg%bv)#0
%bx=getelementptr inbounds i8,i8*%bw,i64 -4
%by=bitcast i8*%bx to i32*
store i32%bv,i32*%by,align 4
%bz=load i8*,i8**%d,align 8
%bA=getelementptr inbounds i8,i8*%bz,i64%as
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bw,i8*%bA,i32%bv,i1 false)
%bB=load i8**,i8***%au,align 8
%bC=bitcast i8**%bB to i8*
%bD=getelementptr inbounds i8*,i8**%bB,i64 2
%bE=bitcast i8**%bD to i32*
%bF=load i32,i32*%bE,align 4
br label%bG
bG:
%bH=phi i32[%bF,%bs],[%bl,%bn]
%bI=phi i8*[%bC,%bs],[%bi,%bn]
%bJ=phi i8**[%bB,%bs],[%bo,%bn]
%bK=phi i8*[%bz,%bs],[%be,%bn]
%bL=phi i8*[%bw,%bs],[%br,%bn]
store i8*%bL,i8**%g,align 8
%bM=getelementptr inbounds i8,i8*%bK,i64%at
%bN=bitcast i8*%bM to i8**
%bO=load i8*,i8**%bN,align 8
store i8*%bO,i8**%i,align 8
%bP=load i8*,i8**%bJ,align 8
%bQ=getelementptr inbounds i8,i8*%bP,i64 16
%bR=bitcast i8*%bQ to i8*(i8*,i8*)**
%bS=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bR,align 8
%bT=bitcast i8*%bP to i8**
%bU=load i8*,i8**%bT,align 8
store i8*%bU,i8**%d,align 8
%bV=getelementptr inbounds i8,i8*%bI,i64 12
%bW=bitcast i8*%bV to i32*
%bX=load i32,i32*%bW,align 4
%bY=getelementptr inbounds i8,i8*%bI,i64 8
%bZ=bitcast i8*%bY to i32*
%b0=load i32,i32*%bZ,align 4
%b1=getelementptr inbounds i8,i8*%bI,i64 20
%b2=bitcast i8*%b1 to i32*
%b3=load i32,i32*%b2,align 4
%b4=call i8*@sml_alloc(i32 inreg%ak)#0
%b5=getelementptr inbounds i8,i8*%b4,i64 -4
%b6=bitcast i8*%b5 to i32*
store i32%av,i32*%b6,align 4
call void@llvm.memset.p0i8.i32(i8*%b4,i8 0,i32%ak,i1 false)
%b7=icmp eq i32%b0,0
%b8=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%b9=getelementptr inbounds i8,i8*%b4,i64%aq
br i1%b7,label%ca,label%cb
ca:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%b9,i8*%b8,i32%bX,i1 false)
br label%cd
cb:
%cc=bitcast i8*%b9 to i8**
store i8*%b8,i8**%cc,align 8
br label%cd
cd:
%ce=icmp eq i32%bH,0
%cf=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%cg=getelementptr inbounds i8,i8*%b4,i64%aw
br i1%ce,label%ch,label%ci
ch:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cg,i8*%cf,i32%b3,i1 false)
br label%ck
ci:
%cj=bitcast i8*%cg to i8**
store i8*%cf,i8**%cj,align 8
br label%ck
ck:
%cl=getelementptr inbounds i8,i8*%b4,i64%ax
%cm=bitcast i8*%cl to i32*
store i32%aj,i32*%cm,align 4
%cn=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%co=call fastcc i8*%bS(i8*inreg%cn,i8*inreg%b4)
store i8*%co,i8**%d,align 8
%cp=load i8*,i8**%h,align 8
%cq=getelementptr inbounds i8,i8*%cp,i64 28
%cr=bitcast i8*%cq to i32*
%cs=load i32,i32*%cr,align 4
%ct=getelementptr inbounds i8,i8*%cp,i64 24
%cu=bitcast i8*%ct to i32*
%cv=load i32,i32*%cu,align 4
%cw=call i8*@sml_alloc(i32 inreg%C)#0
%cx=getelementptr inbounds i8,i8*%cw,i64 -4
%cy=bitcast i8*%cx to i32*
store i32%ay,i32*%cy,align 4
call void@llvm.memset.p0i8.i32(i8*%cw,i8 0,i32%C,i1 false)
%cz=icmp eq i32%cv,0
%cA=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cB=getelementptr inbounds i8,i8*%cw,i64%az
br i1%cz,label%cC,label%cD
cC:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cB,i8*%cA,i32%cs,i1 false)
br label%cF
cD:
%cE=bitcast i8*%cB to i8**
store i8*%cA,i8**%cE,align 8
br label%cF
cF:
%cG=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cH=getelementptr inbounds i8,i8*%cw,i64%aA
%cI=bitcast i8*%cH to i8**
store i8*%cG,i8**%cI,align 8
%cJ=getelementptr inbounds i8,i8*%cw,i64%aB
%cK=bitcast i8*%cJ to i32*
store i32%B,i32*%cK,align 4
%cL=load i8*,i8**%c,align 8
%cM=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%aC
cN:
%cO=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%cO,i8**%c,align 8
br label%cP
cP:
%cQ=phi i8*[%dx,%dG],[null,%cN]
store i8*%cQ,i8**%d,align 8
%cR=load atomic i32,i32*@sml_check_flag unordered,align 4
%cS=icmp eq i32%cR,0
br i1%cS,label%cU,label%cT
cT:
call void@sml_check(i32 inreg%cR)
br label%cU
cU:
%cV=load i8*,i8**%c,align 8
%cW=icmp eq i8*%cV,null
br i1%cW,label%cX,label%cZ
cX:
%cY=load i8*,i8**%d,align 8
ret i8*%cY
cZ:
%c0=load i8*,i8**%h,align 8
%c1=getelementptr inbounds i8,i8*%c0,i64 24
%c2=bitcast i8*%c1 to i32*
%c3=load i32,i32*%c2,align 4
%c4=icmp eq i32%c3,0
br i1%c4,label%c9,label%c5
c5:
%c6=getelementptr inbounds i8,i8*%cV,i64%az
%c7=bitcast i8*%c6 to i8**
%c8=load i8*,i8**%c7,align 8
br label%dm
c9:
%da=getelementptr inbounds i8,i8*%c0,i64 28
%db=bitcast i8*%da to i32*
%dc=load i32,i32*%db,align 4
%dd=call i8*@sml_alloc(i32 inreg%dc)#0
%de=getelementptr inbounds i8,i8*%dd,i64 -4
%df=bitcast i8*%de to i32*
store i32%dc,i32*%df,align 4
%dg=load i8*,i8**%c,align 8
%dh=getelementptr inbounds i8,i8*%dg,i64%az
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dd,i8*%dh,i32%dc,i1 false)
%di=load i8*,i8**%h,align 8
%dj=getelementptr inbounds i8,i8*%di,i64 24
%dk=bitcast i8*%dj to i32*
%dl=load i32,i32*%dk,align 4
br label%dm
dm:
%dn=phi i32[%dl,%c9],[%c3,%c5]
%do=phi i8*[%di,%c9],[%c0,%c5]
%dp=phi i8*[%dg,%c9],[%cV,%c5]
%dq=phi i8*[%dd,%c9],[%c8,%c5]
store i8*%dq,i8**%e,align 8
%dr=getelementptr inbounds i8,i8*%dp,i64%aA
%ds=bitcast i8*%dr to i8**
%dt=load i8*,i8**%ds,align 8
store i8*%dt,i8**%c,align 8
%du=getelementptr inbounds i8,i8*%do,i64 28
%dv=bitcast i8*%du to i32*
%dw=load i32,i32*%dv,align 4
%dx=call i8*@sml_alloc(i32 inreg%C)#0
%dy=getelementptr inbounds i8,i8*%dx,i64 -4
%dz=bitcast i8*%dy to i32*
store i32%ay,i32*%dz,align 4
call void@llvm.memset.p0i8.i32(i8*%dx,i8 0,i32%C,i1 false)
%dA=icmp eq i32%dn,0
%dB=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%dC=getelementptr inbounds i8,i8*%dx,i64%az
br i1%dA,label%dD,label%dE
dD:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dC,i8*%dB,i32%dw,i1 false)
br label%dG
dE:
%dF=bitcast i8*%dC to i8**
store i8*%dB,i8**%dF,align 8
br label%dG
dG:
%dH=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%dI=getelementptr inbounds i8,i8*%dx,i64%aA
%dJ=bitcast i8*%dI to i8**
store i8*%dH,i8**%dJ,align 8
%dK=getelementptr inbounds i8,i8*%dx,i64%aB
%dL=bitcast i8*%dK to i32*
store i32%B,i32*%dL,align 4
br label%cP
}
define internal fastcc i8*@_SMLLLN8ListPair3mapE_121(i8*inreg%a,i8*inreg%b)#3 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=getelementptr inbounds i8,i8*%a,i64 16
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 36)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177312,i32*%x,align 4
store i8*%v,i8**%d,align 8
%y=load i8*,i8**%c,align 8
store i8*null,i8**%c,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%f,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%i,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%l,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 20
%H=bitcast i8*%G to i32*
store i32%o,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%v,i64 24
%J=bitcast i8*%I to i32*
store i32%r,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%v,i64 28
%L=bitcast i8*%K to i32*
store i32%u,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%v,i64 32
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,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
%R=load i8*,i8**%d,align 8
%S=bitcast i8*%O to i8**
store i8*%R,i8**%S,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair3mapE_120 to void(...)*),void(...)**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair3mapE_120 to void(...)*),void(...)**%W,align 8
%X=getelementptr inbounds i8,i8*%O,i64 24
%Y=bitcast i8*%X to i32*
store i32 -2147483647,i32*%Y,align 4
ret i8*%O
}
define fastcc i8*@_SMLFN8ListPair3mapE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d,i32 inreg%e,i32 inreg%f)#3 gc"smlsharp"{
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%g,i8*null)#0
%h=call i8*@sml_alloc(i32 inreg 28)#0
%i=bitcast i8*%h to i32*
%j=getelementptr inbounds i8,i8*%h,i64 -4
%k=bitcast i8*%j to i32*
store i32 1342177304,i32*%k,align 4
store i8*%h,i8**%g,align 8
store i32%a,i32*%i,align 4
%l=getelementptr inbounds i8,i8*%h,i64 4
%m=bitcast i8*%l to i32*
store i32%b,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i32*
store i32%c,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%h,i64 12
%q=bitcast i8*%p to i32*
store i32%d,i32*%q,align 4
%r=getelementptr inbounds i8,i8*%h,i64 16
%s=bitcast i8*%r to i32*
store i32%e,i32*%s,align 4
%t=getelementptr inbounds i8,i8*%h,i64 20
%u=bitcast i8*%t to i32*
store i32%f,i32*%u,align 4
%v=getelementptr inbounds i8,i8*%h,i64 24
%w=bitcast i8*%v to i32*
store i32 0,i32*%w,align 4
%x=call i8*@sml_alloc(i32 inreg 28)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177304,i32*%z,align 4
%A=load i8*,i8**%g,align 8
%B=bitcast i8*%x to i8**
store i8*%A,i8**%B,align 8
%C=getelementptr inbounds i8,i8*%x,i64 8
%D=bitcast i8*%C to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair3mapE_121 to void(...)*),void(...)**%D,align 8
%E=getelementptr inbounds i8,i8*%x,i64 16
%F=bitcast i8*%E to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair3mapE_121 to void(...)*),void(...)**%F,align 8
%G=getelementptr inbounds i8,i8*%x,i64 24
%H=bitcast i8*%G to i32*
store i32 -2147483647,i32*%H,align 4
ret i8*%x
}
define internal fastcc i8*@_SMLLLN8ListPair5mapEqE_126(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
aE:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 12
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%o,%l
%q=add i32%p,7
%r=and i32%q,-8
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%u,7
%z=add i32%y,%x
%A=and i32%z,-8
%B=add i32%v,%p
%C=and i32%B,%w
%D=add i32%y,%C
%E=and i32%D,-8
%F=lshr i32%C,3
%G=lshr i32%o,3
%H=sub nsw i32%F,%G
%I=getelementptr inbounds i8,i8*%a,i64 16
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=shl i32%K,%H
%M=getelementptr inbounds i8,i8*%a,i64 8
%N=bitcast i8*%M to i32*
%O=load i32,i32*%N,align 4
%P=or i32%L,%O
%Q=or i32%E,4
%R=getelementptr inbounds i8,i8*%a,i64 28
%S=bitcast i8*%R to i32*
%T=load i32,i32*%S,align 4
%U=add i32%T,-1
%V=sub i32 0,%T
%W=and i32%U,%V
%X=add i32%T,7
%Y=add i32%X,%W
%Z=and i32%Y,-8
%aa=add i32%Z,15
%ab=and i32%aa,-8
%ac=lshr i32%Y,3
%ad=lshr i32%W,3
%ae=sub nsw i32%ac,%ad
%af=shl i32 1,%ae
%ag=getelementptr inbounds i8,i8*%a,i64 24
%ah=bitcast i8*%ag to i32*
%ai=load i32,i32*%ah,align 4
%aj=or i32%af,%ai
%ak=or i32%ab,4
%al=bitcast i8*%b to i8**
%am=load i8*,i8**%al,align 8
%an=getelementptr inbounds i8,i8*%b,i64 8
%ao=bitcast i8*%an to i8**
%ap=load i8*,i8**%ao,align 8
%aq=sext i32%o to i64
%ar=sext i32%r to i64
%as=sext i32%x to i64
%at=sext i32%A to i64
%au=bitcast i8**%h to i8***
%av=or i32%E,1342177280
%aw=sext i32%C to i64
%ax=sext i32%E to i64
%ay=or i32%ab,1342177280
%az=sext i32%W to i64
%aA=sext i32%Z to i64
%aB=sext i32%ab to i64
br label%aC
aC:
%aD=phi i8*[%dN,%dH],[%am,%aE]
%aF=phi i8*[%dO,%dH],[%ap,%aE]
%aG=phi i8*[%dy,%dH],[null,%aE]
store i8*%aD,i8**%c,align 8
store i8*%aF,i8**%d,align 8
store i8*%aG,i8**%e,align 8
%aH=load atomic i32,i32*@sml_check_flag unordered,align 4
%aI=icmp eq i32%aH,0
br i1%aI,label%aL,label%aJ
aJ:
call void@sml_check(i32 inreg%aH)
%aK=load i8*,i8**%c,align 8
br label%aL
aL:
%aM=phi i8*[%aK,%aJ],[%aD,%aC]
%aN=icmp eq i8*%aM,null
br i1%aN,label%aO,label%bR
aO:
store i8*null,i8**%c,align 8
%aP=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aQ=icmp eq i8*%aP,null
br i1%aQ,label%aR,label%bQ
aR:
%aS=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%aS,i8**%c,align 8
br label%aT
aT:
%aU=phi i8*[%bB,%bK],[null,%aR]
store i8*%aU,i8**%d,align 8
%aV=load atomic i32,i32*@sml_check_flag unordered,align 4
%aW=icmp eq i32%aV,0
br i1%aW,label%aY,label%aX
aX:
call void@sml_check(i32 inreg%aV)
br label%aY
aY:
%aZ=load i8*,i8**%c,align 8
%a0=icmp eq i8*%aZ,null
br i1%a0,label%a1,label%a3
a1:
%a2=load i8*,i8**%d,align 8
ret i8*%a2
a3:
%a4=load i8*,i8**%h,align 8
%a5=getelementptr inbounds i8,i8*%a4,i64 24
%a6=bitcast i8*%a5 to i32*
%a7=load i32,i32*%a6,align 4
%a8=icmp eq i32%a7,0
br i1%a8,label%bd,label%a9
a9:
%ba=getelementptr inbounds i8,i8*%aZ,i64%az
%bb=bitcast i8*%ba to i8**
%bc=load i8*,i8**%bb,align 8
br label%bq
bd:
%be=getelementptr inbounds i8,i8*%a4,i64 28
%bf=bitcast i8*%be to i32*
%bg=load i32,i32*%bf,align 4
%bh=call i8*@sml_alloc(i32 inreg%bg)#0
%bi=getelementptr inbounds i8,i8*%bh,i64 -4
%bj=bitcast i8*%bi to i32*
store i32%bg,i32*%bj,align 4
%bk=load i8*,i8**%c,align 8
%bl=getelementptr inbounds i8,i8*%bk,i64%az
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bh,i8*%bl,i32%bg,i1 false)
%bm=load i8*,i8**%h,align 8
%bn=getelementptr inbounds i8,i8*%bm,i64 24
%bo=bitcast i8*%bn to i32*
%bp=load i32,i32*%bo,align 4
br label%bq
bq:
%br=phi i32[%bp,%bd],[%a7,%a9]
%bs=phi i8*[%bm,%bd],[%a4,%a9]
%bt=phi i8*[%bk,%bd],[%aZ,%a9]
%bu=phi i8*[%bh,%bd],[%bc,%a9]
store i8*%bu,i8**%e,align 8
%bv=getelementptr inbounds i8,i8*%bt,i64%aA
%bw=bitcast i8*%bv to i8**
%bx=load i8*,i8**%bw,align 8
store i8*%bx,i8**%c,align 8
%by=getelementptr inbounds i8,i8*%bs,i64 28
%bz=bitcast i8*%by to i32*
%bA=load i32,i32*%bz,align 4
%bB=call i8*@sml_alloc(i32 inreg%ak)#0
%bC=getelementptr inbounds i8,i8*%bB,i64 -4
%bD=bitcast i8*%bC to i32*
store i32%ay,i32*%bD,align 4
call void@llvm.memset.p0i8.i32(i8*%bB,i8 0,i32%ak,i1 false)
%bE=icmp eq i32%br,0
%bF=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bG=getelementptr inbounds i8,i8*%bB,i64%az
br i1%bE,label%bH,label%bI
bH:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bG,i8*%bF,i32%bA,i1 false)
br label%bK
bI:
%bJ=bitcast i8*%bG to i8**
store i8*%bF,i8**%bJ,align 8
br label%bK
bK:
%bL=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bM=getelementptr inbounds i8,i8*%bB,i64%aA
%bN=bitcast i8*%bM to i8**
store i8*%bL,i8**%bN,align 8
%bO=getelementptr inbounds i8,i8*%bB,i64%aB
%bP=bitcast i8*%bO to i32*
store i32%aj,i32*%bP,align 4
br label%aT
bQ:
store i8*null,i8**%e,align 8
br label%dP
bR:
%bS=load i8*,i8**%h,align 8
%bT=getelementptr inbounds i8,i8*%bS,i64 8
%bU=bitcast i8*%bT to i32*
%bV=load i32,i32*%bU,align 4
%bW=icmp eq i32%bV,0
br i1%bW,label%b1,label%bX
bX:
%bY=getelementptr inbounds i8,i8*%aM,i64%aq
%bZ=bitcast i8*%bY to i8**
%b0=load i8*,i8**%bZ,align 8
br label%ca
b1:
%b2=getelementptr inbounds i8,i8*%bS,i64 12
%b3=bitcast i8*%b2 to i32*
%b4=load i32,i32*%b3,align 4
%b5=call i8*@sml_alloc(i32 inreg%b4)#0
%b6=getelementptr inbounds i8,i8*%b5,i64 -4
%b7=bitcast i8*%b6 to i32*
store i32%b4,i32*%b7,align 4
%b8=load i8*,i8**%c,align 8
%b9=getelementptr inbounds i8,i8*%b8,i64%aq
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%b5,i8*%b9,i32%b4,i1 false)
br label%ca
ca:
%cb=phi i8*[%b8,%b1],[%aM,%bX]
%cc=phi i8*[%b5,%b1],[%b0,%bX]
store i8*%cc,i8**%f,align 8
%cd=getelementptr inbounds i8,i8*%cb,i64%ar
%ce=bitcast i8*%cd to i8**
%cf=load i8*,i8**%ce,align 8
store i8*%cf,i8**%c,align 8
%cg=load i8*,i8**%d,align 8
%ch=icmp eq i8*%cg,null
br i1%ch,label%ci,label%cj
ci:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
br label%dP
cj:
%ck=load i8*,i8**%h,align 8
%cl=getelementptr inbounds i8,i8*%ck,i64 16
%cm=bitcast i8*%cl to i32*
%cn=load i32,i32*%cm,align 4
%co=icmp eq i32%cn,0
br i1%co,label%cu,label%cp
cp:
%cq=bitcast i8*%ck to i8**
%cr=getelementptr inbounds i8,i8*%cg,i64%as
%cs=bitcast i8*%cr to i8**
%ct=load i8*,i8**%cs,align 8
br label%cI
cu:
%cv=getelementptr inbounds i8,i8*%ck,i64 20
%cw=bitcast i8*%cv to i32*
%cx=load i32,i32*%cw,align 4
%cy=call i8*@sml_alloc(i32 inreg%cx)#0
%cz=getelementptr inbounds i8,i8*%cy,i64 -4
%cA=bitcast i8*%cz to i32*
store i32%cx,i32*%cA,align 4
%cB=load i8*,i8**%d,align 8
%cC=getelementptr inbounds i8,i8*%cB,i64%as
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cy,i8*%cC,i32%cx,i1 false)
%cD=load i8**,i8***%au,align 8
%cE=bitcast i8**%cD to i8*
%cF=getelementptr inbounds i8*,i8**%cD,i64 2
%cG=bitcast i8**%cF to i32*
%cH=load i32,i32*%cG,align 4
br label%cI
cI:
%cJ=phi i32[%cH,%cu],[%cn,%cp]
%cK=phi i8*[%cE,%cu],[%ck,%cp]
%cL=phi i8**[%cD,%cu],[%cq,%cp]
%cM=phi i8*[%cB,%cu],[%cg,%cp]
%cN=phi i8*[%cy,%cu],[%ct,%cp]
store i8*%cN,i8**%g,align 8
%cO=getelementptr inbounds i8,i8*%cM,i64%at
%cP=bitcast i8*%cO to i8**
%cQ=load i8*,i8**%cP,align 8
store i8*%cQ,i8**%i,align 8
%cR=load i8*,i8**%cL,align 8
%cS=getelementptr inbounds i8,i8*%cR,i64 16
%cT=bitcast i8*%cS to i8*(i8*,i8*)**
%cU=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%cT,align 8
%cV=bitcast i8*%cR to i8**
%cW=load i8*,i8**%cV,align 8
store i8*%cW,i8**%d,align 8
%cX=getelementptr inbounds i8,i8*%cK,i64 12
%cY=bitcast i8*%cX to i32*
%cZ=load i32,i32*%cY,align 4
%c0=getelementptr inbounds i8,i8*%cK,i64 8
%c1=bitcast i8*%c0 to i32*
%c2=load i32,i32*%c1,align 4
%c3=getelementptr inbounds i8,i8*%cK,i64 20
%c4=bitcast i8*%c3 to i32*
%c5=load i32,i32*%c4,align 4
%c6=call i8*@sml_alloc(i32 inreg%Q)#0
%c7=getelementptr inbounds i8,i8*%c6,i64 -4
%c8=bitcast i8*%c7 to i32*
store i32%av,i32*%c8,align 4
call void@llvm.memset.p0i8.i32(i8*%c6,i8 0,i32%Q,i1 false)
%c9=icmp eq i32%c2,0
%da=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%db=getelementptr inbounds i8,i8*%c6,i64%aq
br i1%c9,label%dc,label%dd
dc:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%db,i8*%da,i32%cZ,i1 false)
br label%df
dd:
%de=bitcast i8*%db to i8**
store i8*%da,i8**%de,align 8
br label%df
df:
%dg=icmp eq i32%cJ,0
%dh=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%di=getelementptr inbounds i8,i8*%c6,i64%aw
br i1%dg,label%dj,label%dk
dj:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%di,i8*%dh,i32%c5,i1 false)
br label%dm
dk:
%dl=bitcast i8*%di to i8**
store i8*%dh,i8**%dl,align 8
br label%dm
dm:
%dn=getelementptr inbounds i8,i8*%c6,i64%ax
%do=bitcast i8*%dn to i32*
store i32%P,i32*%do,align 4
%dp=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%dq=call fastcc i8*%cU(i8*inreg%dp,i8*inreg%c6)
store i8*%dq,i8**%d,align 8
%dr=load i8*,i8**%h,align 8
%ds=getelementptr inbounds i8,i8*%dr,i64 28
%dt=bitcast i8*%ds to i32*
%du=load i32,i32*%dt,align 4
%dv=getelementptr inbounds i8,i8*%dr,i64 24
%dw=bitcast i8*%dv to i32*
%dx=load i32,i32*%dw,align 4
%dy=call i8*@sml_alloc(i32 inreg%ak)#0
%dz=getelementptr inbounds i8,i8*%dy,i64 -4
%dA=bitcast i8*%dz to i32*
store i32%ay,i32*%dA,align 4
call void@llvm.memset.p0i8.i32(i8*%dy,i8 0,i32%ak,i1 false)
%dB=icmp eq i32%dx,0
%dC=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%dD=getelementptr inbounds i8,i8*%dy,i64%az
br i1%dB,label%dE,label%dF
dE:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dD,i8*%dC,i32%du,i1 false)
br label%dH
dF:
%dG=bitcast i8*%dD to i8**
store i8*%dC,i8**%dG,align 8
br label%dH
dH:
%dI=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%dJ=getelementptr inbounds i8,i8*%dy,i64%aA
%dK=bitcast i8*%dJ to i8**
store i8*%dI,i8**%dK,align 8
%dL=getelementptr inbounds i8,i8*%dy,i64%aB
%dM=bitcast i8*%dL to i32*
store i32%aj,i32*%dM,align 4
%dN=load i8*,i8**%c,align 8
%dO=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%aC
dP:
store i8*null,i8**%h,align 8
%dQ=call i8*@sml_alloc(i32 inreg 60)#0
%dR=getelementptr inbounds i8,i8*%dQ,i64 -4
%dS=bitcast i8*%dR to i32*
store i32 1342177336,i32*%dS,align 4
%dT=getelementptr inbounds i8,i8*%dQ,i64 56
%dU=bitcast i8*%dT to i32*
store i32 1,i32*%dU,align 4
%dV=bitcast i8*%dQ to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@l,i64 0,i32 2)to i8*),i8**%dV,align 8
call void@sml_raise(i8*inreg%dQ)#1
unreachable
}
define internal fastcc i8*@_SMLLLN8ListPair5mapEqE_127(i8*inreg%a,i8*inreg%b)#3 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=getelementptr inbounds i8,i8*%a,i64 16
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 36)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177312,i32*%x,align 4
store i8*%v,i8**%d,align 8
%y=load i8*,i8**%c,align 8
store i8*null,i8**%c,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%f,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%i,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%l,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 20
%H=bitcast i8*%G to i32*
store i32%o,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%v,i64 24
%J=bitcast i8*%I to i32*
store i32%r,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%v,i64 28
%L=bitcast i8*%K to i32*
store i32%u,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%v,i64 32
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,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
%R=load i8*,i8**%d,align 8
%S=bitcast i8*%O to i8**
store i8*%R,i8**%S,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5mapEqE_126 to void(...)*),void(...)**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5mapEqE_126 to void(...)*),void(...)**%W,align 8
%X=getelementptr inbounds i8,i8*%O,i64 24
%Y=bitcast i8*%X to i32*
store i32 -2147483647,i32*%Y,align 4
ret i8*%O
}
define fastcc i8*@_SMLFN8ListPair5mapEqE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d,i32 inreg%e,i32 inreg%f)#3 gc"smlsharp"{
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%g,i8*null)#0
%h=call i8*@sml_alloc(i32 inreg 28)#0
%i=bitcast i8*%h to i32*
%j=getelementptr inbounds i8,i8*%h,i64 -4
%k=bitcast i8*%j to i32*
store i32 1342177304,i32*%k,align 4
store i8*%h,i8**%g,align 8
store i32%a,i32*%i,align 4
%l=getelementptr inbounds i8,i8*%h,i64 4
%m=bitcast i8*%l to i32*
store i32%b,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i32*
store i32%c,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%h,i64 12
%q=bitcast i8*%p to i32*
store i32%d,i32*%q,align 4
%r=getelementptr inbounds i8,i8*%h,i64 16
%s=bitcast i8*%r to i32*
store i32%e,i32*%s,align 4
%t=getelementptr inbounds i8,i8*%h,i64 20
%u=bitcast i8*%t to i32*
store i32%f,i32*%u,align 4
%v=getelementptr inbounds i8,i8*%h,i64 24
%w=bitcast i8*%v to i32*
store i32 0,i32*%w,align 4
%x=call i8*@sml_alloc(i32 inreg 28)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177304,i32*%z,align 4
%A=load i8*,i8**%g,align 8
%B=bitcast i8*%x to i8**
store i8*%A,i8**%B,align 8
%C=getelementptr inbounds i8,i8*%x,i64 8
%D=bitcast i8*%C to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5mapEqE_127 to void(...)*),void(...)**%D,align 8
%E=getelementptr inbounds i8,i8*%x,i64 16
%F=bitcast i8*%E to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5mapEqE_127 to void(...)*),void(...)**%F,align 8
%G=getelementptr inbounds i8,i8*%x,i64 24
%H=bitcast i8*%G to i32*
store i32 -2147483647,i32*%H,align 4
ret i8*%x
}
define internal fastcc i8*@_SMLLLN8ListPair5foldlE_130(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
q:
%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
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
store i8*%a,i8**%h,align 8
store i8*%b,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%o,label%l
l:
call void@sml_check(i32 inreg%j)
%m=load i8*,i8**%c,align 8
%n=load i8*,i8**%h,align 8
br label%o
o:
%p=phi i8*[%n,%l],[%a,%q]
%r=phi i8*[%m,%l],[%b,%q]
%s=getelementptr inbounds i8,i8*%p,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%x,%u
%z=add i32%y,7
%A=and i32%z,-8
%B=getelementptr inbounds i8,i8*%p,i64 28
%C=bitcast i8*%B to i32*
%D=load i32,i32*%C,align 4
%E=add i32%D,-1
%F=sub i32 0,%D
%G=and i32%E,%F
%H=add i32%D,7
%I=add i32%H,%G
%J=and i32%I,-8
%K=add i32%E,%y
%L=and i32%K,%F
%M=getelementptr inbounds i8,i8*%p,i64 36
%N=bitcast i8*%M to i32*
%O=load i32,i32*%N,align 4
%P=add i32%E,%O
%Q=add i32%P,%L
%R=sub i32 0,%O
%S=and i32%Q,%R
%T=add i32%O,7
%U=add i32%T,%S
%V=and i32%U,-8
%W=lshr i32%S,3
%X=lshr i32%L,3
%Y=sub nsw i32%W,%X
%Z=lshr i32%x,3
%aa=sub nsw i32%X,%Z
%ab=getelementptr inbounds i8,i8*%p,i64 32
%ac=bitcast i8*%ab to i32*
%ad=load i32,i32*%ac,align 4
%ae=shl i32%ad,%Y
%af=getelementptr inbounds i8,i8*%p,i64 24
%ag=bitcast i8*%af to i32*
%ah=load i32,i32*%ag,align 4
%ai=or i32%ae,%ah
%aj=shl i32%ai,%aa
%ak=getelementptr inbounds i8,i8*%p,i64 16
%al=bitcast i8*%ak to i32*
%am=load i32,i32*%al,align 4
%an=or i32%aj,%am
%ao=or i32%V,4
%ap=bitcast i8*%r to i8**
%aq=load i8*,i8**%ap,align 8
store i8*%aq,i8**%c,align 8
%ar=getelementptr inbounds i8,i8*%r,i64 8
%as=bitcast i8*%ar to i8**
%at=load i8*,i8**%as,align 8
store i8*%at,i8**%d,align 8
%au=icmp eq i32%ad,0
br i1%au,label%az,label%av
av:
%aw=getelementptr inbounds i8,i8*%p,i64 8
%ax=bitcast i8*%aw to i8**
%ay=load i8*,i8**%ax,align 8
br label%aH
az:
%aA=call i8*@sml_alloc(i32 inreg%O)#0
%aB=getelementptr inbounds i8,i8*%aA,i64 -4
%aC=bitcast i8*%aB to i32*
store i32%O,i32*%aC,align 4
%aD=load i8*,i8**%h,align 8
%aE=getelementptr inbounds i8,i8*%aD,i64 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aA,i8*%aE,i32%O,i1 false)
%aF=load i8*,i8**%c,align 8
%aG=load i8*,i8**%d,align 8
br label%aH
aH:
%aI=phi i8*[%at,%av],[%aG,%az]
%aJ=phi i8*[%aq,%av],[%aF,%az]
%aK=phi i8*[%ay,%av],[%aA,%az]
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
%aL=sext i32%x to i64
%aM=sext i32%A to i64
%aN=sext i32%G to i64
%aO=sext i32%J to i64
%aP=bitcast i8**%h to i8***
%aQ=or i32%V,1342177280
%aR=sext i32%L to i64
%aS=sext i32%S to i64
%aT=sext i32%V to i64
br label%aU
aU:
%aV=phi i8*[%cO,%cJ],[%aJ,%aH]
%aW=phi i8*[%cP,%cJ],[%aI,%aH]
%aX=phi i8*[%cN,%cJ],[%aK,%aH]
store i8*%aV,i8**%c,align 8
store i8*%aW,i8**%d,align 8
store i8*%aX,i8**%e,align 8
%aY=icmp eq i8*%aV,null
br i1%aY,label%cQ,label%aZ
aZ:
%a0=load i8*,i8**%h,align 8
%a1=getelementptr inbounds i8,i8*%a0,i64 16
%a2=bitcast i8*%a1 to i32*
%a3=load i32,i32*%a2,align 4
%a4=icmp eq i32%a3,0
br i1%a4,label%a9,label%a5
a5:
%a6=getelementptr inbounds i8,i8*%aV,i64%aL
%a7=bitcast i8*%a6 to i8**
%a8=load i8*,i8**%a7,align 8
br label%bj
a9:
%ba=getelementptr inbounds i8,i8*%a0,i64 20
%bb=bitcast i8*%ba to i32*
%bc=load i32,i32*%bb,align 4
%bd=call i8*@sml_alloc(i32 inreg%bc)#0
%be=getelementptr inbounds i8,i8*%bd,i64 -4
%bf=bitcast i8*%be to i32*
store i32%bc,i32*%bf,align 4
%bg=load i8*,i8**%c,align 8
%bh=getelementptr inbounds i8,i8*%bg,i64%aL
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bd,i8*%bh,i32%bc,i1 false)
%bi=load i8*,i8**%d,align 8
br label%bj
bj:
%bk=phi i8*[%bi,%a9],[%aW,%a5]
%bl=phi i8*[%bg,%a9],[%aV,%a5]
%bm=phi i8*[%bd,%a9],[%a8,%a5]
store i8*%bm,i8**%f,align 8
%bn=getelementptr inbounds i8,i8*%bl,i64%aM
%bo=bitcast i8*%bn to i8**
%bp=load i8*,i8**%bo,align 8
store i8*%bp,i8**%c,align 8
%bq=icmp eq i8*%bk,null
br i1%bq,label%br,label%bt
br:
%bs=load i8*,i8**%e,align 8
br label%cQ
bt:
%bu=load i8*,i8**%h,align 8
%bv=getelementptr inbounds i8,i8*%bu,i64 24
%bw=bitcast i8*%bv to i32*
%bx=load i32,i32*%bw,align 4
%by=icmp eq i32%bx,0
br i1%by,label%bE,label%bz
bz:
%bA=bitcast i8*%bu to i8**
%bB=getelementptr inbounds i8,i8*%bk,i64%aN
%bC=bitcast i8*%bB to i8**
%bD=load i8*,i8**%bC,align 8
br label%bS
bE:
%bF=getelementptr inbounds i8,i8*%bu,i64 28
%bG=bitcast i8*%bF to i32*
%bH=load i32,i32*%bG,align 4
%bI=call i8*@sml_alloc(i32 inreg%bH)#0
%bJ=getelementptr inbounds i8,i8*%bI,i64 -4
%bK=bitcast i8*%bJ to i32*
store i32%bH,i32*%bK,align 4
%bL=load i8*,i8**%d,align 8
%bM=getelementptr inbounds i8,i8*%bL,i64%aN
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bI,i8*%bM,i32%bH,i1 false)
%bN=load i8**,i8***%aP,align 8
%bO=bitcast i8**%bN to i8*
%bP=getelementptr inbounds i8*,i8**%bN,i64 3
%bQ=bitcast i8**%bP to i32*
%bR=load i32,i32*%bQ,align 4
br label%bS
bS:
%bT=phi i32[%bR,%bE],[%bx,%bz]
%bU=phi i8*[%bO,%bE],[%bu,%bz]
%bV=phi i8**[%bN,%bE],[%bA,%bz]
%bW=phi i8*[%bL,%bE],[%bk,%bz]
%bX=phi i8*[%bI,%bE],[%bD,%bz]
store i8*%bX,i8**%g,align 8
%bY=getelementptr inbounds i8,i8*%bW,i64%aO
%bZ=bitcast i8*%bY to i8**
%b0=load i8*,i8**%bZ,align 8
store i8*%b0,i8**%i,align 8
%b1=load i8*,i8**%bV,align 8
%b2=getelementptr inbounds i8,i8*%b1,i64 16
%b3=bitcast i8*%b2 to i8*(i8*,i8*)**
%b4=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%b3,align 8
%b5=bitcast i8*%b1 to i8**
%b6=load i8*,i8**%b5,align 8
store i8*%b6,i8**%d,align 8
%b7=getelementptr inbounds i8,i8*%bU,i64 20
%b8=bitcast i8*%b7 to i32*
%b9=load i32,i32*%b8,align 4
%ca=getelementptr inbounds i8,i8*%bU,i64 16
%cb=bitcast i8*%ca to i32*
%cc=load i32,i32*%cb,align 4
%cd=getelementptr inbounds i8,i8*%bU,i64 28
%ce=bitcast i8*%cd to i32*
%cf=load i32,i32*%ce,align 4
%cg=getelementptr inbounds i8,i8*%bU,i64 36
%ch=bitcast i8*%cg to i32*
%ci=load i32,i32*%ch,align 4
%cj=getelementptr inbounds i8,i8*%bU,i64 32
%ck=bitcast i8*%cj to i32*
%cl=load i32,i32*%ck,align 4
%cm=call i8*@sml_alloc(i32 inreg%ao)#0
%cn=getelementptr inbounds i8,i8*%cm,i64 -4
%co=bitcast i8*%cn to i32*
store i32%aQ,i32*%co,align 4
call void@llvm.memset.p0i8.i32(i8*%cm,i8 0,i32%ao,i1 false)
%cp=icmp eq i32%cc,0
%cq=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%cr=getelementptr inbounds i8,i8*%cm,i64%aL
br i1%cp,label%cs,label%ct
cs:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cr,i8*%cq,i32%b9,i1 false)
br label%cv
ct:
%cu=bitcast i8*%cr to i8**
store i8*%cq,i8**%cu,align 8
br label%cv
cv:
%cw=icmp eq i32%bT,0
%cx=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%cy=getelementptr inbounds i8,i8*%cm,i64%aR
br i1%cw,label%cz,label%cA
cz:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cy,i8*%cx,i32%cf,i1 false)
br label%cC
cA:
%cB=bitcast i8*%cy to i8**
store i8*%cx,i8**%cB,align 8
br label%cC
cC:
%cD=icmp eq i32%cl,0
%cE=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cF=getelementptr inbounds i8,i8*%cm,i64%aS
br i1%cD,label%cG,label%cH
cG:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cF,i8*%cE,i32%ci,i1 false)
br label%cJ
cH:
%cI=bitcast i8*%cF to i8**
store i8*%cE,i8**%cI,align 8
br label%cJ
cJ:
%cK=getelementptr inbounds i8,i8*%cm,i64%aT
%cL=bitcast i8*%cK to i32*
store i32%an,i32*%cL,align 4
%cM=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cN=call fastcc i8*%b4(i8*inreg%cM,i8*inreg%cm)
%cO=load i8*,i8**%c,align 8
%cP=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%aU
cQ:
%cR=phi i8*[%bs,%br],[%aX,%aU]
ret i8*%cR
}
define internal fastcc i8*@_SMLLLN8ListPair5foldlE_131(i8*inreg%a,i8*inreg%b)#3 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 24
%g=bitcast i8*%f to i32*
%h=load i32,i32*%g,align 4
%i=shl i32%h,1
%j=or i32%i,1
%k=bitcast i8*%a to i8**
%l=load i8*,i8**%k,align 8
store i8*%l,i8**%d,align 8
%m=getelementptr inbounds i8,i8*%a,i64 28
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%a,i64 8
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=getelementptr inbounds i8,i8*%a,i64 16
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=getelementptr inbounds i8,i8*%a,i64 20
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=call i8*@sml_alloc(i32 inreg 44)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177320,i32*%D,align 4
store i8*%B,i8**%e,align 8
%E=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=icmp eq i32%h,0
%H=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%I=getelementptr inbounds i8,i8*%B,i64 8
br i1%G,label%J,label%K
J:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%I,i8*%H,i32%o,i1 false)
br label%M
K:
%L=bitcast i8*%I to i8**
store i8*%H,i8**%L,align 8
br label%M
M:
%N=getelementptr inbounds i8,i8*%B,i64 16
%O=bitcast i8*%N to i32*
store i32%r,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%B,i64 20
%Q=bitcast i8*%P to i32*
store i32%u,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%B,i64 24
%S=bitcast i8*%R to i32*
store i32%x,i32*%S,align 4
%T=getelementptr inbounds i8,i8*%B,i64 28
%U=bitcast i8*%T to i32*
store i32%A,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%B,i64 32
%W=bitcast i8*%V to i32*
store i32%h,i32*%W,align 4
%X=getelementptr inbounds i8,i8*%B,i64 36
%Y=bitcast i8*%X to i32*
store i32%o,i32*%Y,align 4
%Z=getelementptr inbounds i8,i8*%B,i64 40
%aa=bitcast i8*%Z to i32*
store i32%j,i32*%aa,align 4
%ab=call i8*@sml_alloc(i32 inreg 28)#0
%ac=getelementptr inbounds i8,i8*%ab,i64 -4
%ad=bitcast i8*%ac to i32*
store i32 1342177304,i32*%ad,align 4
%ae=load i8*,i8**%e,align 8
%af=bitcast i8*%ab to i8**
store i8*%ae,i8**%af,align 8
%ag=getelementptr inbounds i8,i8*%ab,i64 8
%ah=bitcast i8*%ag to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldlE_130 to void(...)*),void(...)**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ab,i64 16
%aj=bitcast i8*%ai to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldlE_130 to void(...)*),void(...)**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ab,i64 24
%al=bitcast i8*%ak to i32*
store i32 1,i32*%al,align 4
ret i8*%ab
}
define internal fastcc i8*@_SMLLLN8ListPair5foldlE_132(i8*inreg%a,i8*inreg%b)#3 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=getelementptr inbounds i8,i8*%a,i64 16
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 36)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177312,i32*%x,align 4
store i8*%v,i8**%d,align 8
%y=load i8*,i8**%c,align 8
store i8*null,i8**%c,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%f,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%i,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%l,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 20
%H=bitcast i8*%G to i32*
store i32%o,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%v,i64 24
%J=bitcast i8*%I to i32*
store i32%r,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%v,i64 28
%L=bitcast i8*%K to i32*
store i32%u,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%v,i64 32
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,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
%R=load i8*,i8**%d,align 8
%S=bitcast i8*%O to i8**
store i8*%R,i8**%S,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldlE_131 to void(...)*),void(...)**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldlE_131 to void(...)*),void(...)**%W,align 8
%X=getelementptr inbounds i8,i8*%O,i64 24
%Y=bitcast i8*%X to i32*
store i32 1,i32*%Y,align 4
ret i8*%O
}
define fastcc i8*@_SMLFN8ListPair5foldlE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d,i32 inreg%e,i32 inreg%f)#3 gc"smlsharp"{
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%g,i8*null)#0
%h=call i8*@sml_alloc(i32 inreg 28)#0
%i=bitcast i8*%h to i32*
%j=getelementptr inbounds i8,i8*%h,i64 -4
%k=bitcast i8*%j to i32*
store i32 1342177304,i32*%k,align 4
store i8*%h,i8**%g,align 8
store i32%a,i32*%i,align 4
%l=getelementptr inbounds i8,i8*%h,i64 4
%m=bitcast i8*%l to i32*
store i32%b,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i32*
store i32%c,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%h,i64 12
%q=bitcast i8*%p to i32*
store i32%d,i32*%q,align 4
%r=getelementptr inbounds i8,i8*%h,i64 16
%s=bitcast i8*%r to i32*
store i32%e,i32*%s,align 4
%t=getelementptr inbounds i8,i8*%h,i64 20
%u=bitcast i8*%t to i32*
store i32%f,i32*%u,align 4
%v=getelementptr inbounds i8,i8*%h,i64 24
%w=bitcast i8*%v to i32*
store i32 0,i32*%w,align 4
%x=call i8*@sml_alloc(i32 inreg 28)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177304,i32*%z,align 4
%A=load i8*,i8**%g,align 8
%B=bitcast i8*%x to i8**
store i8*%A,i8**%B,align 8
%C=getelementptr inbounds i8,i8*%x,i64 8
%D=bitcast i8*%C to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldlE_132 to void(...)*),void(...)**%D,align 8
%E=getelementptr inbounds i8,i8*%x,i64 16
%F=bitcast i8*%E to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldlE_132 to void(...)*),void(...)**%F,align 8
%G=getelementptr inbounds i8,i8*%x,i64 24
%H=bitcast i8*%G to i32*
store i32 -2147483647,i32*%H,align 4
ret i8*%x
}
define internal fastcc i8*@_SMLLLN8ListPair5foldrE_135(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
aA:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 20
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%o,%l
%q=add i32%p,7
%r=and i32%q,-8
%s=getelementptr inbounds i8,i8*%a,i64 28
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%u,7
%z=add i32%y,%x
%A=and i32%z,-8
%B=add i32%v,%p
%C=and i32%B,%w
%D=add i32%C,%u
%E=add i32%D,7
%F=and i32%E,-8
%G=lshr i32%C,3
%H=lshr i32%o,3
%I=sub nsw i32%G,%H
%J=getelementptr inbounds i8,i8*%a,i64 24
%K=bitcast i8*%J to i32*
%L=load i32,i32*%K,align 4
%M=shl i32%L,%I
%N=getelementptr inbounds i8,i8*%a,i64 16
%O=bitcast i8*%N to i32*
%P=load i32,i32*%O,align 4
%Q=or i32%M,%P
%R=or i32%F,4
%S=getelementptr inbounds i8,i8*%a,i64 36
%T=bitcast i8*%S to i32*
%U=load i32,i32*%T,align 4
%V=add i32%U,-1
%W=add i32%V,%D
%X=sub i32 0,%U
%Y=and i32%W,%X
%Z=add i32%U,7
%aa=add i32%Z,%Y
%ab=and i32%aa,-8
%ac=lshr i32%Y,3
%ad=sub nsw i32%ac,%G
%ae=getelementptr inbounds i8,i8*%a,i64 32
%af=bitcast i8*%ae to i32*
%ag=load i32,i32*%af,align 4
%ah=shl i32%ag,%ad
%ai=or i32%ah,%L
%aj=shl i32%ai,%I
%ak=or i32%aj,%P
%al=or i32%ab,4
%am=bitcast i8*%b to i8**
%an=load i8*,i8**%am,align 8
%ao=getelementptr inbounds i8,i8*%b,i64 8
%ap=bitcast i8*%ao to i8**
%aq=load i8*,i8**%ap,align 8
%ar=sext i32%o to i64
%as=sext i32%r to i64
%at=sext i32%x to i64
%au=sext i32%A to i64
%av=or i32%F,1342177280
%aw=sext i32%C to i64
%ax=sext i32%F to i64
br label%ay
ay:
%az=phi i8*[%ck,%b7],[%an,%aA]
%aB=phi i8*[%cl,%b7],[%aq,%aA]
%aC=phi i8*[%ca,%b7],[null,%aA]
store i8*%az,i8**%c,align 8
store i8*%aB,i8**%d,align 8
store i8*%aC,i8**%e,align 8
%aD=load atomic i32,i32*@sml_check_flag unordered,align 4
%aE=icmp eq i32%aD,0
br i1%aE,label%aH,label%aF
aF:
call void@sml_check(i32 inreg%aD)
%aG=load i8*,i8**%c,align 8
br label%aH
aH:
%aI=phi i8*[%aG,%aF],[%az,%ay]
%aJ=icmp eq i8*%aI,null
br i1%aJ,label%aK,label%aL
aK:
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%cm
aL:
%aM=load i8*,i8**%h,align 8
%aN=getelementptr inbounds i8,i8*%aM,i64 16
%aO=bitcast i8*%aN to i32*
%aP=load i32,i32*%aO,align 4
%aQ=icmp eq i32%aP,0
br i1%aQ,label%aV,label%aR
aR:
%aS=getelementptr inbounds i8,i8*%aI,i64%ar
%aT=bitcast i8*%aS to i8**
%aU=load i8*,i8**%aT,align 8
br label%a4
aV:
%aW=getelementptr inbounds i8,i8*%aM,i64 20
%aX=bitcast i8*%aW to i32*
%aY=load i32,i32*%aX,align 4
%aZ=call i8*@sml_alloc(i32 inreg%aY)#0
%a0=getelementptr inbounds i8,i8*%aZ,i64 -4
%a1=bitcast i8*%a0 to i32*
store i32%aY,i32*%a1,align 4
%a2=load i8*,i8**%c,align 8
%a3=getelementptr inbounds i8,i8*%a2,i64%ar
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aZ,i8*%a3,i32%aY,i1 false)
br label%a4
a4:
%a5=phi i8*[%a2,%aV],[%aI,%aR]
%a6=phi i8*[%aZ,%aV],[%aU,%aR]
store i8*%a6,i8**%f,align 8
%a7=getelementptr inbounds i8,i8*%a5,i64%as
%a8=bitcast i8*%a7 to i8**
%a9=load i8*,i8**%a8,align 8
store i8*%a9,i8**%c,align 8
%ba=load i8*,i8**%d,align 8
%bb=icmp eq i8*%ba,null
br i1%bb,label%bc,label%bd
bc:
store i8*null,i8**%d,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
br label%cm
bd:
%be=load i8*,i8**%h,align 8
%bf=getelementptr inbounds i8,i8*%be,i64 24
%bg=bitcast i8*%bf to i32*
%bh=load i32,i32*%bg,align 4
%bi=icmp eq i32%bh,0
br i1%bi,label%bn,label%bj
bj:
%bk=getelementptr inbounds i8,i8*%ba,i64%at
%bl=bitcast i8*%bk to i8**
%bm=load i8*,i8**%bl,align 8
br label%bA
bn:
%bo=getelementptr inbounds i8,i8*%be,i64 28
%bp=bitcast i8*%bo to i32*
%bq=load i32,i32*%bp,align 4
%br=call i8*@sml_alloc(i32 inreg%bq)#0
%bs=getelementptr inbounds i8,i8*%br,i64 -4
%bt=bitcast i8*%bs to i32*
store i32%bq,i32*%bt,align 4
%bu=load i8*,i8**%d,align 8
%bv=getelementptr inbounds i8,i8*%bu,i64%at
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%br,i8*%bv,i32%bq,i1 false)
%bw=load i8*,i8**%h,align 8
%bx=getelementptr inbounds i8,i8*%bw,i64 24
%by=bitcast i8*%bx to i32*
%bz=load i32,i32*%by,align 4
br label%bA
bA:
%bB=phi i32[%bz,%bn],[%bh,%bj]
%bC=phi i8*[%bw,%bn],[%be,%bj]
%bD=phi i8*[%bu,%bn],[%ba,%bj]
%bE=phi i8*[%br,%bn],[%bm,%bj]
store i8*%bE,i8**%g,align 8
store i8*null,i8**%d,align 8
%bF=getelementptr inbounds i8,i8*%bD,i64%au
%bG=bitcast i8*%bF to i8**
%bH=load i8*,i8**%bG,align 8
store i8*%bH,i8**%i,align 8
%bI=getelementptr inbounds i8,i8*%bC,i64 20
%bJ=bitcast i8*%bI to i32*
%bK=load i32,i32*%bJ,align 4
%bL=getelementptr inbounds i8,i8*%bC,i64 16
%bM=bitcast i8*%bL to i32*
%bN=load i32,i32*%bM,align 4
%bO=getelementptr inbounds i8,i8*%bC,i64 28
%bP=bitcast i8*%bO to i32*
%bQ=load i32,i32*%bP,align 4
%bR=call i8*@sml_alloc(i32 inreg%R)#0
%bS=getelementptr inbounds i8,i8*%bR,i64 -4
%bT=bitcast i8*%bS to i32*
store i32%av,i32*%bT,align 4
store i8*%bR,i8**%d,align 8
call void@llvm.memset.p0i8.i32(i8*%bR,i8 0,i32%R,i1 false)
%bU=icmp eq i32%bN,0
%bV=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bW=getelementptr inbounds i8,i8*%bR,i64%ar
br i1%bU,label%bX,label%bY
bX:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bW,i8*%bV,i32%bK,i1 false)
br label%b0
bY:
%bZ=bitcast i8*%bW to i8**
store i8*%bV,i8**%bZ,align 8
br label%b0
b0:
%b1=icmp eq i32%bB,0
%b2=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%b3=getelementptr inbounds i8,i8*%bR,i64%aw
br i1%b1,label%b4,label%b5
b4:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%b3,i8*%b2,i32%bQ,i1 false)
br label%b7
b5:
%b6=bitcast i8*%b3 to i8**
store i8*%b2,i8**%b6,align 8
br label%b7
b7:
%b8=getelementptr inbounds i8,i8*%bR,i64%ax
%b9=bitcast i8*%b8 to i32*
store i32%Q,i32*%b9,align 4
%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
%cd=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ce=bitcast i8*%ca to i8**
store i8*%cd,i8**%ce,align 8
%cf=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cg=getelementptr inbounds i8,i8*%ca,i64 8
%ch=bitcast i8*%cg to i8**
store i8*%cf,i8**%ch,align 8
%ci=getelementptr inbounds i8,i8*%ca,i64 16
%cj=bitcast i8*%ci to i32*
store i32 3,i32*%cj,align 4
%ck=load i8*,i8**%c,align 8
%cl=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%ay
cm:
%cn=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%cn,i8**%c,align 8
%co=load i8*,i8**%h,align 8
%cp=getelementptr inbounds i8,i8*%co,i64 32
%cq=bitcast i8*%cp to i32*
%cr=load i32,i32*%cq,align 4
%cs=icmp eq i32%cr,0
br i1%cs,label%cx,label%ct
ct:
%cu=getelementptr inbounds i8,i8*%co,i64 8
%cv=bitcast i8*%cu to i8**
%cw=load i8*,i8**%cv,align 8
br label%cG
cx:
%cy=getelementptr inbounds i8,i8*%co,i64 36
%cz=bitcast i8*%cy to i32*
%cA=load i32,i32*%cz,align 4
%cB=call i8*@sml_alloc(i32 inreg%cA)#0
%cC=getelementptr inbounds i8,i8*%cB,i64 -4
%cD=bitcast i8*%cC to i32*
store i32%cA,i32*%cD,align 4
%cE=load i8*,i8**%h,align 8
%cF=getelementptr inbounds i8,i8*%cE,i64 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cB,i8*%cF,i32%cA,i1 false)
br label%cG
cG:
%cH=phi i8*[%cw,%ct],[%cB,%cx]
%cI=bitcast i8**%h to i8***
%cJ=or i32%ab,1342177280
%cK=sext i32%Y to i64
%cL=sext i32%ab to i64
br label%cM
cM:
%cN=phi i8*[%eE,%eA],[%cH,%cG]
store i8*%cN,i8**%d,align 8
%cO=load atomic i32,i32*@sml_check_flag unordered,align 4
%cP=icmp eq i32%cO,0
br i1%cP,label%cR,label%cQ
cQ:
call void@sml_check(i32 inreg%cO)
br label%cR
cR:
%cS=load i8*,i8**%c,align 8
%cT=icmp eq i8*%cS,null
br i1%cT,label%cU,label%cW
cU:
%cV=load i8*,i8**%d,align 8
ret i8*%cV
cW:
%cX=bitcast i8*%cS to i8**
%cY=load i8*,i8**%cX,align 8
store i8*%cY,i8**%e,align 8
%cZ=load i8*,i8**%h,align 8
%c0=getelementptr inbounds i8,i8*%cZ,i64 16
%c1=bitcast i8*%c0 to i32*
%c2=load i32,i32*%c1,align 4
%c3=icmp eq i32%c2,0
br i1%c3,label%c8,label%c4
c4:
%c5=getelementptr inbounds i8,i8*%cY,i64%ar
%c6=bitcast i8*%c5 to i8**
%c7=load i8*,i8**%c6,align 8
br label%di
c8:
%c9=getelementptr inbounds i8,i8*%cZ,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**%e,align 8
%dg=getelementptr inbounds i8,i8*%df,i64%ar
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dc,i8*%dg,i32%db,i1 false)
%dh=load i8*,i8**%h,align 8
br label%di
di:
%dj=phi i8*[%dh,%c8],[%cZ,%c4]
%dk=phi i8*[%df,%c8],[%cY,%c4]
%dl=phi i8*[%dc,%c8],[%c7,%c4]
store i8*%dl,i8**%f,align 8
%dm=getelementptr inbounds i8,i8*%dj,i64 24
%dn=bitcast i8*%dm to i32*
%do=load i32,i32*%dn,align 4
%dp=icmp eq i32%do,0
br i1%dp,label%dv,label%dq
dq:
%dr=bitcast i8*%dj to i8**
store i8*null,i8**%e,align 8
%ds=getelementptr inbounds i8,i8*%dk,i64%aw
%dt=bitcast i8*%ds to i8**
%du=load i8*,i8**%dt,align 8
br label%dJ
dv:
%dw=getelementptr inbounds i8,i8*%dj,i64 28
%dx=bitcast i8*%dw to i32*
%dy=load i32,i32*%dx,align 4
%dz=call i8*@sml_alloc(i32 inreg%dy)#0
%dA=getelementptr inbounds i8,i8*%dz,i64 -4
%dB=bitcast i8*%dA to i32*
store i32%dy,i32*%dB,align 4
%dC=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%dD=getelementptr inbounds i8,i8*%dC,i64%aw
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dz,i8*%dD,i32%dy,i1 false)
%dE=load i8**,i8***%cI,align 8
%dF=bitcast i8**%dE to i8*
%dG=getelementptr inbounds i8*,i8**%dE,i64 3
%dH=bitcast i8**%dG to i32*
%dI=load i32,i32*%dH,align 4
br label%dJ
dJ:
%dK=phi i32[%dI,%dv],[%do,%dq]
%dL=phi i8*[%dF,%dv],[%dj,%dq]
%dM=phi i8**[%dE,%dv],[%dr,%dq]
%dN=phi i8*[%dz,%dv],[%du,%dq]
store i8*%dN,i8**%e,align 8
%dO=load i8*,i8**%c,align 8
%dP=getelementptr inbounds i8,i8*%dO,i64 8
%dQ=bitcast i8*%dP to i8**
%dR=load i8*,i8**%dQ,align 8
store i8*%dR,i8**%g,align 8
%dS=load i8*,i8**%dM,align 8
%dT=getelementptr inbounds i8,i8*%dS,i64 16
%dU=bitcast i8*%dT to i8*(i8*,i8*)**
%dV=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%dU,align 8
%dW=bitcast i8*%dS to i8**
%dX=load i8*,i8**%dW,align 8
store i8*%dX,i8**%c,align 8
%dY=getelementptr inbounds i8,i8*%dL,i64 20
%dZ=bitcast i8*%dY to i32*
%d0=load i32,i32*%dZ,align 4
%d1=getelementptr inbounds i8,i8*%dL,i64 16
%d2=bitcast i8*%d1 to i32*
%d3=load i32,i32*%d2,align 4
%d4=getelementptr inbounds i8,i8*%dL,i64 28
%d5=bitcast i8*%d4 to i32*
%d6=load i32,i32*%d5,align 4
%d7=getelementptr inbounds i8,i8*%dL,i64 36
%d8=bitcast i8*%d7 to i32*
%d9=load i32,i32*%d8,align 4
%ea=getelementptr inbounds i8,i8*%dL,i64 32
%eb=bitcast i8*%ea to i32*
%ec=load i32,i32*%eb,align 4
%ed=call i8*@sml_alloc(i32 inreg%al)#0
%ee=getelementptr inbounds i8,i8*%ed,i64 -4
%ef=bitcast i8*%ee to i32*
store i32%cJ,i32*%ef,align 4
call void@llvm.memset.p0i8.i32(i8*%ed,i8 0,i32%al,i1 false)
%eg=icmp eq i32%d3,0
%eh=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%ei=getelementptr inbounds i8,i8*%ed,i64%ar
br i1%eg,label%ej,label%ek
ej:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ei,i8*%eh,i32%d0,i1 false)
br label%em
ek:
%el=bitcast i8*%ei to i8**
store i8*%eh,i8**%el,align 8
br label%em
em:
%en=icmp eq i32%dK,0
%eo=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%ep=getelementptr inbounds i8,i8*%ed,i64%aw
br i1%en,label%eq,label%er
eq:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ep,i8*%eo,i32%d6,i1 false)
br label%et
er:
%es=bitcast i8*%ep to i8**
store i8*%eo,i8**%es,align 8
br label%et
et:
%eu=icmp eq i32%ec,0
%ev=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ew=getelementptr inbounds i8,i8*%ed,i64%cK
br i1%eu,label%ex,label%ey
ex:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ew,i8*%ev,i32%d9,i1 false)
br label%eA
ey:
%ez=bitcast i8*%ew to i8**
store i8*%ev,i8**%ez,align 8
br label%eA
eA:
%eB=getelementptr inbounds i8,i8*%ed,i64%cL
%eC=bitcast i8*%eB to i32*
store i32%ak,i32*%eC,align 4
%eD=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%eE=call fastcc i8*%dV(i8*inreg%eD,i8*inreg%ed)
%eF=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
store i8*%eF,i8**%c,align 8
br label%cM
}
define internal fastcc i8*@_SMLLLN8ListPair5foldrE_136(i8*inreg%a,i8*inreg%b)#3 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 24
%g=bitcast i8*%f to i32*
%h=load i32,i32*%g,align 4
%i=shl i32%h,1
%j=or i32%i,1
%k=bitcast i8*%a to i8**
%l=load i8*,i8**%k,align 8
store i8*%l,i8**%d,align 8
%m=getelementptr inbounds i8,i8*%a,i64 28
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%a,i64 8
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=getelementptr inbounds i8,i8*%a,i64 16
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=getelementptr inbounds i8,i8*%a,i64 20
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=call i8*@sml_alloc(i32 inreg 44)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177320,i32*%D,align 4
store i8*%B,i8**%e,align 8
%E=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=icmp eq i32%h,0
%H=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%I=getelementptr inbounds i8,i8*%B,i64 8
br i1%G,label%J,label%K
J:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%I,i8*%H,i32%o,i1 false)
br label%M
K:
%L=bitcast i8*%I to i8**
store i8*%H,i8**%L,align 8
br label%M
M:
%N=getelementptr inbounds i8,i8*%B,i64 16
%O=bitcast i8*%N to i32*
store i32%r,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%B,i64 20
%Q=bitcast i8*%P to i32*
store i32%u,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%B,i64 24
%S=bitcast i8*%R to i32*
store i32%x,i32*%S,align 4
%T=getelementptr inbounds i8,i8*%B,i64 28
%U=bitcast i8*%T to i32*
store i32%A,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%B,i64 32
%W=bitcast i8*%V to i32*
store i32%h,i32*%W,align 4
%X=getelementptr inbounds i8,i8*%B,i64 36
%Y=bitcast i8*%X to i32*
store i32%o,i32*%Y,align 4
%Z=getelementptr inbounds i8,i8*%B,i64 40
%aa=bitcast i8*%Z to i32*
store i32%j,i32*%aa,align 4
%ab=call i8*@sml_alloc(i32 inreg 28)#0
%ac=getelementptr inbounds i8,i8*%ab,i64 -4
%ad=bitcast i8*%ac to i32*
store i32 1342177304,i32*%ad,align 4
%ae=load i8*,i8**%e,align 8
%af=bitcast i8*%ab to i8**
store i8*%ae,i8**%af,align 8
%ag=getelementptr inbounds i8,i8*%ab,i64 8
%ah=bitcast i8*%ag to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldrE_135 to void(...)*),void(...)**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ab,i64 16
%aj=bitcast i8*%ai to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldrE_135 to void(...)*),void(...)**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ab,i64 24
%al=bitcast i8*%ak to i32*
store i32 1,i32*%al,align 4
ret i8*%ab
}
define internal fastcc i8*@_SMLLLN8ListPair5foldrE_137(i8*inreg%a,i8*inreg%b)#3 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=getelementptr inbounds i8,i8*%a,i64 16
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 36)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177312,i32*%x,align 4
store i8*%v,i8**%d,align 8
%y=load i8*,i8**%c,align 8
store i8*null,i8**%c,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%f,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%i,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%l,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 20
%H=bitcast i8*%G to i32*
store i32%o,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%v,i64 24
%J=bitcast i8*%I to i32*
store i32%r,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%v,i64 28
%L=bitcast i8*%K to i32*
store i32%u,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%v,i64 32
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,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
%R=load i8*,i8**%d,align 8
%S=bitcast i8*%O to i8**
store i8*%R,i8**%S,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldrE_136 to void(...)*),void(...)**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldrE_136 to void(...)*),void(...)**%W,align 8
%X=getelementptr inbounds i8,i8*%O,i64 24
%Y=bitcast i8*%X to i32*
store i32 1,i32*%Y,align 4
ret i8*%O
}
define fastcc i8*@_SMLFN8ListPair5foldrE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d,i32 inreg%e,i32 inreg%f)#3 gc"smlsharp"{
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%g,i8*null)#0
%h=call i8*@sml_alloc(i32 inreg 28)#0
%i=bitcast i8*%h to i32*
%j=getelementptr inbounds i8,i8*%h,i64 -4
%k=bitcast i8*%j to i32*
store i32 1342177304,i32*%k,align 4
store i8*%h,i8**%g,align 8
store i32%a,i32*%i,align 4
%l=getelementptr inbounds i8,i8*%h,i64 4
%m=bitcast i8*%l to i32*
store i32%b,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i32*
store i32%c,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%h,i64 12
%q=bitcast i8*%p to i32*
store i32%d,i32*%q,align 4
%r=getelementptr inbounds i8,i8*%h,i64 16
%s=bitcast i8*%r to i32*
store i32%e,i32*%s,align 4
%t=getelementptr inbounds i8,i8*%h,i64 20
%u=bitcast i8*%t to i32*
store i32%f,i32*%u,align 4
%v=getelementptr inbounds i8,i8*%h,i64 24
%w=bitcast i8*%v to i32*
store i32 0,i32*%w,align 4
%x=call i8*@sml_alloc(i32 inreg 28)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177304,i32*%z,align 4
%A=load i8*,i8**%g,align 8
%B=bitcast i8*%x to i8**
store i8*%A,i8**%B,align 8
%C=getelementptr inbounds i8,i8*%x,i64 8
%D=bitcast i8*%C to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldrE_137 to void(...)*),void(...)**%D,align 8
%E=getelementptr inbounds i8,i8*%x,i64 16
%F=bitcast i8*%E to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair5foldrE_137 to void(...)*),void(...)**%F,align 8
%G=getelementptr inbounds i8,i8*%x,i64 24
%H=bitcast i8*%G to i32*
store i32 -2147483647,i32*%H,align 4
ret i8*%x
}
define internal fastcc i8*@_SMLLLN8ListPair7foldlEqE_142(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
q:
%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
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
store i8*%a,i8**%h,align 8
store i8*%b,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%o,label%l
l:
call void@sml_check(i32 inreg%j)
%m=load i8*,i8**%c,align 8
%n=load i8*,i8**%h,align 8
br label%o
o:
%p=phi i8*[%n,%l],[%a,%q]
%r=phi i8*[%m,%l],[%b,%q]
%s=getelementptr inbounds i8,i8*%p,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%x,%u
%z=add i32%y,7
%A=and i32%z,-8
%B=getelementptr inbounds i8,i8*%p,i64 28
%C=bitcast i8*%B to i32*
%D=load i32,i32*%C,align 4
%E=add i32%D,-1
%F=sub i32 0,%D
%G=and i32%E,%F
%H=add i32%D,7
%I=add i32%H,%G
%J=and i32%I,-8
%K=add i32%E,%y
%L=and i32%K,%F
%M=getelementptr inbounds i8,i8*%p,i64 36
%N=bitcast i8*%M to i32*
%O=load i32,i32*%N,align 4
%P=add i32%E,%O
%Q=add i32%P,%L
%R=sub i32 0,%O
%S=and i32%Q,%R
%T=add i32%O,7
%U=add i32%T,%S
%V=and i32%U,-8
%W=lshr i32%S,3
%X=lshr i32%L,3
%Y=sub nsw i32%W,%X
%Z=lshr i32%x,3
%aa=sub nsw i32%X,%Z
%ab=getelementptr inbounds i8,i8*%p,i64 32
%ac=bitcast i8*%ab to i32*
%ad=load i32,i32*%ac,align 4
%ae=shl i32%ad,%Y
%af=getelementptr inbounds i8,i8*%p,i64 24
%ag=bitcast i8*%af to i32*
%ah=load i32,i32*%ag,align 4
%ai=or i32%ae,%ah
%aj=shl i32%ai,%aa
%ak=getelementptr inbounds i8,i8*%p,i64 16
%al=bitcast i8*%ak to i32*
%am=load i32,i32*%al,align 4
%an=or i32%aj,%am
%ao=or i32%V,4
%ap=bitcast i8*%r to i8**
%aq=load i8*,i8**%ap,align 8
store i8*%aq,i8**%c,align 8
%ar=getelementptr inbounds i8,i8*%r,i64 8
%as=bitcast i8*%ar to i8**
%at=load i8*,i8**%as,align 8
store i8*%at,i8**%d,align 8
%au=icmp eq i32%ad,0
br i1%au,label%az,label%av
av:
%aw=getelementptr inbounds i8,i8*%p,i64 8
%ax=bitcast i8*%aw to i8**
%ay=load i8*,i8**%ax,align 8
br label%aH
az:
%aA=call i8*@sml_alloc(i32 inreg%O)#0
%aB=getelementptr inbounds i8,i8*%aA,i64 -4
%aC=bitcast i8*%aB to i32*
store i32%O,i32*%aC,align 4
%aD=load i8*,i8**%h,align 8
%aE=getelementptr inbounds i8,i8*%aD,i64 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aA,i8*%aE,i32%O,i1 false)
%aF=load i8*,i8**%c,align 8
%aG=load i8*,i8**%d,align 8
br label%aH
aH:
%aI=phi i8*[%at,%av],[%aG,%az]
%aJ=phi i8*[%aq,%av],[%aF,%az]
%aK=phi i8*[%ay,%av],[%aA,%az]
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
%aL=sext i32%x to i64
%aM=sext i32%A to i64
%aN=sext i32%G to i64
%aO=sext i32%J to i64
%aP=bitcast i8**%h to i8***
%aQ=or i32%V,1342177280
%aR=sext i32%L to i64
%aS=sext i32%S to i64
%aT=sext i32%V to i64
br label%aU
aU:
%aV=phi i8*[%cR,%cM],[%aJ,%aH]
%aW=phi i8*[%cS,%cM],[%aI,%aH]
%aX=phi i8*[%cQ,%cM],[%aK,%aH]
store i8*%aV,i8**%c,align 8
store i8*%aW,i8**%d,align 8
store i8*%aX,i8**%e,align 8
%aY=icmp eq i8*%aV,null
br i1%aY,label%aZ,label%a3
aZ:
store i8*null,i8**%c,align 8
store i8*null,i8**%h,align 8
store i8*null,i8**%d,align 8
%a0=icmp eq i8*%aW,null
br i1%a0,label%a1,label%a2
a1:
ret i8*%aX
a2:
store i8*null,i8**%e,align 8
br label%cT
a3:
%a4=load i8*,i8**%h,align 8
%a5=getelementptr inbounds i8,i8*%a4,i64 16
%a6=bitcast i8*%a5 to i32*
%a7=load i32,i32*%a6,align 4
%a8=icmp eq i32%a7,0
br i1%a8,label%bd,label%a9
a9:
%ba=getelementptr inbounds i8,i8*%aV,i64%aL
%bb=bitcast i8*%ba to i8**
%bc=load i8*,i8**%bb,align 8
br label%bn
bd:
%be=getelementptr inbounds i8,i8*%a4,i64 20
%bf=bitcast i8*%be to i32*
%bg=load i32,i32*%bf,align 4
%bh=call i8*@sml_alloc(i32 inreg%bg)#0
%bi=getelementptr inbounds i8,i8*%bh,i64 -4
%bj=bitcast i8*%bi to i32*
store i32%bg,i32*%bj,align 4
%bk=load i8*,i8**%c,align 8
%bl=getelementptr inbounds i8,i8*%bk,i64%aL
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bh,i8*%bl,i32%bg,i1 false)
%bm=load i8*,i8**%d,align 8
br label%bn
bn:
%bo=phi i8*[%bm,%bd],[%aW,%a9]
%bp=phi i8*[%bk,%bd],[%aV,%a9]
%bq=phi i8*[%bh,%bd],[%bc,%a9]
store i8*%bq,i8**%f,align 8
%br=getelementptr inbounds i8,i8*%bp,i64%aM
%bs=bitcast i8*%br to i8**
%bt=load i8*,i8**%bs,align 8
store i8*%bt,i8**%c,align 8
%bu=icmp eq i8*%bo,null
br i1%bu,label%bv,label%bw
bv:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%h,align 8
br label%cT
bw:
%bx=load i8*,i8**%h,align 8
%by=getelementptr inbounds i8,i8*%bx,i64 24
%bz=bitcast i8*%by to i32*
%bA=load i32,i32*%bz,align 4
%bB=icmp eq i32%bA,0
br i1%bB,label%bH,label%bC
bC:
%bD=bitcast i8*%bx to i8**
%bE=getelementptr inbounds i8,i8*%bo,i64%aN
%bF=bitcast i8*%bE to i8**
%bG=load i8*,i8**%bF,align 8
br label%bV
bH:
%bI=getelementptr inbounds i8,i8*%bx,i64 28
%bJ=bitcast i8*%bI to i32*
%bK=load i32,i32*%bJ,align 4
%bL=call i8*@sml_alloc(i32 inreg%bK)#0
%bM=getelementptr inbounds i8,i8*%bL,i64 -4
%bN=bitcast i8*%bM to i32*
store i32%bK,i32*%bN,align 4
%bO=load i8*,i8**%d,align 8
%bP=getelementptr inbounds i8,i8*%bO,i64%aN
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bL,i8*%bP,i32%bK,i1 false)
%bQ=load i8**,i8***%aP,align 8
%bR=bitcast i8**%bQ to i8*
%bS=getelementptr inbounds i8*,i8**%bQ,i64 3
%bT=bitcast i8**%bS to i32*
%bU=load i32,i32*%bT,align 4
br label%bV
bV:
%bW=phi i32[%bU,%bH],[%bA,%bC]
%bX=phi i8*[%bR,%bH],[%bx,%bC]
%bY=phi i8**[%bQ,%bH],[%bD,%bC]
%bZ=phi i8*[%bO,%bH],[%bo,%bC]
%b0=phi i8*[%bL,%bH],[%bG,%bC]
store i8*%b0,i8**%g,align 8
%b1=getelementptr inbounds i8,i8*%bZ,i64%aO
%b2=bitcast i8*%b1 to i8**
%b3=load i8*,i8**%b2,align 8
store i8*%b3,i8**%i,align 8
%b4=load i8*,i8**%bY,align 8
%b5=getelementptr inbounds i8,i8*%b4,i64 16
%b6=bitcast i8*%b5 to i8*(i8*,i8*)**
%b7=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%b6,align 8
%b8=bitcast i8*%b4 to i8**
%b9=load i8*,i8**%b8,align 8
store i8*%b9,i8**%d,align 8
%ca=getelementptr inbounds i8,i8*%bX,i64 20
%cb=bitcast i8*%ca to i32*
%cc=load i32,i32*%cb,align 4
%cd=getelementptr inbounds i8,i8*%bX,i64 16
%ce=bitcast i8*%cd to i32*
%cf=load i32,i32*%ce,align 4
%cg=getelementptr inbounds i8,i8*%bX,i64 28
%ch=bitcast i8*%cg to i32*
%ci=load i32,i32*%ch,align 4
%cj=getelementptr inbounds i8,i8*%bX,i64 36
%ck=bitcast i8*%cj to i32*
%cl=load i32,i32*%ck,align 4
%cm=getelementptr inbounds i8,i8*%bX,i64 32
%cn=bitcast i8*%cm to i32*
%co=load i32,i32*%cn,align 4
%cp=call i8*@sml_alloc(i32 inreg%ao)#0
%cq=getelementptr inbounds i8,i8*%cp,i64 -4
%cr=bitcast i8*%cq to i32*
store i32%aQ,i32*%cr,align 4
call void@llvm.memset.p0i8.i32(i8*%cp,i8 0,i32%ao,i1 false)
%cs=icmp eq i32%cf,0
%ct=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%cu=getelementptr inbounds i8,i8*%cp,i64%aL
br i1%cs,label%cv,label%cw
cv:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cu,i8*%ct,i32%cc,i1 false)
br label%cy
cw:
%cx=bitcast i8*%cu to i8**
store i8*%ct,i8**%cx,align 8
br label%cy
cy:
%cz=icmp eq i32%bW,0
%cA=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%cB=getelementptr inbounds i8,i8*%cp,i64%aR
br i1%cz,label%cC,label%cD
cC:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cB,i8*%cA,i32%ci,i1 false)
br label%cF
cD:
%cE=bitcast i8*%cB to i8**
store i8*%cA,i8**%cE,align 8
br label%cF
cF:
%cG=icmp eq i32%co,0
%cH=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cI=getelementptr inbounds i8,i8*%cp,i64%aS
br i1%cG,label%cJ,label%cK
cJ:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cI,i8*%cH,i32%cl,i1 false)
br label%cM
cK:
%cL=bitcast i8*%cI to i8**
store i8*%cH,i8**%cL,align 8
br label%cM
cM:
%cN=getelementptr inbounds i8,i8*%cp,i64%aT
%cO=bitcast i8*%cN to i32*
store i32%an,i32*%cO,align 4
%cP=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cQ=call fastcc i8*%b7(i8*inreg%cP,i8*inreg%cp)
%cR=load i8*,i8**%c,align 8
%cS=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%aU
cT:
%cU=call i8*@sml_alloc(i32 inreg 60)#0
%cV=getelementptr inbounds i8,i8*%cU,i64 -4
%cW=bitcast i8*%cV to i32*
store i32 1342177336,i32*%cW,align 4
%cX=getelementptr inbounds i8,i8*%cU,i64 56
%cY=bitcast i8*%cX to i32*
store i32 1,i32*%cY,align 4
%cZ=bitcast i8*%cU to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@q,i64 0,i32 2)to i8*),i8**%cZ,align 8
call void@sml_raise(i8*inreg%cU)#1
unreachable
}
define internal fastcc i8*@_SMLLLN8ListPair7foldlEqE_143(i8*inreg%a,i8*inreg%b)#3 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 24
%g=bitcast i8*%f to i32*
%h=load i32,i32*%g,align 4
%i=shl i32%h,1
%j=or i32%i,1
%k=bitcast i8*%a to i8**
%l=load i8*,i8**%k,align 8
store i8*%l,i8**%d,align 8
%m=getelementptr inbounds i8,i8*%a,i64 28
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%a,i64 8
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=getelementptr inbounds i8,i8*%a,i64 16
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=getelementptr inbounds i8,i8*%a,i64 20
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=call i8*@sml_alloc(i32 inreg 44)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177320,i32*%D,align 4
store i8*%B,i8**%e,align 8
%E=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=icmp eq i32%h,0
%H=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%I=getelementptr inbounds i8,i8*%B,i64 8
br i1%G,label%J,label%K
J:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%I,i8*%H,i32%o,i1 false)
br label%M
K:
%L=bitcast i8*%I to i8**
store i8*%H,i8**%L,align 8
br label%M
M:
%N=getelementptr inbounds i8,i8*%B,i64 16
%O=bitcast i8*%N to i32*
store i32%r,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%B,i64 20
%Q=bitcast i8*%P to i32*
store i32%u,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%B,i64 24
%S=bitcast i8*%R to i32*
store i32%x,i32*%S,align 4
%T=getelementptr inbounds i8,i8*%B,i64 28
%U=bitcast i8*%T to i32*
store i32%A,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%B,i64 32
%W=bitcast i8*%V to i32*
store i32%h,i32*%W,align 4
%X=getelementptr inbounds i8,i8*%B,i64 36
%Y=bitcast i8*%X to i32*
store i32%o,i32*%Y,align 4
%Z=getelementptr inbounds i8,i8*%B,i64 40
%aa=bitcast i8*%Z to i32*
store i32%j,i32*%aa,align 4
%ab=call i8*@sml_alloc(i32 inreg 28)#0
%ac=getelementptr inbounds i8,i8*%ab,i64 -4
%ad=bitcast i8*%ac to i32*
store i32 1342177304,i32*%ad,align 4
%ae=load i8*,i8**%e,align 8
%af=bitcast i8*%ab to i8**
store i8*%ae,i8**%af,align 8
%ag=getelementptr inbounds i8,i8*%ab,i64 8
%ah=bitcast i8*%ag to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_142 to void(...)*),void(...)**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ab,i64 16
%aj=bitcast i8*%ai to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_142 to void(...)*),void(...)**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ab,i64 24
%al=bitcast i8*%ak to i32*
store i32 1,i32*%al,align 4
ret i8*%ab
}
define internal fastcc i8*@_SMLLLN8ListPair7foldlEqE_144(i8*inreg%a,i8*inreg%b)#3 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=getelementptr inbounds i8,i8*%a,i64 16
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 36)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177312,i32*%x,align 4
store i8*%v,i8**%d,align 8
%y=load i8*,i8**%c,align 8
store i8*null,i8**%c,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%f,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%i,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%l,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 20
%H=bitcast i8*%G to i32*
store i32%o,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%v,i64 24
%J=bitcast i8*%I to i32*
store i32%r,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%v,i64 28
%L=bitcast i8*%K to i32*
store i32%u,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%v,i64 32
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,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
%R=load i8*,i8**%d,align 8
%S=bitcast i8*%O to i8**
store i8*%R,i8**%S,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_143 to void(...)*),void(...)**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_143 to void(...)*),void(...)**%W,align 8
%X=getelementptr inbounds i8,i8*%O,i64 24
%Y=bitcast i8*%X to i32*
store i32 1,i32*%Y,align 4
ret i8*%O
}
define fastcc i8*@_SMLFN8ListPair7foldlEqE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d,i32 inreg%e,i32 inreg%f)#3 gc"smlsharp"{
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%g,i8*null)#0
%h=call i8*@sml_alloc(i32 inreg 28)#0
%i=bitcast i8*%h to i32*
%j=getelementptr inbounds i8,i8*%h,i64 -4
%k=bitcast i8*%j to i32*
store i32 1342177304,i32*%k,align 4
store i8*%h,i8**%g,align 8
store i32%a,i32*%i,align 4
%l=getelementptr inbounds i8,i8*%h,i64 4
%m=bitcast i8*%l to i32*
store i32%b,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i32*
store i32%c,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%h,i64 12
%q=bitcast i8*%p to i32*
store i32%d,i32*%q,align 4
%r=getelementptr inbounds i8,i8*%h,i64 16
%s=bitcast i8*%r to i32*
store i32%e,i32*%s,align 4
%t=getelementptr inbounds i8,i8*%h,i64 20
%u=bitcast i8*%t to i32*
store i32%f,i32*%u,align 4
%v=getelementptr inbounds i8,i8*%h,i64 24
%w=bitcast i8*%v to i32*
store i32 0,i32*%w,align 4
%x=call i8*@sml_alloc(i32 inreg 28)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177304,i32*%z,align 4
%A=load i8*,i8**%g,align 8
%B=bitcast i8*%x to i8**
store i8*%A,i8**%B,align 8
%C=getelementptr inbounds i8,i8*%x,i64 8
%D=bitcast i8*%C to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_144 to void(...)*),void(...)**%D,align 8
%E=getelementptr inbounds i8,i8*%x,i64 16
%F=bitcast i8*%E to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldlEqE_144 to void(...)*),void(...)**%F,align 8
%G=getelementptr inbounds i8,i8*%x,i64 24
%H=bitcast i8*%G to i32*
store i32 -2147483647,i32*%H,align 4
ret i8*%x
}
define internal fastcc i8*@_SMLLLN8ListPair7foldrEqE_149(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
aA:
%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
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
store i8*%a,i8**%h,align 8
%j=getelementptr inbounds i8,i8*%a,i64 20
%k=bitcast i8*%j to i32*
%l=load i32,i32*%k,align 4
%m=add i32%l,-1
%n=sub i32 0,%l
%o=and i32%m,%n
%p=add i32%o,%l
%q=add i32%p,7
%r=and i32%q,-8
%s=getelementptr inbounds i8,i8*%a,i64 28
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=add i32%u,-1
%w=sub i32 0,%u
%x=and i32%v,%w
%y=add i32%u,7
%z=add i32%y,%x
%A=and i32%z,-8
%B=add i32%v,%p
%C=and i32%B,%w
%D=add i32%C,%u
%E=add i32%D,7
%F=and i32%E,-8
%G=lshr i32%C,3
%H=lshr i32%o,3
%I=sub nsw i32%G,%H
%J=getelementptr inbounds i8,i8*%a,i64 24
%K=bitcast i8*%J to i32*
%L=load i32,i32*%K,align 4
%M=shl i32%L,%I
%N=getelementptr inbounds i8,i8*%a,i64 16
%O=bitcast i8*%N to i32*
%P=load i32,i32*%O,align 4
%Q=or i32%M,%P
%R=or i32%F,4
%S=getelementptr inbounds i8,i8*%a,i64 36
%T=bitcast i8*%S to i32*
%U=load i32,i32*%T,align 4
%V=add i32%U,-1
%W=add i32%V,%D
%X=sub i32 0,%U
%Y=and i32%W,%X
%Z=add i32%U,7
%aa=add i32%Z,%Y
%ab=and i32%aa,-8
%ac=lshr i32%Y,3
%ad=sub nsw i32%ac,%G
%ae=getelementptr inbounds i8,i8*%a,i64 32
%af=bitcast i8*%ae to i32*
%ag=load i32,i32*%af,align 4
%ah=shl i32%ag,%ad
%ai=or i32%ah,%L
%aj=shl i32%ai,%I
%ak=or i32%aj,%P
%al=or i32%ab,4
%am=bitcast i8*%b to i8**
%an=load i8*,i8**%am,align 8
%ao=getelementptr inbounds i8,i8*%b,i64 8
%ap=bitcast i8*%ao to i8**
%aq=load i8*,i8**%ap,align 8
%ar=sext i32%o to i64
%as=sext i32%r to i64
%at=sext i32%x to i64
%au=sext i32%A to i64
%av=or i32%F,1342177280
%aw=sext i32%C to i64
%ax=sext i32%F to i64
br label%ay
ay:
%az=phi i8*[%cu,%ch],[%an,%aA]
%aB=phi i8*[%cv,%ch],[%aq,%aA]
%aC=phi i8*[%ck,%ch],[null,%aA]
store i8*%az,i8**%c,align 8
store i8*%aB,i8**%d,align 8
store i8*%aC,i8**%e,align 8
%aD=load atomic i32,i32*@sml_check_flag unordered,align 4
%aE=icmp eq i32%aD,0
br i1%aE,label%aH,label%aF
aF:
call void@sml_check(i32 inreg%aD)
%aG=load i8*,i8**%c,align 8
br label%aH
aH:
%aI=phi i8*[%aG,%aF],[%az,%ay]
%aJ=icmp eq i8*%aI,null
br i1%aJ,label%aK,label%aV
aK:
store i8*null,i8**%c,align 8
%aL=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aM=icmp eq i8*%aL,null
br i1%aM,label%aN,label%aU
aN:
%aO=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
store i8*%aO,i8**%c,align 8
%aP=load i8*,i8**%h,align 8
%aQ=getelementptr inbounds i8,i8*%aP,i64 32
%aR=bitcast i8*%aQ to i32*
%aS=load i32,i32*%aR,align 4
%aT=icmp eq i32%aS,0
br i1%aT,label%cH,label%cD
aU:
store i8*null,i8**%e,align 8
br label%cw
aV:
%aW=load i8*,i8**%h,align 8
%aX=getelementptr inbounds i8,i8*%aW,i64 16
%aY=bitcast i8*%aX to i32*
%aZ=load i32,i32*%aY,align 4
%a0=icmp eq i32%aZ,0
br i1%a0,label%a5,label%a1
a1:
%a2=getelementptr inbounds i8,i8*%aI,i64%ar
%a3=bitcast i8*%a2 to i8**
%a4=load i8*,i8**%a3,align 8
br label%be
a5:
%a6=getelementptr inbounds i8,i8*%aW,i64 20
%a7=bitcast i8*%a6 to i32*
%a8=load i32,i32*%a7,align 4
%a9=call i8*@sml_alloc(i32 inreg%a8)#0
%ba=getelementptr inbounds i8,i8*%a9,i64 -4
%bb=bitcast i8*%ba to i32*
store i32%a8,i32*%bb,align 4
%bc=load i8*,i8**%c,align 8
%bd=getelementptr inbounds i8,i8*%bc,i64%ar
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a9,i8*%bd,i32%a8,i1 false)
br label%be
be:
%bf=phi i8*[%bc,%a5],[%aI,%a1]
%bg=phi i8*[%a9,%a5],[%a4,%a1]
store i8*%bg,i8**%f,align 8
%bh=getelementptr inbounds i8,i8*%bf,i64%as
%bi=bitcast i8*%bh to i8**
%bj=load i8*,i8**%bi,align 8
store i8*%bj,i8**%c,align 8
%bk=load i8*,i8**%d,align 8
%bl=icmp eq i8*%bk,null
br i1%bl,label%bm,label%bn
bm:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
store i8*null,i8**%f,align 8
store i8*null,i8**%c,align 8
br label%cw
bn:
%bo=load i8*,i8**%h,align 8
%bp=getelementptr inbounds i8,i8*%bo,i64 24
%bq=bitcast i8*%bp to i32*
%br=load i32,i32*%bq,align 4
%bs=icmp eq i32%br,0
br i1%bs,label%bx,label%bt
bt:
%bu=getelementptr inbounds i8,i8*%bk,i64%at
%bv=bitcast i8*%bu to i8**
%bw=load i8*,i8**%bv,align 8
br label%bK
bx:
%by=getelementptr inbounds i8,i8*%bo,i64 28
%bz=bitcast i8*%by to i32*
%bA=load i32,i32*%bz,align 4
%bB=call i8*@sml_alloc(i32 inreg%bA)#0
%bC=getelementptr inbounds i8,i8*%bB,i64 -4
%bD=bitcast i8*%bC to i32*
store i32%bA,i32*%bD,align 4
%bE=load i8*,i8**%d,align 8
%bF=getelementptr inbounds i8,i8*%bE,i64%at
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bB,i8*%bF,i32%bA,i1 false)
%bG=load i8*,i8**%h,align 8
%bH=getelementptr inbounds i8,i8*%bG,i64 24
%bI=bitcast i8*%bH to i32*
%bJ=load i32,i32*%bI,align 4
br label%bK
bK:
%bL=phi i32[%bJ,%bx],[%br,%bt]
%bM=phi i8*[%bG,%bx],[%bo,%bt]
%bN=phi i8*[%bE,%bx],[%bk,%bt]
%bO=phi i8*[%bB,%bx],[%bw,%bt]
store i8*%bO,i8**%g,align 8
store i8*null,i8**%d,align 8
%bP=getelementptr inbounds i8,i8*%bN,i64%au
%bQ=bitcast i8*%bP to i8**
%bR=load i8*,i8**%bQ,align 8
store i8*%bR,i8**%i,align 8
%bS=getelementptr inbounds i8,i8*%bM,i64 20
%bT=bitcast i8*%bS to i32*
%bU=load i32,i32*%bT,align 4
%bV=getelementptr inbounds i8,i8*%bM,i64 16
%bW=bitcast i8*%bV to i32*
%bX=load i32,i32*%bW,align 4
%bY=getelementptr inbounds i8,i8*%bM,i64 28
%bZ=bitcast i8*%bY to i32*
%b0=load i32,i32*%bZ,align 4
%b1=call i8*@sml_alloc(i32 inreg%R)#0
%b2=getelementptr inbounds i8,i8*%b1,i64 -4
%b3=bitcast i8*%b2 to i32*
store i32%av,i32*%b3,align 4
store i8*%b1,i8**%d,align 8
call void@llvm.memset.p0i8.i32(i8*%b1,i8 0,i32%R,i1 false)
%b4=icmp eq i32%bX,0
%b5=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%b6=getelementptr inbounds i8,i8*%b1,i64%ar
br i1%b4,label%b7,label%b8
b7:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%b6,i8*%b5,i32%bU,i1 false)
br label%ca
b8:
%b9=bitcast i8*%b6 to i8**
store i8*%b5,i8**%b9,align 8
br label%ca
ca:
%cb=icmp eq i32%bL,0
%cc=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%cd=getelementptr inbounds i8,i8*%b1,i64%aw
br i1%cb,label%ce,label%cf
ce:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cd,i8*%cc,i32%b0,i1 false)
br label%ch
cf:
%cg=bitcast i8*%cd to i8**
store i8*%cc,i8**%cg,align 8
br label%ch
ch:
%ci=getelementptr inbounds i8,i8*%b1,i64%ax
%cj=bitcast i8*%ci to i32*
store i32%Q,i32*%cj,align 4
%ck=call i8*@sml_alloc(i32 inreg 20)#0
%cl=getelementptr inbounds i8,i8*%ck,i64 -4
%cm=bitcast i8*%cl to i32*
store i32 1342177296,i32*%cm,align 4
%cn=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%co=bitcast i8*%ck to i8**
store i8*%cn,i8**%co,align 8
%cp=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cq=getelementptr inbounds i8,i8*%ck,i64 8
%cr=bitcast i8*%cq to i8**
store i8*%cp,i8**%cr,align 8
%cs=getelementptr inbounds i8,i8*%ck,i64 16
%ct=bitcast i8*%cs to i32*
store i32 3,i32*%ct,align 4
%cu=load i8*,i8**%c,align 8
%cv=load i8*,i8**%i,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%i,align 8
br label%ay
cw:
store i8*null,i8**%h,align 8
%cx=call i8*@sml_alloc(i32 inreg 60)#0
%cy=getelementptr inbounds i8,i8*%cx,i64 -4
%cz=bitcast i8*%cy to i32*
store i32 1342177336,i32*%cz,align 4
%cA=getelementptr inbounds i8,i8*%cx,i64 56
%cB=bitcast i8*%cA to i32*
store i32 1,i32*%cB,align 4
%cC=bitcast i8*%cx to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@t,i64 0,i32 2)to i8*),i8**%cC,align 8
call void@sml_raise(i8*inreg%cx)#1
unreachable
cD:
%cE=getelementptr inbounds i8,i8*%aP,i64 8
%cF=bitcast i8*%cE to i8**
%cG=load i8*,i8**%cF,align 8
br label%cQ
cH:
%cI=getelementptr inbounds i8,i8*%aP,i64 36
%cJ=bitcast i8*%cI to i32*
%cK=load i32,i32*%cJ,align 4
%cL=call i8*@sml_alloc(i32 inreg%cK)#0
%cM=getelementptr inbounds i8,i8*%cL,i64 -4
%cN=bitcast i8*%cM to i32*
store i32%cK,i32*%cN,align 4
%cO=load i8*,i8**%h,align 8
%cP=getelementptr inbounds i8,i8*%cO,i64 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%cL,i8*%cP,i32%cK,i1 false)
br label%cQ
cQ:
%cR=phi i8*[%cG,%cD],[%cL,%cH]
%cS=bitcast i8**%h to i8***
%cT=or i32%ab,1342177280
%cU=sext i32%Y to i64
%cV=sext i32%ab to i64
br label%cW
cW:
%cX=phi i8*[%eO,%eK],[%cR,%cQ]
store i8*%cX,i8**%d,align 8
%cY=load atomic i32,i32*@sml_check_flag unordered,align 4
%cZ=icmp eq i32%cY,0
br i1%cZ,label%c1,label%c0
c0:
call void@sml_check(i32 inreg%cY)
br label%c1
c1:
%c2=load i8*,i8**%c,align 8
%c3=icmp eq i8*%c2,null
br i1%c3,label%c4,label%c6
c4:
%c5=load i8*,i8**%d,align 8
ret i8*%c5
c6:
%c7=bitcast i8*%c2 to i8**
%c8=load i8*,i8**%c7,align 8
store i8*%c8,i8**%e,align 8
%c9=load i8*,i8**%h,align 8
%da=getelementptr inbounds i8,i8*%c9,i64 16
%db=bitcast i8*%da to i32*
%dc=load i32,i32*%db,align 4
%dd=icmp eq i32%dc,0
br i1%dd,label%di,label%de
de:
%df=getelementptr inbounds i8,i8*%c8,i64%ar
%dg=bitcast i8*%df to i8**
%dh=load i8*,i8**%dg,align 8
br label%ds
di:
%dj=getelementptr inbounds i8,i8*%c9,i64 20
%dk=bitcast i8*%dj to i32*
%dl=load i32,i32*%dk,align 4
%dm=call i8*@sml_alloc(i32 inreg%dl)#0
%dn=getelementptr inbounds i8,i8*%dm,i64 -4
%do=bitcast i8*%dn to i32*
store i32%dl,i32*%do,align 4
%dp=load i8*,i8**%e,align 8
%dq=getelementptr inbounds i8,i8*%dp,i64%ar
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dm,i8*%dq,i32%dl,i1 false)
%dr=load i8*,i8**%h,align 8
br label%ds
ds:
%dt=phi i8*[%dr,%di],[%c9,%de]
%du=phi i8*[%dp,%di],[%c8,%de]
%dv=phi i8*[%dm,%di],[%dh,%de]
store i8*%dv,i8**%f,align 8
%dw=getelementptr inbounds i8,i8*%dt,i64 24
%dx=bitcast i8*%dw to i32*
%dy=load i32,i32*%dx,align 4
%dz=icmp eq i32%dy,0
br i1%dz,label%dF,label%dA
dA:
%dB=bitcast i8*%dt to i8**
store i8*null,i8**%e,align 8
%dC=getelementptr inbounds i8,i8*%du,i64%aw
%dD=bitcast i8*%dC to i8**
%dE=load i8*,i8**%dD,align 8
br label%dT
dF:
%dG=getelementptr inbounds i8,i8*%dt,i64 28
%dH=bitcast i8*%dG to i32*
%dI=load i32,i32*%dH,align 4
%dJ=call i8*@sml_alloc(i32 inreg%dI)#0
%dK=getelementptr inbounds i8,i8*%dJ,i64 -4
%dL=bitcast i8*%dK to i32*
store i32%dI,i32*%dL,align 4
%dM=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%dN=getelementptr inbounds i8,i8*%dM,i64%aw
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%dJ,i8*%dN,i32%dI,i1 false)
%dO=load i8**,i8***%cS,align 8
%dP=bitcast i8**%dO to i8*
%dQ=getelementptr inbounds i8*,i8**%dO,i64 3
%dR=bitcast i8**%dQ to i32*
%dS=load i32,i32*%dR,align 4
br label%dT
dT:
%dU=phi i32[%dS,%dF],[%dy,%dA]
%dV=phi i8*[%dP,%dF],[%dt,%dA]
%dW=phi i8**[%dO,%dF],[%dB,%dA]
%dX=phi i8*[%dJ,%dF],[%dE,%dA]
store i8*%dX,i8**%e,align 8
%dY=load i8*,i8**%c,align 8
%dZ=getelementptr inbounds i8,i8*%dY,i64 8
%d0=bitcast i8*%dZ to i8**
%d1=load i8*,i8**%d0,align 8
store i8*%d1,i8**%g,align 8
%d2=load i8*,i8**%dW,align 8
%d3=getelementptr inbounds i8,i8*%d2,i64 16
%d4=bitcast i8*%d3 to i8*(i8*,i8*)**
%d5=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%d4,align 8
%d6=bitcast i8*%d2 to i8**
%d7=load i8*,i8**%d6,align 8
store i8*%d7,i8**%c,align 8
%d8=getelementptr inbounds i8,i8*%dV,i64 20
%d9=bitcast i8*%d8 to i32*
%ea=load i32,i32*%d9,align 4
%eb=getelementptr inbounds i8,i8*%dV,i64 16
%ec=bitcast i8*%eb to i32*
%ed=load i32,i32*%ec,align 4
%ee=getelementptr inbounds i8,i8*%dV,i64 28
%ef=bitcast i8*%ee to i32*
%eg=load i32,i32*%ef,align 4
%eh=getelementptr inbounds i8,i8*%dV,i64 36
%ei=bitcast i8*%eh to i32*
%ej=load i32,i32*%ei,align 4
%ek=getelementptr inbounds i8,i8*%dV,i64 32
%el=bitcast i8*%ek to i32*
%em=load i32,i32*%el,align 4
%en=call i8*@sml_alloc(i32 inreg%al)#0
%eo=getelementptr inbounds i8,i8*%en,i64 -4
%ep=bitcast i8*%eo to i32*
store i32%cT,i32*%ep,align 4
call void@llvm.memset.p0i8.i32(i8*%en,i8 0,i32%al,i1 false)
%eq=icmp eq i32%ed,0
%er=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%es=getelementptr inbounds i8,i8*%en,i64%ar
br i1%eq,label%et,label%eu
et:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%es,i8*%er,i32%ea,i1 false)
br label%ew
eu:
%ev=bitcast i8*%es to i8**
store i8*%er,i8**%ev,align 8
br label%ew
ew:
%ex=icmp eq i32%dU,0
%ey=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%ez=getelementptr inbounds i8,i8*%en,i64%aw
br i1%ex,label%eA,label%eB
eA:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ez,i8*%ey,i32%eg,i1 false)
br label%eD
eB:
%eC=bitcast i8*%ez to i8**
store i8*%ey,i8**%eC,align 8
br label%eD
eD:
%eE=icmp eq i32%em,0
%eF=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%eG=getelementptr inbounds i8,i8*%en,i64%cU
br i1%eE,label%eH,label%eI
eH:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%eG,i8*%eF,i32%ej,i1 false)
br label%eK
eI:
%eJ=bitcast i8*%eG to i8**
store i8*%eF,i8**%eJ,align 8
br label%eK
eK:
%eL=getelementptr inbounds i8,i8*%en,i64%cV
%eM=bitcast i8*%eL to i32*
store i32%ak,i32*%eM,align 4
%eN=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%eO=call fastcc i8*%d5(i8*inreg%eN,i8*inreg%en)
%eP=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
store i8*%eP,i8**%c,align 8
br label%cW
}
define internal fastcc i8*@_SMLLLN8ListPair7foldrEqE_150(i8*inreg%a,i8*inreg%b)#3 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 24
%g=bitcast i8*%f to i32*
%h=load i32,i32*%g,align 4
%i=shl i32%h,1
%j=or i32%i,1
%k=bitcast i8*%a to i8**
%l=load i8*,i8**%k,align 8
store i8*%l,i8**%d,align 8
%m=getelementptr inbounds i8,i8*%a,i64 28
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%a,i64 8
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 12
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=getelementptr inbounds i8,i8*%a,i64 16
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=getelementptr inbounds i8,i8*%a,i64 20
%z=bitcast i8*%y to i32*
%A=load i32,i32*%z,align 4
%B=call i8*@sml_alloc(i32 inreg 44)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177320,i32*%D,align 4
store i8*%B,i8**%e,align 8
%E=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=icmp eq i32%h,0
%H=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%I=getelementptr inbounds i8,i8*%B,i64 8
br i1%G,label%J,label%K
J:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%I,i8*%H,i32%o,i1 false)
br label%M
K:
%L=bitcast i8*%I to i8**
store i8*%H,i8**%L,align 8
br label%M
M:
%N=getelementptr inbounds i8,i8*%B,i64 16
%O=bitcast i8*%N to i32*
store i32%r,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%B,i64 20
%Q=bitcast i8*%P to i32*
store i32%u,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%B,i64 24
%S=bitcast i8*%R to i32*
store i32%x,i32*%S,align 4
%T=getelementptr inbounds i8,i8*%B,i64 28
%U=bitcast i8*%T to i32*
store i32%A,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%B,i64 32
%W=bitcast i8*%V to i32*
store i32%h,i32*%W,align 4
%X=getelementptr inbounds i8,i8*%B,i64 36
%Y=bitcast i8*%X to i32*
store i32%o,i32*%Y,align 4
%Z=getelementptr inbounds i8,i8*%B,i64 40
%aa=bitcast i8*%Z to i32*
store i32%j,i32*%aa,align 4
%ab=call i8*@sml_alloc(i32 inreg 28)#0
%ac=getelementptr inbounds i8,i8*%ab,i64 -4
%ad=bitcast i8*%ac to i32*
store i32 1342177304,i32*%ad,align 4
%ae=load i8*,i8**%e,align 8
%af=bitcast i8*%ab to i8**
store i8*%ae,i8**%af,align 8
%ag=getelementptr inbounds i8,i8*%ab,i64 8
%ah=bitcast i8*%ag to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_149 to void(...)*),void(...)**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ab,i64 16
%aj=bitcast i8*%ai to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_149 to void(...)*),void(...)**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ab,i64 24
%al=bitcast i8*%ak to i32*
store i32 1,i32*%al,align 4
ret i8*%ab
}
define internal fastcc i8*@_SMLLLN8ListPair7foldrEqE_151(i8*inreg%a,i8*inreg%b)#3 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=getelementptr inbounds i8,i8*%a,i64 16
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=getelementptr inbounds i8,i8*%a,i64 20
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 36)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177312,i32*%x,align 4
store i8*%v,i8**%d,align 8
%y=load i8*,i8**%c,align 8
store i8*null,i8**%c,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%f,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%i,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%l,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 20
%H=bitcast i8*%G to i32*
store i32%o,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%v,i64 24
%J=bitcast i8*%I to i32*
store i32%r,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%v,i64 28
%L=bitcast i8*%K to i32*
store i32%u,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%v,i64 32
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,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
%R=load i8*,i8**%d,align 8
%S=bitcast i8*%O to i8**
store i8*%R,i8**%S,align 8
%T=getelementptr inbounds i8,i8*%O,i64 8
%U=bitcast i8*%T to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_150 to void(...)*),void(...)**%U,align 8
%V=getelementptr inbounds i8,i8*%O,i64 16
%W=bitcast i8*%V to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_150 to void(...)*),void(...)**%W,align 8
%X=getelementptr inbounds i8,i8*%O,i64 24
%Y=bitcast i8*%X to i32*
store i32 1,i32*%Y,align 4
ret i8*%O
}
define fastcc i8*@_SMLFN8ListPair7foldrEqE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d,i32 inreg%e,i32 inreg%f)#3 gc"smlsharp"{
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%g,i8*null)#0
%h=call i8*@sml_alloc(i32 inreg 28)#0
%i=bitcast i8*%h to i32*
%j=getelementptr inbounds i8,i8*%h,i64 -4
%k=bitcast i8*%j to i32*
store i32 1342177304,i32*%k,align 4
store i8*%h,i8**%g,align 8
store i32%a,i32*%i,align 4
%l=getelementptr inbounds i8,i8*%h,i64 4
%m=bitcast i8*%l to i32*
store i32%b,i32*%m,align 4
%n=getelementptr inbounds i8,i8*%h,i64 8
%o=bitcast i8*%n to i32*
store i32%c,i32*%o,align 4
%p=getelementptr inbounds i8,i8*%h,i64 12
%q=bitcast i8*%p to i32*
store i32%d,i32*%q,align 4
%r=getelementptr inbounds i8,i8*%h,i64 16
%s=bitcast i8*%r to i32*
store i32%e,i32*%s,align 4
%t=getelementptr inbounds i8,i8*%h,i64 20
%u=bitcast i8*%t to i32*
store i32%f,i32*%u,align 4
%v=getelementptr inbounds i8,i8*%h,i64 24
%w=bitcast i8*%v to i32*
store i32 0,i32*%w,align 4
%x=call i8*@sml_alloc(i32 inreg 28)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177304,i32*%z,align 4
%A=load i8*,i8**%g,align 8
%B=bitcast i8*%x to i8**
store i8*%A,i8**%B,align 8
%C=getelementptr inbounds i8,i8*%x,i64 8
%D=bitcast i8*%C to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_151 to void(...)*),void(...)**%D,align 8
%E=getelementptr inbounds i8,i8*%x,i64 16
%F=bitcast i8*%E to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLLN8ListPair7foldrEqE_151 to void(...)*),void(...)**%F,align 8
%G=getelementptr inbounds i8,i8*%x,i64 24
%H=bitcast i8*%G to i32*
store i32 -2147483647,i32*%H,align 4
ret i8*%x
}
define internal fastcc i32@_SMLLLN8ListPair3allE_154(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
af:
%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
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
store i8*%a,i8**%g,align 8
%i=getelementptr inbounds i8,i8*%a,i64 12
%j=bitcast i8*%i to i32*
%k=load i32,i32*%j,align 4
%l=add i32%k,-1
%m=sub i32 0,%k
%n=and i32%l,%m
%o=add i32%n,%k
%p=add i32%o,7
%q=and i32%p,-8
%r=getelementptr inbounds i8,i8*%a,i64 20
%s=bitcast i8*%r to i32*
%t=load i32,i32*%s,align 4
%u=add i32%t,-1
%v=sub i32 0,%t
%w=and i32%u,%v
%x=add i32%t,7
%y=add i32%x,%w
%z=and i32%y,-8
%A=add i32%u,%o
%B=and i32%A,%v
%C=add i32%x,%B
%D=and i32%C,-8
%E=lshr i32%B,3
%F=lshr i32%n,3
%G=sub nsw i32%E,%F
%H=getelementptr inbounds i8,i8*%a,i64 16
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=shl i32%J,%G
%L=getelementptr inbounds i8,i8*%a,i64 8
%M=bitcast i8*%L to i32*
%N=load i32,i32*%M,align 4
%O=or i32%K,%N
%P=or i32%D,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%n to i64
%W=sext i32%q to i64
%X=sext i32%w to i64
%Y=sext i32%z to i64
%Z=bitcast i8**%g to i8***
%aa=or i32%D,1342177280
%ab=sext i32%B to i64
%ac=sext i32%D to i64
br label%ad
ad:
%ae=phi i8*[%R,%af],[%b1,%b0]
%ag=phi i8*[%U,%af],[%b2,%b0]
store i8*%ae,i8**%c,align 8
store i8*%ag,i8**%d,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ae,%ad]
%an=icmp eq i8*%am,null
br i1%an,label%b3,label%ao
ao:
%ap=load i8*,i8**%g,align 8
%aq=getelementptr inbounds i8,i8*%ap,i64 8
%ar=bitcast i8*%aq to i32*
%as=load i32,i32*%ar,align 4
%at=icmp eq i32%as,0
br i1%at,label%ay,label%au
au:
%av=getelementptr inbounds i8,i8*%am,i64%V
%aw=bitcast i8*%av to i8**
%ax=load i8*,i8**%aw,align 8
br label%aH
ay:
%az=getelementptr inbounds i8,i8*%ap,i64 12
%aA=bitcast i8*%az to i32*
%aB=load i32,i32*%aA,align 4
%aC=call i8*@sml_alloc(i32 inreg%aB)#0
%aD=getelementptr inbounds i8,i8*%aC,i64 -4
%aE=bitcast i8*%aD to i32*
store i32%aB,i32*%aE,align 4
%aF=load i8*,i8**%c,align 8
%aG=getelementptr inbounds i8,i8*%aF,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aC,i8*%aG,i32%aB,i1 false)
br label%aH
aH:
%aI=phi i8*[%aF,%ay],[%am,%au]
%aJ=phi i8*[%aC,%ay],[%ax,%au]
store i8*%aJ,i8**%e,align 8
%aK=getelementptr inbounds i8,i8*%aI,i64%W
%aL=bitcast i8*%aK to i8**
%aM=load i8*,i8**%aL,align 8
store i8*%aM,i8**%c,align 8
%aN=load i8*,i8**%d,align 8
%aO=icmp eq i8*%aN,null
br i1%aO,label%b3,label%aP
aP:
%aQ=load i8*,i8**%g,align 8
%aR=getelementptr inbounds i8,i8*%aQ,i64 16
%aS=bitcast i8*%aR to i32*
%aT=load i32,i32*%aS,align 4
%aU=icmp eq i32%aT,0
br i1%aU,label%a0,label%aV
aV:
%aW=bitcast i8*%aQ to i8**
%aX=getelementptr inbounds i8,i8*%aN,i64%X
%aY=bitcast i8*%aX to i8**
%aZ=load i8*,i8**%aY,align 8
br label%be
a0:
%a1=getelementptr inbounds i8,i8*%aQ,i64 20
%a2=bitcast i8*%a1 to i32*
%a3=load i32,i32*%a2,align 4
%a4=call i8*@sml_alloc(i32 inreg%a3)#0
%a5=getelementptr inbounds i8,i8*%a4,i64 -4
%a6=bitcast i8*%a5 to i32*
store i32%a3,i32*%a6,align 4
%a7=load i8*,i8**%d,align 8
%a8=getelementptr inbounds i8,i8*%a7,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a4,i8*%a8,i32%a3,i1 false)
%a9=load i8**,i8***%Z,align 8
%ba=bitcast i8**%a9 to i8*
%bb=getelementptr inbounds i8*,i8**%a9,i64 2
%bc=bitcast i8**%bb to i32*
%bd=load i32,i32*%bc,align 4
br label%be
be:
%bf=phi i32[%bd,%a0],[%aT,%aV]
%bg=phi i8*[%ba,%a0],[%aQ,%aV]
%bh=phi i8**[%a9,%a0],[%aW,%aV]
%bi=phi i8*[%a7,%a0],[%aN,%aV]
%bj=phi i8*[%a4,%a0],[%aZ,%aV]
store i8*%bj,i8**%f,align 8
%bk=getelementptr inbounds i8,i8*%bi,i64%Y
%bl=bitcast i8*%bk to i8**
%bm=load i8*,i8**%bl,align 8
store i8*%bm,i8**%d,align 8
%bn=load i8*,i8**%bh,align 8
%bo=getelementptr inbounds i8,i8*%bn,i64 16
%bp=bitcast i8*%bo to i8*(i8*,i8*)**
%bq=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bp,align 8
%br=bitcast i8*%bn to i8**
%bs=load i8*,i8**%br,align 8
store i8*%bs,i8**%h,align 8
%bt=getelementptr inbounds i8,i8*%bg,i64 12
%bu=bitcast i8*%bt to i32*
%bv=load i32,i32*%bu,align 4
%bw=getelementptr inbounds i8,i8*%bg,i64 8
%bx=bitcast i8*%bw to i32*
%by=load i32,i32*%bx,align 4
%bz=getelementptr inbounds i8,i8*%bg,i64 20
%bA=bitcast i8*%bz to i32*
%bB=load i32,i32*%bA,align 4
%bC=call i8*@sml_alloc(i32 inreg%P)#0
%bD=getelementptr inbounds i8,i8*%bC,i64 -4
%bE=bitcast i8*%bD to i32*
store i32%aa,i32*%bE,align 4
call void@llvm.memset.p0i8.i32(i8*%bC,i8 0,i32%P,i1 false)
%bF=icmp eq i32%by,0
%bG=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bH=getelementptr inbounds i8,i8*%bC,i64%V
br i1%bF,label%bI,label%bJ
bI:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bH,i8*%bG,i32%bv,i1 false)
br label%bL
bJ:
%bK=bitcast i8*%bH to i8**
store i8*%bG,i8**%bK,align 8
br label%bL
bL:
%bM=icmp eq i32%bf,0
%bN=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bO=getelementptr inbounds i8,i8*%bC,i64%ab
br i1%bM,label%bP,label%bQ
bP:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bO,i8*%bN,i32%bB,i1 false)
br label%bS
bQ:
%bR=bitcast i8*%bO to i8**
store i8*%bN,i8**%bR,align 8
br label%bS
bS:
%bT=getelementptr inbounds i8,i8*%bC,i64%ac
%bU=bitcast i8*%bT to i32*
store i32%O,i32*%bU,align 4
%bV=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%bW=call fastcc i8*%bq(i8*inreg%bV,i8*inreg%bC)
%bX=bitcast i8*%bW to i32*
%bY=load i32,i32*%bX,align 4
%bZ=icmp eq i32%bY,0
br i1%bZ,label%b3,label%b0
b0:
%b1=load i8*,i8**%c,align 8
%b2=load i8*,i8**%d,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%ad
b3:
%b4=phi i32[0,%bS],[1,%aH],[1,%al]
ret i32%b4
}
define internal fastcc i8*@_SMLLLN8ListPair3allE_155(i8*inreg%a,i8*inreg%b)#3 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(i32(i8*,i8*)*@_SMLLLN8ListPair3allE_154 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*)*@_SMLLLN8ListPair3allE_179 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 fastcc i8*@_SMLFN8ListPair3allE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair3allE_155 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*)*@_SMLLLN8ListPair3allE_155 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@_SMLLLN8ListPair6existsE_158(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
af:
%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
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
store i8*%a,i8**%g,align 8
%i=getelementptr inbounds i8,i8*%a,i64 12
%j=bitcast i8*%i to i32*
%k=load i32,i32*%j,align 4
%l=add i32%k,-1
%m=sub i32 0,%k
%n=and i32%l,%m
%o=add i32%n,%k
%p=add i32%o,7
%q=and i32%p,-8
%r=getelementptr inbounds i8,i8*%a,i64 20
%s=bitcast i8*%r to i32*
%t=load i32,i32*%s,align 4
%u=add i32%t,-1
%v=sub i32 0,%t
%w=and i32%u,%v
%x=add i32%t,7
%y=add i32%x,%w
%z=and i32%y,-8
%A=add i32%u,%o
%B=and i32%A,%v
%C=add i32%x,%B
%D=and i32%C,-8
%E=lshr i32%B,3
%F=lshr i32%n,3
%G=sub nsw i32%E,%F
%H=getelementptr inbounds i8,i8*%a,i64 16
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=shl i32%J,%G
%L=getelementptr inbounds i8,i8*%a,i64 8
%M=bitcast i8*%L to i32*
%N=load i32,i32*%M,align 4
%O=or i32%K,%N
%P=or i32%D,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%n to i64
%W=sext i32%q to i64
%X=sext i32%w to i64
%Y=sext i32%z to i64
%Z=bitcast i8**%g to i8***
%aa=or i32%D,1342177280
%ab=sext i32%B to i64
%ac=sext i32%D to i64
br label%ad
ad:
%ae=phi i8*[%R,%af],[%b3,%b2]
%ag=phi i8*[%U,%af],[%b4,%b2]
store i8*%ae,i8**%c,align 8
store i8*%ag,i8**%d,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ae,%ad]
%an=icmp eq i8*%am,null
br i1%an,label%b0,label%ao
ao:
%ap=load i8*,i8**%g,align 8
%aq=getelementptr inbounds i8,i8*%ap,i64 8
%ar=bitcast i8*%aq to i32*
%as=load i32,i32*%ar,align 4
%at=icmp eq i32%as,0
br i1%at,label%ay,label%au
au:
%av=getelementptr inbounds i8,i8*%am,i64%V
%aw=bitcast i8*%av to i8**
%ax=load i8*,i8**%aw,align 8
br label%aH
ay:
%az=getelementptr inbounds i8,i8*%ap,i64 12
%aA=bitcast i8*%az to i32*
%aB=load i32,i32*%aA,align 4
%aC=call i8*@sml_alloc(i32 inreg%aB)#0
%aD=getelementptr inbounds i8,i8*%aC,i64 -4
%aE=bitcast i8*%aD to i32*
store i32%aB,i32*%aE,align 4
%aF=load i8*,i8**%c,align 8
%aG=getelementptr inbounds i8,i8*%aF,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aC,i8*%aG,i32%aB,i1 false)
br label%aH
aH:
%aI=phi i8*[%aF,%ay],[%am,%au]
%aJ=phi i8*[%aC,%ay],[%ax,%au]
store i8*%aJ,i8**%e,align 8
%aK=getelementptr inbounds i8,i8*%aI,i64%W
%aL=bitcast i8*%aK to i8**
%aM=load i8*,i8**%aL,align 8
store i8*%aM,i8**%c,align 8
%aN=load i8*,i8**%d,align 8
%aO=icmp eq i8*%aN,null
br i1%aO,label%b0,label%aP
aP:
%aQ=load i8*,i8**%g,align 8
%aR=getelementptr inbounds i8,i8*%aQ,i64 16
%aS=bitcast i8*%aR to i32*
%aT=load i32,i32*%aS,align 4
%aU=icmp eq i32%aT,0
br i1%aU,label%a0,label%aV
aV:
%aW=bitcast i8*%aQ to i8**
%aX=getelementptr inbounds i8,i8*%aN,i64%X
%aY=bitcast i8*%aX to i8**
%aZ=load i8*,i8**%aY,align 8
br label%be
a0:
%a1=getelementptr inbounds i8,i8*%aQ,i64 20
%a2=bitcast i8*%a1 to i32*
%a3=load i32,i32*%a2,align 4
%a4=call i8*@sml_alloc(i32 inreg%a3)#0
%a5=getelementptr inbounds i8,i8*%a4,i64 -4
%a6=bitcast i8*%a5 to i32*
store i32%a3,i32*%a6,align 4
%a7=load i8*,i8**%d,align 8
%a8=getelementptr inbounds i8,i8*%a7,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a4,i8*%a8,i32%a3,i1 false)
%a9=load i8**,i8***%Z,align 8
%ba=bitcast i8**%a9 to i8*
%bb=getelementptr inbounds i8*,i8**%a9,i64 2
%bc=bitcast i8**%bb to i32*
%bd=load i32,i32*%bc,align 4
br label%be
be:
%bf=phi i32[%bd,%a0],[%aT,%aV]
%bg=phi i8*[%ba,%a0],[%aQ,%aV]
%bh=phi i8**[%a9,%a0],[%aW,%aV]
%bi=phi i8*[%a7,%a0],[%aN,%aV]
%bj=phi i8*[%a4,%a0],[%aZ,%aV]
store i8*%bj,i8**%f,align 8
%bk=getelementptr inbounds i8,i8*%bi,i64%Y
%bl=bitcast i8*%bk to i8**
%bm=load i8*,i8**%bl,align 8
store i8*%bm,i8**%d,align 8
%bn=load i8*,i8**%bh,align 8
%bo=getelementptr inbounds i8,i8*%bn,i64 16
%bp=bitcast i8*%bo to i8*(i8*,i8*)**
%bq=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bp,align 8
%br=bitcast i8*%bn to i8**
%bs=load i8*,i8**%br,align 8
store i8*%bs,i8**%h,align 8
%bt=getelementptr inbounds i8,i8*%bg,i64 12
%bu=bitcast i8*%bt to i32*
%bv=load i32,i32*%bu,align 4
%bw=getelementptr inbounds i8,i8*%bg,i64 8
%bx=bitcast i8*%bw to i32*
%by=load i32,i32*%bx,align 4
%bz=getelementptr inbounds i8,i8*%bg,i64 20
%bA=bitcast i8*%bz to i32*
%bB=load i32,i32*%bA,align 4
%bC=call i8*@sml_alloc(i32 inreg%P)#0
%bD=getelementptr inbounds i8,i8*%bC,i64 -4
%bE=bitcast i8*%bD to i32*
store i32%aa,i32*%bE,align 4
call void@llvm.memset.p0i8.i32(i8*%bC,i8 0,i32%P,i1 false)
%bF=icmp eq i32%by,0
%bG=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bH=getelementptr inbounds i8,i8*%bC,i64%V
br i1%bF,label%bI,label%bJ
bI:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bH,i8*%bG,i32%bv,i1 false)
br label%bL
bJ:
%bK=bitcast i8*%bH to i8**
store i8*%bG,i8**%bK,align 8
br label%bL
bL:
%bM=icmp eq i32%bf,0
%bN=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bO=getelementptr inbounds i8,i8*%bC,i64%ab
br i1%bM,label%bP,label%bQ
bP:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bO,i8*%bN,i32%bB,i1 false)
br label%bS
bQ:
%bR=bitcast i8*%bO to i8**
store i8*%bN,i8**%bR,align 8
br label%bS
bS:
%bT=getelementptr inbounds i8,i8*%bC,i64%ac
%bU=bitcast i8*%bT to i32*
store i32%O,i32*%bU,align 4
%bV=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%bW=call fastcc i8*%bq(i8*inreg%bV,i8*inreg%bC)
%bX=bitcast i8*%bW to i32*
%bY=load i32,i32*%bX,align 4
%bZ=icmp eq i32%bY,0
br i1%bZ,label%b2,label%b0
b0:
%b1=phi i32[1,%bS],[0,%aH],[0,%al]
ret i32%b1
b2:
%b3=load i8*,i8**%c,align 8
%b4=load i8*,i8**%d,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%ad
}
define internal fastcc i8*@_SMLLLN8ListPair6existsE_159(i8*inreg%a,i8*inreg%b)#3 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(i32(i8*,i8*)*@_SMLLLN8ListPair6existsE_158 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*)*@_SMLLLN8ListPair6existsE_181 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 fastcc i8*@_SMLFN8ListPair6existsE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair6existsE_159 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*)*@_SMLLLN8ListPair6existsE_159 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@_SMLLLN8ListPair5allEqE_162(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
af:
%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
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
store i8*%a,i8**%g,align 8
%i=getelementptr inbounds i8,i8*%a,i64 12
%j=bitcast i8*%i to i32*
%k=load i32,i32*%j,align 4
%l=add i32%k,-1
%m=sub i32 0,%k
%n=and i32%l,%m
%o=add i32%n,%k
%p=add i32%o,7
%q=and i32%p,-8
%r=getelementptr inbounds i8,i8*%a,i64 20
%s=bitcast i8*%r to i32*
%t=load i32,i32*%s,align 4
%u=add i32%t,-1
%v=sub i32 0,%t
%w=and i32%u,%v
%x=add i32%t,7
%y=add i32%x,%w
%z=and i32%y,-8
%A=add i32%u,%o
%B=and i32%A,%v
%C=add i32%x,%B
%D=and i32%C,-8
%E=lshr i32%B,3
%F=lshr i32%n,3
%G=sub nsw i32%E,%F
%H=getelementptr inbounds i8,i8*%a,i64 16
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=shl i32%J,%G
%L=getelementptr inbounds i8,i8*%a,i64 8
%M=bitcast i8*%L to i32*
%N=load i32,i32*%M,align 4
%O=or i32%K,%N
%P=or i32%D,4
%Q=bitcast i8*%b to i8**
%R=load i8*,i8**%Q,align 8
%S=getelementptr inbounds i8,i8*%b,i64 8
%T=bitcast i8*%S to i8**
%U=load i8*,i8**%T,align 8
%V=sext i32%n to i64
%W=sext i32%q to i64
%X=sext i32%w to i64
%Y=sext i32%z to i64
%Z=bitcast i8**%g to i8***
%aa=or i32%D,1342177280
%ab=sext i32%B to i64
%ac=sext i32%D to i64
br label%ad
ad:
%ae=phi i8*[%R,%af],[%b6,%b5]
%ag=phi i8*[%U,%af],[%b7,%b5]
store i8*%ae,i8**%c,align 8
store i8*%ag,i8**%d,align 8
%ah=load atomic i32,i32*@sml_check_flag unordered,align 4
%ai=icmp eq i32%ah,0
br i1%ai,label%al,label%aj
aj:
call void@sml_check(i32 inreg%ah)
%ak=load i8*,i8**%c,align 8
br label%al
al:
%am=phi i8*[%ak,%aj],[%ae,%ad]
%an=icmp eq i8*%am,null
br i1%an,label%ao,label%at
ao:
%ap=load i8*,i8**%d,align 8
%aq=icmp eq i8*%ap,null
br i1%aq,label%ar,label%b8
ar:
%as=phi i32[1,%ao],[0,%b8],[0,%bX]
ret i32%as
at:
%au=load i8*,i8**%g,align 8
%av=getelementptr inbounds i8,i8*%au,i64 8
%aw=bitcast i8*%av to i32*
%ax=load i32,i32*%aw,align 4
%ay=icmp eq i32%ax,0
br i1%ay,label%aD,label%az
az:
%aA=getelementptr inbounds i8,i8*%am,i64%V
%aB=bitcast i8*%aA to i8**
%aC=load i8*,i8**%aB,align 8
br label%aM
aD:
%aE=getelementptr inbounds i8,i8*%au,i64 12
%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=getelementptr inbounds i8,i8*%aK,i64%V
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aH,i8*%aL,i32%aG,i1 false)
br label%aM
aM:
%aN=phi i8*[%aK,%aD],[%am,%az]
%aO=phi i8*[%aH,%aD],[%aC,%az]
store i8*%aO,i8**%e,align 8
%aP=getelementptr inbounds i8,i8*%aN,i64%W
%aQ=bitcast i8*%aP to i8**
%aR=load i8*,i8**%aQ,align 8
store i8*%aR,i8**%c,align 8
%aS=load i8*,i8**%d,align 8
%aT=icmp eq i8*%aS,null
br i1%aT,label%b8,label%aU
aU:
%aV=load i8*,i8**%g,align 8
%aW=getelementptr inbounds i8,i8*%aV,i64 16
%aX=bitcast i8*%aW to i32*
%aY=load i32,i32*%aX,align 4
%aZ=icmp eq i32%aY,0
br i1%aZ,label%a5,label%a0
a0:
%a1=bitcast i8*%aV to i8**
%a2=getelementptr inbounds i8,i8*%aS,i64%X
%a3=bitcast i8*%a2 to i8**
%a4=load i8*,i8**%a3,align 8
br label%bj
a5:
%a6=getelementptr inbounds i8,i8*%aV,i64 20
%a7=bitcast i8*%a6 to i32*
%a8=load i32,i32*%a7,align 4
%a9=call i8*@sml_alloc(i32 inreg%a8)#0
%ba=getelementptr inbounds i8,i8*%a9,i64 -4
%bb=bitcast i8*%ba to i32*
store i32%a8,i32*%bb,align 4
%bc=load i8*,i8**%d,align 8
%bd=getelementptr inbounds i8,i8*%bc,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a9,i8*%bd,i32%a8,i1 false)
%be=load i8**,i8***%Z,align 8
%bf=bitcast i8**%be to i8*
%bg=getelementptr inbounds i8*,i8**%be,i64 2
%bh=bitcast i8**%bg to i32*
%bi=load i32,i32*%bh,align 4
br label%bj
bj:
%bk=phi i32[%bi,%a5],[%aY,%a0]
%bl=phi i8*[%bf,%a5],[%aV,%a0]
%bm=phi i8**[%be,%a5],[%a1,%a0]
%bn=phi i8*[%bc,%a5],[%aS,%a0]
%bo=phi i8*[%a9,%a5],[%a4,%a0]
store i8*%bo,i8**%f,align 8
%bp=getelementptr inbounds i8,i8*%bn,i64%Y
%bq=bitcast i8*%bp to i8**
%br=load i8*,i8**%bq,align 8
store i8*%br,i8**%d,align 8
%bs=load i8*,i8**%bm,align 8
%bt=getelementptr inbounds i8,i8*%bs,i64 16
%bu=bitcast i8*%bt to i8*(i8*,i8*)**
%bv=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bu,align 8
%bw=bitcast i8*%bs to i8**
%bx=load i8*,i8**%bw,align 8
store i8*%bx,i8**%h,align 8
%by=getelementptr inbounds i8,i8*%bl,i64 12
%bz=bitcast i8*%by to i32*
%bA=load i32,i32*%bz,align 4
%bB=getelementptr inbounds i8,i8*%bl,i64 8
%bC=bitcast i8*%bB to i32*
%bD=load i32,i32*%bC,align 4
%bE=getelementptr inbounds i8,i8*%bl,i64 20
%bF=bitcast i8*%bE to i32*
%bG=load i32,i32*%bF,align 4
%bH=call i8*@sml_alloc(i32 inreg%P)#0
%bI=getelementptr inbounds i8,i8*%bH,i64 -4
%bJ=bitcast i8*%bI to i32*
store i32%aa,i32*%bJ,align 4
call void@llvm.memset.p0i8.i32(i8*%bH,i8 0,i32%P,i1 false)
%bK=icmp eq i32%bD,0
%bL=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bM=getelementptr inbounds i8,i8*%bH,i64%V
br i1%bK,label%bN,label%bO
bN:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bM,i8*%bL,i32%bA,i1 false)
br label%bQ
bO:
%bP=bitcast i8*%bM to i8**
store i8*%bL,i8**%bP,align 8
br label%bQ
bQ:
%bR=icmp eq i32%bk,0
%bS=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bT=getelementptr inbounds i8,i8*%bH,i64%ab
br i1%bR,label%bU,label%bV
bU:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bT,i8*%bS,i32%bG,i1 false)
br label%bX
bV:
%bW=bitcast i8*%bT to i8**
store i8*%bS,i8**%bW,align 8
br label%bX
bX:
%bY=getelementptr inbounds i8,i8*%bH,i64%ac
%bZ=bitcast i8*%bY to i32*
store i32%O,i32*%bZ,align 4
%b0=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%b1=call fastcc i8*%bv(i8*inreg%b0,i8*inreg%bH)
%b2=bitcast i8*%b1 to i32*
%b3=load i32,i32*%b2,align 4
%b4=icmp eq i32%b3,0
br i1%b4,label%ar,label%b5
b5:
%b6=load i8*,i8**%c,align 8
%b7=load i8*,i8**%d,align 8
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
br label%ad
b8:
br label%ar
}
define internal fastcc i8*@_SMLLLN8ListPair5allEqE_163(i8*inreg%a,i8*inreg%b)#3 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(i32(i8*,i8*)*@_SMLLLN8ListPair5allEqE_162 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*)*@_SMLLLN8ListPair5allEqE_183 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 fastcc i8*@_SMLFN8ListPair5allEqE(i32 inreg%a,i32 inreg%b,i32 inreg%c,i32 inreg%d)#3 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*)*@_SMLLLN8ListPair5allEqE_163 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*)*@_SMLLLN8ListPair5allEqE_163 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*@_SMLLLN8ListPair3zipE_166(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair3zipE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair5zipEqE_167(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair5zipEqE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair5unzipE_168(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair5unzipE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair3appE_169(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
tail call fastcc void@_SMLLLN8ListPair3appE_110(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*@_SMLLLN8ListPair3appE_170(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair3appE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair5appEqE_171(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
tail call fastcc void@_SMLLLN8ListPair5appEqE_116(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*@_SMLLLN8ListPair5appEqE_172(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair5appEqE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair3mapE_173(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e,i8*inreg%f,i8*inreg%g)#3 gc"smlsharp"{
%h=bitcast i8*%b to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%c to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%d to i32*
%m=load i32,i32*%l,align 4
%n=bitcast i8*%e to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8*%f to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%g to i32*
%s=load i32,i32*%r,align 4
%t=tail call fastcc i8*@_SMLFN8ListPair3mapE(i32 inreg%i,i32 inreg%k,i32 inreg%m,i32 inreg%o,i32 inreg%q,i32 inreg%s)
ret i8*%t
}
define internal fastcc i8*@_SMLLLN8ListPair5mapEqE_174(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e,i8*inreg%f,i8*inreg%g)#3 gc"smlsharp"{
%h=bitcast i8*%b to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%c to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%d to i32*
%m=load i32,i32*%l,align 4
%n=bitcast i8*%e to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8*%f to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%g to i32*
%s=load i32,i32*%r,align 4
%t=tail call fastcc i8*@_SMLFN8ListPair5mapEqE(i32 inreg%i,i32 inreg%k,i32 inreg%m,i32 inreg%o,i32 inreg%q,i32 inreg%s)
ret i8*%t
}
define internal fastcc i8*@_SMLLLN8ListPair5foldlE_175(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e,i8*inreg%f,i8*inreg%g)#3 gc"smlsharp"{
%h=bitcast i8*%b to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%c to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%d to i32*
%m=load i32,i32*%l,align 4
%n=bitcast i8*%e to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8*%f to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%g to i32*
%s=load i32,i32*%r,align 4
%t=tail call fastcc i8*@_SMLFN8ListPair5foldlE(i32 inreg%i,i32 inreg%k,i32 inreg%m,i32 inreg%o,i32 inreg%q,i32 inreg%s)
ret i8*%t
}
define internal fastcc i8*@_SMLLLN8ListPair5foldrE_176(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e,i8*inreg%f,i8*inreg%g)#3 gc"smlsharp"{
%h=bitcast i8*%b to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%c to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%d to i32*
%m=load i32,i32*%l,align 4
%n=bitcast i8*%e to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8*%f to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%g to i32*
%s=load i32,i32*%r,align 4
%t=tail call fastcc i8*@_SMLFN8ListPair5foldrE(i32 inreg%i,i32 inreg%k,i32 inreg%m,i32 inreg%o,i32 inreg%q,i32 inreg%s)
ret i8*%t
}
define internal fastcc i8*@_SMLLLN8ListPair7foldlEqE_177(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e,i8*inreg%f,i8*inreg%g)#3 gc"smlsharp"{
%h=bitcast i8*%b to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%c to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%d to i32*
%m=load i32,i32*%l,align 4
%n=bitcast i8*%e to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8*%f to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%g to i32*
%s=load i32,i32*%r,align 4
%t=tail call fastcc i8*@_SMLFN8ListPair7foldlEqE(i32 inreg%i,i32 inreg%k,i32 inreg%m,i32 inreg%o,i32 inreg%q,i32 inreg%s)
ret i8*%t
}
define internal fastcc i8*@_SMLLLN8ListPair7foldrEqE_178(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e,i8*inreg%f,i8*inreg%g)#3 gc"smlsharp"{
%h=bitcast i8*%b to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%c to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%d to i32*
%m=load i32,i32*%l,align 4
%n=bitcast i8*%e to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8*%f to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8*%g to i32*
%s=load i32,i32*%r,align 4
%t=tail call fastcc i8*@_SMLFN8ListPair7foldrEqE(i32 inreg%i,i32 inreg%k,i32 inreg%m,i32 inreg%o,i32 inreg%q,i32 inreg%s)
ret i8*%t
}
define internal fastcc i8*@_SMLLLN8ListPair3allE_179(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLLN8ListPair3allE_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*@_SMLLLN8ListPair3allE_180(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair3allE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair6existsE_181(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLLN8ListPair6existsE_158(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*@_SMLLLN8ListPair6existsE_182(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair6existsE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLLN8ListPair5allEqE_183(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLLN8ListPair5allEqE_162(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*@_SMLLLN8ListPair5allEqE_184(i8*inreg%a,i8*inreg%b,i8*inreg%c,i8*inreg%d,i8*inreg%e)#3 gc"smlsharp"{
%f=bitcast i8*%b to i32*
%g=load i32,i32*%f,align 4
%h=bitcast i8*%c to i32*
%i=load i32,i32*%h,align 4
%j=bitcast i8*%d to i32*
%k=load i32,i32*%j,align 4
%l=bitcast i8*%e to i32*
%m=load i32,i32*%l,align 4
%n=tail call fastcc i8*@_SMLFN8ListPair5allEqE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
declare void@llvm.memcpy.p0i8.p0i8.i32(i8*,i8*,i32,i1)#0
declare void@llvm.memset.p0i8.i32(i8*,i8,i32,i1)#0
attributes#0={nounwind}
attributes#1={noreturn}
attributes#2={noreturn nounwind}
attributes#3={nounwind uwtable}
attributes#4={uwtable}
