@sml_check_flag=external local_unnamed_addr global i32
@_SMLZ9Subscript=external unnamed_addr constant i8*
@_SMLZ4Size=external unnamed_addr constant i8*
@_SMLZ8Overflow=external unnamed_addr constant i8*
@a=private unnamed_addr constant<{[4x i8],i32,[11x i8]}><{[4x i8]zeroinitializer,i32 -2147483637,[11x i8]c"List.Empty\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,[11x i8]}>,<{[4x i8],i32,[11x i8]}>*@a,i32 0,i32 0,i32 0),i32 8),i32 0,[4x i8]zeroinitializer,i32 1}>,align 8
@_SMLDL119=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,[35x i8]}><{[4x i8]zeroinitializer,i32 -2147483613,[35x i8]c"src/basis/main/List.sml:28.38(593)\00"}>,align 8
@d=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:54.23(1065)\00"}>,align 8
@e=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*}>*@_SMLDL119,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@d,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@f=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:63.42(1262)\00"}>,align 8
@g=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:67.32(1389)\00"}>,align 8
@h=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:73.37(1551)\00"}>,align 8
@i=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:76.30(1654)\00"}>,align 8
@j=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:82.34(1809)\00"}>,align 8
@k=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:85.30(1903)\00"}>,align 8
@l=private unnamed_addr constant<{[4x i8],i32,i32,[4x i8],i8*,i32}><{[4x i8]zeroinitializer,i32 -805306352,i32 0,[4x i8]zeroinitializer,i8*null,i32 2}>,align 8
@m=private unnamed_addr constant<{[4x i8],i32,[37x i8]}><{[4x i8]zeroinitializer,i32 -2147483611,[37x i8]c"src/basis/main/List.sml:167.30(3999)\00"}>,align 8
@_SMLZN4List5EmptyE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*}>,<{[4x i8],i32,i8*}>*@_SMLDL119,i64 0,i32 2)to i8*)
@n=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i32(i8*)*@_SMLLN4List4nullE_217 to void(...)*),void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4nullE_329 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)*@_SMLFN4List4nullE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4nullE_330 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List4nullE=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*)
@p=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List6lengthE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List6lengthE_332 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List6lengthE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@p,i64 0,i32 2)to i8*)
@q=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List1_VE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List1_VE_333 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List1_VE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@q,i64 0,i32 2)to i8*)
@r=private unnamed_addr constant<{[4x i8],i32,[35x i8]}><{[4x i8]zeroinitializer,i32 -2147483613,[35x i8]c"src/basis/main/List.sml:48.21(967)\00"}>,align 8
@s=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*}>*@_SMLDL119,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[35x i8]}>,<{[4x i8],i32,[35x i8]}>*@r,i32 0,i32 0,i32 0),i32 8),i32 3}>,align 8
@t=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List2hdE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List2hdE_334 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List2hdE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@t,i64 0,i32 2)to i8*)
@u=private unnamed_addr constant<{[4x i8],i32,[36x i8]}><{[4x i8]zeroinitializer,i32 -2147483612,[36x i8]c"src/basis/main/List.sml:51.21(1015)\00"}>,align 8
@v=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*}>*@_SMLDL119,i32 0,i32 0,i32 0),i32 8),i8*getelementptr inbounds(i8,i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@u,i32 0,i32 0,i32 0),i32 8),i32 3}>,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)*@_SMLFN4List2tlE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List2tlE_335 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List2tlE=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*)
@x=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List4lastE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4lastE_336 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List4lastE=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*)
@y=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List7getItemE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List7getItemE_337 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List7getItemE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@y,i64 0,i32 2)to i8*)
@z=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List3nthE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List3nthE_338 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List3nthE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@z,i64 0,i32 2)to i8*)
@A=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List4takeE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4takeE_339 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List4takeE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@A,i64 0,i32 2)to i8*)
@B=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List4dropE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4dropE_340 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List4dropE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@B,i64 0,i32 2)to i8*)
@C=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List3revE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List3revE_341 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List3revE=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*)
@D=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List6concatE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List6concatE_342 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List6concatE=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*)
@E=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List9revAppendE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List9revAppendE_343 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List9revAppendE=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*)
@F=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List3appE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List3appE_345 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List3appE=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*)
@G=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)*@_SMLFN4List3mapE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLN4List3mapE_346 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List3mapE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@G,i64 0,i32 2)to i8*)
@H=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)*@_SMLFN4List10mapPartialE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLN4List10mapPartialE_347 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List10mapPartialE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@H,i64 0,i32 2)to i8*)
@I=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List4findE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4findE_348 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List4findE=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*)
@J=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List6filterE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List6filterE_349 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List6filterE=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*)
@K=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List9partitionE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List9partitionE_350 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List9partitionE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@K,i64 0,i32 2)to i8*)
@L=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)*@_SMLFN4List5foldlE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLN4List5foldlE_351 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List5foldlE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@L,i64 0,i32 2)to i8*)
@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)*@_SMLFN4List5foldrE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*,i8*,i8*)*@_SMLLN4List5foldrE_352 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List5foldrE=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*)
@N=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List6existsE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List6existsE_354 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List6existsE=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*)
@O=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List3allE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List3allE_356 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List3allE=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*)
@P=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List8tabulateE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List8tabulateE_357 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List8tabulateE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@P,i64 0,i32 2)to i8*)
@Q=private unnamed_addr constant<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}><{[4x i8]zeroinitializer,i32 -805306344,i8*null,void(...)*bitcast(i8*(i32,i32)*@_SMLFN4List7collateE to void(...)*),void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List7collateE_358 to void(...)*),i32 -2147483647}>,align 8
@_SMLZN4List7collateE=local_unnamed_addr constant i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>,<{[4x i8],i32,i8*,void(...)*,void(...)*,i32}>*@Q,i64 0,i32 2)to i8*)
@_SML_ftab03d87556ec7f64b2_List=external global i8
@R=internal unnamed_addr global i1 false
declare void@llvm.gcroot(i8**,i8*)#0
declare{i32,i1}@llvm.sadd.with.overflow.i32(i32,i32)#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_tabb03d87556ec7f64b2_List()#2{
unreachable
}
define void@_SML_load03d87556ec7f64b2_List(i8*%a)local_unnamed_addr#0{
%b=load i1,i1*@R,align 1
br i1%b,label%c,label%d
c:
ret void
d:
store i1 true,i1*@R,align 1
tail call void@sml_gcroot(i8*%a,void()*@_SML_tabb03d87556ec7f64b2_List,i8*@_SML_ftab03d87556ec7f64b2_List,i8*null)#0
ret void
}
define void@_SML_main03d87556ec7f64b2_List()local_unnamed_addr#3 gc"smlsharp"{
ret void
}
define internal fastcc i32@_SMLL4loop_120(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
h:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
%e=bitcast i8**%d to i32**
br label%f
f:
%g=phi i8*[%ah,%af],[%b,%h]
store i8*%g,i8**%c,align 8
%i=load atomic i32,i32*@sml_check_flag unordered,align 4
%j=icmp eq i32%i,0
br i1%j,label%m,label%k
k:
call void@sml_check(i32 inreg%i)
%l=load i8*,i8**%c,align 8
br label%m
m:
%n=phi i8*[%l,%k],[%g,%f]
%o=load i32*,i32**%e,align 8
%p=load i32,i32*%o,align 4
%q=bitcast i8*%n to i8**
%r=load i8*,i8**%q,align 8
%s=icmp eq i8*%r,null
br i1%s,label%t,label%x
t:
%u=getelementptr inbounds i8,i8*%n,i64 8
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
ret i32%w
x:
%y=add i32%p,-1
%z=sub i32 0,%p
%A=and i32%y,%z
%B=add i32%p,7
%C=add i32%B,%A
%D=and i32%C,-8
%E=sext i32%D to i64
%F=getelementptr inbounds i8,i8*%r,i64%E
%G=bitcast i8*%F to i8**
%H=load i8*,i8**%G,align 8
store i8*%H,i8**%c,align 8
%I=getelementptr inbounds i8,i8*%n,i64 8
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=call{i32,i1}@llvm.sadd.with.overflow.i32(i32%K,i32 1)#0
%M=extractvalue{i32,i1}%L,1
br i1%M,label%N,label%af
N:
store i8*null,i8**%d,align 8
%O=load i8*,i8**@_SMLZ8Overflow,align 8
store i8*%O,i8**%c,align 8
%P=call i8*@sml_alloc(i32 inreg 20)#0
%Q=getelementptr inbounds i8,i8*%P,i64 -4
%R=bitcast i8*%Q to i32*
store i32 1342177296,i32*%R,align 4
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 i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[35x i8]}>,<{[4x i8],i32,[35x i8]}>*@c,i64 0,i32 2,i64 0),i8**%V,align 8
%W=getelementptr inbounds i8,i8*%P,i64 16
%X=bitcast i8*%W to i32*
store i32 3,i32*%X,align 4
%Y=call i8*@sml_alloc(i32 inreg 60)#0
%Z=getelementptr inbounds i8,i8*%Y,i64 -4
%aa=bitcast i8*%Z to i32*
store i32 1342177336,i32*%aa,align 4
%ab=getelementptr inbounds i8,i8*%Y,i64 56
%ac=bitcast i8*%ab to i32*
store i32 1,i32*%ac,align 4
%ad=load i8*,i8**%d,align 8
%ae=bitcast i8*%Y to i8**
store i8*%ad,i8**%ae,align 8
call void@sml_raise(i8*inreg%Y)#1
unreachable
af:
%ag=add nsw i32%K,1
%ah=call i8*@sml_alloc(i32 inreg 20)#0
%ai=getelementptr inbounds i8,i8*%ah,i64 -4
%aj=bitcast i8*%ai to i32*
store i32 1342177296,i32*%aj,align 4
%ak=getelementptr inbounds i8,i8*%ah,i64 12
%al=bitcast i8*%ak to i32*
store i32 0,i32*%al,align 1
%am=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%an=bitcast i8*%ah to i8**
store i8*%am,i8**%an,align 8
%ao=getelementptr inbounds i8,i8*%ah,i64 8
%ap=bitcast i8*%ao to i32*
store i32%ag,i32*%ap,align 4
%aq=getelementptr inbounds i8,i8*%ah,i64 16
%ar=bitcast i8*%aq to i32*
store i32 1,i32*%ar,align 4
br label%f
}
define internal fastcc i32@_SMLLN4List6lengthE_122(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%g,label%i
g:
%h=bitcast i8*%a to i32*
br label%l
i:
call void@sml_check(i32 inreg%e)
%j=bitcast i8**%d to i32**
%k=load i32*,i32**%j,align 8
br label%l
l:
%m=phi i32*[%k,%i],[%h,%g]
store i8*null,i8**%d,align 8
%n=load i32,i32*%m,align 4
%o=call i8*@sml_alloc(i32 inreg 12)#0
%p=bitcast i8*%o to i32*
%q=getelementptr inbounds i8,i8*%o,i64 -4
%r=bitcast i8*%q to i32*
store i32 1342177288,i32*%r,align 4
store i8*%o,i8**%d,align 8
store i32%n,i32*%p,align 4
%s=getelementptr inbounds i8,i8*%o,i64 8
%t=bitcast i8*%s to i32*
store i32 0,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLL4loop_120 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_301 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
%F=call i8*@sml_alloc(i32 inreg 20)#0
%G=getelementptr inbounds i8,i8*%F,i64 -4
%H=bitcast i8*%G to i32*
store i32 1342177296,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%F,i64 12
%J=bitcast i8*%I to i32*
store i32 0,i32*%J,align 1
%K=load i8*,i8**%c,align 8
%L=bitcast i8*%F to i8**
store i8*%K,i8**%L,align 8
%M=getelementptr inbounds i8,i8*%F,i64 8
%N=bitcast i8*%M to i32*
store i32 0,i32*%N,align 4
%O=getelementptr inbounds i8,i8*%F,i64 16
%P=bitcast i8*%O to i32*
store i32 1,i32*%P,align 4
%Q=load i8*,i8**%d,align 8
%R=tail call fastcc i32@_SMLL4loop_120(i8*inreg%Q,i8*inreg%F)
ret i32%R
}
define internal fastcc i8*@_SMLL4loop_125(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
j:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
br label%h
h:
%i=phi i8*[%aT,%aM],[%b,%j]
store i8*%i,i8**%c,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%c,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
%q=load i8*,i8**%f,align 8
%r=getelementptr inbounds i8,i8*%q,i64 4
%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%z,15
%B=and i32%A,-8
%C=lshr i32%y,3
%D=lshr i32%w,3
%E=sub nsw i32%C,%D
%F=shl i32 1,%E
%G=bitcast i8*%q to i32*
%H=load i32,i32*%G,align 4
%I=or i32%F,%H
%J=or i32%B,4
%K=bitcast i8*%p to i8**
%L=load i8*,i8**%K,align 8
%M=icmp eq i8*%L,null
br i1%M,label%N,label%R
N:
%O=getelementptr inbounds i8,i8*%p,i64 8
%P=bitcast i8*%O to i8**
%Q=load i8*,i8**%P,align 8
ret i8*%Q
R:
store i8*%L,i8**%e,align 8
%S=load i32,i32*%G,align 4
%T=icmp eq i32%S,0
br i1%T,label%Z,label%U
U:
%V=sext i32%w to i64
%W=getelementptr inbounds i8,i8*%L,i64%V
%X=bitcast i8*%W to i8**
%Y=load i8*,i8**%X,align 8
br label%am
Z:
%aa=load i32,i32*%s,align 4
%ab=call i8*@sml_alloc(i32 inreg%aa)#0
%ac=getelementptr inbounds i8,i8*%ab,i64 -4
%ad=bitcast i8*%ac to i32*
store i32%aa,i32*%ad,align 4
%ae=load i8*,i8**%e,align 8
%af=sext i32%w to i64
%ag=getelementptr inbounds i8,i8*%ae,i64%af
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ab,i8*%ag,i32%aa,i1 false)
%ah=load i8*,i8**%c,align 8
%ai=load i8*,i8**%f,align 8
%aj=getelementptr inbounds i8,i8*%ai,i64 4
%ak=bitcast i8*%aj to i32*
%al=bitcast i8*%ai to i32*
br label%am
am:
%an=phi i64[%af,%Z],[%V,%U]
%ao=phi i32*[%al,%Z],[%G,%U]
%ap=phi i32*[%ak,%Z],[%s,%U]
%aq=phi i8*[%ah,%Z],[%p,%U]
%ar=phi i8*[%ae,%Z],[%L,%U]
%as=phi i8*[%ab,%Z],[%Y,%U]
store i8*%as,i8**%d,align 8
%at=sext i32%z to i64
%au=getelementptr inbounds i8,i8*%ar,i64%at
%av=bitcast i8*%au to i8**
%aw=load i8*,i8**%av,align 8
store i8*%aw,i8**%e,align 8
%ax=getelementptr inbounds i8,i8*%aq,i64 8
%ay=bitcast i8*%ax to i8**
%az=load i8*,i8**%ay,align 8
store i8*%az,i8**%c,align 8
%aA=load i32,i32*%ap,align 4
%aB=load i32,i32*%ao,align 4
%aC=call i8*@sml_alloc(i32 inreg%J)#0
%aD=or i32%B,1342177280
%aE=getelementptr inbounds i8,i8*%aC,i64 -4
%aF=bitcast i8*%aE to i32*
store i32%aD,i32*%aF,align 4
store i8*%aC,i8**%g,align 8
call void@llvm.memset.p0i8.i32(i8*%aC,i8 0,i32%J,i1 false)
%aG=icmp eq i32%aB,0
%aH=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aI=getelementptr inbounds i8,i8*%aC,i64%an
br i1%aG,label%aL,label%aJ
aJ:
%aK=bitcast i8*%aI to i8**
store i8*%aH,i8**%aK,align 8
br label%aM
aL:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aI,i8*%aH,i32%aA,i1 false)
br label%aM
aM:
%aN=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aO=getelementptr inbounds i8,i8*%aC,i64%at
%aP=bitcast i8*%aO to i8**
store i8*%aN,i8**%aP,align 8
%aQ=sext i32%B to i64
%aR=getelementptr inbounds i8,i8*%aC,i64%aQ
%aS=bitcast i8*%aR to i32*
store i32%I,i32*%aS,align 4
%aT=call i8*@sml_alloc(i32 inreg 20)#0
%aU=getelementptr inbounds i8,i8*%aT,i64 -4
%aV=bitcast i8*%aU to i32*
store i32 1342177296,i32*%aV,align 4
%aW=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%aX=bitcast i8*%aT to i8**
store i8*%aW,i8**%aX,align 8
%aY=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%aZ=getelementptr inbounds i8,i8*%aT,i64 8
%a0=bitcast i8*%aZ to i8**
store i8*%aY,i8**%a0,align 8
%a1=getelementptr inbounds i8,i8*%aT,i64 16
%a2=bitcast i8*%a1 to i32*
store i32 3,i32*%a2,align 4
br label%h
}
define internal fastcc i8*@_SMLLN4List9revAppendE_126(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
m:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%k,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%c,align 8
%j=load i8*,i8**%e,align 8
br label%k
k:
%l=phi i8*[%j,%h],[%a,%m]
%n=phi i8*[%i,%h],[%b,%m]
%o=bitcast i8*%n to i8**
%p=load i8*,i8**%o,align 8
store i8*%p,i8**%c,align 8
%q=getelementptr inbounds i8,i8*%n,i64 8
%r=bitcast i8*%q to i8**
%s=load i8*,i8**%r,align 8
store i8*%s,i8**%d,align 8
%t=bitcast i8*%l to i32*
%u=load i32,i32*%t,align 4
store i8*null,i8**%e,align 8
%v=getelementptr inbounds i8,i8*%l,i64 4
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=call i8*@sml_alloc(i32 inreg 12)#0
%z=bitcast i8*%y to i32*
%A=getelementptr inbounds i8,i8*%y,i64 -4
%B=bitcast i8*%A to i32*
store i32 1342177288,i32*%B,align 4
store i8*%y,i8**%e,align 8
store i32%u,i32*%z,align 4
%C=getelementptr inbounds i8,i8*%y,i64 4
%D=bitcast i8*%C to i32*
store i32%x,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%y,i64 8
%F=bitcast i8*%E to i32*
store i32 0,i32*%F,align 4
%G=call i8*@sml_alloc(i32 inreg 28)#0
%H=getelementptr inbounds i8,i8*%G,i64 -4
%I=bitcast i8*%H to i32*
store i32 1342177304,i32*%I,align 4
%J=load i8*,i8**%e,align 8
%K=bitcast i8*%G to i8**
store i8*%J,i8**%K,align 8
%L=getelementptr inbounds i8,i8*%G,i64 8
%M=bitcast i8*%L to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_125 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%G,i64 16
%O=bitcast i8*%N to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_125 to void(...)*),void(...)**%O,align 8
%P=getelementptr inbounds i8,i8*%G,i64 24
%Q=bitcast i8*%P to i32*
store i32 -2147483647,i32*%Q,align 4
%R=call i8*@sml_alloc(i32 inreg 20)#0
%S=getelementptr inbounds i8,i8*%R,i64 -4
%T=bitcast i8*%S to i32*
store i32 1342177296,i32*%T,align 4
%U=load i8*,i8**%c,align 8
%V=bitcast i8*%R to i8**
store i8*%U,i8**%V,align 8
%W=load i8*,i8**%d,align 8
%X=getelementptr inbounds i8,i8*%R,i64 8
%Y=bitcast i8*%X to i8**
store i8*%W,i8**%Y,align 8
%Z=getelementptr inbounds i8,i8*%R,i64 16
%aa=bitcast i8*%Z to i32*
store i32 3,i32*%aa,align 4
%ab=load i8*,i8**%e,align 8
%ac=tail call fastcc i8*@_SMLL4loop_125(i8*inreg%ab,i8*inreg%R)
ret i8*%ac
}
define internal fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%a,i32 inreg%b)unnamed_addr#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9revAppendE_126 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9revAppendE_126 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List1_VE_129(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
m:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%k,label%i
i:
call void@sml_check(i32 inreg%g)
%j=load i8*,i8**%c,align 8
br label%k
k:
%l=phi i8*[%j,%i],[%b,%m]
%n=bitcast i8*%l to i8**
%o=load i8*,i8**%n,align 8
%p=icmp eq i8*%o,null
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to i8**
%s=load i8*,i8**%r,align 8
br i1%p,label%t,label%u
t:
ret i8*%s
u:
store i8*%s,i8**%d,align 8
%v=icmp eq i8*%s,null
br i1%v,label%w,label%y
w:
%x=load i8*,i8**%n,align 8
ret i8*%x
y:
%z=load i8*,i8**%e,align 8
%A=bitcast i8*%z to i32*
%B=load i32,i32*%A,align 4
%C=getelementptr inbounds i8,i8*%z,i64 4
%D=bitcast i8*%C to i32*
%E=load i32,i32*%D,align 4
%F=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%B,i32 inreg%E)
%G=getelementptr inbounds i8,i8*%F,i64 16
%H=bitcast i8*%G to i8*(i8*,i8*)**
%I=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%H,align 8
%J=bitcast i8*%F to i8**
%K=load i8*,i8**%J,align 8
store i8*%K,i8**%f,align 8
%L=bitcast i8**%c to i8***
%M=load i8**,i8***%L,align 8
%N=load i8*,i8**%M,align 8
store i8*%N,i8**%c,align 8
%O=load i8*,i8**%e,align 8
%P=bitcast i8*%O to i32*
%Q=load i32,i32*%P,align 4
store i8*null,i8**%e,align 8
%R=getelementptr inbounds i8,i8*%O,i64 4
%S=bitcast i8*%R to i32*
%T=load i32,i32*%S,align 4
%U=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%Q,i32 inreg%T)
%V=getelementptr inbounds i8,i8*%U,i64 16
%W=bitcast i8*%V to i8*(i8*,i8*)**
%X=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%W,align 8
%Y=bitcast i8*%U to i8**
%Z=load i8*,i8**%Y,align 8
store i8*%Z,i8**%e,align 8
%aa=call i8*@sml_alloc(i32 inreg 20)#0
%ab=getelementptr inbounds i8,i8*%aa,i64 -4
%ac=bitcast i8*%ab to i32*
store i32 1342177296,i32*%ac,align 4
%ad=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%ae=bitcast i8*%aa to i8**
store i8*%ad,i8**%ae,align 8
%af=getelementptr inbounds i8,i8*%aa,i64 8
%ag=bitcast i8*%af to i8**
store i8*null,i8**%ag,align 8
%ah=getelementptr inbounds i8,i8*%aa,i64 16
%ai=bitcast i8*%ah to i32*
store i32 3,i32*%ai,align 4
%aj=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%ak=call fastcc i8*%X(i8*inreg%aj,i8*inreg%aa)
store i8*%ak,i8**%c,align 8
%al=call i8*@sml_alloc(i32 inreg 20)#0
%am=getelementptr inbounds i8,i8*%al,i64 -4
%an=bitcast i8*%am to i32*
store i32 1342177296,i32*%an,align 4
%ao=load i8*,i8**%c,align 8
%ap=bitcast i8*%al to i8**
store i8*%ao,i8**%ap,align 8
%aq=load i8*,i8**%d,align 8
%ar=getelementptr inbounds i8,i8*%al,i64 8
%as=bitcast i8*%ar to i8**
store i8*%aq,i8**%as,align 8
%at=getelementptr inbounds i8,i8*%al,i64 16
%au=bitcast i8*%at to i32*
store i32 3,i32*%au,align 4
%av=load i8*,i8**%f,align 8
%aw=tail call fastcc i8*%I(i8*inreg%av,i8*inreg%al)
ret i8*%aw
}
define internal fastcc i8*@_SMLLN4List4lastE_132(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
g:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
br label%e
e:
%f=phi i8*[%o,%af],[%a,%g]
%h=phi i8*[%ag,%af],[%b,%g]
store i8*%h,i8**%c,align 8
%i=load atomic i32,i32*@sml_check_flag unordered,align 4
%j=icmp eq i32%i,0
br i1%j,label%n,label%k
k:
call void@sml_check(i32 inreg%i)
%l=load i8*,i8**%c,align 8
%m=load i8*,i8**%d,align 8
br label%n
n:
%o=phi i8*[%m,%k],[%f,%e]
%p=phi i8*[%l,%k],[%h,%e]
%q=getelementptr inbounds i8,i8*%o,i64 4
%r=bitcast i8*%q to i32*
%s=load i32,i32*%r,align 4
%t=add i32%s,-1
%u=sub i32 0,%s
%v=and i32%t,%u
%w=icmp eq i8*%p,null
br i1%w,label%x,label%E
x:
store i8*null,i8**%c,align 8
store i8*null,i8**%d,align 8
%y=call i8*@sml_alloc(i32 inreg 60)#0
%z=getelementptr inbounds i8,i8*%y,i64 -4
%A=bitcast i8*%z to i32*
store i32 1342177336,i32*%A,align 4
%B=getelementptr inbounds i8,i8*%y,i64 56
%C=bitcast i8*%B to i32*
store i32 1,i32*%C,align 4
%D=bitcast i8*%y to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@e,i64 0,i32 2)to i8*),i8**%D,align 8
call void@sml_raise(i8*inreg%y)#1
unreachable
E:
%F=add i32%s,7
%G=add i32%F,%v
%H=and i32%G,-8
%I=sext i32%H to i64
%J=getelementptr inbounds i8,i8*%p,i64%I
%K=bitcast i8*%J to i8**
%L=load i8*,i8**%K,align 8
%M=icmp eq i8*%L,null
br i1%M,label%N,label%af
N:
%O=bitcast i8*%o to i32*
%P=load i32,i32*%O,align 4
%Q=icmp eq i32%P,0
br i1%Q,label%W,label%R
R:
%S=sext i32%v to i64
%T=getelementptr inbounds i8,i8*%p,i64%S
%U=bitcast i8*%T to i8**
%V=load i8*,i8**%U,align 8
ret i8*%V
W:
%X=bitcast i8*%q to i32*
store i8*null,i8**%d,align 8
%Y=load i32,i32*%X,align 4
%Z=call i8*@sml_alloc(i32 inreg%Y)#0
%aa=getelementptr inbounds i8,i8*%Z,i64 -4
%ab=bitcast i8*%aa to i32*
store i32%Y,i32*%ab,align 4
%ac=load i8*,i8**%c,align 8
%ad=sext i32%v to i64
%ae=getelementptr inbounds i8,i8*%ac,i64%ad
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%Z,i8*%ae,i32%Y,i1 false)
ret i8*%Z
af:
store i8*null,i8**%c,align 8
%ag=load i8*,i8**%K,align 8
br label%e
}
define internal fastcc i8*@_SMLLN4List7getItemE_137(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*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%f=getelementptr inbounds i8,i8*%a,i64 4
%g=bitcast i8*%f to i32*
%h=load i32,i32*%g,align 4
%i=add i32%h,-1
%j=sub i32 0,%h
%k=and i32%i,%j
%l=add i32%h,7
%m=add i32%l,%k
%n=and i32%m,-8
%o=add i32%n,15
%p=and i32%o,-8
%q=lshr i32%m,3
%r=lshr i32%k,3
%s=sub nsw i32%q,%r
%t=shl i32 1,%s
%u=bitcast i8*%a to i32*
%v=load i32,i32*%u,align 4
%w=or i32%t,%v
%x=or i32%p,4
%y=icmp eq i8*%b,null
br i1%y,label%z,label%A
z:
ret i8*null
A:
%B=icmp eq i32%v,0
br i1%B,label%H,label%C
C:
%D=sext i32%k to i64
%E=getelementptr inbounds i8,i8*%b,i64%D
%F=bitcast i8*%E to i8**
%G=load i8*,i8**%F,align 8
br label%S
H:
%I=call i8*@sml_alloc(i32 inreg%h)#0
%J=getelementptr inbounds i8,i8*%I,i64 -4
%K=bitcast i8*%J to i32*
store i32%h,i32*%K,align 4
%L=load i8*,i8**%c,align 8
%M=sext i32%k to i64
%N=getelementptr inbounds i8,i8*%L,i64%M
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%I,i8*%N,i32%h,i1 false)
%O=load i8*,i8**%e,align 8
%P=getelementptr inbounds i8,i8*%O,i64 4
%Q=bitcast i8*%P to i32*
%R=bitcast i8*%O to i32*
br label%S
S:
%T=phi i64[%M,%H],[%D,%C]
%U=phi i32*[%R,%H],[%u,%C]
%V=phi i32*[%Q,%H],[%g,%C]
%W=phi i8*[%L,%H],[%b,%C]
%X=phi i8*[%I,%H],[%G,%C]
store i8*%X,i8**%d,align 8
%Y=sext i32%n to i64
%Z=getelementptr inbounds i8,i8*%W,i64%Y
%aa=bitcast i8*%Z to i8**
%ab=load i8*,i8**%aa,align 8
store i8*%ab,i8**%c,align 8
%ac=load i32,i32*%V,align 4
store i8*null,i8**%e,align 8
%ad=load i32,i32*%U,align 4
%ae=call i8*@sml_alloc(i32 inreg%x)#0
%af=or i32%p,1342177280
%ag=getelementptr inbounds i8,i8*%ae,i64 -4
%ah=bitcast i8*%ag to i32*
store i32%af,i32*%ah,align 4
store i8*%ae,i8**%e,align 8
call void@llvm.memset.p0i8.i32(i8*%ae,i8 0,i32%x,i1 false)
%ai=icmp eq i32%ad,0
%aj=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ak=getelementptr inbounds i8,i8*%ae,i64%T
br i1%ai,label%an,label%al
al:
%am=bitcast i8*%ak to i8**
store i8*%aj,i8**%am,align 8
br label%ao
an:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ak,i8*%aj,i32%ac,i1 false)
br label%ao
ao:
%ap=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aq=getelementptr inbounds i8,i8*%ae,i64%Y
%ar=bitcast i8*%aq to i8**
store i8*%ap,i8**%ar,align 8
%as=sext i32%p to i64
%at=getelementptr inbounds i8,i8*%ae,i64%as
%au=bitcast i8*%at to i32*
store i32%w,i32*%au,align 4
%av=call i8*@sml_alloc(i32 inreg 12)#0
%aw=getelementptr inbounds i8,i8*%av,i64 -4
%ax=bitcast i8*%aw to i32*
store i32 1342177288,i32*%ax,align 4
%ay=load i8*,i8**%e,align 8
%az=bitcast i8*%av to i8**
store i8*%ay,i8**%az,align 8
%aA=getelementptr inbounds i8,i8*%av,i64 8
%aB=bitcast i8*%aA to i32*
store i32 1,i32*%aB,align 4
ret i8*%av
}
define internal fastcc i8*@_SMLL4loop_140(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
h:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
br label%f
f:
%g=phi i8*[%ae,%ac],[%b,%h]
store i8*%g,i8**%c,align 8
%i=load atomic i32,i32*@sml_check_flag unordered,align 4
%j=icmp eq i32%i,0
br i1%j,label%m,label%k
k:
call void@sml_check(i32 inreg%i)
%l=load i8*,i8**%c,align 8
br label%m
m:
%n=phi i8*[%l,%k],[%g,%f]
%o=load i8*,i8**%d,align 8
%p=getelementptr inbounds i8,i8*%o,i64 4
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=add i32%r,-1
%t=sub i32 0,%r
%u=and i32%s,%t
%v=bitcast i8*%n to i8**
%w=load i8*,i8**%v,align 8
%x=icmp eq i8*%w,null
br i1%x,label%y,label%Q
y:
store i8*null,i8**%d,align 8
%z=load i8*,i8**@_SMLZ9Subscript,align 8
store i8*%z,i8**%c,align 8
%A=call i8*@sml_alloc(i32 inreg 20)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177296,i32*%C,align 4
store i8*%A,i8**%d,align 8
%D=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@f,i64 0,i32 2,i64 0),i8**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to i32*
store i32 3,i32*%I,align 4
%J=call i8*@sml_alloc(i32 inreg 60)#0
%K=getelementptr inbounds i8,i8*%J,i64 -4
%L=bitcast i8*%K to i32*
store i32 1342177336,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%J,i64 56
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,align 4
%O=load i8*,i8**%d,align 8
%P=bitcast i8*%J to i8**
store i8*%O,i8**%P,align 8
call void@sml_raise(i8*inreg%J)#1
unreachable
Q:
%R=add i32%r,7
%S=add i32%R,%u
%T=and i32%S,-8
store i8*%w,i8**%e,align 8
%U=sext i32%T to i64
%V=getelementptr inbounds i8,i8*%w,i64%U
%W=bitcast i8*%V to i8**
%X=load i8*,i8**%W,align 8
store i8*%X,i8**%c,align 8
%Y=getelementptr inbounds i8,i8*%n,i64 8
%Z=bitcast i8*%Y to i32*
%aa=load i32,i32*%Z,align 4
%ab=icmp eq i32%aa,0
br i1%ab,label%ap,label%ac
ac:
store i8*null,i8**%e,align 8
%ad=add nsw i32%aa,-1
%ae=call i8*@sml_alloc(i32 inreg 20)#0
%af=getelementptr inbounds i8,i8*%ae,i64 -4
%ag=bitcast i8*%af to i32*
store i32 1342177296,i32*%ag,align 4
%ah=getelementptr inbounds i8,i8*%ae,i64 12
%ai=bitcast i8*%ah to i32*
store i32 0,i32*%ai,align 1
%aj=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%ak=bitcast i8*%ae to i8**
store i8*%aj,i8**%ak,align 8
%al=getelementptr inbounds i8,i8*%ae,i64 8
%am=bitcast i8*%al to i32*
store i32%ad,i32*%am,align 4
%an=getelementptr inbounds i8,i8*%ae,i64 16
%ao=bitcast i8*%an to i32*
store i32 1,i32*%ao,align 4
br label%f
ap:
store i8*null,i8**%c,align 8
%aq=bitcast i8*%o to i32*
%ar=load i32,i32*%aq,align 4
%as=icmp eq i32%ar,0
br i1%as,label%ay,label%at
at:
%au=sext i32%u to i64
%av=getelementptr inbounds i8,i8*%w,i64%au
%aw=bitcast i8*%av to i8**
%ax=load i8*,i8**%aw,align 8
ret i8*%ax
ay:
%az=bitcast i8*%p to i32*
store i8*null,i8**%d,align 8
%aA=load i32,i32*%az,align 4
%aB=call i8*@sml_alloc(i32 inreg%aA)#0
%aC=getelementptr inbounds i8,i8*%aB,i64 -4
%aD=bitcast i8*%aC to i32*
store i32%aA,i32*%aD,align 4
%aE=load i8*,i8**%e,align 8
%aF=sext i32%u to i64
%aG=getelementptr inbounds i8,i8*%aE,i64%aF
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aB,i8*%aG,i32%aA,i1 false)
ret i8*%aB
}
define internal fastcc i8*@_SMLLN4List3nthE_143(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%j,label%g
g:
call void@sml_check(i32 inreg%e)
%h=load i8*,i8**%c,align 8
%i=load i8*,i8**%d,align 8
br label%j
j:
%k=phi i8*[%i,%g],[%a,%l]
%m=phi i8*[%h,%g],[%b,%l]
%n=bitcast i8*%m to i8**
%o=load i8*,i8**%n,align 8
store i8*%o,i8**%c,align 8
%p=getelementptr inbounds i8,i8*%m,i64 8
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8*%k to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%d,align 8
%u=getelementptr inbounds i8,i8*%k,i64 4
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=call i8*@sml_alloc(i32 inreg 12)#0
%y=bitcast i8*%x to i32*
%z=getelementptr inbounds i8,i8*%x,i64 -4
%A=bitcast i8*%z to i32*
store i32 1342177288,i32*%A,align 4
store i8*%x,i8**%d,align 8
store i32%t,i32*%y,align 4
%B=getelementptr inbounds i8,i8*%x,i64 4
%C=bitcast i8*%B to i32*
store i32%w,i32*%C,align 4
%D=getelementptr inbounds i8,i8*%x,i64 8
%E=bitcast i8*%D to i32*
store i32 0,i32*%E,align 4
%F=call i8*@sml_alloc(i32 inreg 28)#0
%G=getelementptr inbounds i8,i8*%F,i64 -4
%H=bitcast i8*%G to i32*
store i32 1342177304,i32*%H,align 4
%I=load i8*,i8**%d,align 8
%J=bitcast i8*%F to i8**
store i8*%I,i8**%J,align 8
%K=getelementptr inbounds i8,i8*%F,i64 8
%L=bitcast i8*%K to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_140 to void(...)*),void(...)**%L,align 8
%M=getelementptr inbounds i8,i8*%F,i64 16
%N=bitcast i8*%M to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_140 to void(...)*),void(...)**%N,align 8
%O=getelementptr inbounds i8,i8*%F,i64 24
%P=bitcast i8*%O to i32*
store i32 1,i32*%P,align 4
%Q=icmp sgt i32%r,-1
br i1%Q,label%aj,label%R
R:
store i8*null,i8**%d,align 8
%S=load i8*,i8**@_SMLZ9Subscript,align 8
store i8*%S,i8**%c,align 8
%T=call i8*@sml_alloc(i32 inreg 20)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32 1342177296,i32*%V,align 4
store i8*%T,i8**%d,align 8
%W=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%X=bitcast i8*%T to i8**
store i8*%W,i8**%X,align 8
%Y=getelementptr inbounds i8,i8*%T,i64 8
%Z=bitcast i8*%Y to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@g,i64 0,i32 2,i64 0),i8**%Z,align 8
%aa=getelementptr inbounds i8,i8*%T,i64 16
%ab=bitcast i8*%aa to i32*
store i32 3,i32*%ab,align 4
%ac=call i8*@sml_alloc(i32 inreg 60)#0
%ad=getelementptr inbounds i8,i8*%ac,i64 -4
%ae=bitcast i8*%ad to i32*
store i32 1342177336,i32*%ae,align 4
%af=getelementptr inbounds i8,i8*%ac,i64 56
%ag=bitcast i8*%af to i32*
store i32 1,i32*%ag,align 4
%ah=load i8*,i8**%d,align 8
%ai=bitcast i8*%ac to i8**
store i8*%ah,i8**%ai,align 8
call void@sml_raise(i8*inreg%ac)#1
unreachable
aj:
%ak=call i8*@sml_alloc(i32 inreg 20)#0
%al=getelementptr inbounds i8,i8*%ak,i64 -4
%am=bitcast i8*%al to i32*
store i32 1342177296,i32*%am,align 4
%an=getelementptr inbounds i8,i8*%ak,i64 12
%ao=bitcast i8*%an to i32*
store i32 0,i32*%ao,align 1
%ap=load i8*,i8**%c,align 8
%aq=bitcast i8*%ak to i8**
store i8*%ap,i8**%aq,align 8
%ar=getelementptr inbounds i8,i8*%ak,i64 8
%as=bitcast i8*%ar to i32*
store i32%r,i32*%as,align 4
%at=getelementptr inbounds i8,i8*%ak,i64 16
%au=bitcast i8*%at to i32*
store i32 1,i32*%au,align 4
%av=load i8*,i8**%d,align 8
%aw=tail call fastcc i8*@_SMLL4loop_140(i8*inreg%av,i8*inreg%ak)
ret i8*%aw
}
define internal fastcc i8*@_SMLL4loop_146(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
j:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
br label%h
h:
%i=phi i8*[%bg,%a9],[%b,%j]
store i8*%i,i8**%c,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%c,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
%q=load i8*,i8**%f,align 8
%r=getelementptr inbounds i8,i8*%q,i64 4
%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%z,15
%B=and i32%A,-8
%C=lshr i32%y,3
%D=lshr i32%w,3
%E=sub nsw i32%C,%D
%F=shl i32 1,%E
%G=bitcast i8*%q to i32*
%H=load i32,i32*%G,align 4
%I=or i32%F,%H
%J=or i32%B,4
%K=bitcast i8*%p to i8**
%L=load i8*,i8**%K,align 8
%M=icmp eq i8*%L,null
br i1%M,label%N,label%ak
N:
%O=getelementptr inbounds i8,i8*%p,i64 8
%P=bitcast i8*%O to i32*
%Q=load i32,i32*%P,align 4
%R=icmp eq i32%Q,0
br i1%R,label%bx,label%S
S:
store i8*null,i8**%f,align 8
%T=load i8*,i8**@_SMLZ9Subscript,align 8
store i8*%T,i8**%c,align 8
%U=call i8*@sml_alloc(i32 inreg 20)#0
%V=getelementptr inbounds i8,i8*%U,i64 -4
%W=bitcast i8*%V to i32*
store i32 1342177296,i32*%W,align 4
store i8*%U,i8**%d,align 8
%X=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%Y=bitcast i8*%U to i8**
store i8*%X,i8**%Y,align 8
%Z=getelementptr inbounds i8,i8*%U,i64 8
%aa=bitcast i8*%Z to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@h,i64 0,i32 2,i64 0),i8**%aa,align 8
%ab=getelementptr inbounds i8,i8*%U,i64 16
%ac=bitcast i8*%ab to i32*
store i32 3,i32*%ac,align 4
%ad=call i8*@sml_alloc(i32 inreg 60)#0
%ae=getelementptr inbounds i8,i8*%ad,i64 -4
%af=bitcast i8*%ae to i32*
store i32 1342177336,i32*%af,align 4
%ag=getelementptr inbounds i8,i8*%ad,i64 56
%ah=bitcast i8*%ag to i32*
store i32 1,i32*%ah,align 4
%ai=load i8*,i8**%d,align 8
%aj=bitcast i8*%ad to i8**
store i8*%ai,i8**%aj,align 8
call void@sml_raise(i8*inreg%ad)#1
unreachable
ak:
store i8*%L,i8**%e,align 8
%al=load i32,i32*%G,align 4
%am=icmp eq i32%al,0
br i1%am,label%as,label%an
an:
%ao=sext i32%w to i64
%ap=getelementptr inbounds i8,i8*%L,i64%ao
%aq=bitcast i8*%ap to i8**
%ar=load i8*,i8**%aq,align 8
br label%aB
as:
%at=load i32,i32*%s,align 4
%au=call i8*@sml_alloc(i32 inreg%at)#0
%av=getelementptr inbounds i8,i8*%au,i64 -4
%aw=bitcast i8*%av to i32*
store i32%at,i32*%aw,align 4
%ax=load i8*,i8**%e,align 8
%ay=sext i32%w to i64
%az=getelementptr inbounds i8,i8*%ax,i64%ay
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%au,i8*%az,i32%at,i1 false)
%aA=load i8*,i8**%c,align 8
br label%aB
aB:
%aC=phi i8*[%aA,%as],[%p,%an]
%aD=phi i8*[%ax,%as],[%L,%an]
%aE=phi i8*[%au,%as],[%ar,%an]
store i8*%aE,i8**%d,align 8
%aF=sext i32%z to i64
%aG=getelementptr inbounds i8,i8*%aD,i64%aF
%aH=bitcast i8*%aG to i8**
%aI=load i8*,i8**%aH,align 8
store i8*%aI,i8**%e,align 8
%aJ=getelementptr inbounds i8,i8*%aC,i64 8
%aK=bitcast i8*%aJ to i32*
%aL=load i32,i32*%aK,align 4
%aM=icmp eq i32%aL,0
br i1%aM,label%bu,label%aN
aN:
%aO=getelementptr inbounds i8,i8*%aC,i64 16
%aP=bitcast i8*%aO to i8**
%aQ=load i8*,i8**%aP,align 8
store i8*%aQ,i8**%c,align 8
%aR=add nsw i32%aL,-1
%aS=load i8*,i8**%f,align 8
%aT=getelementptr inbounds i8,i8*%aS,i64 4
%aU=bitcast i8*%aT to i32*
%aV=load i32,i32*%aU,align 4
%aW=bitcast i8*%aS to i32*
%aX=load i32,i32*%aW,align 4
%aY=call i8*@sml_alloc(i32 inreg%J)#0
%aZ=or i32%B,1342177280
%a0=getelementptr inbounds i8,i8*%aY,i64 -4
%a1=bitcast i8*%a0 to i32*
store i32%aZ,i32*%a1,align 4
store i8*%aY,i8**%g,align 8
call void@llvm.memset.p0i8.i32(i8*%aY,i8 0,i32%J,i1 false)
%a2=icmp eq i32%aX,0
%a3=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%a4=sext i32%w to i64
%a5=getelementptr inbounds i8,i8*%aY,i64%a4
br i1%a2,label%a8,label%a6
a6:
%a7=bitcast i8*%a5 to i8**
store i8*%a3,i8**%a7,align 8
br label%a9
a8:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a5,i8*%a3,i32%aV,i1 false)
br label%a9
a9:
%ba=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bb=getelementptr inbounds i8,i8*%aY,i64%aF
%bc=bitcast i8*%bb to i8**
store i8*%ba,i8**%bc,align 8
%bd=sext i32%B to i64
%be=getelementptr inbounds i8,i8*%aY,i64%bd
%bf=bitcast i8*%be to i32*
store i32%I,i32*%bf,align 4
%bg=call i8*@sml_alloc(i32 inreg 28)#0
%bh=getelementptr inbounds i8,i8*%bg,i64 -4
%bi=bitcast i8*%bh to i32*
store i32 1342177304,i32*%bi,align 4
%bj=getelementptr inbounds i8,i8*%bg,i64 12
%bk=bitcast i8*%bj to i32*
store i32 0,i32*%bk,align 1
%bl=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bm=bitcast i8*%bg to i8**
store i8*%bl,i8**%bm,align 8
%bn=getelementptr inbounds i8,i8*%bg,i64 8
%bo=bitcast i8*%bn to i32*
store i32%aR,i32*%bo,align 4
%bp=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%bq=getelementptr inbounds i8,i8*%bg,i64 16
%br=bitcast i8*%bq to i8**
store i8*%bp,i8**%br,align 8
%bs=getelementptr inbounds i8,i8*%bg,i64 24
%bt=bitcast i8*%bs to i32*
store i32 5,i32*%bt,align 4
br label%h
bu:
store i8*null,i8**%d,align 8
store i8*null,i8**%e,align 8
%bv=load i8*,i8**%f,align 8
%bw=getelementptr inbounds i8,i8*%bv,i64 4
br label%bx
bx:
%by=phi i8*[%r,%N],[%bw,%bu]
%bz=phi i8*[%q,%N],[%bv,%bu]
%bA=phi i8*[%p,%N],[%aC,%bu]
%bB=bitcast i8*%bz to i32*
%bC=bitcast i8*%by to i32*
%bD=getelementptr inbounds i8,i8*%bA,i64 16
%bE=bitcast i8*%bD to i8**
%bF=load i8*,i8**%bE,align 8
store i8*%bF,i8**%c,align 8
%bG=load i32,i32*%bB,align 4
store i8*null,i8**%f,align 8
%bH=load i32,i32*%bC,align 4
%bI=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%bG,i32 inreg%bH)
%bJ=getelementptr inbounds i8,i8*%bI,i64 16
%bK=bitcast i8*%bJ to i8*(i8*,i8*)**
%bL=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bK,align 8
%bM=bitcast i8*%bI to i8**
%bN=load i8*,i8**%bM,align 8
store i8*%bN,i8**%d,align 8
%bO=call i8*@sml_alloc(i32 inreg 20)#0
%bP=getelementptr inbounds i8,i8*%bO,i64 -4
%bQ=bitcast i8*%bP to i32*
store i32 1342177296,i32*%bQ,align 4
%bR=load i8*,i8**%c,align 8
%bS=bitcast i8*%bO to i8**
store i8*%bR,i8**%bS,align 8
%bT=getelementptr inbounds i8,i8*%bO,i64 8
%bU=bitcast i8*%bT to i8**
store i8*null,i8**%bU,align 8
%bV=getelementptr inbounds i8,i8*%bO,i64 16
%bW=bitcast i8*%bV to i32*
store i32 3,i32*%bW,align 4
%bX=load i8*,i8**%d,align 8
%bY=tail call fastcc i8*%bL(i8*inreg%bX,i8*inreg%bO)
ret i8*%bY
}
define internal fastcc i8*@_SMLLN4List4takeE_149(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%j,label%g
g:
call void@sml_check(i32 inreg%e)
%h=load i8*,i8**%c,align 8
%i=load i8*,i8**%d,align 8
br label%j
j:
%k=phi i8*[%i,%g],[%a,%l]
%m=phi i8*[%h,%g],[%b,%l]
%n=bitcast i8*%m to i8**
%o=load i8*,i8**%n,align 8
store i8*%o,i8**%c,align 8
%p=getelementptr inbounds i8,i8*%m,i64 8
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8*%k to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%d,align 8
%u=getelementptr inbounds i8,i8*%k,i64 4
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=call i8*@sml_alloc(i32 inreg 12)#0
%y=bitcast i8*%x to i32*
%z=getelementptr inbounds i8,i8*%x,i64 -4
%A=bitcast i8*%z to i32*
store i32 1342177288,i32*%A,align 4
store i8*%x,i8**%d,align 8
store i32%t,i32*%y,align 4
%B=getelementptr inbounds i8,i8*%x,i64 4
%C=bitcast i8*%B to i32*
store i32%w,i32*%C,align 4
%D=getelementptr inbounds i8,i8*%x,i64 8
%E=bitcast i8*%D to i32*
store i32 0,i32*%E,align 4
%F=call i8*@sml_alloc(i32 inreg 28)#0
%G=getelementptr inbounds i8,i8*%F,i64 -4
%H=bitcast i8*%G to i32*
store i32 1342177304,i32*%H,align 4
%I=load i8*,i8**%d,align 8
%J=bitcast i8*%F to i8**
store i8*%I,i8**%J,align 8
%K=getelementptr inbounds i8,i8*%F,i64 8
%L=bitcast i8*%K to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_146 to void(...)*),void(...)**%L,align 8
%M=getelementptr inbounds i8,i8*%F,i64 16
%N=bitcast i8*%M to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_146 to void(...)*),void(...)**%N,align 8
%O=getelementptr inbounds i8,i8*%F,i64 24
%P=bitcast i8*%O to i32*
store i32 -2147483647,i32*%P,align 4
%Q=icmp sgt i32%r,-1
br i1%Q,label%aj,label%R
R:
store i8*null,i8**%d,align 8
%S=load i8*,i8**@_SMLZ9Subscript,align 8
store i8*%S,i8**%c,align 8
%T=call i8*@sml_alloc(i32 inreg 20)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32 1342177296,i32*%V,align 4
store i8*%T,i8**%d,align 8
%W=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%X=bitcast i8*%T to i8**
store i8*%W,i8**%X,align 8
%Y=getelementptr inbounds i8,i8*%T,i64 8
%Z=bitcast i8*%Y to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@i,i64 0,i32 2,i64 0),i8**%Z,align 8
%aa=getelementptr inbounds i8,i8*%T,i64 16
%ab=bitcast i8*%aa to i32*
store i32 3,i32*%ab,align 4
%ac=call i8*@sml_alloc(i32 inreg 60)#0
%ad=getelementptr inbounds i8,i8*%ac,i64 -4
%ae=bitcast i8*%ad to i32*
store i32 1342177336,i32*%ae,align 4
%af=getelementptr inbounds i8,i8*%ac,i64 56
%ag=bitcast i8*%af to i32*
store i32 1,i32*%ag,align 4
%ah=load i8*,i8**%d,align 8
%ai=bitcast i8*%ac to i8**
store i8*%ah,i8**%ai,align 8
call void@sml_raise(i8*inreg%ac)#1
unreachable
aj:
%ak=call i8*@sml_alloc(i32 inreg 28)#0
%al=getelementptr inbounds i8,i8*%ak,i64 -4
%am=bitcast i8*%al to i32*
store i32 1342177304,i32*%am,align 4
%an=getelementptr inbounds i8,i8*%ak,i64 12
%ao=bitcast i8*%an to i32*
store i32 0,i32*%ao,align 1
%ap=load i8*,i8**%c,align 8
%aq=bitcast i8*%ak to i8**
store i8*%ap,i8**%aq,align 8
%ar=getelementptr inbounds i8,i8*%ak,i64 8
%as=bitcast i8*%ar to i32*
store i32%r,i32*%as,align 4
%at=getelementptr inbounds i8,i8*%ak,i64 16
%au=bitcast i8*%at to i8**
store i8*null,i8**%au,align 8
%av=getelementptr inbounds i8,i8*%ak,i64 24
%aw=bitcast i8*%av to i32*
store i32 5,i32*%aw,align 4
%ax=load i8*,i8**%d,align 8
%ay=tail call fastcc i8*@_SMLL4loop_146(i8*inreg%ax,i8*inreg%ak)
ret i8*%ay
}
define internal fastcc i8*@_SMLL4loop_152(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
h:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
%e=bitcast i8**%d to i32**
br label%f
f:
%g=phi i8*[%ah,%af],[%b,%h]
store i8*%g,i8**%c,align 8
%i=load atomic i32,i32*@sml_check_flag unordered,align 4
%j=icmp eq i32%i,0
br i1%j,label%m,label%k
k:
call void@sml_check(i32 inreg%i)
%l=load i8*,i8**%c,align 8
br label%m
m:
%n=phi i8*[%l,%k],[%g,%f]
%o=load i32*,i32**%e,align 8
%p=load i32,i32*%o,align 4
%q=bitcast i8*%n to i8**
%r=load i8*,i8**%q,align 8
%s=icmp eq i8*%r,null
br i1%s,label%t,label%Q
t:
store i8*null,i8**%d,align 8
%u=getelementptr inbounds i8,i8*%n,i64 8
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=icmp eq i32%w,0
br i1%x,label%as,label%y
y:
%z=load i8*,i8**@_SMLZ9Subscript,align 8
store i8*%z,i8**%c,align 8
%A=call i8*@sml_alloc(i32 inreg 20)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177296,i32*%C,align 4
store i8*%A,i8**%d,align 8
%D=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@j,i64 0,i32 2,i64 0),i8**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to i32*
store i32 3,i32*%I,align 4
%J=call i8*@sml_alloc(i32 inreg 60)#0
%K=getelementptr inbounds i8,i8*%J,i64 -4
%L=bitcast i8*%K to i32*
store i32 1342177336,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%J,i64 56
%N=bitcast i8*%M to i32*
store i32 1,i32*%N,align 4
%O=load i8*,i8**%d,align 8
%P=bitcast i8*%J to i8**
store i8*%O,i8**%P,align 8
call void@sml_raise(i8*inreg%J)#1
unreachable
Q:
%R=add i32%p,-1
%S=sub i32 0,%p
%T=and i32%R,%S
%U=add i32%p,7
%V=add i32%U,%T
%W=and i32%V,-8
%X=sext i32%W to i64
%Y=getelementptr inbounds i8,i8*%r,i64%X
%Z=bitcast i8*%Y to i8**
%aa=load i8*,i8**%Z,align 8
store i8*%aa,i8**%c,align 8
%ab=getelementptr inbounds i8,i8*%n,i64 8
%ac=bitcast i8*%ab to i32*
%ad=load i32,i32*%ac,align 4
%ae=icmp eq i32%ad,0
br i1%ae,label%as,label%af
af:
%ag=add nsw i32%ad,-1
%ah=call i8*@sml_alloc(i32 inreg 20)#0
%ai=getelementptr inbounds i8,i8*%ah,i64 -4
%aj=bitcast i8*%ai to i32*
store i32 1342177296,i32*%aj,align 4
%ak=getelementptr inbounds i8,i8*%ah,i64 12
%al=bitcast i8*%ak to i32*
store i32 0,i32*%al,align 1
%am=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%an=bitcast i8*%ah to i8**
store i8*%am,i8**%an,align 8
%ao=getelementptr inbounds i8,i8*%ah,i64 8
%ap=bitcast i8*%ao to i32*
store i32%ag,i32*%ap,align 4
%aq=getelementptr inbounds i8,i8*%ah,i64 16
%ar=bitcast i8*%aq to i32*
store i32 1,i32*%ar,align 4
br label%f
as:
%at=bitcast i8*%n to i8**
%au=load i8*,i8**%at,align 8
ret i8*%au
}
define internal fastcc i8*@_SMLLN4List4dropE_155(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%g,label%i
g:
%h=bitcast i8*%a to i32*
br label%m
i:
call void@sml_check(i32 inreg%e)
%j=load i8*,i8**%c,align 8
%k=bitcast i8**%d to i32**
%l=load i32*,i32**%k,align 8
br label%m
m:
%n=phi i32*[%l,%i],[%h,%g]
%o=phi i8*[%j,%i],[%b,%g]
%p=bitcast i8*%o to i8**
%q=load i8*,i8**%p,align 8
store i8*%q,i8**%c,align 8
%r=getelementptr inbounds i8,i8*%o,i64 8
%s=bitcast i8*%r to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%d,align 8
%u=load i32,i32*%n,align 4
%v=call i8*@sml_alloc(i32 inreg 12)#0
%w=bitcast i8*%v to i32*
%x=getelementptr inbounds i8,i8*%v,i64 -4
%y=bitcast i8*%x to i32*
store i32 1342177288,i32*%y,align 4
store i8*%v,i8**%d,align 8
store i32%u,i32*%w,align 4
%z=getelementptr inbounds i8,i8*%v,i64 8
%A=bitcast i8*%z to i32*
store i32 0,i32*%A,align 4
%B=call i8*@sml_alloc(i32 inreg 28)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177304,i32*%D,align 4
%E=load i8*,i8**%d,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=getelementptr inbounds i8,i8*%B,i64 8
%H=bitcast i8*%G to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_152 to void(...)*),void(...)**%H,align 8
%I=getelementptr inbounds i8,i8*%B,i64 16
%J=bitcast i8*%I to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_152 to void(...)*),void(...)**%J,align 8
%K=getelementptr inbounds i8,i8*%B,i64 24
%L=bitcast i8*%K to i32*
store i32 -2147483647,i32*%L,align 4
%M=icmp sgt i32%t,-1
br i1%M,label%af,label%N
N:
store i8*null,i8**%d,align 8
%O=load i8*,i8**@_SMLZ9Subscript,align 8
store i8*%O,i8**%c,align 8
%P=call i8*@sml_alloc(i32 inreg 20)#0
%Q=getelementptr inbounds i8,i8*%P,i64 -4
%R=bitcast i8*%Q to i32*
store i32 1342177296,i32*%R,align 4
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 i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[36x i8]}>,<{[4x i8],i32,[36x i8]}>*@k,i64 0,i32 2,i64 0),i8**%V,align 8
%W=getelementptr inbounds i8,i8*%P,i64 16
%X=bitcast i8*%W to i32*
store i32 3,i32*%X,align 4
%Y=call i8*@sml_alloc(i32 inreg 60)#0
%Z=getelementptr inbounds i8,i8*%Y,i64 -4
%aa=bitcast i8*%Z to i32*
store i32 1342177336,i32*%aa,align 4
%ab=getelementptr inbounds i8,i8*%Y,i64 56
%ac=bitcast i8*%ab to i32*
store i32 1,i32*%ac,align 4
%ad=load i8*,i8**%d,align 8
%ae=bitcast i8*%Y to i8**
store i8*%ad,i8**%ae,align 8
call void@sml_raise(i8*inreg%Y)#1
unreachable
af:
%ag=call i8*@sml_alloc(i32 inreg 20)#0
%ah=getelementptr inbounds i8,i8*%ag,i64 -4
%ai=bitcast i8*%ah to i32*
store i32 1342177296,i32*%ai,align 4
%aj=getelementptr inbounds i8,i8*%ag,i64 12
%ak=bitcast i8*%aj to i32*
store i32 0,i32*%ak,align 1
%al=load i8*,i8**%c,align 8
%am=bitcast i8*%ag to i8**
store i8*%al,i8**%am,align 8
%an=getelementptr inbounds i8,i8*%ag,i64 8
%ao=bitcast i8*%an to i32*
store i32%t,i32*%ao,align 4
%ap=getelementptr inbounds i8,i8*%ag,i64 16
%aq=bitcast i8*%ap to i32*
store i32 1,i32*%aq,align 4
%ar=load i8*,i8**%d,align 8
%as=tail call fastcc i8*@_SMLL4loop_152(i8*inreg%ar,i8*inreg%ag)
ret i8*%as
}
define internal fastcc i8*@_SMLL4loop_158(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
%h=bitcast i8**%c to i8***
br label%i
i:
%j=phi i8*[%aF,%Y],[%b,%k]
store i8*%j,i8**%c,align 8
%l=load atomic i32,i32*@sml_check_flag unordered,align 4
%m=icmp eq i32%l,0
%n=bitcast i8*%j to i8**
br i1%m,label%r,label%o
o:
call void@sml_check(i32 inreg%l)
%p=load i8**,i8***%h,align 8
%q=bitcast i8**%p to i8*
br label%r
r:
%s=phi i8*[%q,%o],[%j,%i]
%t=phi i8**[%p,%o],[%n,%i]
%u=load i8*,i8**%t,align 8
%v=icmp eq i8*%u,null
br i1%v,label%w,label%Y
w:
%x=load i8*,i8**%f,align 8
%y=bitcast i8*%x to i32*
%z=load i32,i32*%y,align 4
store i8*null,i8**%f,align 8
%A=getelementptr inbounds i8,i8*%x,i64 4
%B=bitcast i8*%A to i32*
%C=load i32,i32*%B,align 4
%D=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%z,i32 inreg%C)
%E=getelementptr inbounds i8,i8*%D,i64 16
%F=bitcast i8*%E to i8*(i8*,i8*)**
%G=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%F,align 8
%H=bitcast i8*%D to i8**
%I=load i8*,i8**%H,align 8
store i8*%I,i8**%d,align 8
%J=load i8*,i8**%c,align 8
%K=getelementptr inbounds i8,i8*%J,i64 8
%L=bitcast i8*%K to i8**
%M=load i8*,i8**%L,align 8
store i8*%M,i8**%c,align 8
%N=call i8*@sml_alloc(i32 inreg 20)#0
%O=getelementptr inbounds i8,i8*%N,i64 -4
%P=bitcast i8*%O to i32*
store i32 1342177296,i32*%P,align 4
%Q=load i8*,i8**%c,align 8
%R=bitcast i8*%N to i8**
store i8*%Q,i8**%R,align 8
%S=getelementptr inbounds i8,i8*%N,i64 8
%T=bitcast i8*%S to i8**
store i8*null,i8**%T,align 8
%U=getelementptr inbounds i8,i8*%N,i64 16
%V=bitcast i8*%U to i32*
store i32 3,i32*%V,align 4
%W=load i8*,i8**%d,align 8
%X=tail call fastcc i8*%G(i8*inreg%W,i8*inreg%N)
ret i8*%X
Y:
%Z=bitcast i8*%u to i8**
%aa=load i8*,i8**%Z,align 8
store i8*%aa,i8**%d,align 8
%ab=getelementptr inbounds i8,i8*%u,i64 8
%ac=bitcast i8*%ab to i8**
%ad=load i8*,i8**%ac,align 8
store i8*%ad,i8**%e,align 8
%ae=getelementptr inbounds i8,i8*%s,i64 8
%af=bitcast i8*%ae to i8**
%ag=load i8*,i8**%af,align 8
store i8*%ag,i8**%c,align 8
%ah=load i8*,i8**%f,align 8
%ai=bitcast i8*%ah to i32*
%aj=load i32,i32*%ai,align 4
%ak=getelementptr inbounds i8,i8*%ah,i64 4
%al=bitcast i8*%ak to i32*
%am=load i32,i32*%al,align 4
%an=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%aj,i32 inreg%am)
%ao=getelementptr inbounds i8,i8*%an,i64 16
%ap=bitcast i8*%ao to i8*(i8*,i8*)**
%aq=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%ap,align 8
%ar=bitcast i8*%an to i8**
%as=load i8*,i8**%ar,align 8
store i8*%as,i8**%g,align 8
%at=call i8*@sml_alloc(i32 inreg 20)#0
%au=getelementptr inbounds i8,i8*%at,i64 -4
%av=bitcast i8*%au to i32*
store i32 1342177296,i32*%av,align 4
%aw=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ax=bitcast i8*%at to i8**
store i8*%aw,i8**%ax,align 8
%ay=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%az=getelementptr inbounds i8,i8*%at,i64 8
%aA=bitcast i8*%az to i8**
store i8*%ay,i8**%aA,align 8
%aB=getelementptr inbounds i8,i8*%at,i64 16
%aC=bitcast i8*%aB to i32*
store i32 3,i32*%aC,align 4
%aD=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%aE=call fastcc i8*%aq(i8*inreg%aD,i8*inreg%at)
store i8*%aE,i8**%c,align 8
%aF=call i8*@sml_alloc(i32 inreg 20)#0
%aG=getelementptr inbounds i8,i8*%aF,i64 -4
%aH=bitcast i8*%aG to i32*
store i32 1342177296,i32*%aH,align 4
%aI=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%aJ=bitcast i8*%aF to i8**
store i8*%aI,i8**%aJ,align 8
%aK=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aL=getelementptr inbounds i8,i8*%aF,i64 8
%aM=bitcast i8*%aL to i8**
store i8*%aK,i8**%aM,align 8
%aN=getelementptr inbounds i8,i8*%aF,i64 16
%aO=bitcast i8*%aN to i32*
store i32 3,i32*%aO,align 4
br label%i
}
define internal fastcc i8*@_SMLLN4List6concatE_159(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%i,label%g
g:
call void@sml_check(i32 inreg%e)
%h=load i8*,i8**%d,align 8
br label%i
i:
%j=phi i8*[%h,%g],[%a,%k]
%l=bitcast i8*%j to i32*
%m=load i32,i32*%l,align 4
store i8*null,i8**%d,align 8
%n=getelementptr inbounds i8,i8*%j,i64 4
%o=bitcast i8*%n to i32*
%p=load i32,i32*%o,align 4
%q=call i8*@sml_alloc(i32 inreg 12)#0
%r=bitcast i8*%q to i32*
%s=getelementptr inbounds i8,i8*%q,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177288,i32*%t,align 4
store i8*%q,i8**%d,align 8
store i32%m,i32*%r,align 4
%u=getelementptr inbounds i8,i8*%q,i64 4
%v=bitcast i8*%u to i32*
store i32%p,i32*%v,align 4
%w=getelementptr inbounds i8,i8*%q,i64 8
%x=bitcast i8*%w to i32*
store i32 0,i32*%x,align 4
%y=call i8*@sml_alloc(i32 inreg 28)#0
%z=getelementptr inbounds i8,i8*%y,i64 -4
%A=bitcast i8*%z to i32*
store i32 1342177304,i32*%A,align 4
%B=load i8*,i8**%d,align 8
%C=bitcast i8*%y to i8**
store i8*%B,i8**%C,align 8
%D=getelementptr inbounds i8,i8*%y,i64 8
%E=bitcast i8*%D to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_158 to void(...)*),void(...)**%E,align 8
%F=getelementptr inbounds i8,i8*%y,i64 16
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_158 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%y,i64 24
%I=bitcast i8*%H to i32*
store i32 -2147483647,i32*%I,align 4
%J=call i8*@sml_alloc(i32 inreg 20)#0
%K=getelementptr inbounds i8,i8*%J,i64 -4
%L=bitcast i8*%K to i32*
store i32 1342177296,i32*%L,align 4
%M=load i8*,i8**%c,align 8
%N=bitcast i8*%J to i8**
store i8*%M,i8**%N,align 8
%O=getelementptr inbounds i8,i8*%J,i64 8
%P=bitcast i8*%O to i8**
store i8*null,i8**%P,align 8
%Q=getelementptr inbounds i8,i8*%J,i64 16
%R=bitcast i8*%Q to i32*
store i32 3,i32*%R,align 4
%S=load i8*,i8**%d,align 8
%T=tail call fastcc i8*@_SMLL4loop_158(i8*inreg%S,i8*inreg%J)
ret i8*%T
}
define internal fastcc void@_SMLLN4List3appE_162(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
j:
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
store i8*%b,i8**%e,align 8
br label%h
h:
%i=phi i8*[%ai,%aa],[%c,%j]
store i8*%i,i8**%d,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%d,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
%q=load i8*,i8**%e,align 8
%r=load i8*,i8**%f,align 8
%s=getelementptr inbounds i8,i8*%r,i64 4
%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=icmp eq i8*%p,null
br i1%B,label%C,label%D
C:
ret void
D:
%E=getelementptr inbounds i8,i8*%q,i64 16
%F=bitcast i8*%E to i8*(i8*,i8*)**
%G=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%F,align 8
%H=bitcast i8*%q to i8**
%I=load i8*,i8**%H,align 8
store i8*%I,i8**%g,align 8
%J=bitcast i8*%r to i32*
%K=load i32,i32*%J,align 4
%L=icmp eq i32%K,0
br i1%L,label%R,label%M
M:
%N=sext i32%x to i64
%O=getelementptr inbounds i8,i8*%p,i64%N
%P=bitcast i8*%O to i8**
%Q=load i8*,i8**%P,align 8
br label%aa
R:
%S=load i32,i32*%t,align 4
%T=call i8*@sml_alloc(i32 inreg%S)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32%S,i32*%V,align 4
%W=load i8*,i8**%d,align 8
%X=sext i32%x to i64
%Y=getelementptr inbounds i8,i8*%W,i64%X
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%T,i8*%Y,i32%S,i1 false)
%Z=load i8*,i8**%g,align 8
br label%aa
aa:
%ab=phi i8*[%I,%M],[%Z,%R]
%ac=phi i8*[%Q,%M],[%T,%R]
store i8*null,i8**%g,align 8
%ad=call fastcc i8*%G(i8*inreg%ab,i8*inreg%ac)
%ae=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%af=sext i32%A to i64
%ag=getelementptr inbounds i8,i8*%ae,i64%af
%ah=bitcast i8*%ag to i8**
%ai=load i8*,i8**%ah,align 8
br label%h
}
define internal fastcc i8*@_SMLL4loop_165(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
%h=bitcast i8**%c to i8***
br label%i
i:
%j=phi i8*[%bw,%bo],[%b,%k]
store i8*%j,i8**%c,align 8
%l=load atomic i32,i32*@sml_check_flag unordered,align 4
%m=icmp eq i32%l,0
%n=bitcast i8*%j to i8**
br i1%m,label%r,label%o
o:
call void@sml_check(i32 inreg%l)
%p=load i8**,i8***%h,align 8
%q=bitcast i8**%p to i8*
br label%r
r:
%s=phi i8*[%q,%o],[%j,%i]
%t=phi i8**[%p,%o],[%n,%i]
%u=load i8*,i8**%f,align 8
%v=getelementptr inbounds i8,i8*%u,i64 20
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=add i32%x,-1
%z=sub i32 0,%x
%A=and i32%y,%z
%B=getelementptr inbounds i8,i8*%u,i64 12
%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%J,15
%L=and i32%K,-8
%M=lshr i32%I,3
%N=lshr i32%G,3
%O=sub nsw i32%M,%N
%P=shl i32 1,%O
%Q=getelementptr inbounds i8,i8*%u,i64 8
%R=bitcast i8*%Q to i32*
%S=load i32,i32*%R,align 4
%T=or i32%P,%S
%U=or i32%L,4
%V=load i8*,i8**%t,align 8
%W=icmp eq i8*%V,null
br i1%W,label%X,label%at
X:
store i8*null,i8**%f,align 8
%Y=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%S,i32 inreg%D)
%Z=getelementptr inbounds i8,i8*%Y,i64 16
%aa=bitcast i8*%Z to i8*(i8*,i8*)**
%ab=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aa,align 8
%ac=bitcast i8*%Y to i8**
%ad=load i8*,i8**%ac,align 8
store i8*%ad,i8**%d,align 8
%ae=load i8*,i8**%c,align 8
%af=getelementptr inbounds i8,i8*%ae,i64 8
%ag=bitcast i8*%af to i8**
%ah=load i8*,i8**%ag,align 8
store i8*%ah,i8**%c,align 8
%ai=call i8*@sml_alloc(i32 inreg 20)#0
%aj=getelementptr inbounds i8,i8*%ai,i64 -4
%ak=bitcast i8*%aj to i32*
store i32 1342177296,i32*%ak,align 4
%al=load i8*,i8**%c,align 8
%am=bitcast i8*%ai to i8**
store i8*%al,i8**%am,align 8
%an=getelementptr inbounds i8,i8*%ai,i64 8
%ao=bitcast i8*%an to i8**
store i8*null,i8**%ao,align 8
%ap=getelementptr inbounds i8,i8*%ai,i64 16
%aq=bitcast i8*%ap to i32*
store i32 3,i32*%aq,align 4
%ar=load i8*,i8**%d,align 8
%as=tail call fastcc i8*%ab(i8*inreg%ar,i8*inreg%ai)
ret i8*%as
at:
%au=bitcast i8*%u to i8**
%av=add i32%x,7
%aw=add i32%av,%A
%ax=and i32%aw,-8
store i8*%V,i8**%g,align 8
%ay=sext i32%ax to i64
%az=getelementptr inbounds i8,i8*%V,i64%ay
%aA=bitcast i8*%az to i8**
%aB=load i8*,i8**%aA,align 8
store i8*%aB,i8**%d,align 8
%aC=getelementptr inbounds i8,i8*%s,i64 8
%aD=bitcast i8*%aC to i8**
%aE=load i8*,i8**%aD,align 8
store i8*%aE,i8**%e,align 8
%aF=load i8*,i8**%au,align 8
%aG=getelementptr inbounds i8,i8*%aF,i64 16
%aH=bitcast i8*%aG to i8*(i8*,i8*)**
%aI=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aH,align 8
%aJ=bitcast i8*%aF to i8**
%aK=load i8*,i8**%aJ,align 8
store i8*%aK,i8**%c,align 8
%aL=getelementptr inbounds i8,i8*%u,i64 16
%aM=bitcast i8*%aL to i32*
%aN=load i32,i32*%aM,align 4
%aO=icmp eq i32%aN,0
br i1%aO,label%aU,label%aP
aP:
store i8*null,i8**%g,align 8
%aQ=sext i32%A to i64
%aR=getelementptr inbounds i8,i8*%V,i64%aQ
%aS=bitcast i8*%aR to i8**
%aT=load i8*,i8**%aS,align 8
br label%a2
aU:
%aV=call i8*@sml_alloc(i32 inreg%x)#0
%aW=getelementptr inbounds i8,i8*%aV,i64 -4
%aX=bitcast i8*%aW to i32*
store i32%x,i32*%aX,align 4
%aY=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%aZ=sext i32%A to i64
%a0=getelementptr inbounds i8,i8*%aY,i64%aZ
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aV,i8*%a0,i32%x,i1 false)
%a1=load i8*,i8**%c,align 8
br label%a2
a2:
%a3=phi i8*[%aK,%aP],[%a1,%aU]
%a4=phi i8*[%aT,%aP],[%aV,%aU]
store i8*null,i8**%c,align 8
%a5=call fastcc i8*%aI(i8*inreg%a3,i8*inreg%a4)
store i8*%a5,i8**%c,align 8
%a6=load i8*,i8**%f,align 8
%a7=getelementptr inbounds i8,i8*%a6,i64 12
%a8=bitcast i8*%a7 to i32*
%a9=load i32,i32*%a8,align 4
%ba=getelementptr inbounds i8,i8*%a6,i64 8
%bb=bitcast i8*%ba to i32*
%bc=load i32,i32*%bb,align 4
%bd=call i8*@sml_alloc(i32 inreg%U)#0
%be=or i32%L,1342177280
%bf=getelementptr inbounds i8,i8*%bd,i64 -4
%bg=bitcast i8*%bf to i32*
store i32%be,i32*%bg,align 4
store i8*%bd,i8**%g,align 8
call void@llvm.memset.p0i8.i32(i8*%bd,i8 0,i32%U,i1 false)
%bh=icmp eq i32%bc,0
%bi=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bj=sext i32%G to i64
%bk=getelementptr inbounds i8,i8*%bd,i64%bj
br i1%bh,label%bn,label%bl
bl:
%bm=bitcast i8*%bk to i8**
store i8*%bi,i8**%bm,align 8
br label%bo
bn:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bk,i8*%bi,i32%a9,i1 false)
br label%bo
bo:
%bp=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bq=sext i32%J to i64
%br=getelementptr inbounds i8,i8*%bd,i64%bq
%bs=bitcast i8*%br to i8**
store i8*%bp,i8**%bs,align 8
%bt=sext i32%L to i64
%bu=getelementptr inbounds i8,i8*%bd,i64%bt
%bv=bitcast i8*%bu to i32*
store i32%T,i32*%bv,align 4
%bw=call i8*@sml_alloc(i32 inreg 20)#0
%bx=getelementptr inbounds i8,i8*%bw,i64 -4
%by=bitcast i8*%bx to i32*
store i32 1342177296,i32*%by,align 4
%bz=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bA=bitcast i8*%bw to i8**
store i8*%bz,i8**%bA,align 8
%bB=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%bC=getelementptr inbounds i8,i8*%bw,i64 8
%bD=bitcast i8*%bC to i8**
store i8*%bB,i8**%bD,align 8
%bE=getelementptr inbounds i8,i8*%bw,i64 16
%bF=bitcast i8*%bE to i32*
store i32 3,i32*%bF,align 4
br label%i
}
define internal fastcc i8*@_SMLLN4List3mapE_166(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%h,label%j
h:
%i=bitcast i8*%a to i8**
br label%n
j:
call void@sml_check(i32 inreg%f)
%k=bitcast i8**%d to i8***
%l=load i8**,i8***%k,align 8
%m=bitcast i8**%l to i8*
br label%n
n:
%o=phi i8*[%m,%j],[%a,%h]
%p=phi i8**[%l,%j],[%i,%h]
%q=load i8*,i8**%p,align 8
store i8*%q,i8**%e,align 8
%r=getelementptr inbounds i8*,i8**%p,i64 1
%s=bitcast i8**%r to i32*
%t=load i32,i32*%s,align 4
%u=getelementptr inbounds i8,i8*%o,i64 12
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=getelementptr inbounds i8*,i8**%p,i64 2
%y=bitcast i8**%x to i32*
%z=load i32,i32*%y,align 4
store i8*null,i8**%d,align 8
%A=getelementptr inbounds i8,i8*%o,i64 20
%B=bitcast i8*%A to i32*
%C=load i32,i32*%B,align 4
%D=call i8*@sml_alloc(i32 inreg 28)#0
%E=getelementptr inbounds i8,i8*%D,i64 -4
%F=bitcast i8*%E to i32*
store i32 1342177304,i32*%F,align 4
store i8*%D,i8**%d,align 8
%G=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%H=bitcast i8*%D to i8**
store i8*%G,i8**%H,align 8
%I=getelementptr inbounds i8,i8*%D,i64 8
%J=bitcast i8*%I to i32*
store i32%t,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%D,i64 12
%L=bitcast i8*%K to i32*
store i32%w,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%D,i64 16
%N=bitcast i8*%M to i32*
store i32%z,i32*%N,align 4
%O=getelementptr inbounds i8,i8*%D,i64 20
%P=bitcast i8*%O to i32*
store i32%C,i32*%P,align 4
%Q=getelementptr inbounds i8,i8*%D,i64 24
%R=bitcast i8*%Q to i32*
store i32 1,i32*%R,align 4
%S=call i8*@sml_alloc(i32 inreg 28)#0
%T=getelementptr inbounds i8,i8*%S,i64 -4
%U=bitcast i8*%T to i32*
store i32 1342177304,i32*%U,align 4
%V=load i8*,i8**%d,align 8
%W=bitcast i8*%S to i8**
store i8*%V,i8**%W,align 8
%X=getelementptr inbounds i8,i8*%S,i64 8
%Y=bitcast i8*%X to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_165 to void(...)*),void(...)**%Y,align 8
%Z=getelementptr inbounds i8,i8*%S,i64 16
%aa=bitcast i8*%Z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_165 to void(...)*),void(...)**%aa,align 8
%ab=getelementptr inbounds i8,i8*%S,i64 24
%ac=bitcast i8*%ab to i32*
store i32 -2147483647,i32*%ac,align 4
%ad=call i8*@sml_alloc(i32 inreg 20)#0
%ae=getelementptr inbounds i8,i8*%ad,i64 -4
%af=bitcast i8*%ae to i32*
store i32 1342177296,i32*%af,align 4
%ag=load i8*,i8**%c,align 8
%ah=bitcast i8*%ad to i8**
store i8*%ag,i8**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ad,i64 8
%aj=bitcast i8*%ai to i8**
store i8*null,i8**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ad,i64 16
%al=bitcast i8*%ak to i32*
store i32 3,i32*%al,align 4
%am=load i8*,i8**%d,align 8
%an=tail call fastcc i8*@_SMLL4loop_165(i8*inreg%am,i8*inreg%ad)
ret i8*%an
}
define internal fastcc i8*@_SMLLN4List3mapE_167(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(i8*(i8*,i8*)*@_SMLLN4List3mapE_166 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*)*@_SMLLN4List3mapE_166 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%E,i64 24
%O=bitcast i8*%N to i32*
store i32 -2147483647,i32*%O,align 4
ret i8*%E
}
define internal fastcc i8*@_SMLLN4List4findE_170(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
j:
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
store i8*%b,i8**%e,align 8
br label%h
h:
%i=phi i8*[%a8,%a3],[%c,%j]
store i8*%i,i8**%d,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%d,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
%q=load i8*,i8**%e,align 8
%r=load i8*,i8**%f,align 8
%s=getelementptr inbounds i8,i8*%r,i64 4
%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=bitcast i8*%r to i32*
%C=load i32,i32*%B,align 4
%D=icmp eq i8*%p,null
br i1%D,label%E,label%F
E:
ret i8*null
F:
%G=getelementptr inbounds i8,i8*%q,i64 16
%H=bitcast i8*%G to i8*(i8*,i8*)**
%I=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%H,align 8
%J=bitcast i8*%q to i8**
%K=load i8*,i8**%J,align 8
store i8*%K,i8**%g,align 8
%L=load i32,i32*%B,align 4
%M=icmp eq i32%L,0
br i1%M,label%S,label%N
N:
%O=sext i32%x to i64
%P=getelementptr inbounds i8,i8*%p,i64%O
%Q=bitcast i8*%P to i8**
%R=load i8*,i8**%Q,align 8
br label%ab
S:
%T=load i32,i32*%t,align 4
%U=call i8*@sml_alloc(i32 inreg%T)#0
%V=getelementptr inbounds i8,i8*%U,i64 -4
%W=bitcast i8*%V to i32*
store i32%T,i32*%W,align 4
%X=load i8*,i8**%d,align 8
%Y=sext i32%x to i64
%Z=getelementptr inbounds i8,i8*%X,i64%Y
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%U,i8*%Z,i32%T,i1 false)
%aa=load i8*,i8**%g,align 8
br label%ab
ab:
%ac=phi i8*[%K,%N],[%aa,%S]
%ad=phi i8*[%R,%N],[%U,%S]
store i8*null,i8**%g,align 8
%ae=call fastcc i8*%I(i8*inreg%ac,i8*inreg%ad)
%af=bitcast i8*%ae to i32*
%ag=load i32,i32*%af,align 4
%ah=icmp eq i32%ag,0
br i1%ah,label%a3,label%ai
ai:
%aj=or i32%A,4
store i8*null,i8**%e,align 8
%ak=load i8*,i8**%f,align 8
%al=bitcast i8*%ak to i32*
%am=load i32,i32*%al,align 4
%an=icmp eq i32%am,0
br i1%an,label%au,label%ao
ao:
%ap=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aq=sext i32%x to i64
%ar=getelementptr inbounds i8,i8*%ap,i64%aq
%as=bitcast i8*%ar to i8**
%at=load i8*,i8**%as,align 8
br label%aG
au:
%av=getelementptr inbounds i8,i8*%ak,i64 4
%aw=bitcast i8*%av to i32*
%ax=load i32,i32*%aw,align 4
%ay=call i8*@sml_alloc(i32 inreg%ax)#0
%az=getelementptr inbounds i8,i8*%ay,i64 -4
%aA=bitcast i8*%az to i32*
store i32%ax,i32*%aA,align 4
%aB=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aC=sext i32%x to i64
%aD=getelementptr inbounds i8,i8*%aB,i64%aC
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ay,i8*%aD,i32%ax,i1 false)
%aE=load i8*,i8**%f,align 8
%aF=bitcast i8*%aE to i32*
br label%aG
aG:
%aH=phi i64[%aC,%au],[%aq,%ao]
%aI=phi i32*[%aF,%au],[%al,%ao]
%aJ=phi i8*[%aE,%au],[%ak,%ao]
%aK=phi i8*[%ay,%au],[%at,%ao]
store i8*%aK,i8**%d,align 8
%aL=getelementptr inbounds i8,i8*%aJ,i64 4
%aM=bitcast i8*%aL to i32*
%aN=load i32,i32*%aM,align 4
store i8*null,i8**%f,align 8
%aO=load i32,i32*%aI,align 4
%aP=call i8*@sml_alloc(i32 inreg%aj)#0
%aQ=or i32%A,1342177280
%aR=getelementptr inbounds i8,i8*%aP,i64 -4
%aS=bitcast i8*%aR to i32*
store i32%aQ,i32*%aS,align 4
call void@llvm.memset.p0i8.i32(i8*%aP,i8 0,i32%aj,i1 false)
%aT=icmp eq i32%aO,0
%aU=load i8*,i8**%d,align 8
%aV=getelementptr inbounds i8,i8*%aP,i64%aH
br i1%aT,label%aY,label%aW
aW:
%aX=bitcast i8*%aV to i8**
store i8*%aU,i8**%aX,align 8
br label%aZ
aY:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aV,i8*%aU,i32%aN,i1 false)
br label%aZ
aZ:
%a0=sext i32%A to i64
%a1=getelementptr inbounds i8,i8*%aP,i64%a0
%a2=bitcast i8*%a1 to i32*
store i32%C,i32*%a2,align 4
ret i8*%aP
a3:
%a4=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%a5=sext i32%A to i64
%a6=getelementptr inbounds i8,i8*%a4,i64%a5
%a7=bitcast i8*%a6 to i8**
%a8=load i8*,i8**%a7,align 8
br label%h
}
define internal fastcc i8*@_SMLL4loop_173(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%f,align 8
%g=bitcast i8**%c to i8***
%h=bitcast i8**%f to i8***
br label%i
i:
%j=phi i8*[%bs,%br],[%b,%k]
store i8*%j,i8**%c,align 8
%l=load atomic i32,i32*@sml_check_flag unordered,align 4
%m=icmp eq i32%l,0
%n=bitcast i8*%j to i8**
br i1%m,label%r,label%o
o:
call void@sml_check(i32 inreg%l)
%p=load i8**,i8***%g,align 8
%q=bitcast i8**%p to i8*
br label%r
r:
%s=phi i8*[%q,%o],[%j,%i]
%t=phi i8**[%p,%o],[%n,%i]
%u=load i8*,i8**%f,align 8
%v=getelementptr inbounds i8,i8*%u,i64 12
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=add i32%x,-1
%z=sub i32 0,%x
%A=and i32%y,%z
%B=add i32%x,7
%C=add i32%B,%A
%D=and i32%C,-8
%E=add i32%D,15
%F=and i32%E,-8
%G=lshr i32%C,3
%H=lshr i32%A,3
%I=sub nsw i32%G,%H
%J=shl i32 1,%I
%K=getelementptr inbounds i8,i8*%u,i64 8
%L=bitcast i8*%K to i32*
%M=load i32,i32*%L,align 4
%N=or i32%J,%M
%O=or i32%F,4
%P=load i8*,i8**%t,align 8
%Q=icmp eq i8*%P,null
%R=bitcast i8*%u to i8**
br i1%Q,label%S,label%ao
S:
store i8*null,i8**%f,align 8
%T=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%M,i32 inreg%x)
%U=getelementptr inbounds i8,i8*%T,i64 16
%V=bitcast i8*%U to i8*(i8*,i8*)**
%W=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%V,align 8
%X=bitcast i8*%T to i8**
%Y=load i8*,i8**%X,align 8
store i8*%Y,i8**%d,align 8
%Z=load i8*,i8**%c,align 8
%aa=getelementptr inbounds i8,i8*%Z,i64 8
%ab=bitcast i8*%aa to i8**
%ac=load i8*,i8**%ab,align 8
store i8*%ac,i8**%c,align 8
%ad=call i8*@sml_alloc(i32 inreg 20)#0
%ae=getelementptr inbounds i8,i8*%ad,i64 -4
%af=bitcast i8*%ae to i32*
store i32 1342177296,i32*%af,align 4
%ag=load i8*,i8**%c,align 8
%ah=bitcast i8*%ad to i8**
store i8*%ag,i8**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ad,i64 8
%aj=bitcast i8*%ai to i8**
store i8*null,i8**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ad,i64 16
%al=bitcast i8*%ak to i32*
store i32 3,i32*%al,align 4
%am=load i8*,i8**%d,align 8
%an=tail call fastcc i8*%W(i8*inreg%am,i8*inreg%ad)
ret i8*%an
ao:
store i8*%P,i8**%e,align 8
%ap=icmp eq i32%M,0
br i1%ap,label%av,label%aq
aq:
%ar=sext i32%A to i64
%as=getelementptr inbounds i8,i8*%P,i64%ar
%at=bitcast i8*%as to i8**
%au=load i8*,i8**%at,align 8
br label%aE
av:
%aw=call i8*@sml_alloc(i32 inreg%x)#0
%ax=getelementptr inbounds i8,i8*%aw,i64 -4
%ay=bitcast i8*%ax to i32*
store i32%x,i32*%ay,align 4
%az=load i8*,i8**%e,align 8
%aA=sext i32%A to i64
%aB=getelementptr inbounds i8,i8*%az,i64%aA
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aw,i8*%aB,i32%x,i1 false)
%aC=load i8*,i8**%c,align 8
%aD=load i8**,i8***%h,align 8
br label%aE
aE:
%aF=phi i8**[%aD,%av],[%R,%aq]
%aG=phi i8*[%aC,%av],[%s,%aq]
%aH=phi i8*[%az,%av],[%P,%aq]
%aI=phi i8*[%aw,%av],[%au,%aq]
store i8*%aI,i8**%d,align 8
%aJ=sext i32%D to i64
%aK=getelementptr inbounds i8,i8*%aH,i64%aJ
%aL=bitcast i8*%aK to i8**
%aM=load i8*,i8**%aL,align 8
store i8*%aM,i8**%e,align 8
%aN=getelementptr inbounds i8,i8*%aG,i64 8
%aO=bitcast i8*%aN to i8**
%aP=load i8*,i8**%aO,align 8
store i8*%aP,i8**%c,align 8
%aQ=load i8*,i8**%aF,align 8
%aR=getelementptr inbounds i8,i8*%aQ,i64 16
%aS=bitcast i8*%aR to i8*(i8*,i8*)**
%aT=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aS,align 8
%aU=bitcast i8*%aQ to i8**
%aV=load i8*,i8**%aU,align 8
%aW=call fastcc i8*%aT(i8*inreg%aV,i8*inreg%aI)
%aX=bitcast i8*%aW to i32*
%aY=load i32,i32*%aX,align 4
%aZ=icmp eq i32%aY,0
br i1%aZ,label%bq,label%a0
a0:
%a1=load i8*,i8**%f,align 8
%a2=getelementptr inbounds i8,i8*%a1,i64 12
%a3=bitcast i8*%a2 to i32*
%a4=load i32,i32*%a3,align 4
%a5=getelementptr inbounds i8,i8*%a1,i64 8
%a6=bitcast i8*%a5 to i32*
%a7=load i32,i32*%a6,align 4
%a8=call i8*@sml_alloc(i32 inreg%O)#0
%a9=or i32%F,1342177280
%ba=getelementptr inbounds i8,i8*%a8,i64 -4
%bb=bitcast i8*%ba to i32*
store i32%a9,i32*%bb,align 4
call void@llvm.memset.p0i8.i32(i8*%a8,i8 0,i32%O,i1 false)
%bc=icmp eq i32%a7,0
%bd=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%be=sext i32%A to i64
%bf=getelementptr inbounds i8,i8*%a8,i64%be
br i1%bc,label%bi,label%bg
bg:
%bh=bitcast i8*%bf to i8**
store i8*%bd,i8**%bh,align 8
br label%bj
bi:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bf,i8*%bd,i32%a4,i1 false)
br label%bj
bj:
%bk=load i8*,i8**%c,align 8
%bl=getelementptr inbounds i8,i8*%a8,i64%aJ
%bm=bitcast i8*%bl to i8**
store i8*%bk,i8**%bm,align 8
%bn=sext i32%F to i64
%bo=getelementptr inbounds i8,i8*%a8,i64%bn
%bp=bitcast i8*%bo to i32*
store i32%N,i32*%bp,align 4
store i8*%a8,i8**%c,align 8
br label%br
bq:
store i8*null,i8**%d,align 8
br label%br
br:
%bs=call i8*@sml_alloc(i32 inreg 20)#0
%bt=getelementptr inbounds i8,i8*%bs,i64 -4
%bu=bitcast i8*%bt to i32*
store i32 1342177296,i32*%bu,align 4
%bv=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bw=bitcast i8*%bs to i8**
store i8*%bv,i8**%bw,align 8
%bx=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%by=getelementptr inbounds i8,i8*%bs,i64 8
%bz=bitcast i8*%by to i8**
store i8*%bx,i8**%bz,align 8
%bA=getelementptr inbounds i8,i8*%bs,i64 16
%bB=bitcast i8*%bA to i32*
store i32 3,i32*%bB,align 4
br label%i
}
define internal fastcc i8*@_SMLLN4List6filterE_174(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%h,label%j
h:
%i=bitcast i8*%a to i8**
br label%n
j:
call void@sml_check(i32 inreg%f)
%k=bitcast i8**%d to i8***
%l=load i8**,i8***%k,align 8
%m=bitcast i8**%l to i8*
br label%n
n:
%o=phi i8*[%m,%j],[%a,%h]
%p=phi i8**[%l,%j],[%i,%h]
%q=load i8*,i8**%p,align 8
store i8*%q,i8**%e,align 8
%r=getelementptr inbounds i8*,i8**%p,i64 1
%s=bitcast i8**%r to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%d,align 8
%u=getelementptr inbounds i8,i8*%o,i64 12
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=call i8*@sml_alloc(i32 inreg 20)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177296,i32*%z,align 4
store i8*%x,i8**%d,align 8
%A=load i8*,i8**%e,align 8
store i8*null,i8**%e,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 i32*
store i32%t,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%x,i64 12
%F=bitcast i8*%E to i32*
store i32%w,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%x,i64 16
%H=bitcast i8*%G to i32*
store i32 1,i32*%H,align 4
%I=call i8*@sml_alloc(i32 inreg 28)#0
%J=getelementptr inbounds i8,i8*%I,i64 -4
%K=bitcast i8*%J to i32*
store i32 1342177304,i32*%K,align 4
%L=load i8*,i8**%d,align 8
%M=bitcast i8*%I to i8**
store i8*%L,i8**%M,align 8
%N=getelementptr inbounds i8,i8*%I,i64 8
%O=bitcast i8*%N to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_173 to void(...)*),void(...)**%O,align 8
%P=getelementptr inbounds i8,i8*%I,i64 16
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_173 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%I,i64 24
%S=bitcast i8*%R to i32*
store i32 -2147483647,i32*%S,align 4
%T=call i8*@sml_alloc(i32 inreg 20)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32 1342177296,i32*%V,align 4
%W=load i8*,i8**%c,align 8
%X=bitcast i8*%T to i8**
store i8*%W,i8**%X,align 8
%Y=getelementptr inbounds i8,i8*%T,i64 8
%Z=bitcast i8*%Y to i8**
store i8*null,i8**%Z,align 8
%aa=getelementptr inbounds i8,i8*%T,i64 16
%ab=bitcast i8*%aa to i32*
store i32 3,i32*%ab,align 4
%ac=load i8*,i8**%d,align 8
%ad=tail call fastcc i8*@_SMLL4loop_173(i8*inreg%ac,i8*inreg%T)
ret i8*%ad
}
define internal fastcc i8*@_SMLLN4List6filterE_175(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=call i8*@sml_alloc(i32 inreg 20)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177296,i32*%l,align 4
store i8*%j,i8**%d,align 8
%m=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to i32*
store i32%f,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%j,i64 12
%r=bitcast i8*%q to i32*
store i32%i,i32*%r,align 4
%s=getelementptr inbounds i8,i8*%j,i64 16
%t=bitcast i8*%s to i32*
store i32 1,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6filterE_174 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6filterE_174 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define internal fastcc i8*@_SMLL4loop_178(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
%h=bitcast i8**%c to i8***
br label%i
i:
%j=phi i8*[%bf,%be],[%b,%k]
store i8*%j,i8**%c,align 8
%l=load atomic i32,i32*@sml_check_flag unordered,align 4
%m=icmp eq i32%l,0
%n=bitcast i8*%j to i8**
br i1%m,label%r,label%o
o:
call void@sml_check(i32 inreg%l)
%p=load i8**,i8***%h,align 8
%q=bitcast i8**%p to i8*
br label%r
r:
%s=phi i8*[%q,%o],[%j,%i]
%t=phi i8**[%p,%o],[%n,%i]
%u=load i8*,i8**%f,align 8
%v=getelementptr inbounds i8,i8*%u,i64 20
%w=bitcast i8*%v to i32*
%x=load i32,i32*%w,align 4
%y=add i32%x,-1
%z=sub i32 0,%x
%A=and i32%y,%z
%B=getelementptr inbounds i8,i8*%u,i64 12
%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%J,15
%L=and i32%K,-8
%M=lshr i32%I,3
%N=lshr i32%G,3
%O=sub nsw i32%M,%N
%P=shl i32 1,%O
%Q=getelementptr inbounds i8,i8*%u,i64 8
%R=bitcast i8*%Q to i32*
%S=load i32,i32*%R,align 4
%T=or i32%P,%S
%U=or i32%L,4
%V=load i8*,i8**%t,align 8
%W=icmp eq i8*%V,null
br i1%W,label%X,label%at
X:
store i8*null,i8**%f,align 8
%Y=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%S,i32 inreg%D)
%Z=getelementptr inbounds i8,i8*%Y,i64 16
%aa=bitcast i8*%Z to i8*(i8*,i8*)**
%ab=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aa,align 8
%ac=bitcast i8*%Y to i8**
%ad=load i8*,i8**%ac,align 8
store i8*%ad,i8**%d,align 8
%ae=load i8*,i8**%c,align 8
%af=getelementptr inbounds i8,i8*%ae,i64 8
%ag=bitcast i8*%af to i8**
%ah=load i8*,i8**%ag,align 8
store i8*%ah,i8**%c,align 8
%ai=call i8*@sml_alloc(i32 inreg 20)#0
%aj=getelementptr inbounds i8,i8*%ai,i64 -4
%ak=bitcast i8*%aj to i32*
store i32 1342177296,i32*%ak,align 4
%al=load i8*,i8**%c,align 8
%am=bitcast i8*%ai to i8**
store i8*%al,i8**%am,align 8
%an=getelementptr inbounds i8,i8*%ai,i64 8
%ao=bitcast i8*%an to i8**
store i8*null,i8**%ao,align 8
%ap=getelementptr inbounds i8,i8*%ai,i64 16
%aq=bitcast i8*%ap to i32*
store i32 3,i32*%aq,align 4
%ar=load i8*,i8**%d,align 8
%as=tail call fastcc i8*%ab(i8*inreg%ar,i8*inreg%ai)
ret i8*%as
at:
%au=bitcast i8*%u to i8**
%av=add i32%x,7
%aw=add i32%av,%A
%ax=and i32%aw,-8
store i8*%V,i8**%g,align 8
%ay=sext i32%ax to i64
%az=getelementptr inbounds i8,i8*%V,i64%ay
%aA=bitcast i8*%az to i8**
%aB=load i8*,i8**%aA,align 8
store i8*%aB,i8**%d,align 8
%aC=getelementptr inbounds i8,i8*%s,i64 8
%aD=bitcast i8*%aC to i8**
%aE=load i8*,i8**%aD,align 8
store i8*%aE,i8**%c,align 8
%aF=load i8*,i8**%au,align 8
%aG=getelementptr inbounds i8,i8*%aF,i64 16
%aH=bitcast i8*%aG to i8*(i8*,i8*)**
%aI=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aH,align 8
%aJ=bitcast i8*%aF to i8**
%aK=load i8*,i8**%aJ,align 8
store i8*%aK,i8**%e,align 8
%aL=getelementptr inbounds i8,i8*%u,i64 16
%aM=bitcast i8*%aL to i32*
%aN=load i32,i32*%aM,align 4
%aO=icmp eq i32%aN,0
br i1%aO,label%aU,label%aP
aP:
store i8*null,i8**%g,align 8
%aQ=sext i32%A to i64
%aR=getelementptr inbounds i8,i8*%V,i64%aQ
%aS=bitcast i8*%aR to i8**
%aT=load i8*,i8**%aS,align 8
br label%a2
aU:
%aV=call i8*@sml_alloc(i32 inreg%x)#0
%aW=getelementptr inbounds i8,i8*%aV,i64 -4
%aX=bitcast i8*%aW to i32*
store i32%x,i32*%aX,align 4
%aY=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%aZ=sext i32%A to i64
%a0=getelementptr inbounds i8,i8*%aY,i64%aZ
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aV,i8*%a0,i32%x,i1 false)
%a1=load i8*,i8**%e,align 8
br label%a2
a2:
%a3=phi i8*[%aK,%aP],[%a1,%aU]
%a4=phi i8*[%aT,%aP],[%aV,%aU]
store i8*null,i8**%e,align 8
%a5=call fastcc i8*%aI(i8*inreg%a3,i8*inreg%a4)
store i8*%a5,i8**%e,align 8
%a6=icmp eq i8*%a5,null
br i1%a6,label%a7,label%bl
a7:
store i8*null,i8**%e,align 8
%a8=call i8*@sml_alloc(i32 inreg 20)#0
%a9=getelementptr inbounds i8,i8*%a8,i64 -4
%ba=bitcast i8*%a9 to i32*
store i32 1342177296,i32*%ba,align 4
%bb=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bc=bitcast i8*%a8 to i8**
store i8*%bb,i8**%bc,align 8
%bd=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
br label%be
be:
%bf=phi i8*[%a8,%a7],[%ca,%b2]
%bg=phi i8*[%bd,%a7],[%cf,%b2]
%bh=getelementptr inbounds i8,i8*%bf,i64 8
%bi=bitcast i8*%bh to i8**
store i8*%bg,i8**%bi,align 8
%bj=getelementptr inbounds i8,i8*%bf,i64 16
%bk=bitcast i8*%bj to i32*
store i32 3,i32*%bk,align 4
br label%i
bl:
%bm=load i8*,i8**%f,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%bw,label%br
br:
store i8*null,i8**%e,align 8
%bs=sext i32%G to i64
%bt=getelementptr inbounds i8,i8*%a5,i64%bs
%bu=bitcast i8*%bt to i8**
%bv=load i8*,i8**%bu,align 8
br label%bK
bw:
%bx=getelementptr inbounds i8,i8*%bm,i64 12
%by=bitcast i8*%bx to i32*
%bz=load i32,i32*%by,align 4
%bA=call i8*@sml_alloc(i32 inreg%bz)#0
%bB=getelementptr inbounds i8,i8*%bA,i64 -4
%bC=bitcast i8*%bB to i32*
store i32%bz,i32*%bC,align 4
%bD=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bE=sext i32%G to i64
%bF=getelementptr inbounds i8,i8*%bD,i64%bE
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bA,i8*%bF,i32%bz,i1 false)
%bG=load i8*,i8**%f,align 8
%bH=getelementptr inbounds i8,i8*%bG,i64 8
%bI=bitcast i8*%bH to i32*
%bJ=load i32,i32*%bI,align 4
br label%bK
bK:
%bL=phi i64[%bE,%bw],[%bs,%br]
%bM=phi i32[%bJ,%bw],[%bp,%br]
%bN=phi i8*[%bG,%bw],[%bm,%br]
%bO=phi i8*[%bA,%bw],[%bv,%br]
store i8*%bO,i8**%e,align 8
%bP=getelementptr inbounds i8,i8*%bN,i64 12
%bQ=bitcast i8*%bP to i32*
%bR=load i32,i32*%bQ,align 4
%bS=call i8*@sml_alloc(i32 inreg%U)#0
%bT=or i32%L,1342177280
%bU=getelementptr inbounds i8,i8*%bS,i64 -4
%bV=bitcast i8*%bU to i32*
store i32%bT,i32*%bV,align 4
store i8*%bS,i8**%g,align 8
call void@llvm.memset.p0i8.i32(i8*%bS,i8 0,i32%U,i1 false)
%bW=icmp eq i32%bM,0
%bX=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bY=getelementptr inbounds i8,i8*%bS,i64%bL
br i1%bW,label%b1,label%bZ
bZ:
%b0=bitcast i8*%bY to i8**
store i8*%bX,i8**%b0,align 8
br label%b2
b1:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bY,i8*%bX,i32%bR,i1 false)
br label%b2
b2:
%b3=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%b4=sext i32%J to i64
%b5=getelementptr inbounds i8,i8*%bS,i64%b4
%b6=bitcast i8*%b5 to i8**
store i8*%b3,i8**%b6,align 8
%b7=sext i32%L to i64
%b8=getelementptr inbounds i8,i8*%bS,i64%b7
%b9=bitcast i8*%b8 to i32*
store i32%T,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**%g,align 8
store i8*null,i8**%g,align 8
br label%be
}
define internal fastcc i8*@_SMLLN4List10mapPartialE_179(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%h,label%j
h:
%i=bitcast i8*%a to i8**
br label%n
j:
call void@sml_check(i32 inreg%f)
%k=bitcast i8**%d to i8***
%l=load i8**,i8***%k,align 8
%m=bitcast i8**%l to i8*
br label%n
n:
%o=phi i8*[%m,%j],[%a,%h]
%p=phi i8**[%l,%j],[%i,%h]
%q=load i8*,i8**%p,align 8
store i8*%q,i8**%e,align 8
%r=getelementptr inbounds i8*,i8**%p,i64 1
%s=bitcast i8**%r to i32*
%t=load i32,i32*%s,align 4
%u=getelementptr inbounds i8,i8*%o,i64 12
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=getelementptr inbounds i8*,i8**%p,i64 2
%y=bitcast i8**%x to i32*
%z=load i32,i32*%y,align 4
store i8*null,i8**%d,align 8
%A=getelementptr inbounds i8,i8*%o,i64 20
%B=bitcast i8*%A to i32*
%C=load i32,i32*%B,align 4
%D=call i8*@sml_alloc(i32 inreg 28)#0
%E=getelementptr inbounds i8,i8*%D,i64 -4
%F=bitcast i8*%E to i32*
store i32 1342177304,i32*%F,align 4
store i8*%D,i8**%d,align 8
%G=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%H=bitcast i8*%D to i8**
store i8*%G,i8**%H,align 8
%I=getelementptr inbounds i8,i8*%D,i64 8
%J=bitcast i8*%I to i32*
store i32%t,i32*%J,align 4
%K=getelementptr inbounds i8,i8*%D,i64 12
%L=bitcast i8*%K to i32*
store i32%w,i32*%L,align 4
%M=getelementptr inbounds i8,i8*%D,i64 16
%N=bitcast i8*%M to i32*
store i32%z,i32*%N,align 4
%O=getelementptr inbounds i8,i8*%D,i64 20
%P=bitcast i8*%O to i32*
store i32%C,i32*%P,align 4
%Q=getelementptr inbounds i8,i8*%D,i64 24
%R=bitcast i8*%Q to i32*
store i32 1,i32*%R,align 4
%S=call i8*@sml_alloc(i32 inreg 28)#0
%T=getelementptr inbounds i8,i8*%S,i64 -4
%U=bitcast i8*%T to i32*
store i32 1342177304,i32*%U,align 4
%V=load i8*,i8**%d,align 8
%W=bitcast i8*%S to i8**
store i8*%V,i8**%W,align 8
%X=getelementptr inbounds i8,i8*%S,i64 8
%Y=bitcast i8*%X to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_178 to void(...)*),void(...)**%Y,align 8
%Z=getelementptr inbounds i8,i8*%S,i64 16
%aa=bitcast i8*%Z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_178 to void(...)*),void(...)**%aa,align 8
%ab=getelementptr inbounds i8,i8*%S,i64 24
%ac=bitcast i8*%ab to i32*
store i32 -2147483647,i32*%ac,align 4
%ad=call i8*@sml_alloc(i32 inreg 20)#0
%ae=getelementptr inbounds i8,i8*%ad,i64 -4
%af=bitcast i8*%ae to i32*
store i32 1342177296,i32*%af,align 4
%ag=load i8*,i8**%c,align 8
%ah=bitcast i8*%ad to i8**
store i8*%ag,i8**%ah,align 8
%ai=getelementptr inbounds i8,i8*%ad,i64 8
%aj=bitcast i8*%ai to i8**
store i8*null,i8**%aj,align 8
%ak=getelementptr inbounds i8,i8*%ad,i64 16
%al=bitcast i8*%ak to i32*
store i32 3,i32*%al,align 4
%am=load i8*,i8**%d,align 8
%an=tail call fastcc i8*@_SMLL4loop_178(i8*inreg%am,i8*inreg%ad)
ret i8*%an
}
define internal fastcc i8*@_SMLLN4List10mapPartialE_180(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(i8*(i8*,i8*)*@_SMLLN4List10mapPartialE_179 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*)*@_SMLLN4List10mapPartialE_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 internal fastcc i8*@_SMLL4loop_183(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%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=bitcast i8**%g to i8***
br label%j
j:
%k=phi i8*[%ce,%cd],[%b,%l]
store i8*%k,i8**%c,align 8
%m=load atomic i32,i32*@sml_check_flag unordered,align 4
%n=icmp eq i32%m,0
br i1%n,label%q,label%o
o:
call void@sml_check(i32 inreg%m)
%p=load i8*,i8**%c,align 8
br label%q
q:
%r=phi i8*[%p,%o],[%k,%j]
store i8*%r,i8**%d,align 8
%s=load i8*,i8**%g,align 8
%t=getelementptr inbounds i8,i8*%s,i64 12
%u=bitcast i8*%t to i32*
%v=load i32,i32*%u,align 4
%w=add i32%v,-1
%x=sub i32 0,%v
%y=and i32%w,%x
%z=add i32%v,7
%A=add i32%z,%y
%B=and i32%A,-8
%C=add i32%B,15
%D=and i32%C,-8
%E=lshr i32%A,3
%F=lshr i32%y,3
%G=sub nsw i32%E,%F
%H=shl i32 1,%G
%I=getelementptr inbounds i8,i8*%s,i64 8
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=or i32%H,%K
%M=or i32%D,4
%N=bitcast i8*%r to i8**
%O=load i8*,i8**%N,align 8
%P=icmp eq i8*%O,null
%Q=bitcast i8*%s to i8**
br i1%P,label%R,label%aZ
R:
%S=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%K,i32 inreg%v)
%T=getelementptr inbounds i8,i8*%S,i64 16
%U=bitcast i8*%T to i8*(i8*,i8*)**
%V=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%U,align 8
%W=bitcast i8*%S to i8**
%X=load i8*,i8**%W,align 8
store i8*%X,i8**%e,align 8
%Y=load i8*,i8**%d,align 8
%Z=getelementptr inbounds i8,i8*%Y,i64 8
%aa=bitcast i8*%Z to i8**
%ab=load i8*,i8**%aa,align 8
store i8*%ab,i8**%c,align 8
%ac=call i8*@sml_alloc(i32 inreg 20)#0
%ad=getelementptr inbounds i8,i8*%ac,i64 -4
%ae=bitcast i8*%ad to i32*
store i32 1342177296,i32*%ae,align 4
%af=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%ag=bitcast i8*%ac to i8**
store i8*%af,i8**%ag,align 8
%ah=getelementptr inbounds i8,i8*%ac,i64 8
%ai=bitcast i8*%ah to i8**
store i8*null,i8**%ai,align 8
%aj=getelementptr inbounds i8,i8*%ac,i64 16
%ak=bitcast i8*%aj to i32*
store i32 3,i32*%ak,align 4
%al=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%am=call fastcc i8*%V(i8*inreg%al,i8*inreg%ac)
store i8*%am,i8**%c,align 8
%an=load i8*,i8**%g,align 8
%ao=getelementptr inbounds i8,i8*%an,i64 8
%ap=bitcast i8*%ao to i32*
%aq=load i32,i32*%ap,align 4
store i8*null,i8**%g,align 8
%ar=getelementptr inbounds i8,i8*%an,i64 12
%as=bitcast i8*%ar to i32*
%at=load i32,i32*%as,align 4
%au=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%aq,i32 inreg%at)
%av=getelementptr inbounds i8,i8*%au,i64 16
%aw=bitcast i8*%av to i8*(i8*,i8*)**
%ax=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%aw,align 8
%ay=bitcast i8*%au to i8**
%az=load i8*,i8**%ay,align 8
store i8*%az,i8**%e,align 8
%aA=load i8*,i8**%d,align 8
%aB=getelementptr inbounds i8,i8*%aA,i64 16
%aC=bitcast i8*%aB to i8**
%aD=load i8*,i8**%aC,align 8
store i8*%aD,i8**%d,align 8
%aE=call i8*@sml_alloc(i32 inreg 20)#0
%aF=getelementptr inbounds i8,i8*%aE,i64 -4
%aG=bitcast i8*%aF to i32*
store i32 1342177296,i32*%aG,align 4
%aH=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aI=bitcast i8*%aE to i8**
store i8*%aH,i8**%aI,align 8
%aJ=getelementptr inbounds i8,i8*%aE,i64 8
%aK=bitcast i8*%aJ to i8**
store i8*null,i8**%aK,align 8
%aL=getelementptr inbounds i8,i8*%aE,i64 16
%aM=bitcast i8*%aL to i32*
store i32 3,i32*%aM,align 4
%aN=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%aO=call fastcc i8*%ax(i8*inreg%aN,i8*inreg%aE)
store i8*%aO,i8**%d,align 8
%aP=call i8*@sml_alloc(i32 inreg 20)#0
%aQ=getelementptr inbounds i8,i8*%aP,i64 -4
%aR=bitcast i8*%aQ to i32*
store i32 1342177296,i32*%aR,align 4
%aS=load i8*,i8**%c,align 8
%aT=bitcast i8*%aP to i8**
store i8*%aS,i8**%aT,align 8
%aU=load i8*,i8**%d,align 8
%aV=getelementptr inbounds i8,i8*%aP,i64 8
%aW=bitcast i8*%aV to i8**
store i8*%aU,i8**%aW,align 8
%aX=getelementptr inbounds i8,i8*%aP,i64 16
%aY=bitcast i8*%aX to i32*
store i32 3,i32*%aY,align 4
ret i8*%aP
aZ:
store i8*%O,i8**%e,align 8
%a0=icmp eq i32%K,0
br i1%a0,label%a6,label%a1
a1:
%a2=sext i32%y to i64
%a3=getelementptr inbounds i8,i8*%O,i64%a2
%a4=bitcast i8*%a3 to i8**
%a5=load i8*,i8**%a4,align 8
br label%bf
a6:
%a7=call i8*@sml_alloc(i32 inreg%v)#0
%a8=getelementptr inbounds i8,i8*%a7,i64 -4
%a9=bitcast i8*%a8 to i32*
store i32%v,i32*%a9,align 4
%ba=load i8*,i8**%e,align 8
%bb=sext i32%y to i64
%bc=getelementptr inbounds i8,i8*%ba,i64%bb
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a7,i8*%bc,i32%v,i1 false)
%bd=load i8*,i8**%d,align 8
%be=load i8**,i8***%i,align 8
br label%bf
bf:
%bg=phi i64[%bb,%a6],[%a2,%a1]
%bh=phi i8**[%be,%a6],[%Q,%a1]
%bi=phi i8*[%bd,%a6],[%r,%a1]
%bj=phi i8*[%ba,%a6],[%O,%a1]
%bk=phi i8*[%a7,%a6],[%a5,%a1]
store i8*%bk,i8**%c,align 8
%bl=sext i32%B to i64
%bm=getelementptr inbounds i8,i8*%bj,i64%bl
%bn=bitcast i8*%bm to i8**
%bo=load i8*,i8**%bn,align 8
store i8*%bo,i8**%e,align 8
%bp=getelementptr inbounds i8,i8*%bi,i64 8
%bq=bitcast i8*%bp to i8**
%br=load i8*,i8**%bq,align 8
store i8*%br,i8**%f,align 8
%bs=getelementptr inbounds i8,i8*%bi,i64 16
%bt=bitcast i8*%bs to i8**
%bu=load i8*,i8**%bt,align 8
store i8*%bu,i8**%d,align 8
%bv=load i8*,i8**%bh,align 8
%bw=getelementptr inbounds i8,i8*%bv,i64 16
%bx=bitcast i8*%bw to i8*(i8*,i8*)**
%by=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bx,align 8
%bz=bitcast i8*%bv to i8**
%bA=load i8*,i8**%bz,align 8
%bB=call fastcc i8*%by(i8*inreg%bA,i8*inreg%bk)
%bC=bitcast i8*%bB to i32*
%bD=load i32,i32*%bC,align 4
%bE=icmp eq i32%bD,0
%bF=load i8*,i8**%g,align 8
%bG=getelementptr inbounds i8,i8*%bF,i64 12
%bH=bitcast i8*%bG to i32*
%bI=load i32,i32*%bH,align 4
%bJ=getelementptr inbounds i8,i8*%bF,i64 8
%bK=bitcast i8*%bJ to i32*
%bL=load i32,i32*%bK,align 4
%bM=call i8*@sml_alloc(i32 inreg%M)#0
%bN=or i32%D,1342177280
%bO=getelementptr inbounds i8,i8*%bM,i64 -4
%bP=bitcast i8*%bO to i32*
store i32%bN,i32*%bP,align 4
store i8*%bM,i8**%h,align 8
call void@llvm.memset.p0i8.i32(i8*%bM,i8 0,i32%M,i1 false)
%bQ=icmp eq i32%bL,0
%bR=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bS=getelementptr inbounds i8,i8*%bM,i64%bg
br i1%bE,label%ck,label%bT
bT:
br i1%bQ,label%bW,label%bU
bU:
%bV=bitcast i8*%bS to i8**
store i8*%bR,i8**%bV,align 8
br label%bX
bW:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bS,i8*%bR,i32%bI,i1 false)
br label%bX
bX:
%bY=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%bZ=getelementptr inbounds i8,i8*%bM,i64%bl
%b0=bitcast i8*%bZ to i8**
store i8*%bY,i8**%b0,align 8
%b1=sext i32%D to i64
%b2=getelementptr inbounds i8,i8*%bM,i64%b1
%b3=bitcast i8*%b2 to i32*
store i32%L,i32*%b3,align 4
%b4=call i8*@sml_alloc(i32 inreg 28)#0
%b5=getelementptr inbounds i8,i8*%b4,i64 -4
%b6=bitcast i8*%b5 to i32*
store i32 1342177304,i32*%b6,align 4
%b7=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%b8=bitcast i8*%b4 to i8**
store i8*%b7,i8**%b8,align 8
%b9=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%ca=getelementptr inbounds i8,i8*%b4,i64 8
%cb=bitcast i8*%ca to i8**
store i8*%b9,i8**%cb,align 8
%cc=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
br label%cd
cd:
%ce=phi i8*[%b4,%bX],[%cv,%co]
%cf=phi i8*[%cc,%bX],[%cD,%co]
%cg=getelementptr inbounds i8,i8*%ce,i64 16
%ch=bitcast i8*%cg to i8**
store i8*%cf,i8**%ch,align 8
%ci=getelementptr inbounds i8,i8*%ce,i64 24
%cj=bitcast i8*%ci to i32*
store i32 7,i32*%cj,align 4
br label%j
ck:
br i1%bQ,label%cn,label%cl
cl:
%cm=bitcast i8*%bS to i8**
store i8*%bR,i8**%cm,align 8
br label%co
cn:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bS,i8*%bR,i32%bI,i1 false)
br label%co
co:
%cp=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%cq=getelementptr inbounds i8,i8*%bM,i64%bl
%cr=bitcast i8*%cq to i8**
store i8*%cp,i8**%cr,align 8
%cs=sext i32%D to i64
%ct=getelementptr inbounds i8,i8*%bM,i64%cs
%cu=bitcast i8*%ct to i32*
store i32%L,i32*%cu,align 4
%cv=call i8*@sml_alloc(i32 inreg 28)#0
%cw=getelementptr inbounds i8,i8*%cv,i64 -4
%cx=bitcast i8*%cw to i32*
store i32 1342177304,i32*%cx,align 4
%cy=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%cz=bitcast i8*%cv to i8**
store i8*%cy,i8**%cz,align 8
%cA=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%cB=getelementptr inbounds i8,i8*%cv,i64 8
%cC=bitcast i8*%cB to i8**
store i8*%cA,i8**%cC,align 8
%cD=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
br label%cd
}
define internal fastcc i8*@_SMLLN4List9partitionE_184(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%h,label%j
h:
%i=bitcast i8*%a to i8**
br label%n
j:
call void@sml_check(i32 inreg%f)
%k=bitcast i8**%d to i8***
%l=load i8**,i8***%k,align 8
%m=bitcast i8**%l to i8*
br label%n
n:
%o=phi i8*[%m,%j],[%a,%h]
%p=phi i8**[%l,%j],[%i,%h]
%q=load i8*,i8**%p,align 8
store i8*%q,i8**%e,align 8
%r=getelementptr inbounds i8*,i8**%p,i64 1
%s=bitcast i8**%r to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%d,align 8
%u=getelementptr inbounds i8,i8*%o,i64 12
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=call i8*@sml_alloc(i32 inreg 20)#0
%y=getelementptr inbounds i8,i8*%x,i64 -4
%z=bitcast i8*%y to i32*
store i32 1342177296,i32*%z,align 4
store i8*%x,i8**%d,align 8
%A=load i8*,i8**%e,align 8
store i8*null,i8**%e,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 i32*
store i32%t,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%x,i64 12
%F=bitcast i8*%E to i32*
store i32%w,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%x,i64 16
%H=bitcast i8*%G to i32*
store i32 1,i32*%H,align 4
%I=call i8*@sml_alloc(i32 inreg 28)#0
%J=getelementptr inbounds i8,i8*%I,i64 -4
%K=bitcast i8*%J to i32*
store i32 1342177304,i32*%K,align 4
%L=load i8*,i8**%d,align 8
%M=bitcast i8*%I to i8**
store i8*%L,i8**%M,align 8
%N=getelementptr inbounds i8,i8*%I,i64 8
%O=bitcast i8*%N to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_183 to void(...)*),void(...)**%O,align 8
%P=getelementptr inbounds i8,i8*%I,i64 16
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_183 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%I,i64 24
%S=bitcast i8*%R to i32*
store i32 -2147483647,i32*%S,align 4
%T=call i8*@sml_alloc(i32 inreg 28)#0
%U=getelementptr inbounds i8,i8*%T,i64 -4
%V=bitcast i8*%U to i32*
store i32 1342177304,i32*%V,align 4
%W=load i8*,i8**%c,align 8
%X=bitcast i8*%T to i8**
store i8*%W,i8**%X,align 8
%Y=getelementptr inbounds i8,i8*%T,i64 8
%Z=getelementptr inbounds i8,i8*%T,i64 24
%aa=bitcast i8*%Z to i32*
call void@llvm.memset.p0i8.i64(i8*%Y,i8 0,i64 16,i1 false)
store i32 7,i32*%aa,align 4
%ab=load i8*,i8**%d,align 8
%ac=tail call fastcc i8*@_SMLL4loop_183(i8*inreg%ab,i8*inreg%T)
ret i8*%ac
}
define internal fastcc i8*@_SMLLN4List9partitionE_185(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=call i8*@sml_alloc(i32 inreg 20)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177296,i32*%l,align 4
store i8*%j,i8**%d,align 8
%m=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to i32*
store i32%f,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%j,i64 12
%r=bitcast i8*%q to i32*
store i32%i,i32*%r,align 4
%s=getelementptr inbounds i8,i8*%j,i64 16
%t=bitcast i8*%s to i32*
store i32 1,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9partitionE_184 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9partitionE_184 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define internal fastcc i8*@_SMLL4loop_188(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
%h=bitcast i8**%f to i8***
br label%i
i:
%j=phi i8*[%b9,%cm],[%b,%k]
store i8*%j,i8**%c,align 8
%l=load atomic i32,i32*@sml_check_flag unordered,align 4
%m=icmp eq i32%l,0
br i1%m,label%p,label%n
n:
call void@sml_check(i32 inreg%l)
%o=load i8*,i8**%c,align 8
br label%p
p:
%q=phi i8*[%o,%n],[%j,%i]
%r=load i8*,i8**%f,align 8
%s=getelementptr inbounds i8,i8*%r,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*%r,i64 12
%C=bitcast i8*%B to i32*
%D=load i32,i32*%C,align 4
%E=add i32%D,7
%F=sub i32 0,%D
%G=and i32%E,%F
%H=add i32%D,-1
%I=add i32%H,%y
%J=and i32%I,%F
%K=add i32%E,%J
%L=and i32%K,-8
%M=lshr i32%J,3
%N=lshr i32%x,3
%O=sub nsw i32%M,%N
%P=getelementptr inbounds i8,i8*%r,i64 8
%Q=bitcast i8*%P to i32*
%R=load i32,i32*%Q,align 4
%S=shl i32%R,%O
%T=getelementptr inbounds i8,i8*%r,i64 16
%U=bitcast i8*%T to i32*
%V=load i32,i32*%U,align 4
%W=or i32%S,%V
%X=or i32%L,4
%Y=add i32%E,%G
%Z=and i32%Y,-8
%aa=lshr i32%G,3
%ab=shl i32%R,%aa
%ac=or i32%ab,1
%ad=or i32%Z,4
%ae=bitcast i8*%q to i8**
%af=load i8*,i8**%ae,align 8
%ag=icmp eq i8*%af,null
br i1%ag,label%ah,label%av
ah:
%ai=icmp eq i32%R,0
br i1%ai,label%ao,label%aj
aj:
%ak=sext i32%G to i64
%al=getelementptr inbounds i8,i8*%q,i64%ak
%am=bitcast i8*%al to i8**
%an=load i8*,i8**%am,align 8
ret i8*%an
ao:
store i8*null,i8**%f,align 8
%ap=call i8*@sml_alloc(i32 inreg%D)#0
%aq=getelementptr inbounds i8,i8*%ap,i64 -4
%ar=bitcast i8*%aq to i32*
store i32%D,i32*%ar,align 4
%as=load i8*,i8**%c,align 8
%at=sext i32%G to i64
%au=getelementptr inbounds i8,i8*%as,i64%at
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ap,i8*%au,i32%D,i1 false)
ret i8*%ap
av:
store i8*%af,i8**%e,align 8
%aw=icmp eq i32%V,0
br i1%aw,label%aC,label%ax
ax:
%ay=sext i32%x to i64
%az=getelementptr inbounds i8,i8*%af,i64%ay
%aA=bitcast i8*%az to i8**
%aB=load i8*,i8**%aA,align 8
br label%aN
aC:
%aD=call i8*@sml_alloc(i32 inreg%u)#0
%aE=getelementptr inbounds i8,i8*%aD,i64 -4
%aF=bitcast i8*%aE to i32*
store i32%u,i32*%aF,align 4
%aG=load i8*,i8**%e,align 8
%aH=sext i32%x to i64
%aI=getelementptr inbounds i8,i8*%aG,i64%aH
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aD,i8*%aI,i32%u,i1 false)
%aJ=load i8*,i8**%f,align 8
%aK=getelementptr inbounds i8,i8*%aJ,i64 8
%aL=bitcast i8*%aK to i32*
%aM=load i32,i32*%aL,align 4
br label%aN
aN:
%aO=phi i8*[%aJ,%aC],[%r,%ax]
%aP=phi i32[%aM,%aC],[%R,%ax]
%aQ=phi i8*[%aG,%aC],[%af,%ax]
%aR=phi i8*[%aD,%aC],[%aB,%ax]
store i8*%aR,i8**%d,align 8
%aS=sext i32%A to i64
%aT=getelementptr inbounds i8,i8*%aQ,i64%aS
%aU=bitcast i8*%aT to i8**
%aV=load i8*,i8**%aU,align 8
store i8*%aV,i8**%e,align 8
%aW=icmp eq i32%aP,0
br i1%aW,label%a4,label%aX
aX:
%aY=bitcast i8*%aO to i8**
%aZ=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%a0=sext i32%G to i64
%a1=getelementptr inbounds i8,i8*%aZ,i64%a0
%a2=bitcast i8*%a1 to i8**
%a3=load i8*,i8**%a2,align 8
br label%bj
a4:
%a5=getelementptr inbounds i8,i8*%aO,i64 12
%a6=bitcast i8*%a5 to i32*
%a7=load i32,i32*%a6,align 4
%a8=call i8*@sml_alloc(i32 inreg%a7)#0
%a9=getelementptr inbounds i8,i8*%a8,i64 -4
%ba=bitcast i8*%a9 to i32*
store i32%a7,i32*%ba,align 4
%bb=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bc=sext i32%G to i64
%bd=getelementptr inbounds i8,i8*%bb,i64%bc
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a8,i8*%bd,i32%a7,i1 false)
%be=load i8**,i8***%h,align 8
%bf=bitcast i8**%be to i8*
%bg=getelementptr inbounds i8*,i8**%be,i64 1
%bh=bitcast i8**%bg to i32*
%bi=load i32,i32*%bh,align 4
br label%bj
bj:
%bk=phi i32[%bi,%a4],[%aP,%aX]
%bl=phi i8*[%bf,%a4],[%aO,%aX]
%bm=phi i8**[%be,%a4],[%aY,%aX]
%bn=phi i8*[%a8,%a4],[%a3,%aX]
store i8*%bn,i8**%c,align 8
%bo=load i8*,i8**%bm,align 8
%bp=getelementptr inbounds i8,i8*%bo,i64 16
%bq=bitcast i8*%bp to i8*(i8*,i8*)**
%br=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bq,align 8
%bs=bitcast i8*%bo to i8**
%bt=load i8*,i8**%bs,align 8
store i8*%bt,i8**%g,align 8
%bu=getelementptr inbounds i8,i8*%bl,i64 20
%bv=bitcast i8*%bu to i32*
%bw=load i32,i32*%bv,align 4
%bx=getelementptr inbounds i8,i8*%bl,i64 16
%by=bitcast i8*%bx to i32*
%bz=load i32,i32*%by,align 4
%bA=getelementptr inbounds i8,i8*%bl,i64 12
%bB=bitcast i8*%bA to i32*
%bC=load i32,i32*%bB,align 4
%bD=call i8*@sml_alloc(i32 inreg%X)#0
%bE=or i32%L,1342177280
%bF=getelementptr inbounds i8,i8*%bD,i64 -4
%bG=bitcast i8*%bF to i32*
store i32%bE,i32*%bG,align 4
call void@llvm.memset.p0i8.i32(i8*%bD,i8 0,i32%X,i1 false)
%bH=icmp eq i32%bz,0
%bI=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bJ=sext i32%x to i64
%bK=getelementptr inbounds i8,i8*%bD,i64%bJ
br i1%bH,label%bN,label%bL
bL:
%bM=bitcast i8*%bK to i8**
store i8*%bI,i8**%bM,align 8
br label%bO
bN:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bK,i8*%bI,i32%bw,i1 false)
br label%bO
bO:
%bP=icmp eq i32%bk,0
%bQ=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bR=sext i32%J to i64
%bS=getelementptr inbounds i8,i8*%bD,i64%bR
br i1%bP,label%bV,label%bT
bT:
%bU=bitcast i8*%bS to i8**
store i8*%bQ,i8**%bU,align 8
br label%bW
bV:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bS,i8*%bQ,i32%bC,i1 false)
br label%bW
bW:
%bX=sext i32%L to i64
%bY=getelementptr inbounds i8,i8*%bD,i64%bX
%bZ=bitcast i8*%bY to i32*
store i32%W,i32*%bZ,align 4
%b0=load i8*,i8**%g,align 8
store i8*null,i8**%g,align 8
%b1=call fastcc i8*%br(i8*inreg%b0,i8*inreg%bD)
store i8*%b1,i8**%c,align 8
%b2=load i8*,i8**%f,align 8
%b3=getelementptr inbounds i8,i8*%b2,i64 12
%b4=bitcast i8*%b3 to i32*
%b5=load i32,i32*%b4,align 4
%b6=getelementptr inbounds i8,i8*%b2,i64 8
%b7=bitcast i8*%b6 to i32*
%b8=load i32,i32*%b7,align 4
%b9=call i8*@sml_alloc(i32 inreg%ad)#0
%ca=or i32%Z,1342177280
%cb=getelementptr inbounds i8,i8*%b9,i64 -4
%cc=bitcast i8*%cb to i32*
store i32%ca,i32*%cc,align 4
call void@llvm.memset.p0i8.i32(i8*%b9,i8 0,i32%ad,i1 false)
%cd=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%ce=bitcast i8*%b9 to i8**
store i8*%cd,i8**%ce,align 8
%cf=icmp eq i32%b8,0
%cg=load i8*,i8**%c,align 8
%ch=sext i32%G to i64
%ci=getelementptr inbounds i8,i8*%b9,i64%ch
br i1%cf,label%cl,label%cj
cj:
%ck=bitcast i8*%ci to i8**
store i8*%cg,i8**%ck,align 8
br label%cm
cl:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ci,i8*%cg,i32%b5,i1 false)
br label%cm
cm:
%cn=sext i32%Z to i64
%co=getelementptr inbounds i8,i8*%b9,i64%cn
%cp=bitcast i8*%co to i32*
store i32%ac,i32*%cp,align 4
br label%i
}
define internal fastcc i8*@_SMLLN4List5foldlE_189(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
m:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%k,label%i
i:
call void@sml_check(i32 inreg%g)
%j=load i8*,i8**%d,align 8
br label%k
k:
%l=phi i8*[%j,%i],[%a,%m]
%n=getelementptr inbounds i8,i8*%l,i64 20
%o=bitcast i8*%n to i32*
%p=load i32,i32*%o,align 4
%q=add i32%p,7
%r=sub i32 0,%p
%s=and i32%q,%r
%t=add i32%q,%s
%u=and i32%t,-8
%v=lshr i32%s,3
%w=getelementptr inbounds i8,i8*%l,i64 16
%x=bitcast i8*%w to i32*
%y=load i32,i32*%x,align 4
%z=shl i32%y,%v
%A=or i32%z,1
%B=or i32%u,4
%C=bitcast i8*%l to i8**
%D=load i8*,i8**%C,align 8
store i8*%D,i8**%e,align 8
%E=getelementptr inbounds i8,i8*%l,i64 24
%F=bitcast i8*%E to i32*
%G=load i32,i32*%F,align 4
%H=getelementptr inbounds i8,i8*%l,i64 28
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=call i8*@sml_alloc(i32 inreg 28)#0
%L=getelementptr inbounds i8,i8*%K,i64 -4
%M=bitcast i8*%L to i32*
store i32 1342177304,i32*%M,align 4
store i8*%K,i8**%f,align 8
%N=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%O=bitcast i8*%K to i8**
store i8*%N,i8**%O,align 8
%P=getelementptr inbounds i8,i8*%K,i64 8
%Q=bitcast i8*%P to i32*
store i32%y,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%K,i64 12
%S=bitcast i8*%R to i32*
store i32%p,i32*%S,align 4
%T=getelementptr inbounds i8,i8*%K,i64 16
%U=bitcast i8*%T to i32*
store i32%G,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%K,i64 20
%W=bitcast i8*%V to i32*
store i32%J,i32*%W,align 4
%X=getelementptr inbounds i8,i8*%K,i64 24
%Y=bitcast i8*%X to i32*
store i32 1,i32*%Y,align 4
%Z=call i8*@sml_alloc(i32 inreg 28)#0
%aa=getelementptr inbounds i8,i8*%Z,i64 -4
%ab=bitcast i8*%aa to i32*
store i32 1342177304,i32*%ab,align 4
%ac=load i8*,i8**%f,align 8
%ad=bitcast i8*%Z to i8**
store i8*%ac,i8**%ad,align 8
%ae=getelementptr inbounds i8,i8*%Z,i64 8
%af=bitcast i8*%ae to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_188 to void(...)*),void(...)**%af,align 8
%ag=getelementptr inbounds i8,i8*%Z,i64 16
%ah=bitcast i8*%ag to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_188 to void(...)*),void(...)**%ah,align 8
%ai=getelementptr inbounds i8,i8*%Z,i64 24
%aj=bitcast i8*%ai to i32*
store i32 1,i32*%aj,align 4
%ak=load i8*,i8**%d,align 8
%al=getelementptr inbounds i8,i8*%ak,i64 16
%am=bitcast i8*%al to i32*
%an=load i32,i32*%am,align 4
%ao=icmp eq i32%an,0
br i1%ao,label%at,label%ap
ap:
%aq=getelementptr inbounds i8,i8*%ak,i64 8
%ar=bitcast i8*%aq to i8**
%as=load i8*,i8**%ar,align 8
br label%aF
at:
%au=getelementptr inbounds i8,i8*%ak,i64 20
%av=bitcast i8*%au to i32*
%aw=load i32,i32*%av,align 4
%ax=call i8*@sml_alloc(i32 inreg%aw)#0
%ay=getelementptr inbounds i8,i8*%ax,i64 -4
%az=bitcast i8*%ay to i32*
store i32%aw,i32*%az,align 4
%aA=load i8*,i8**%d,align 8
%aB=getelementptr inbounds i8,i8*%aA,i64 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ax,i8*%aB,i32%aw,i1 false)
%aC=getelementptr inbounds i8,i8*%aA,i64 16
%aD=bitcast i8*%aC to i32*
%aE=load i32,i32*%aD,align 4
br label%aF
aF:
%aG=phi i32[%aE,%at],[%an,%ap]
%aH=phi i8*[%aA,%at],[%ak,%ap]
%aI=phi i8*[%ax,%at],[%as,%ap]
store i8*%aI,i8**%e,align 8
%aJ=getelementptr inbounds i8,i8*%aH,i64 20
%aK=bitcast i8*%aJ to i32*
%aL=load i32,i32*%aK,align 4
store i8*null,i8**%d,align 8
%aM=call i8*@sml_alloc(i32 inreg%B)#0
%aN=or i32%u,1342177280
%aO=getelementptr inbounds i8,i8*%aM,i64 -4
%aP=bitcast i8*%aO to i32*
store i32%aN,i32*%aP,align 4
call void@llvm.memset.p0i8.i32(i8*%aM,i8 0,i32%B,i1 false)
%aQ=load i8*,i8**%c,align 8
%aR=bitcast i8*%aM to i8**
store i8*%aQ,i8**%aR,align 8
%aS=icmp eq i32%aG,0
%aT=load i8*,i8**%e,align 8
%aU=sext i32%s to i64
%aV=getelementptr inbounds i8,i8*%aM,i64%aU
br i1%aS,label%aY,label%aW
aW:
%aX=bitcast i8*%aV to i8**
store i8*%aT,i8**%aX,align 8
br label%aZ
aY:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aV,i8*%aT,i32%aL,i1 false)
br label%aZ
aZ:
%a0=sext i32%u to i64
%a1=getelementptr inbounds i8,i8*%aM,i64%a0
%a2=bitcast i8*%a1 to i32*
store i32%A,i32*%a2,align 4
%a3=load i8*,i8**%f,align 8
%a4=tail call fastcc i8*@_SMLL4loop_188(i8*inreg%a3,i8*inreg%aM)
ret i8*%a4
}
define internal fastcc i8*@_SMLLN4List5foldlE_190(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 8
%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 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**%e,align 8
%y=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%z=bitcast i8*%v to i8**
store i8*%y,i8**%z,align 8
%A=icmp eq i32%h,0
%B=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%C=getelementptr inbounds i8,i8*%v,i64 8
br i1%A,label%F,label%D
D:
%E=bitcast i8*%C to i8**
store i8*%B,i8**%E,align 8
br label%G
F:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%C,i8*%B,i32%o,i1 false)
br label%G
G:
%H=getelementptr inbounds i8,i8*%v,i64 16
%I=bitcast i8*%H to i32*
store i32%h,i32*%I,align 4
%J=getelementptr inbounds i8,i8*%v,i64 20
%K=bitcast i8*%J to i32*
store i32%o,i32*%K,align 4
%L=getelementptr inbounds i8,i8*%v,i64 24
%M=bitcast i8*%L to i32*
store i32%r,i32*%M,align 4
%N=getelementptr inbounds i8,i8*%v,i64 28
%O=bitcast i8*%N to i32*
store i32%u,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%v,i64 32
%Q=bitcast i8*%P to i32*
store i32%j,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*)*@_SMLLN4List5foldlE_189 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*)*@_SMLLN4List5foldlE_189 to void(...)*),void(...)**%Z,align 8
%aa=getelementptr inbounds i8,i8*%R,i64 24
%ab=bitcast i8*%aa to i32*
store i32 1,i32*%ab,align 4
ret i8*%R
}
define internal fastcc i8*@_SMLLN4List5foldlE_191(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(i8*(i8*,i8*)*@_SMLLN4List5foldlE_190 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*)*@_SMLLN4List5foldlE_190 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%E,i64 24
%O=bitcast i8*%N to i32*
store i32 1,i32*%O,align 4
ret i8*%E
}
define internal fastcc i8*@_SMLL4loop_194(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
o:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
store i8*%b,i8**%c,align 8
%h=load atomic i32,i32*@sml_check_flag unordered,align 4
%i=icmp eq i32%h,0
br i1%i,label%m,label%j
j:
call void@sml_check(i32 inreg%h)
%k=load i8*,i8**%c,align 8
%l=load i8*,i8**%f,align 8
br label%m
m:
%n=phi i8*[%l,%j],[%a,%o]
%p=phi i8*[%k,%j],[%b,%o]
%q=getelementptr inbounds i8,i8*%n,i64 20
%r=bitcast i8*%q to i32*
%s=load i32,i32*%r,align 4
%t=add i32%s,-1
%u=sub i32 0,%s
%v=and i32%t,%u
%w=add i32%v,%s
%x=add i32%w,7
%y=and i32%x,-8
%z=getelementptr inbounds i8,i8*%n,i64 12
%A=bitcast i8*%z to i32*
%B=load i32,i32*%A,align 4
%C=add i32%B,7
%D=sub i32 0,%B
%E=and i32%C,%D
%F=add i32%C,%E
%G=and i32%F,-8
%H=lshr i32%E,3
%I=getelementptr inbounds i8,i8*%n,i64 8
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=shl i32%K,%H
%M=or i32%L,1
%N=or i32%G,4
%O=add i32%B,-1
%P=add i32%O,%w
%Q=and i32%P,%D
%R=add i32%C,%Q
%S=and i32%R,-8
%T=lshr i32%Q,3
%U=lshr i32%v,3
%V=sub nsw i32%T,%U
%W=shl i32%K,%V
%X=getelementptr inbounds i8,i8*%n,i64 16
%Y=bitcast i8*%X to i32*
%Z=load i32,i32*%Y,align 4
%aa=or i32%W,%Z
%ab=or i32%S,4
%ac=bitcast i8*%p to i8**
%ad=load i8*,i8**%ac,align 8
%ae=icmp eq i8*%ad,null
br i1%ae,label%af,label%at
af:
%ag=icmp eq i32%K,0
br i1%ag,label%am,label%ah
ah:
%ai=sext i32%E to i64
%aj=getelementptr inbounds i8,i8*%p,i64%ai
%ak=bitcast i8*%aj to i8**
%al=load i8*,i8**%ak,align 8
ret i8*%al
am:
store i8*null,i8**%f,align 8
%an=call i8*@sml_alloc(i32 inreg%B)#0
%ao=getelementptr inbounds i8,i8*%an,i64 -4
%ap=bitcast i8*%ao to i32*
store i32%B,i32*%ap,align 4
%aq=load i8*,i8**%c,align 8
%ar=sext i32%E to i64
%as=getelementptr inbounds i8,i8*%aq,i64%ar
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%an,i8*%as,i32%B,i1 false)
ret i8*%an
at:
store i8*%ad,i8**%e,align 8
%au=icmp eq i32%Z,0
br i1%au,label%aA,label%av
av:
%aw=sext i32%v to i64
%ax=getelementptr inbounds i8,i8*%ad,i64%aw
%ay=bitcast i8*%ax to i8**
%az=load i8*,i8**%ay,align 8
br label%aL
aA:
%aB=call i8*@sml_alloc(i32 inreg%s)#0
%aC=getelementptr inbounds i8,i8*%aB,i64 -4
%aD=bitcast i8*%aC to i32*
store i32%s,i32*%aD,align 4
%aE=load i8*,i8**%e,align 8
%aF=sext i32%v to i64
%aG=getelementptr inbounds i8,i8*%aE,i64%aF
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aB,i8*%aG,i32%s,i1 false)
%aH=load i8*,i8**%f,align 8
%aI=getelementptr inbounds i8,i8*%aH,i64 8
%aJ=bitcast i8*%aI to i32*
%aK=load i32,i32*%aJ,align 4
br label%aL
aL:
%aM=phi i8*[%aH,%aA],[%n,%av]
%aN=phi i32[%aK,%aA],[%K,%av]
%aO=phi i8*[%aE,%aA],[%ad,%av]
%aP=phi i8*[%aB,%aA],[%az,%av]
store i8*%aP,i8**%d,align 8
%aQ=sext i32%y to i64
%aR=getelementptr inbounds i8,i8*%aO,i64%aQ
%aS=bitcast i8*%aR to i8**
%aT=load i8*,i8**%aS,align 8
store i8*%aT,i8**%e,align 8
%aU=icmp eq i32%aN,0
br i1%aU,label%a2,label%aV
aV:
%aW=bitcast i8*%aM to i8**
%aX=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aY=sext i32%E to i64
%aZ=getelementptr inbounds i8,i8*%aX,i64%aY
%a0=bitcast i8*%aZ to i8**
%a1=load i8*,i8**%a0,align 8
br label%bi
a2:
%a3=getelementptr inbounds i8,i8*%aM,i64 12
%a4=bitcast i8*%a3 to i32*
%a5=load i32,i32*%a4,align 4
%a6=call i8*@sml_alloc(i32 inreg%a5)#0
%a7=getelementptr inbounds i8,i8*%a6,i64 -4
%a8=bitcast i8*%a7 to i32*
store i32%a5,i32*%a8,align 4
%a9=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%ba=sext i32%E to i64
%bb=getelementptr inbounds i8,i8*%a9,i64%ba
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a6,i8*%bb,i32%a5,i1 false)
%bc=bitcast i8**%f to i8***
%bd=load i8**,i8***%bc,align 8
%be=bitcast i8**%bd to i8*
%bf=getelementptr inbounds i8*,i8**%bd,i64 1
%bg=bitcast i8**%bf to i32*
%bh=load i32,i32*%bg,align 4
br label%bi
bi:
%bj=phi i64[%ba,%a2],[%aY,%aV]
%bk=phi i32[%bh,%a2],[%aN,%aV]
%bl=phi i8*[%be,%a2],[%aM,%aV]
%bm=phi i8**[%bd,%a2],[%aW,%aV]
%bn=phi i8*[%a6,%a2],[%a1,%aV]
store i8*%bn,i8**%c,align 8
%bo=load i8*,i8**%bm,align 8
%bp=getelementptr inbounds i8,i8*%bo,i64 16
%bq=bitcast i8*%bp to i8*(i8*,i8*)**
%br=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bq,align 8
%bs=bitcast i8*%bo to i8**
%bt=load i8*,i8**%bs,align 8
store i8*%bt,i8**%g,align 8
%bu=getelementptr inbounds i8,i8*%bl,i64 12
%bv=bitcast i8*%bu to i32*
%bw=load i32,i32*%bv,align 4
%bx=call i8*@sml_alloc(i32 inreg%N)#0
%by=or i32%G,1342177280
%bz=getelementptr inbounds i8,i8*%bx,i64 -4
%bA=bitcast i8*%bz to i32*
store i32%by,i32*%bA,align 4
call void@llvm.memset.p0i8.i32(i8*%bx,i8 0,i32%N,i1 false)
%bB=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%bC=bitcast i8*%bx to i8**
store i8*%bB,i8**%bC,align 8
%bD=icmp eq i32%bk,0
%bE=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bF=getelementptr inbounds i8,i8*%bx,i64%bj
br i1%bD,label%bI,label%bG
bG:
%bH=bitcast i8*%bF to i8**
store i8*%bE,i8**%bH,align 8
br label%bJ
bI:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bF,i8*%bE,i32%bw,i1 false)
br label%bJ
bJ:
%bK=sext i32%G to i64
%bL=getelementptr inbounds i8,i8*%bx,i64%bK
%bM=bitcast i8*%bL to i32*
store i32%M,i32*%bM,align 4
%bN=load i8*,i8**%f,align 8
%bO=call fastcc i8*@_SMLL4loop_194(i8*inreg%bN,i8*inreg%bx)
store i8*%bO,i8**%c,align 8
%bP=load i8*,i8**%f,align 8
%bQ=getelementptr inbounds i8,i8*%bP,i64 20
%bR=bitcast i8*%bQ to i32*
%bS=load i32,i32*%bR,align 4
%bT=getelementptr inbounds i8,i8*%bP,i64 16
%bU=bitcast i8*%bT to i32*
%bV=load i32,i32*%bU,align 4
%bW=getelementptr inbounds i8,i8*%bP,i64 12
%bX=bitcast i8*%bW to i32*
%bY=load i32,i32*%bX,align 4
store i8*null,i8**%f,align 8
%bZ=getelementptr inbounds i8,i8*%bP,i64 8
%b0=bitcast i8*%bZ to i32*
%b1=load i32,i32*%b0,align 4
%b2=call i8*@sml_alloc(i32 inreg%ab)#0
%b3=or i32%S,1342177280
%b4=getelementptr inbounds i8,i8*%b2,i64 -4
%b5=bitcast i8*%b4 to i32*
store i32%b3,i32*%b5,align 4
call void@llvm.memset.p0i8.i32(i8*%b2,i8 0,i32%ab,i1 false)
%b6=icmp eq i32%bV,0
%b7=load i8*,i8**%d,align 8
%b8=sext i32%v to i64
%b9=getelementptr inbounds i8,i8*%b2,i64%b8
br i1%b6,label%cc,label%ca
ca:
%cb=bitcast i8*%b9 to i8**
store i8*%b7,i8**%cb,align 8
br label%cd
cc:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%b9,i8*%b7,i32%bS,i1 false)
br label%cd
cd:
%ce=icmp eq i32%b1,0
%cf=load i8*,i8**%c,align 8
%cg=sext i32%Q to i64
%ch=getelementptr inbounds i8,i8*%b2,i64%cg
br i1%ce,label%ck,label%ci
ci:
%cj=bitcast i8*%ch to i8**
store i8*%cf,i8**%cj,align 8
br label%cl
ck:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ch,i8*%cf,i32%bY,i1 false)
br label%cl
cl:
%cm=sext i32%S to i64
%cn=getelementptr inbounds i8,i8*%b2,i64%cm
%co=bitcast i8*%cn to i32*
store i32%aa,i32*%co,align 4
%cp=load i8*,i8**%g,align 8
%cq=tail call fastcc i8*%br(i8*inreg%cp,i8*inreg%b2)
ret i8*%cq
}
define internal fastcc i8*@_SMLLN4List5foldrE_195(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
m:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%k,label%i
i:
call void@sml_check(i32 inreg%g)
%j=load i8*,i8**%d,align 8
br label%k
k:
%l=phi i8*[%j,%i],[%a,%m]
%n=getelementptr inbounds i8,i8*%l,i64 20
%o=bitcast i8*%n to i32*
%p=load i32,i32*%o,align 4
%q=add i32%p,7
%r=sub i32 0,%p
%s=and i32%q,%r
%t=add i32%q,%s
%u=and i32%t,-8
%v=lshr i32%s,3
%w=getelementptr inbounds i8,i8*%l,i64 16
%x=bitcast i8*%w to i32*
%y=load i32,i32*%x,align 4
%z=shl i32%y,%v
%A=or i32%z,1
%B=or i32%u,4
%C=bitcast i8*%l to i8**
%D=load i8*,i8**%C,align 8
store i8*%D,i8**%e,align 8
%E=getelementptr inbounds i8,i8*%l,i64 24
%F=bitcast i8*%E to i32*
%G=load i32,i32*%F,align 4
%H=getelementptr inbounds i8,i8*%l,i64 28
%I=bitcast i8*%H to i32*
%J=load i32,i32*%I,align 4
%K=call i8*@sml_alloc(i32 inreg 28)#0
%L=getelementptr inbounds i8,i8*%K,i64 -4
%M=bitcast i8*%L to i32*
store i32 1342177304,i32*%M,align 4
store i8*%K,i8**%f,align 8
%N=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%O=bitcast i8*%K to i8**
store i8*%N,i8**%O,align 8
%P=getelementptr inbounds i8,i8*%K,i64 8
%Q=bitcast i8*%P to i32*
store i32%y,i32*%Q,align 4
%R=getelementptr inbounds i8,i8*%K,i64 12
%S=bitcast i8*%R to i32*
store i32%p,i32*%S,align 4
%T=getelementptr inbounds i8,i8*%K,i64 16
%U=bitcast i8*%T to i32*
store i32%G,i32*%U,align 4
%V=getelementptr inbounds i8,i8*%K,i64 20
%W=bitcast i8*%V to i32*
store i32%J,i32*%W,align 4
%X=getelementptr inbounds i8,i8*%K,i64 24
%Y=bitcast i8*%X to i32*
store i32 1,i32*%Y,align 4
%Z=call i8*@sml_alloc(i32 inreg 28)#0
%aa=getelementptr inbounds i8,i8*%Z,i64 -4
%ab=bitcast i8*%aa to i32*
store i32 1342177304,i32*%ab,align 4
%ac=load i8*,i8**%f,align 8
%ad=bitcast i8*%Z to i8**
store i8*%ac,i8**%ad,align 8
%ae=getelementptr inbounds i8,i8*%Z,i64 8
%af=bitcast i8*%ae to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_194 to void(...)*),void(...)**%af,align 8
%ag=getelementptr inbounds i8,i8*%Z,i64 16
%ah=bitcast i8*%ag to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_194 to void(...)*),void(...)**%ah,align 8
%ai=getelementptr inbounds i8,i8*%Z,i64 24
%aj=bitcast i8*%ai to i32*
store i32 1,i32*%aj,align 4
%ak=load i8*,i8**%d,align 8
%al=getelementptr inbounds i8,i8*%ak,i64 16
%am=bitcast i8*%al to i32*
%an=load i32,i32*%am,align 4
%ao=icmp eq i32%an,0
br i1%ao,label%at,label%ap
ap:
%aq=getelementptr inbounds i8,i8*%ak,i64 8
%ar=bitcast i8*%aq to i8**
%as=load i8*,i8**%ar,align 8
br label%aF
at:
%au=getelementptr inbounds i8,i8*%ak,i64 20
%av=bitcast i8*%au to i32*
%aw=load i32,i32*%av,align 4
%ax=call i8*@sml_alloc(i32 inreg%aw)#0
%ay=getelementptr inbounds i8,i8*%ax,i64 -4
%az=bitcast i8*%ay to i32*
store i32%aw,i32*%az,align 4
%aA=load i8*,i8**%d,align 8
%aB=getelementptr inbounds i8,i8*%aA,i64 8
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%ax,i8*%aB,i32%aw,i1 false)
%aC=getelementptr inbounds i8,i8*%aA,i64 16
%aD=bitcast i8*%aC to i32*
%aE=load i32,i32*%aD,align 4
br label%aF
aF:
%aG=phi i32[%aE,%at],[%an,%ap]
%aH=phi i8*[%aA,%at],[%ak,%ap]
%aI=phi i8*[%ax,%at],[%as,%ap]
store i8*%aI,i8**%e,align 8
%aJ=getelementptr inbounds i8,i8*%aH,i64 20
%aK=bitcast i8*%aJ to i32*
%aL=load i32,i32*%aK,align 4
store i8*null,i8**%d,align 8
%aM=call i8*@sml_alloc(i32 inreg%B)#0
%aN=or i32%u,1342177280
%aO=getelementptr inbounds i8,i8*%aM,i64 -4
%aP=bitcast i8*%aO to i32*
store i32%aN,i32*%aP,align 4
call void@llvm.memset.p0i8.i32(i8*%aM,i8 0,i32%B,i1 false)
%aQ=load i8*,i8**%c,align 8
%aR=bitcast i8*%aM to i8**
store i8*%aQ,i8**%aR,align 8
%aS=icmp eq i32%aG,0
%aT=load i8*,i8**%e,align 8
%aU=sext i32%s to i64
%aV=getelementptr inbounds i8,i8*%aM,i64%aU
br i1%aS,label%aY,label%aW
aW:
%aX=bitcast i8*%aV to i8**
store i8*%aT,i8**%aX,align 8
br label%aZ
aY:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aV,i8*%aT,i32%aL,i1 false)
br label%aZ
aZ:
%a0=sext i32%u to i64
%a1=getelementptr inbounds i8,i8*%aM,i64%a0
%a2=bitcast i8*%a1 to i32*
store i32%A,i32*%a2,align 4
%a3=load i8*,i8**%f,align 8
%a4=tail call fastcc i8*@_SMLL4loop_194(i8*inreg%a3,i8*inreg%aM)
ret i8*%a4
}
define internal fastcc i8*@_SMLLN4List5foldrE_196(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 8
%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 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**%e,align 8
%y=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%z=bitcast i8*%v to i8**
store i8*%y,i8**%z,align 8
%A=icmp eq i32%h,0
%B=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%C=getelementptr inbounds i8,i8*%v,i64 8
br i1%A,label%F,label%D
D:
%E=bitcast i8*%C to i8**
store i8*%B,i8**%E,align 8
br label%G
F:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%C,i8*%B,i32%o,i1 false)
br label%G
G:
%H=getelementptr inbounds i8,i8*%v,i64 16
%I=bitcast i8*%H to i32*
store i32%h,i32*%I,align 4
%J=getelementptr inbounds i8,i8*%v,i64 20
%K=bitcast i8*%J to i32*
store i32%o,i32*%K,align 4
%L=getelementptr inbounds i8,i8*%v,i64 24
%M=bitcast i8*%L to i32*
store i32%r,i32*%M,align 4
%N=getelementptr inbounds i8,i8*%v,i64 28
%O=bitcast i8*%N to i32*
store i32%u,i32*%O,align 4
%P=getelementptr inbounds i8,i8*%v,i64 32
%Q=bitcast i8*%P to i32*
store i32%j,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*)*@_SMLLN4List5foldrE_195 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*)*@_SMLLN4List5foldrE_195 to void(...)*),void(...)**%Z,align 8
%aa=getelementptr inbounds i8,i8*%R,i64 24
%ab=bitcast i8*%aa to i32*
store i32 1,i32*%ab,align 4
ret i8*%R
}
define internal fastcc i8*@_SMLLN4List5foldrE_197(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(i8*(i8*,i8*)*@_SMLLN4List5foldrE_196 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*)*@_SMLLN4List5foldrE_196 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%E,i64 24
%O=bitcast i8*%N to i32*
store i32 1,i32*%O,align 4
ret i8*%E
}
define internal fastcc i32@_SMLLN4List6existsE_200(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
j:
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
store i8*%b,i8**%e,align 8
br label%h
h:
%i=phi i8*[%an,%ai],[%c,%j]
store i8*%i,i8**%d,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%d,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
%q=load i8*,i8**%e,align 8
%r=load i8*,i8**%f,align 8
%s=getelementptr inbounds i8,i8*%r,i64 4
%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=icmp eq i8*%p,null
br i1%B,label%C,label%E
C:
%D=phi i32[0,%o],[1,%ab]
ret i32%D
E:
%F=getelementptr inbounds i8,i8*%q,i64 16
%G=bitcast i8*%F to i8*(i8*,i8*)**
%H=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%G,align 8
%I=bitcast i8*%q to i8**
%J=load i8*,i8**%I,align 8
store i8*%J,i8**%g,align 8
%K=bitcast i8*%r to i32*
%L=load i32,i32*%K,align 4
%M=icmp eq i32%L,0
br i1%M,label%S,label%N
N:
%O=sext i32%x to i64
%P=getelementptr inbounds i8,i8*%p,i64%O
%Q=bitcast i8*%P to i8**
%R=load i8*,i8**%Q,align 8
br label%ab
S:
%T=load i32,i32*%t,align 4
%U=call i8*@sml_alloc(i32 inreg%T)#0
%V=getelementptr inbounds i8,i8*%U,i64 -4
%W=bitcast i8*%V to i32*
store i32%T,i32*%W,align 4
%X=load i8*,i8**%d,align 8
%Y=sext i32%x to i64
%Z=getelementptr inbounds i8,i8*%X,i64%Y
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%U,i8*%Z,i32%T,i1 false)
%aa=load i8*,i8**%g,align 8
br label%ab
ab:
%ac=phi i8*[%J,%N],[%aa,%S]
%ad=phi i8*[%R,%N],[%U,%S]
store i8*null,i8**%g,align 8
%ae=call fastcc i8*%H(i8*inreg%ac,i8*inreg%ad)
%af=bitcast i8*%ae to i32*
%ag=load i32,i32*%af,align 4
%ah=icmp eq i32%ag,0
br i1%ah,label%ai,label%C
ai:
%aj=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ak=sext i32%A to i64
%al=getelementptr inbounds i8,i8*%aj,i64%ak
%am=bitcast i8*%al to i8**
%an=load i8*,i8**%am,align 8
br label%h
}
define internal fastcc i32@_SMLLN4List3allE_203(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
j:
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
%g=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
call void@llvm.gcroot(i8**%g,i8*null)#0
store i8*%a,i8**%f,align 8
store i8*%b,i8**%e,align 8
br label%h
h:
%i=phi i8*[%an,%ai],[%c,%j]
store i8*%i,i8**%d,align 8
%k=load atomic i32,i32*@sml_check_flag unordered,align 4
%l=icmp eq i32%k,0
br i1%l,label%o,label%m
m:
call void@sml_check(i32 inreg%k)
%n=load i8*,i8**%d,align 8
br label%o
o:
%p=phi i8*[%n,%m],[%i,%h]
%q=load i8*,i8**%e,align 8
%r=load i8*,i8**%f,align 8
%s=getelementptr inbounds i8,i8*%r,i64 4
%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=icmp eq i8*%p,null
br i1%B,label%C,label%E
C:
%D=phi i32[1,%o],[0,%ab]
ret i32%D
E:
%F=getelementptr inbounds i8,i8*%q,i64 16
%G=bitcast i8*%F to i8*(i8*,i8*)**
%H=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%G,align 8
%I=bitcast i8*%q to i8**
%J=load i8*,i8**%I,align 8
store i8*%J,i8**%g,align 8
%K=bitcast i8*%r to i32*
%L=load i32,i32*%K,align 4
%M=icmp eq i32%L,0
br i1%M,label%S,label%N
N:
%O=sext i32%x to i64
%P=getelementptr inbounds i8,i8*%p,i64%O
%Q=bitcast i8*%P to i8**
%R=load i8*,i8**%Q,align 8
br label%ab
S:
%T=load i32,i32*%t,align 4
%U=call i8*@sml_alloc(i32 inreg%T)#0
%V=getelementptr inbounds i8,i8*%U,i64 -4
%W=bitcast i8*%V to i32*
store i32%T,i32*%W,align 4
%X=load i8*,i8**%d,align 8
%Y=sext i32%x to i64
%Z=getelementptr inbounds i8,i8*%X,i64%Y
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%U,i8*%Z,i32%T,i1 false)
%aa=load i8*,i8**%g,align 8
br label%ab
ab:
%ac=phi i8*[%J,%N],[%aa,%S]
%ad=phi i8*[%R,%N],[%U,%S]
store i8*null,i8**%g,align 8
%ae=call fastcc i8*%H(i8*inreg%ac,i8*inreg%ad)
%af=bitcast i8*%ae to i32*
%ag=load i32,i32*%af,align 4
%ah=icmp eq i32%ag,0
br i1%ah,label%C,label%ai
ai:
%aj=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%ak=sext i32%A to i64
%al=getelementptr inbounds i8,i8*%aj,i64%ak
%am=bitcast i8*%al to i8**
%an=load i8*,i8**%am,align 8
br label%h
}
define internal fastcc i8*@_SMLL4loop_206(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
i:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%e,align 8
br label%g
g:
%h=phi i8*[%a3,%aV],[%b,%i]
store i8*%h,i8**%c,align 8
%j=load atomic i32,i32*@sml_check_flag unordered,align 4
%k=icmp eq i32%j,0
br i1%k,label%n,label%l
l:
call void@sml_check(i32 inreg%j)
%m=load i8*,i8**%c,align 8
br label%n
n:
%o=phi i8*[%m,%l],[%h,%g]
%p=load i8*,i8**%e,align 8
%q=getelementptr inbounds i8,i8*%p,i64 16
%r=bitcast i8*%q to i32*
%s=load i32,i32*%r,align 4
%t=add i32%s,-1
%u=sub i32 0,%s
%v=and i32%t,%u
%w=add i32%s,7
%x=add i32%w,%v
%y=and i32%x,-8
%z=add i32%y,15
%A=and i32%z,-8
%B=lshr i32%x,3
%C=lshr i32%v,3
%D=sub nsw i32%B,%C
%E=shl i32 1,%D
%F=getelementptr inbounds i8,i8*%p,i64 12
%G=bitcast i8*%F to i32*
%H=load i32,i32*%G,align 4
%I=or i32%E,%H
%J=or i32%A,4
%K=bitcast i8*%o to i32*
%L=load i32,i32*%K,align 4
%M=getelementptr inbounds i8,i8*%o,i64 8
%N=bitcast i8*%M to i8**
%O=load i8*,i8**%N,align 8
store i8*%O,i8**%d,align 8
%P=getelementptr inbounds i8,i8*%p,i64 8
%Q=bitcast i8*%P to i32*
%R=load i32,i32*%Q,align 4
%S=icmp slt i32%L,%R
br i1%S,label%al,label%T
T:
store i8*null,i8**%e,align 8
%U=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%H,i32 inreg%s)
%V=getelementptr inbounds i8,i8*%U,i64 16
%W=bitcast i8*%V to i8*(i8*,i8*)**
%X=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%W,align 8
%Y=bitcast i8*%U to i8**
%Z=load i8*,i8**%Y,align 8
store i8*%Z,i8**%c,align 8
%aa=call i8*@sml_alloc(i32 inreg 20)#0
%ab=getelementptr inbounds i8,i8*%aa,i64 -4
%ac=bitcast i8*%ab to i32*
store i32 1342177296,i32*%ac,align 4
%ad=load i8*,i8**%d,align 8
%ae=bitcast i8*%aa to i8**
store i8*%ad,i8**%ae,align 8
%af=getelementptr inbounds i8,i8*%aa,i64 8
%ag=bitcast i8*%af to i8**
store i8*null,i8**%ag,align 8
%ah=getelementptr inbounds i8,i8*%aa,i64 16
%ai=bitcast i8*%ah to i32*
store i32 3,i32*%ai,align 4
%aj=load i8*,i8**%c,align 8
%ak=tail call fastcc i8*%X(i8*inreg%aj,i8*inreg%aa)
ret i8*%ak
al:
%am=add nsw i32%L,1
%an=bitcast i8*%p to i8**
%ao=load i8*,i8**%an,align 8
%ap=getelementptr inbounds i8,i8*%ao,i64 8
%aq=bitcast i8*%ap to i8**
%ar=load i8*,i8**%aq,align 8
%as=getelementptr inbounds i8,i8*%ar,i64 16
%at=bitcast i8*%as to i8*(i8*,i8*)**
%au=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%at,align 8
%av=bitcast i8*%ar to i8**
%aw=load i8*,i8**%av,align 8
store i8*%aw,i8**%c,align 8
%ax=call i8*@sml_alloc(i32 inreg 4)#0
%ay=bitcast i8*%ax to i32*
%az=getelementptr inbounds i8,i8*%ax,i64 -4
%aA=bitcast i8*%az to i32*
store i32 4,i32*%aA,align 4
store i32%L,i32*%ay,align 4
%aB=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aC=call fastcc i8*%au(i8*inreg%aB,i8*inreg%ax)
store i8*%aC,i8**%c,align 8
%aD=load i8*,i8**%e,align 8
%aE=getelementptr inbounds i8,i8*%aD,i64 16
%aF=bitcast i8*%aE to i32*
%aG=load i32,i32*%aF,align 4
%aH=getelementptr inbounds i8,i8*%aD,i64 12
%aI=bitcast i8*%aH to i32*
%aJ=load i32,i32*%aI,align 4
%aK=call i8*@sml_alloc(i32 inreg%J)#0
%aL=or i32%A,1342177280
%aM=getelementptr inbounds i8,i8*%aK,i64 -4
%aN=bitcast i8*%aM to i32*
store i32%aL,i32*%aN,align 4
store i8*%aK,i8**%f,align 8
call void@llvm.memset.p0i8.i32(i8*%aK,i8 0,i32%J,i1 false)
%aO=icmp eq i32%aJ,0
%aP=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aQ=sext i32%v to i64
%aR=getelementptr inbounds i8,i8*%aK,i64%aQ
br i1%aO,label%aU,label%aS
aS:
%aT=bitcast i8*%aR to i8**
store i8*%aP,i8**%aT,align 8
br label%aV
aU:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%aR,i8*%aP,i32%aG,i1 false)
br label%aV
aV:
%aW=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%aX=sext i32%y to i64
%aY=getelementptr inbounds i8,i8*%aK,i64%aX
%aZ=bitcast i8*%aY to i8**
store i8*%aW,i8**%aZ,align 8
%a0=sext i32%A to i64
%a1=getelementptr inbounds i8,i8*%aK,i64%a0
%a2=bitcast i8*%a1 to i32*
store i32%I,i32*%a2,align 4
%a3=call i8*@sml_alloc(i32 inreg 20)#0
%a4=bitcast i8*%a3 to i32*
%a5=getelementptr inbounds i8,i8*%a3,i64 -4
%a6=bitcast i8*%a5 to i32*
store i32 1342177296,i32*%a6,align 4
%a7=getelementptr inbounds i8,i8*%a3,i64 4
%a8=bitcast i8*%a7 to i32*
store i32 0,i32*%a8,align 1
store i32%am,i32*%a4,align 4
%a9=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%ba=getelementptr inbounds i8,i8*%a3,i64 8
%bb=bitcast i8*%ba to i8**
store i8*%a9,i8**%bb,align 8
%bc=getelementptr inbounds i8,i8*%a3,i64 16
%bd=bitcast i8*%bc to i32*
store i32 2,i32*%bd,align 4
br label%g
}
define internal fastcc i8*@_SMLLN4List8tabulateE_209(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%g,label%i
g:
%h=bitcast i8*%b to i32*
br label%m
i:
call void@sml_check(i32 inreg%e)
%j=bitcast i8**%c to i32**
%k=load i32*,i32**%j,align 8
%l=load i8*,i8**%d,align 8
br label%m
m:
%n=phi i8*[%l,%i],[%a,%g]
%o=phi i32*[%k,%i],[%h,%g]
%p=load i32,i32*%o,align 4
%q=bitcast i8*%n to i32*
%r=load i32,i32*%q,align 4
store i8*null,i8**%d,align 8
%s=getelementptr inbounds i8,i8*%n,i64 4
%t=bitcast i8*%s to i32*
%u=load i32,i32*%t,align 4
%v=call i8*@sml_alloc(i32 inreg 28)#0
%w=getelementptr inbounds i8,i8*%v,i64 -4
%x=bitcast i8*%w to i32*
store i32 1342177304,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%p,i32*%B,align 4
%C=getelementptr inbounds i8,i8*%v,i64 12
%D=bitcast i8*%C to i32*
store i32%r,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%v,i64 16
%F=bitcast i8*%E to i32*
store i32%u,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%v,i64 24
%H=bitcast i8*%G to i32*
store i32 1,i32*%H,align 4
%I=call i8*@sml_alloc(i32 inreg 28)#0
%J=getelementptr inbounds i8,i8*%I,i64 -4
%K=bitcast i8*%J to i32*
store i32 1342177304,i32*%K,align 4
%L=load i8*,i8**%d,align 8
%M=bitcast i8*%I to i8**
store i8*%L,i8**%M,align 8
%N=getelementptr inbounds i8,i8*%I,i64 8
%O=bitcast i8*%N to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_206 to void(...)*),void(...)**%O,align 8
%P=getelementptr inbounds i8,i8*%I,i64 16
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_206 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%I,i64 24
%S=bitcast i8*%R to i32*
store i32 -2147483647,i32*%S,align 4
%T=icmp sgt i32%p,-1
br i1%T,label%am,label%U
U:
store i8*null,i8**%d,align 8
%V=load i8*,i8**@_SMLZ4Size,align 8
store i8*%V,i8**%c,align 8
%W=call i8*@sml_alloc(i32 inreg 20)#0
%X=getelementptr inbounds i8,i8*%W,i64 -4
%Y=bitcast i8*%X to i32*
store i32 1342177296,i32*%Y,align 4
store i8*%W,i8**%d,align 8
%Z=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%aa=bitcast i8*%W to i8**
store i8*%Z,i8**%aa,align 8
%ab=getelementptr inbounds i8,i8*%W,i64 8
%ac=bitcast i8*%ab to i8**
store i8*getelementptr inbounds(<{[4x i8],i32,[37x i8]}>,<{[4x i8],i32,[37x i8]}>*@m,i64 0,i32 2,i64 0),i8**%ac,align 8
%ad=getelementptr inbounds i8,i8*%W,i64 16
%ae=bitcast i8*%ad to i32*
store i32 3,i32*%ae,align 4
%af=call i8*@sml_alloc(i32 inreg 60)#0
%ag=getelementptr inbounds i8,i8*%af,i64 -4
%ah=bitcast i8*%ag to i32*
store i32 1342177336,i32*%ah,align 4
%ai=getelementptr inbounds i8,i8*%af,i64 56
%aj=bitcast i8*%ai to i32*
store i32 1,i32*%aj,align 4
%ak=load i8*,i8**%d,align 8
%al=bitcast i8*%af to i8**
store i8*%ak,i8**%al,align 8
call void@sml_raise(i8*inreg%af)#1
unreachable
am:
%an=tail call fastcc i8*@_SMLL4loop_206(i8*inreg%L,i8*inreg bitcast(i32*getelementptr inbounds(<{[4x i8],i32,i32,[4x i8],i8*,i32}>,<{[4x i8],i32,i32,[4x i8],i8*,i32}>*@l,i64 0,i32 2)to i8*))
ret i8*%an
}
define internal fastcc i32@_SMLL4loop_212(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%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=bitcast i8**%g to i8***
br label%j
j:
%k=phi i8*[%b6,%b5],[%b,%l]
store i8*%k,i8**%c,align 8
%m=load atomic i32,i32*@sml_check_flag unordered,align 4
%n=icmp eq i32%m,0
br i1%n,label%q,label%o
o:
call void@sml_check(i32 inreg%m)
%p=load i8*,i8**%c,align 8
br label%q
q:
%r=phi i8*[%p,%o],[%k,%j]
%s=load i8*,i8**%g,align 8
%t=getelementptr inbounds i8,i8*%s,i64 12
%u=bitcast i8*%t to i32*
%v=load i32,i32*%u,align 4
%w=add i32%v,-1
%x=sub i32 0,%v
%y=and i32%w,%x
%z=add i32%y,%v
%A=add i32%z,7
%B=and i32%A,-8
%C=getelementptr inbounds i8,i8*%s,i64 20
%D=bitcast i8*%C to i32*
%E=load i32,i32*%D,align 4
%F=add i32%E,-1
%G=sub i32 0,%E
%H=and i32%F,%G
%I=add i32%E,7
%J=add i32%I,%H
%K=and i32%J,-8
%L=add i32%F,%z
%M=and i32%L,%G
%N=add i32%I,%M
%O=and i32%N,-8
%P=lshr i32%M,3
%Q=lshr i32%y,3
%R=sub nsw i32%P,%Q
%S=getelementptr inbounds i8,i8*%s,i64 16
%T=bitcast i8*%S to i32*
%U=load i32,i32*%T,align 4
%V=shl i32%U,%R
%W=getelementptr inbounds i8,i8*%s,i64 8
%X=bitcast i8*%W to i32*
%Y=load i32,i32*%X,align 4
%Z=or i32%V,%Y
%aa=or i32%O,4
%ab=bitcast i8*%r to i8**
%ac=load i8*,i8**%ab,align 8
%ad=icmp eq i8*%ac,null
br i1%ad,label%ae,label%am
ae:
%af=getelementptr inbounds i8,i8*%r,i64 8
%ag=bitcast i8*%af to i8**
%ah=load i8*,i8**%ag,align 8
%ai=icmp eq i8*%ah,null
%aj=select i1%ai,i32 0,i32 2
br label%ak
ak:
%al=phi i32[%aj,%ae],[%b3,%bW],[1,%aB]
ret i32%al
am:
store i8*%ac,i8**%e,align 8
%an=icmp eq i32%Y,0
br i1%an,label%at,label%ao
ao:
%ap=sext i32%y to i64
%aq=getelementptr inbounds i8,i8*%ac,i64%ap
%ar=bitcast i8*%aq to i8**
%as=load i8*,i8**%ar,align 8
br label%aB
at:
%au=call i8*@sml_alloc(i32 inreg%v)#0
%av=getelementptr inbounds i8,i8*%au,i64 -4
%aw=bitcast i8*%av to i32*
store i32%v,i32*%aw,align 4
%ax=load i8*,i8**%e,align 8
%ay=sext i32%y to i64
%az=getelementptr inbounds i8,i8*%ax,i64%ay
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%au,i8*%az,i32%v,i1 false)
%aA=load i8*,i8**%c,align 8
br label%aB
aB:
%aC=phi i8*[%aA,%at],[%r,%ao]
%aD=phi i8*[%ax,%at],[%ac,%ao]
%aE=phi i8*[%au,%at],[%as,%ao]
store i8*%aE,i8**%d,align 8
%aF=sext i32%B to i64
%aG=getelementptr inbounds i8,i8*%aD,i64%aF
%aH=bitcast i8*%aG to i8**
%aI=load i8*,i8**%aH,align 8
store i8*%aI,i8**%e,align 8
%aJ=getelementptr inbounds i8,i8*%aC,i64 8
%aK=bitcast i8*%aJ to i8**
%aL=load i8*,i8**%aK,align 8
%aM=icmp eq i8*%aL,null
br i1%aM,label%ak,label%aN
aN:
store i8*%aL,i8**%f,align 8
%aO=load i8*,i8**%g,align 8
%aP=getelementptr inbounds i8,i8*%aO,i64 16
%aQ=bitcast i8*%aP to i32*
%aR=load i32,i32*%aQ,align 4
%aS=icmp eq i32%aR,0
br i1%aS,label%aZ,label%aT
aT:
%aU=bitcast i8*%aO to i8**
%aV=sext i32%H to i64
%aW=getelementptr inbounds i8,i8*%aL,i64%aV
%aX=bitcast i8*%aW to i8**
%aY=load i8*,i8**%aX,align 8
br label%be
aZ:
%a0=getelementptr inbounds i8,i8*%aO,i64 20
%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**%f,align 8
%a7=sext i32%H to i64
%a8=getelementptr inbounds i8,i8*%a6,i64%a7
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%a3,i8*%a8,i32%a2,i1 false)
%a9=load i8**,i8***%i,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,%aZ],[%aR,%aT]
%bg=phi i8*[%ba,%aZ],[%aO,%aT]
%bh=phi i8**[%a9,%aZ],[%aU,%aT]
%bi=phi i8*[%a6,%aZ],[%aL,%aT]
%bj=phi i8*[%a3,%aZ],[%aY,%aT]
store i8*%bj,i8**%c,align 8
%bk=sext i32%K to i64
%bl=getelementptr inbounds i8,i8*%bi,i64%bk
%bm=bitcast i8*%bl to i8**
%bn=load i8*,i8**%bm,align 8
store i8*%bn,i8**%f,align 8
%bo=load i8*,i8**%bh,align 8
%bp=getelementptr inbounds i8,i8*%bo,i64 16
%bq=bitcast i8*%bp to i8*(i8*,i8*)**
%br=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%bq,align 8
%bs=bitcast i8*%bo to i8**
%bt=load i8*,i8**%bs,align 8
store i8*%bt,i8**%h,align 8
%bu=getelementptr inbounds i8,i8*%bg,i64 12
%bv=bitcast i8*%bu to i32*
%bw=load i32,i32*%bv,align 4
%bx=getelementptr inbounds i8,i8*%bg,i64 8
%by=bitcast i8*%bx to i32*
%bz=load i32,i32*%by,align 4
%bA=getelementptr inbounds i8,i8*%bg,i64 20
%bB=bitcast i8*%bA to i32*
%bC=load i32,i32*%bB,align 4
%bD=call i8*@sml_alloc(i32 inreg%aa)#0
%bE=or i32%O,1342177280
%bF=getelementptr inbounds i8,i8*%bD,i64 -4
%bG=bitcast i8*%bF to i32*
store i32%bE,i32*%bG,align 4
call void@llvm.memset.p0i8.i32(i8*%bD,i8 0,i32%aa,i1 false)
%bH=icmp eq i32%bz,0
%bI=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%bJ=sext i32%y to i64
%bK=getelementptr inbounds i8,i8*%bD,i64%bJ
br i1%bH,label%bN,label%bL
bL:
%bM=bitcast i8*%bK to i8**
store i8*%bI,i8**%bM,align 8
br label%bO
bN:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bK,i8*%bI,i32%bw,i1 false)
br label%bO
bO:
%bP=icmp eq i32%bf,0
%bQ=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%bR=sext i32%M to i64
%bS=getelementptr inbounds i8,i8*%bD,i64%bR
br i1%bP,label%bV,label%bT
bT:
%bU=bitcast i8*%bS to i8**
store i8*%bQ,i8**%bU,align 8
br label%bW
bV:
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%bS,i8*%bQ,i32%bC,i1 false)
br label%bW
bW:
%bX=sext i32%O to i64
%bY=getelementptr inbounds i8,i8*%bD,i64%bX
%bZ=bitcast i8*%bY to i32*
store i32%Z,i32*%bZ,align 4
%b0=load i8*,i8**%h,align 8
store i8*null,i8**%h,align 8
%b1=call fastcc i8*%br(i8*inreg%b0,i8*inreg%bD)
%b2=bitcast i8*%b1 to i32*
%b3=load i32,i32*%b2,align 4
%b4=icmp eq i32%b3,0
br i1%b4,label%b5,label%ak
b5:
%b6=call i8*@sml_alloc(i32 inreg 20)#0
%b7=getelementptr inbounds i8,i8*%b6,i64 -4
%b8=bitcast i8*%b7 to i32*
store i32 1342177296,i32*%b8,align 4
%b9=load i8*,i8**%e,align 8
store i8*null,i8**%e,align 8
%ca=bitcast i8*%b6 to i8**
store i8*%b9,i8**%ca,align 8
%cb=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%cc=getelementptr inbounds i8,i8*%b6,i64 8
%cd=bitcast i8*%cc to i8**
store i8*%cb,i8**%cd,align 8
%ce=getelementptr inbounds i8,i8*%b6,i64 16
%cf=bitcast i8*%ce to i32*
store i32 3,i32*%cf,align 4
br label%j
}
define internal fastcc i32@_SMLLN4List7collateE_213(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
%f=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
call void@llvm.gcroot(i8**%f,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%c,align 8
%g=load atomic i32,i32*@sml_check_flag unordered,align 4
%h=icmp eq i32%g,0
br i1%h,label%i,label%k
i:
%j=bitcast i8*%a to i8**
br label%p
k:
call void@sml_check(i32 inreg%g)
%l=load i8*,i8**%c,align 8
%m=bitcast i8**%e to i8***
%n=load i8**,i8***%m,align 8
%o=bitcast i8**%n to i8*
br label%p
p:
%q=phi i8*[%o,%k],[%a,%i]
%r=phi i8**[%n,%k],[%j,%i]
%s=phi i8*[%l,%k],[%b,%i]
%t=bitcast i8*%s to i8**
%u=load i8*,i8**%t,align 8
store i8*%u,i8**%c,align 8
%v=getelementptr inbounds i8,i8*%s,i64 8
%w=bitcast i8*%v to i8**
%x=load i8*,i8**%w,align 8
store i8*%x,i8**%d,align 8
%y=load i8*,i8**%r,align 8
store i8*%y,i8**%f,align 8
%z=getelementptr inbounds i8*,i8**%r,i64 1
%A=bitcast i8**%z to i32*
%B=load i32,i32*%A,align 4
%C=getelementptr inbounds i8,i8*%q,i64 12
%D=bitcast i8*%C to i32*
%E=load i32,i32*%D,align 4
%F=getelementptr inbounds i8*,i8**%r,i64 2
%G=bitcast i8**%F to i32*
%H=load i32,i32*%G,align 4
store i8*null,i8**%e,align 8
%I=getelementptr inbounds i8,i8*%q,i64 20
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
%L=call i8*@sml_alloc(i32 inreg 28)#0
%M=getelementptr inbounds i8,i8*%L,i64 -4
%N=bitcast i8*%M to i32*
store i32 1342177304,i32*%N,align 4
store i8*%L,i8**%e,align 8
%O=load i8*,i8**%f,align 8
store i8*null,i8**%f,align 8
%P=bitcast i8*%L to i8**
store i8*%O,i8**%P,align 8
%Q=getelementptr inbounds i8,i8*%L,i64 8
%R=bitcast i8*%Q to i32*
store i32%B,i32*%R,align 4
%S=getelementptr inbounds i8,i8*%L,i64 12
%T=bitcast i8*%S to i32*
store i32%E,i32*%T,align 4
%U=getelementptr inbounds i8,i8*%L,i64 16
%V=bitcast i8*%U to i32*
store i32%H,i32*%V,align 4
%W=getelementptr inbounds i8,i8*%L,i64 20
%X=bitcast i8*%W to i32*
store i32%K,i32*%X,align 4
%Y=getelementptr inbounds i8,i8*%L,i64 24
%Z=bitcast i8*%Y to i32*
store i32 1,i32*%Z,align 4
%aa=call i8*@sml_alloc(i32 inreg 28)#0
%ab=getelementptr inbounds i8,i8*%aa,i64 -4
%ac=bitcast i8*%ab to i32*
store i32 1342177304,i32*%ac,align 4
%ad=load i8*,i8**%e,align 8
%ae=bitcast i8*%aa to i8**
store i8*%ad,i8**%ae,align 8
%af=getelementptr inbounds i8,i8*%aa,i64 8
%ag=bitcast i8*%af to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLL4loop_212 to void(...)*),void(...)**%ag,align 8
%ah=getelementptr inbounds i8,i8*%aa,i64 16
%ai=bitcast i8*%ah to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLL4loop_326 to void(...)*),void(...)**%ai,align 8
%aj=getelementptr inbounds i8,i8*%aa,i64 24
%ak=bitcast i8*%aj to i32*
store i32 -2147483647,i32*%ak,align 4
%al=call i8*@sml_alloc(i32 inreg 20)#0
%am=getelementptr inbounds i8,i8*%al,i64 -4
%an=bitcast i8*%am to i32*
store i32 1342177296,i32*%an,align 4
%ao=load i8*,i8**%c,align 8
%ap=bitcast i8*%al to i8**
store i8*%ao,i8**%ap,align 8
%aq=load i8*,i8**%d,align 8
%ar=getelementptr inbounds i8,i8*%al,i64 8
%as=bitcast i8*%ar to i8**
store i8*%aq,i8**%as,align 8
%at=getelementptr inbounds i8,i8*%al,i64 16
%au=bitcast i8*%at to i32*
store i32 3,i32*%au,align 4
%av=load i8*,i8**%e,align 8
%aw=tail call fastcc i32@_SMLL4loop_212(i8*inreg%av,i8*inreg%al)
ret i32%aw
}
define internal fastcc i8*@_SMLLN4List7collateE_214(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*)*@_SMLLN4List7collateE_213 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*)*@_SMLLN4List7collateE_327 to void(...)*),void(...)**%M,align 8
%N=getelementptr inbounds i8,i8*%E,i64 24
%O=bitcast i8*%N to i32*
store i32 -2147483647,i32*%O,align 4
ret i8*%E
}
define internal fastcc i32@_SMLLN4List4nullE_217(i8*inreg%a)#3 gc"smlsharp"{
%b=icmp eq i8*%a,null
%c=zext i1%b to i32
ret i32%c
}
define fastcc i8*@_SMLFN4List4nullE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
ret 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*)
}
define internal fastcc i32@_SMLLN4List6lengthE_221(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
store i8*null,i8**%e,align 8
%m=getelementptr inbounds i8,i8*%k,i64 4
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%p)
call void@llvm.gcroot(i8**%c,i8*null)#0
%q=call i8*@sml_alloc(i32 inreg 12)#0
%r=bitcast i8*%q to i32*
%s=getelementptr inbounds i8,i8*%q,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177288,i32*%t,align 4
store i8*%q,i8**%c,align 8
store i32%o,i32*%r,align 4
%u=getelementptr inbounds i8,i8*%q,i64 8
%v=bitcast i8*%u to i32*
store i32 0,i32*%v,align 4
%w=call i8*@sml_alloc(i32 inreg 28)#0
%x=getelementptr inbounds i8,i8*%w,i64 -4
%y=bitcast i8*%x to i32*
store i32 1342177304,i32*%y,align 4
%z=load i8*,i8**%c,align 8
%A=bitcast i8*%w to i8**
store i8*%z,i8**%A,align 8
%B=getelementptr inbounds i8,i8*%w,i64 8
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4List6lengthE_122 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%w,i64 16
%E=bitcast i8*%D to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6lengthE_302 to void(...)*),void(...)**%E,align 8
%F=getelementptr inbounds i8,i8*%w,i64 24
%G=bitcast i8*%F to i32*
store i32 -2147483647,i32*%G,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%p)
%H=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%I=call fastcc i8*@_SMLLN4List6lengthE_302(i8*inreg%z,i8*inreg%H)
%J=bitcast i8*%I to i32*
%K=load i32,i32*%J,align 4
ret i32%K
}
define fastcc i8*@_SMLFN4List6lengthE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4List6lengthE_221 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6lengthE_331 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List1_VE_224(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List1_VE_129 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List1_VE_129 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List1_VE_129(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List1_VE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List1_VE_224 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List1_VE_224 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List2hdE_229(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
store i8*%b,i8**%c,align 8
%d=getelementptr inbounds i8,i8*%a,i64 4
%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=icmp eq i8*%b,null
br i1%j,label%k,label%r
k:
store i8*null,i8**%c,align 8
%l=call i8*@sml_alloc(i32 inreg 60)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177336,i32*%n,align 4
%o=getelementptr inbounds i8,i8*%l,i64 56
%p=bitcast i8*%o to i32*
store i32 1,i32*%p,align 4
%q=bitcast i8*%l to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@s,i64 0,i32 2)to i8*),i8**%q,align 8
call void@sml_raise(i8*inreg%l)#1
unreachable
r:
%s=bitcast i8*%a to i32*
%t=load i32,i32*%s,align 4
%u=icmp eq i32%t,0
br i1%u,label%A,label%v
v:
%w=sext i32%i to i64
%x=getelementptr inbounds i8,i8*%b,i64%w
%y=bitcast i8*%x to i8**
%z=load i8*,i8**%y,align 8
br label%H
A:
%B=call i8*@sml_alloc(i32 inreg%f)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32%f,i32*%D,align 4
%E=load i8*,i8**%c,align 8
%F=sext i32%i to i64
%G=getelementptr inbounds i8,i8*%E,i64%F
call void@llvm.memcpy.p0i8.p0i8.i32(i8*%B,i8*%G,i32%f,i1 false)
br label%H
H:
%I=phi i8*[%z,%v],[%B,%A]
ret i8*%I
}
define fastcc i8*@_SMLFN4List2hdE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List2hdE_229 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List2hdE_229 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 1,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List2tlE_234(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=bitcast i8*%a to i32*
%d=load i32,i32*%c,align 4
%e=icmp eq i8*%b,null
br i1%e,label%f,label%m
f:
%g=tail call i8*@sml_alloc(i32 inreg 60)#0
%h=getelementptr inbounds i8,i8*%g,i64 -4
%i=bitcast i8*%h to i32*
store i32 1342177336,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%g,i64 56
%k=bitcast i8*%j to i32*
store i32 1,i32*%k,align 4
%l=bitcast i8*%g to i8**
store i8*bitcast(i8**getelementptr inbounds(<{[4x i8],i32,i8*,i8*,i32}>,<{[4x i8],i32,i8*,i8*,i32}>*@v,i64 0,i32 2)to i8*),i8**%l,align 8
tail call void@sml_raise(i8*inreg%g)#1
unreachable
m:
%n=add i32%d,-1
%o=sub i32 0,%d
%p=and i32%n,%o
%q=add i32%d,7
%r=add i32%q,%p
%s=and i32%r,-8
%t=sext i32%s to i64
%u=getelementptr inbounds i8,i8*%b,i64%t
%v=bitcast i8*%u to i8**
%w=load i8*,i8**%v,align 8
ret i8*%w
}
define fastcc i8*@_SMLFN4List2tlE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%b,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 8
%i=bitcast i8*%h to i32*
store i32 0,i32*%i,align 4
%j=call i8*@sml_alloc(i32 inreg 28)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177304,i32*%l,align 4
%m=load i8*,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List2tlE_234 to void(...)*),void(...)**%p,align 8
%q=getelementptr inbounds i8,i8*%j,i64 16
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List2tlE_234 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%j,i64 24
%t=bitcast i8*%s to i32*
store i32 -2147483647,i32*%t,align 4
ret i8*%j
}
define internal fastcc i8*@_SMLLN4List4lastE_237(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4lastE_132 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4lastE_132 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 1,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List4lastE_132(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List4lastE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4lastE_237 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4lastE_237 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 1,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List7getItemE_240(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7getItemE_137 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7getItemE_137 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List7getItemE_137(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List7getItemE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7getItemE_240 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7getItemE_240 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List3nthE_243(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3nthE_143 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3nthE_143 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 1,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List3nthE_143(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List3nthE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3nthE_243 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3nthE_243 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 1,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List4takeE_246(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4takeE_149 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4takeE_149 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List4takeE_149(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List4takeE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4takeE_246 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4takeE_246 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List4dropE_249(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
store i8*null,i8**%e,align 8
%m=getelementptr inbounds i8,i8*%k,i64 4
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%p)
call void@llvm.gcroot(i8**%c,i8*null)#0
%q=call i8*@sml_alloc(i32 inreg 12)#0
%r=bitcast i8*%q to i32*
%s=getelementptr inbounds i8,i8*%q,i64 -4
%t=bitcast i8*%s to i32*
store i32 1342177288,i32*%t,align 4
store i8*%q,i8**%c,align 8
store i32%o,i32*%r,align 4
%u=getelementptr inbounds i8,i8*%q,i64 8
%v=bitcast i8*%u to i32*
store i32 0,i32*%v,align 4
%w=call i8*@sml_alloc(i32 inreg 28)#0
%x=getelementptr inbounds i8,i8*%w,i64 -4
%y=bitcast i8*%x to i32*
store i32 1342177304,i32*%y,align 4
%z=load i8*,i8**%c,align 8
%A=bitcast i8*%w to i8**
store i8*%z,i8**%A,align 8
%B=getelementptr inbounds i8,i8*%w,i64 8
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4dropE_155 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%w,i64 16
%E=bitcast i8*%D to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4dropE_155 to void(...)*),void(...)**%E,align 8
%F=getelementptr inbounds i8,i8*%w,i64 24
%G=bitcast i8*%F to i32*
store i32 -2147483647,i32*%G,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%p)
%H=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%I=call fastcc i8*@_SMLLN4List4dropE_155(i8*inreg%z,i8*inreg%H)
ret i8*%I
}
define fastcc i8*@_SMLFN4List4dropE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4dropE_249 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4dropE_249 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List3revE_252(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%i,label%g
g:
call void@sml_check(i32 inreg%e)
%h=load i8*,i8**%d,align 8
br label%i
i:
%j=phi i8*[%h,%g],[%a,%k]
%l=bitcast i8*%j to i32*
%m=load i32,i32*%l,align 4
store i8*null,i8**%d,align 8
%n=getelementptr inbounds i8,i8*%j,i64 4
%o=bitcast i8*%n to i32*
%p=load i32,i32*%o,align 4
%q=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%m,i32 inreg%p)
%r=getelementptr inbounds i8,i8*%q,i64 16
%s=bitcast i8*%r to i8*(i8*,i8*)**
%t=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%s,align 8
%u=bitcast i8*%q to i8**
%v=load i8*,i8**%u,align 8
store i8*%v,i8**%d,align 8
%w=call i8*@sml_alloc(i32 inreg 20)#0
%x=getelementptr inbounds i8,i8*%w,i64 -4
%y=bitcast i8*%x to i32*
store i32 1342177296,i32*%y,align 4
%z=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%A=bitcast i8*%w to i8**
store i8*%z,i8**%A,align 8
%B=getelementptr inbounds i8,i8*%w,i64 8
%C=bitcast i8*%B to i8**
store i8*null,i8**%C,align 8
%D=getelementptr inbounds i8,i8*%w,i64 16
%E=bitcast i8*%D to i32*
store i32 3,i32*%E,align 4
%F=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%G=call fastcc i8*%t(i8*inreg%F,i8*inreg%w)
ret i8*%G
}
define fastcc i8*@_SMLFN4List3revE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3revE_252 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3revE_252 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List6concatE_255(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6concatE_159 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6concatE_159 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List6concatE_159(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List6concatE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6concatE_255 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6concatE_255 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List9revAppendE_258(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
k:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
call void@llvm.gcroot(i8**%d,i8*null)#0
store i8*%a,i8**%d,align 8
store i8*%b,i8**%c,align 8
%e=load atomic i32,i32*@sml_check_flag unordered,align 4
%f=icmp eq i32%e,0
br i1%f,label%i,label%g
g:
call void@sml_check(i32 inreg%e)
%h=load i8*,i8**%d,align 8
br label%i
i:
%j=phi i8*[%h,%g],[%a,%k]
%l=bitcast i8*%j to i32*
%m=load i32,i32*%l,align 4
store i8*null,i8**%d,align 8
%n=getelementptr inbounds i8,i8*%j,i64 4
%o=bitcast i8*%n to i32*
%p=load i32,i32*%o,align 4
%q=call fastcc i8*@_SMLLN4List9revAppendE_127(i32 inreg%m,i32 inreg%p)
%r=getelementptr inbounds i8,i8*%q,i64 16
%s=bitcast i8*%r to i8*(i8*,i8*)**
%t=load i8*(i8*,i8*)*,i8*(i8*,i8*)**%s,align 8
%u=bitcast i8*%q to i8**
%v=load i8*,i8**%u,align 8
%w=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%x=call fastcc i8*%t(i8*inreg%v,i8*inreg%w)
ret i8*%x
}
define fastcc i8*@_SMLFN4List9revAppendE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9revAppendE_258 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9revAppendE_258 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc void@_SMLLN4List3appE_261(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%s)
call void@llvm.gcroot(i8**%c,i8*null)#0
%t=call i8*@sml_alloc(i32 inreg 12)#0
%u=bitcast i8*%t to i32*
%v=getelementptr inbounds i8,i8*%t,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177288,i32*%w,align 4
store i8*%t,i8**%c,align 8
store i32%o,i32*%u,align 4
%x=getelementptr inbounds i8,i8*%t,i64 4
%y=bitcast i8*%x to i32*
store i32%r,i32*%y,align 4
%z=getelementptr inbounds i8,i8*%t,i64 8
%A=bitcast i8*%z to i32*
store i32 0,i32*%A,align 4
%B=call i8*@sml_alloc(i32 inreg 28)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177304,i32*%D,align 4
%E=load i8*,i8**%c,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=getelementptr inbounds i8,i8*%B,i64 8
%H=bitcast i8*%G to void(...)**
store void(...)*bitcast(void(i8*,i8*,i8*)*@_SMLLN4List3appE_162 to void(...)*),void(...)**%H,align 8
%I=getelementptr inbounds i8,i8*%B,i64 16
%J=bitcast i8*%I to void(...)**
store void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List3appE_312 to void(...)*),void(...)**%J,align 8
%K=getelementptr inbounds i8,i8*%B,i64 24
%L=bitcast i8*%K to i32*
store i32 -2147483647,i32*%L,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%s)
%M=bitcast i8**%e to i8***
%N=load i8**,i8***%M,align 8
store i8*null,i8**%e,align 8
%O=load i8*,i8**%N,align 8
%P=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%Q=call fastcc i8*@_SMLLN4List3appE_312(i8*inreg%E,i8*inreg%O,i8*inreg%P)
ret void
}
define internal fastcc i8*@_SMLLN4List3appE_262(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=call i8*@sml_alloc(i32 inreg 20)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177296,i32*%l,align 4
store i8*%j,i8**%d,align 8
%m=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to i32*
store i32%f,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%j,i64 12
%r=bitcast i8*%q to i32*
store i32%i,i32*%r,align 4
%s=getelementptr inbounds i8,i8*%j,i64 16
%t=bitcast i8*%s to i32*
store i32 1,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(void(i8*,i8*)*@_SMLLN4List3appE_261 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3appE_344 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define fastcc i8*@_SMLFN4List3appE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3appE_262 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3appE_262 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List3mapE_265(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8*%k to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%e,align 8
%u=getelementptr inbounds i8,i8*%k,i64 4
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%x)
call void@llvm.gcroot(i8**%c,i8*null)#0
%y=call i8*@sml_alloc(i32 inreg 20)#0
%z=bitcast i8*%y to i32*
%A=getelementptr inbounds i8,i8*%y,i64 -4
%B=bitcast i8*%A to i32*
store i32 1342177296,i32*%B,align 4
store i8*%y,i8**%c,align 8
store i32%o,i32*%z,align 4
%C=getelementptr inbounds i8,i8*%y,i64 4
%D=bitcast i8*%C to i32*
store i32%r,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%y,i64 8
%F=bitcast i8*%E to i32*
store i32%t,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%y,i64 12
%H=bitcast i8*%G to i32*
store i32%w,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%y,i64 16
%J=bitcast i8*%I to i32*
store i32 0,i32*%J,align 4
%K=call i8*@sml_alloc(i32 inreg 28)#0
%L=getelementptr inbounds i8,i8*%K,i64 -4
%M=bitcast i8*%L to i32*
store i32 1342177304,i32*%M,align 4
%N=load i8*,i8**%c,align 8
%O=bitcast i8*%K to i8**
store i8*%N,i8**%O,align 8
%P=getelementptr inbounds i8,i8*%K,i64 8
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3mapE_167 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%K,i64 16
%S=bitcast i8*%R to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3mapE_167 to void(...)*),void(...)**%S,align 8
%T=getelementptr inbounds i8,i8*%K,i64 24
%U=bitcast i8*%T to i32*
store i32 -2147483647,i32*%U,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%x)
%V=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%W=call fastcc i8*@_SMLLN4List3mapE_167(i8*inreg%N,i8*inreg%V)
ret i8*%W
}
define fastcc i8*@_SMLFN4List3mapE(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*)*@_SMLLN4List3mapE_265 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*)*@_SMLLN4List3mapE_265 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*@_SMLLN4List10mapPartialE_268(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8*%k to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%e,align 8
%u=getelementptr inbounds i8,i8*%k,i64 4
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%x)
call void@llvm.gcroot(i8**%c,i8*null)#0
%y=call i8*@sml_alloc(i32 inreg 20)#0
%z=bitcast i8*%y to i32*
%A=getelementptr inbounds i8,i8*%y,i64 -4
%B=bitcast i8*%A to i32*
store i32 1342177296,i32*%B,align 4
store i8*%y,i8**%c,align 8
store i32%o,i32*%z,align 4
%C=getelementptr inbounds i8,i8*%y,i64 4
%D=bitcast i8*%C to i32*
store i32%r,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%y,i64 8
%F=bitcast i8*%E to i32*
store i32%t,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%y,i64 12
%H=bitcast i8*%G to i32*
store i32%w,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%y,i64 16
%J=bitcast i8*%I to i32*
store i32 0,i32*%J,align 4
%K=call i8*@sml_alloc(i32 inreg 28)#0
%L=getelementptr inbounds i8,i8*%K,i64 -4
%M=bitcast i8*%L to i32*
store i32 1342177304,i32*%M,align 4
%N=load i8*,i8**%c,align 8
%O=bitcast i8*%K to i8**
store i8*%N,i8**%O,align 8
%P=getelementptr inbounds i8,i8*%K,i64 8
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List10mapPartialE_180 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%K,i64 16
%S=bitcast i8*%R to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List10mapPartialE_180 to void(...)*),void(...)**%S,align 8
%T=getelementptr inbounds i8,i8*%K,i64 24
%U=bitcast i8*%T to i32*
store i32 -2147483647,i32*%U,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%x)
%V=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%W=call fastcc i8*@_SMLLN4List10mapPartialE_180(i8*inreg%N,i8*inreg%V)
ret i8*%W
}
define fastcc i8*@_SMLFN4List10mapPartialE(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*)*@_SMLLN4List10mapPartialE_268 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*)*@_SMLLN4List10mapPartialE_268 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*@_SMLLN4List4findE_271(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%s)
call void@llvm.gcroot(i8**%c,i8*null)#0
%t=call i8*@sml_alloc(i32 inreg 12)#0
%u=bitcast i8*%t to i32*
%v=getelementptr inbounds i8,i8*%t,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177288,i32*%w,align 4
store i8*%t,i8**%c,align 8
store i32%o,i32*%u,align 4
%x=getelementptr inbounds i8,i8*%t,i64 4
%y=bitcast i8*%x to i32*
store i32%r,i32*%y,align 4
%z=getelementptr inbounds i8,i8*%t,i64 8
%A=bitcast i8*%z to i32*
store i32 0,i32*%A,align 4
%B=call i8*@sml_alloc(i32 inreg 28)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177304,i32*%D,align 4
%E=load i8*,i8**%c,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=getelementptr inbounds i8,i8*%B,i64 8
%H=bitcast i8*%G to void(...)**
store void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4findE_170 to void(...)*),void(...)**%H,align 8
%I=getelementptr inbounds i8,i8*%B,i64 16
%J=bitcast i8*%I to void(...)**
store void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List4findE_170 to void(...)*),void(...)**%J,align 8
%K=getelementptr inbounds i8,i8*%B,i64 24
%L=bitcast i8*%K to i32*
store i32 -2147483647,i32*%L,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%s)
%M=bitcast i8**%e to i8***
%N=load i8**,i8***%M,align 8
%O=load i8*,i8**%N,align 8
%P=load i8*,i8**%d,align 8
%Q=tail call fastcc i8*@_SMLLN4List4findE_170(i8*inreg%E,i8*inreg%O,i8*inreg%P)
ret i8*%Q
}
define internal fastcc i8*@_SMLLN4List4findE_272(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=call i8*@sml_alloc(i32 inreg 20)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177296,i32*%l,align 4
store i8*%j,i8**%d,align 8
%m=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to i32*
store i32%f,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%j,i64 12
%r=bitcast i8*%q to i32*
store i32%i,i32*%r,align 4
%s=getelementptr inbounds i8,i8*%j,i64 16
%t=bitcast i8*%s to i32*
store i32 1,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4findE_271 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4findE_271 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define fastcc i8*@_SMLFN4List4findE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4findE_272 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List4findE_272 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List6filterE_275(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6filterE_175 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6filterE_175 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List6filterE_175(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List6filterE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6filterE_275 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6filterE_275 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List9partitionE_278(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9partitionE_185 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9partitionE_185 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List9partitionE_185(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List9partitionE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9partitionE_278 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List9partitionE_278 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List5foldlE_281(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8*%k to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%e,align 8
%u=getelementptr inbounds i8,i8*%k,i64 4
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%x)
call void@llvm.gcroot(i8**%c,i8*null)#0
%y=call i8*@sml_alloc(i32 inreg 20)#0
%z=bitcast i8*%y to i32*
%A=getelementptr inbounds i8,i8*%y,i64 -4
%B=bitcast i8*%A to i32*
store i32 1342177296,i32*%B,align 4
store i8*%y,i8**%c,align 8
store i32%o,i32*%z,align 4
%C=getelementptr inbounds i8,i8*%y,i64 4
%D=bitcast i8*%C to i32*
store i32%r,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%y,i64 8
%F=bitcast i8*%E to i32*
store i32%t,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%y,i64 12
%H=bitcast i8*%G to i32*
store i32%w,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%y,i64 16
%J=bitcast i8*%I to i32*
store i32 0,i32*%J,align 4
%K=call i8*@sml_alloc(i32 inreg 28)#0
%L=getelementptr inbounds i8,i8*%K,i64 -4
%M=bitcast i8*%L to i32*
store i32 1342177304,i32*%M,align 4
%N=load i8*,i8**%c,align 8
%O=bitcast i8*%K to i8**
store i8*%N,i8**%O,align 8
%P=getelementptr inbounds i8,i8*%K,i64 8
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List5foldlE_191 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%K,i64 16
%S=bitcast i8*%R to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List5foldlE_191 to void(...)*),void(...)**%S,align 8
%T=getelementptr inbounds i8,i8*%K,i64 24
%U=bitcast i8*%T to i32*
store i32 -2147483647,i32*%U,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%x)
%V=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%W=call fastcc i8*@_SMLLN4List5foldlE_191(i8*inreg%N,i8*inreg%V)
ret i8*%W
}
define fastcc i8*@_SMLFN4List5foldlE(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*)*@_SMLLN4List5foldlE_281 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*)*@_SMLLN4List5foldlE_281 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*@_SMLLN4List5foldrE_284(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8*%k to i32*
%t=load i32,i32*%s,align 4
store i8*null,i8**%e,align 8
%u=getelementptr inbounds i8,i8*%k,i64 4
%v=bitcast i8*%u to i32*
%w=load i32,i32*%v,align 4
%x=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%x)
call void@llvm.gcroot(i8**%c,i8*null)#0
%y=call i8*@sml_alloc(i32 inreg 20)#0
%z=bitcast i8*%y to i32*
%A=getelementptr inbounds i8,i8*%y,i64 -4
%B=bitcast i8*%A to i32*
store i32 1342177296,i32*%B,align 4
store i8*%y,i8**%c,align 8
store i32%o,i32*%z,align 4
%C=getelementptr inbounds i8,i8*%y,i64 4
%D=bitcast i8*%C to i32*
store i32%r,i32*%D,align 4
%E=getelementptr inbounds i8,i8*%y,i64 8
%F=bitcast i8*%E to i32*
store i32%t,i32*%F,align 4
%G=getelementptr inbounds i8,i8*%y,i64 12
%H=bitcast i8*%G to i32*
store i32%w,i32*%H,align 4
%I=getelementptr inbounds i8,i8*%y,i64 16
%J=bitcast i8*%I to i32*
store i32 0,i32*%J,align 4
%K=call i8*@sml_alloc(i32 inreg 28)#0
%L=getelementptr inbounds i8,i8*%K,i64 -4
%M=bitcast i8*%L to i32*
store i32 1342177304,i32*%M,align 4
%N=load i8*,i8**%c,align 8
%O=bitcast i8*%K to i8**
store i8*%N,i8**%O,align 8
%P=getelementptr inbounds i8,i8*%K,i64 8
%Q=bitcast i8*%P to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List5foldrE_197 to void(...)*),void(...)**%Q,align 8
%R=getelementptr inbounds i8,i8*%K,i64 16
%S=bitcast i8*%R to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List5foldrE_197 to void(...)*),void(...)**%S,align 8
%T=getelementptr inbounds i8,i8*%K,i64 24
%U=bitcast i8*%T to i32*
store i32 -2147483647,i32*%U,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%x)
%V=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%W=call fastcc i8*@_SMLLN4List5foldrE_197(i8*inreg%N,i8*inreg%V)
ret i8*%W
}
define fastcc i8*@_SMLFN4List5foldrE(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*)*@_SMLLN4List5foldrE_284 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*)*@_SMLLN4List5foldrE_284 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@_SMLLN4List6existsE_287(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%s)
call void@llvm.gcroot(i8**%c,i8*null)#0
%t=call i8*@sml_alloc(i32 inreg 12)#0
%u=bitcast i8*%t to i32*
%v=getelementptr inbounds i8,i8*%t,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177288,i32*%w,align 4
store i8*%t,i8**%c,align 8
store i32%o,i32*%u,align 4
%x=getelementptr inbounds i8,i8*%t,i64 4
%y=bitcast i8*%x to i32*
store i32%r,i32*%y,align 4
%z=getelementptr inbounds i8,i8*%t,i64 8
%A=bitcast i8*%z to i32*
store i32 0,i32*%A,align 4
%B=call i8*@sml_alloc(i32 inreg 28)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177304,i32*%D,align 4
%E=load i8*,i8**%c,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=getelementptr inbounds i8,i8*%B,i64 8
%H=bitcast i8*%G to void(...)**
store void(...)*bitcast(i32(i8*,i8*,i8*)*@_SMLLN4List6existsE_200 to void(...)*),void(...)**%H,align 8
%I=getelementptr inbounds i8,i8*%B,i64 16
%J=bitcast i8*%I to void(...)**
store void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List6existsE_321 to void(...)*),void(...)**%J,align 8
%K=getelementptr inbounds i8,i8*%B,i64 24
%L=bitcast i8*%K to i32*
store i32 -2147483647,i32*%L,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%s)
%M=bitcast i8**%e to i8***
%N=load i8**,i8***%M,align 8
store i8*null,i8**%e,align 8
%O=load i8*,i8**%N,align 8
%P=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%Q=call fastcc i8*@_SMLLN4List6existsE_321(i8*inreg%E,i8*inreg%O,i8*inreg%P)
%R=bitcast i8*%Q to i32*
%S=load i32,i32*%R,align 4
ret i32%S
}
define internal fastcc i8*@_SMLLN4List6existsE_288(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=call i8*@sml_alloc(i32 inreg 20)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177296,i32*%l,align 4
store i8*%j,i8**%d,align 8
%m=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to i32*
store i32%f,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%j,i64 12
%r=bitcast i8*%q to i32*
store i32%i,i32*%r,align 4
%s=getelementptr inbounds i8,i8*%j,i64 16
%t=bitcast i8*%s to i32*
store i32 1,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4List6existsE_287 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6existsE_353 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define fastcc i8*@_SMLFN4List6existsE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6existsE_288 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List6existsE_288 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i32@_SMLLN4List3allE_291(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=getelementptr inbounds i8,i8*%k,i64 8
%n=bitcast i8*%m to i32*
%o=load i32,i32*%n,align 4
%p=getelementptr inbounds i8,i8*%k,i64 12
%q=bitcast i8*%p to i32*
%r=load i32,i32*%q,align 4
%s=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%s)
call void@llvm.gcroot(i8**%c,i8*null)#0
%t=call i8*@sml_alloc(i32 inreg 12)#0
%u=bitcast i8*%t to i32*
%v=getelementptr inbounds i8,i8*%t,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177288,i32*%w,align 4
store i8*%t,i8**%c,align 8
store i32%o,i32*%u,align 4
%x=getelementptr inbounds i8,i8*%t,i64 4
%y=bitcast i8*%x to i32*
store i32%r,i32*%y,align 4
%z=getelementptr inbounds i8,i8*%t,i64 8
%A=bitcast i8*%z to i32*
store i32 0,i32*%A,align 4
%B=call i8*@sml_alloc(i32 inreg 28)#0
%C=getelementptr inbounds i8,i8*%B,i64 -4
%D=bitcast i8*%C to i32*
store i32 1342177304,i32*%D,align 4
%E=load i8*,i8**%c,align 8
%F=bitcast i8*%B to i8**
store i8*%E,i8**%F,align 8
%G=getelementptr inbounds i8,i8*%B,i64 8
%H=bitcast i8*%G to void(...)**
store void(...)*bitcast(i32(i8*,i8*,i8*)*@_SMLLN4List3allE_203 to void(...)*),void(...)**%H,align 8
%I=getelementptr inbounds i8,i8*%B,i64 16
%J=bitcast i8*%I to void(...)**
store void(...)*bitcast(i8*(i8*,i8*,i8*)*@_SMLLN4List3allE_323 to void(...)*),void(...)**%J,align 8
%K=getelementptr inbounds i8,i8*%B,i64 24
%L=bitcast i8*%K to i32*
store i32 -2147483647,i32*%L,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%s)
%M=bitcast i8**%e to i8***
%N=load i8**,i8***%M,align 8
store i8*null,i8**%e,align 8
%O=load i8*,i8**%N,align 8
%P=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%Q=call fastcc i8*@_SMLLN4List3allE_323(i8*inreg%E,i8*inreg%O,i8*inreg%P)
%R=bitcast i8*%Q to i32*
%S=load i32,i32*%R,align 4
ret i32%S
}
define internal fastcc i8*@_SMLLN4List3allE_292(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=call i8*@sml_alloc(i32 inreg 20)#0
%k=getelementptr inbounds i8,i8*%j,i64 -4
%l=bitcast i8*%k to i32*
store i32 1342177296,i32*%l,align 4
store i8*%j,i8**%d,align 8
%m=load i8*,i8**%c,align 8
store i8*null,i8**%c,align 8
%n=bitcast i8*%j to i8**
store i8*%m,i8**%n,align 8
%o=getelementptr inbounds i8,i8*%j,i64 8
%p=bitcast i8*%o to i32*
store i32%f,i32*%p,align 4
%q=getelementptr inbounds i8,i8*%j,i64 12
%r=bitcast i8*%q to i32*
store i32%i,i32*%r,align 4
%s=getelementptr inbounds i8,i8*%j,i64 16
%t=bitcast i8*%s to i32*
store i32 1,i32*%t,align 4
%u=call i8*@sml_alloc(i32 inreg 28)#0
%v=getelementptr inbounds i8,i8*%u,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177304,i32*%w,align 4
%x=load i8*,i8**%d,align 8
%y=bitcast i8*%u to i8**
store i8*%x,i8**%y,align 8
%z=getelementptr inbounds i8,i8*%u,i64 8
%A=bitcast i8*%z to void(...)**
store void(...)*bitcast(i32(i8*,i8*)*@_SMLLN4List3allE_291 to void(...)*),void(...)**%A,align 8
%B=getelementptr inbounds i8,i8*%u,i64 16
%C=bitcast i8*%B to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3allE_355 to void(...)*),void(...)**%C,align 8
%D=getelementptr inbounds i8,i8*%u,i64 24
%E=bitcast i8*%D to i32*
store i32 -2147483647,i32*%E,align 4
ret i8*%u
}
define fastcc i8*@_SMLFN4List3allE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3allE_292 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List3allE_292 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List8tabulateE_295(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
store i8*null,i8**%e,align 8
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
%r=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%r)
call void@llvm.gcroot(i8**%c,i8*null)#0
%s=call i8*@sml_alloc(i32 inreg 12)#0
%t=bitcast i8*%s to i32*
%u=getelementptr inbounds i8,i8*%s,i64 -4
%v=bitcast i8*%u to i32*
store i32 1342177288,i32*%v,align 4
store i8*%s,i8**%c,align 8
store i32%n,i32*%t,align 4
%w=getelementptr inbounds i8,i8*%s,i64 4
%x=bitcast i8*%w to i32*
store i32%q,i32*%x,align 4
%y=getelementptr inbounds i8,i8*%s,i64 8
%z=bitcast i8*%y to i32*
store i32 0,i32*%z,align 4
%A=call i8*@sml_alloc(i32 inreg 28)#0
%B=getelementptr inbounds i8,i8*%A,i64 -4
%C=bitcast i8*%B to i32*
store i32 1342177304,i32*%C,align 4
%D=load i8*,i8**%c,align 8
%E=bitcast i8*%A to i8**
store i8*%D,i8**%E,align 8
%F=getelementptr inbounds i8,i8*%A,i64 8
%G=bitcast i8*%F to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List8tabulateE_209 to void(...)*),void(...)**%G,align 8
%H=getelementptr inbounds i8,i8*%A,i64 16
%I=bitcast i8*%H to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List8tabulateE_209 to void(...)*),void(...)**%I,align 8
%J=getelementptr inbounds i8,i8*%A,i64 24
%K=bitcast i8*%J to i32*
store i32 -2147483647,i32*%K,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%r)
%L=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%M=call fastcc i8*@_SMLLN4List8tabulateE_209(i8*inreg%D,i8*inreg%L)
ret i8*%M
}
define fastcc i8*@_SMLFN4List8tabulateE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List8tabulateE_295 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List8tabulateE_295 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLLN4List7collateE_298(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
l:
%c=alloca i8*,align 8
%d=alloca i8*,align 8
%e=alloca i8*,align 8
call void@llvm.gcroot(i8**%d,i8*null)#0
call void@llvm.gcroot(i8**%e,i8*null)#0
store i8*%a,i8**%e,align 8
store i8*%b,i8**%d,align 8
%f=load atomic i32,i32*@sml_check_flag unordered,align 4
%g=icmp eq i32%f,0
br i1%g,label%j,label%h
h:
call void@sml_check(i32 inreg%f)
%i=load i8*,i8**%e,align 8
br label%j
j:
%k=phi i8*[%i,%h],[%a,%l]
%m=bitcast i8*%k to i32*
%n=load i32,i32*%m,align 4
%o=getelementptr inbounds i8,i8*%k,i64 4
%p=bitcast i8*%o to i32*
%q=load i32,i32*%p,align 4
store i8*null,i8**%e,align 8
%r=load i32,i32*%p,align 4
%s=bitcast i8**%c to i8*
call void@llvm.lifetime.start.p0i8(i64 8,i8*%s)
call void@llvm.gcroot(i8**%c,i8*null)#0
%t=call i8*@sml_alloc(i32 inreg 20)#0
%u=bitcast i8*%t to i32*
%v=getelementptr inbounds i8,i8*%t,i64 -4
%w=bitcast i8*%v to i32*
store i32 1342177296,i32*%w,align 4
store i8*%t,i8**%c,align 8
store i32%n,i32*%u,align 4
%x=getelementptr inbounds i8,i8*%t,i64 4
%y=bitcast i8*%x to i32*
store i32%q,i32*%y,align 4
%z=getelementptr inbounds i8,i8*%t,i64 8
%A=bitcast i8*%z to i32*
store i32%n,i32*%A,align 4
%B=getelementptr inbounds i8,i8*%t,i64 12
%C=bitcast i8*%B to i32*
store i32%r,i32*%C,align 4
%D=getelementptr inbounds i8,i8*%t,i64 16
%E=bitcast i8*%D to i32*
store i32 0,i32*%E,align 4
%F=call i8*@sml_alloc(i32 inreg 28)#0
%G=getelementptr inbounds i8,i8*%F,i64 -4
%H=bitcast i8*%G to i32*
store i32 1342177304,i32*%H,align 4
%I=load i8*,i8**%c,align 8
%J=bitcast i8*%F to i8**
store i8*%I,i8**%J,align 8
%K=getelementptr inbounds i8,i8*%F,i64 8
%L=bitcast i8*%K to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7collateE_214 to void(...)*),void(...)**%L,align 8
%M=getelementptr inbounds i8,i8*%F,i64 16
%N=bitcast i8*%M to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7collateE_214 to void(...)*),void(...)**%N,align 8
%O=getelementptr inbounds i8,i8*%F,i64 24
%P=bitcast i8*%O to i32*
store i32 -2147483647,i32*%P,align 4
call void@llvm.lifetime.end.p0i8(i64 8,i8*%s)
%Q=load i8*,i8**%d,align 8
store i8*null,i8**%d,align 8
%R=call fastcc i8*@_SMLLN4List7collateE_214(i8*inreg%I,i8*inreg%Q)
ret i8*%R
}
define fastcc i8*@_SMLFN4List7collateE(i32 inreg%a,i32 inreg%b)#3 gc"smlsharp"{
%c=alloca i8*,align 8
call void@llvm.gcroot(i8**%c,i8*null)#0
%d=call i8*@sml_alloc(i32 inreg 12)#0
%e=bitcast i8*%d to i32*
%f=getelementptr inbounds i8,i8*%d,i64 -4
%g=bitcast i8*%f to i32*
store i32 1342177288,i32*%g,align 4
store i8*%d,i8**%c,align 8
store i32%a,i32*%e,align 4
%h=getelementptr inbounds i8,i8*%d,i64 4
%i=bitcast i8*%h to i32*
store i32%b,i32*%i,align 4
%j=getelementptr inbounds i8,i8*%d,i64 8
%k=bitcast i8*%j to i32*
store i32 0,i32*%k,align 4
%l=call i8*@sml_alloc(i32 inreg 28)#0
%m=getelementptr inbounds i8,i8*%l,i64 -4
%n=bitcast i8*%m to i32*
store i32 1342177304,i32*%n,align 4
%o=load i8*,i8**%c,align 8
%p=bitcast i8*%l to i8**
store i8*%o,i8**%p,align 8
%q=getelementptr inbounds i8,i8*%l,i64 8
%r=bitcast i8*%q to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7collateE_298 to void(...)*),void(...)**%r,align 8
%s=getelementptr inbounds i8,i8*%l,i64 16
%t=bitcast i8*%s to void(...)**
store void(...)*bitcast(i8*(i8*,i8*)*@_SMLLN4List7collateE_298 to void(...)*),void(...)**%t,align 8
%u=getelementptr inbounds i8,i8*%l,i64 24
%v=bitcast i8*%u to i32*
store i32 -2147483647,i32*%v,align 4
ret i8*%l
}
define internal fastcc i8*@_SMLL4loop_301(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLL4loop_120(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*@_SMLLN4List6lengthE_302(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4List6lengthE_122(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*@_SMLLN4List3appE_312(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
tail call fastcc void@_SMLLN4List3appE_162(i8*inreg%a,i8*inreg%b,i8*inreg%c)
%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 0,i32*%e,align 4
ret i8*%d
}
define internal fastcc i8*@_SMLLN4List6existsE_321(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
%d=tail call fastcc i32@_SMLLN4List6existsE_200(i8*inreg%a,i8*inreg%b,i8*inreg%c)
%e=tail call i8*@sml_alloc(i32 inreg 4)#0
%f=bitcast i8*%e to i32*
%g=getelementptr inbounds i8,i8*%e,i64 -4
%h=bitcast i8*%g to i32*
store i32 4,i32*%h,align 4
store i32%d,i32*%f,align 4
ret i8*%e
}
define internal fastcc i8*@_SMLLN4List3allE_323(i8*inreg%a,i8*inreg%b,i8*inreg%c)#4 gc"smlsharp"{
%d=tail call fastcc i32@_SMLLN4List3allE_203(i8*inreg%a,i8*inreg%b,i8*inreg%c)
%e=tail call i8*@sml_alloc(i32 inreg 4)#0
%f=bitcast i8*%e to i32*
%g=getelementptr inbounds i8,i8*%e,i64 -4
%h=bitcast i8*%g to i32*
store i32 4,i32*%h,align 4
store i32%d,i32*%f,align 4
ret i8*%e
}
define internal fastcc i8*@_SMLL4loop_326(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLL4loop_212(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*@_SMLLN4List7collateE_327(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4List7collateE_213(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*@_SMLLN4List4nullE_329(i8*inreg%a,i8*inreg%b)#3 gc"smlsharp"{
%c=icmp eq i8*%b,null
%d=zext i1%c to i32
%e=tail call i8*@sml_alloc(i32 inreg 4)#0
%f=bitcast i8*%e to i32*
%g=getelementptr inbounds i8,i8*%e,i64 -4
%h=bitcast i8*%g to i32*
store i32 4,i32*%h,align 4
store i32%d,i32*%f,align 4
ret i8*%e
}
define internal fastcc i8*@_SMLLN4List4nullE_330(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
ret 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*)
}
define internal fastcc i8*@_SMLLN4List6lengthE_331(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4List6lengthE_221(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*@_SMLLN4List6lengthE_332(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List6lengthE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List1_VE_333(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List1_VE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List2hdE_334(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List2hdE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List2tlE_335(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%c to i32*
%e=load i32,i32*%d,align 4
%f=tail call fastcc i8*@_SMLFN4List2tlE(i32 inreg undef,i32 inreg%e)
ret i8*%f
}
define internal fastcc i8*@_SMLLN4List4lastE_336(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List4lastE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List7getItemE_337(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List7getItemE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List3nthE_338(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List3nthE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List4takeE_339(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List4takeE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List4dropE_340(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List4dropE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List3revE_341(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List3revE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List6concatE_342(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List6concatE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List9revAppendE_343(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List9revAppendE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List3appE_344(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
tail call fastcc void@_SMLLN4List3appE_261(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*@_SMLLN4List3appE_345(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List3appE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List3mapE_346(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*@_SMLFN4List3mapE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLN4List10mapPartialE_347(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*@_SMLFN4List10mapPartialE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLN4List4findE_348(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List4findE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List6filterE_349(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List6filterE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List9partitionE_350(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List9partitionE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List5foldlE_351(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*@_SMLFN4List5foldlE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLN4List5foldrE_352(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*@_SMLFN4List5foldrE(i32 inreg%g,i32 inreg%i,i32 inreg%k,i32 inreg%m)
ret i8*%n
}
define internal fastcc i8*@_SMLLN4List6existsE_353(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4List6existsE_287(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*@_SMLLN4List6existsE_354(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List6existsE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List3allE_355(i8*inreg%a,i8*inreg%b)#4 gc"smlsharp"{
%c=tail call fastcc i32@_SMLLN4List3allE_291(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*@_SMLLN4List3allE_356(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List3allE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List8tabulateE_357(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List8tabulateE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
define internal fastcc i8*@_SMLLN4List7collateE_358(i8*inreg%a,i8*inreg%b,i8*inreg%c)#3 gc"smlsharp"{
%d=bitcast i8*%b to i32*
%e=load i32,i32*%d,align 4
%f=bitcast i8*%c to i32*
%g=load i32,i32*%f,align 4
%h=tail call fastcc i8*@_SMLFN4List7collateE(i32 inreg%e,i32 inreg%g)
ret i8*%h
}
declare void@llvm.memcpy.p0i8.p0i8.i32(i8*,i8*,i32,i1)#0
declare void@llvm.memset.p0i8.i32(i8*,i8,i32,i1)#0
declare void@llvm.memset.p0i8.i64(i8*,i8,i64,i1)#0
declare void@llvm.lifetime.start.p0i8(i64,i8*)#0
declare void@llvm.lifetime.end.p0i8(i64,i8*)#0
attributes#0={nounwind}
attributes#1={noreturn}
attributes#2={noreturn nounwind}
attributes#3={nounwind uwtable}
attributes#4={uwtable}
