Skip to content

Commit 5ebaeee

Browse files
KevinRansomKevinRansom
committed
tests
1 parent b09ef19 commit 5ebaeee

File tree

114 files changed

+11911
-5614
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

114 files changed

+11911
-5614
lines changed

‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction01.fs.il.bsl renamed to ‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction01.fs.OptimizeOff.il.bsl

File renamed without changes.

‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction01.fs.OptimizeOn.il.bsl

Lines changed: 85 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,85 @@
1+
2+
3+
4+
5+
6+
.assembly extern runtime { }
7+
.assembly extern FSharp.Core { }
8+
.assembly extern netstandard
9+
{
10+
.publickeytoken = (CC 7B 13 FF CD 2D DD 51 )
11+
.ver 2:1:0:0
12+
}
13+
.assembly assembly
14+
{
15+
.custom instance void [FSharp.Core]Microsoft.FSharp.Core.FSharpInterfaceDataVersionAttribute::.ctor(int32,
16+
int32,
17+
int32) = ( 01 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 )
18+
19+
20+
21+
22+
.hash algorithm 0x00008004
23+
.ver 0:0:0:0
24+
}
25+
.module assembly.exe
26+
27+
.imagebase {value}
28+
.file alignment 0x00000200
29+
.stackreserve 0x00100000
30+
.subsystem 0x0003
31+
.corflags 0x00000001
32+
33+
34+
35+
36+
37+
.class public abstract auto ansi sealed assembly
38+
extends [runtime]System.Object
39+
{
40+
.custom instance void [FSharp.Core]Microsoft.FSharp.Core.CompilationMappingAttribute::.ctor(valuetype [FSharp.Core]Microsoft.FSharp.Core.SourceConstructFlags) = ( 01 00 07 00 00 00 00 00 )
41+
.method public static int32 TestFunction1() cil managed
42+
{
43+
44+
.maxstack 4
45+
.locals init (class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit> V_0)
46+
IL_0000: ldstr "Hello"
47+
IL_0005: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
48+
IL_000a: stloc.0
49+
IL_000b: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
50+
IL_0010: ldloc.0
51+
IL_0011: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
52+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
53+
IL_0016: pop
54+
IL_0017: ldstr "World"
55+
IL_001c: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
56+
IL_0021: stloc.0
57+
IL_0022: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
58+
IL_0027: ldloc.0
59+
IL_0028: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
60+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
61+
IL_002d: pop
62+
IL_002e: ldc.i4.7
63+
IL_002f: ret
64+
}
65+
66+
}
67+
68+
.class private abstract auto ansi sealed '<StartupCode$assembly>'.$assembly
69+
extends [runtime]System.Object
70+
{
71+
.method public static void main@() cil managed
72+
{
73+
.entrypoint
74+
75+
.maxstack 8
76+
IL_0000: ret
77+
}
78+
79+
}
80+
81+
82+
83+
84+
85+

‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction02.fs.il.bsl renamed to ‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction02.fs.OptimizeOff.il.bsl

File renamed without changes.

‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction02.fs.OptimizeOn.il.bsl

Lines changed: 112 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,112 @@
1+
2+
3+
4+
5+
6+
.assembly extern runtime { }
7+
.assembly extern FSharp.Core { }
8+
.assembly extern netstandard
9+
{
10+
.publickeytoken = (CC 7B 13 FF CD 2D DD 51 )
11+
.ver 2:1:0:0
12+
}
13+
.assembly assembly
14+
{
15+
.custom instance void [FSharp.Core]Microsoft.FSharp.Core.FSharpInterfaceDataVersionAttribute::.ctor(int32,
16+
int32,
17+
int32) = ( 01 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 )
18+
19+
20+
21+
22+
.hash algorithm 0x00008004
23+
.ver 0:0:0:0
24+
}
25+
.module assembly.exe
26+
27+
.imagebase {value}
28+
.file alignment 0x00000200
29+
.stackreserve 0x00100000
30+
.subsystem 0x0003
31+
.corflags 0x00000001
32+
33+
34+
35+
36+
37+
.class public abstract auto ansi sealed assembly
38+
extends [runtime]System.Object
39+
{
40+
.custom instance void [FSharp.Core]Microsoft.FSharp.Core.CompilationMappingAttribute::.ctor(valuetype [FSharp.Core]Microsoft.FSharp.Core.SourceConstructFlags) = ( 01 00 07 00 00 00 00 00 )
41+
.method public static int32 TestFunction1() cil managed
42+
{
43+
44+
.maxstack 4
45+
.locals init (class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit> V_0)
46+
IL_0000: ldstr "Hello"
47+
IL_0005: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
48+
IL_000a: stloc.0
49+
IL_000b: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
50+
IL_0010: ldloc.0
51+
IL_0011: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
52+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
53+
IL_0016: pop
54+
IL_0017: ldstr "World"
55+
IL_001c: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
56+
IL_0021: stloc.0
57+
IL_0022: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
58+
IL_0027: ldloc.0
59+
IL_0028: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
60+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
61+
IL_002d: pop
62+
IL_002e: ldc.i4.7
63+
IL_002f: ret
64+
}
65+
66+
.method public static void TestFunction2() cil managed
67+
{
68+
69+
.maxstack 4
70+
.locals init (int32 V_0,
71+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit> V_1)
72+
IL_0000: call int32 assembly::TestFunction1()
73+
IL_0005: stloc.0
74+
IL_0006: ldstr "Hello"
75+
IL_000b: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
76+
IL_0010: stloc.1
77+
IL_0011: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
78+
IL_0016: ldloc.1
79+
IL_0017: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
80+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
81+
IL_001c: pop
82+
IL_001d: ldstr "World"
83+
IL_0022: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
84+
IL_0027: stloc.1
85+
IL_0028: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
86+
IL_002d: ldloc.1
87+
IL_002e: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
88+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
89+
IL_0033: pop
90+
IL_0034: ret
91+
}
92+
93+
}
94+
95+
.class private abstract auto ansi sealed '<StartupCode$assembly>'.$assembly
96+
extends [runtime]System.Object
97+
{
98+
.method public static void main@() cil managed
99+
{
100+
.entrypoint
101+
102+
.maxstack 8
103+
IL_0000: ret
104+
}
105+
106+
}
107+
108+
109+
110+
111+
112+

‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction03.fs.il.net472.bsl renamed to ‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction03.fs.OptimizeOff.il.bsl

File renamed without changes.

‎tests/FSharp.Compiler.ComponentTests/EmittedIL/TestFunctions/TestFunction03.fs.OptimizeOn.il.bsl

Lines changed: 126 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,126 @@
1+
2+
3+
4+
5+
6+
.assembly extern runtime { }
7+
.assembly extern FSharp.Core { }
8+
.assembly extern netstandard
9+
{
10+
.publickeytoken = (CC 7B 13 FF CD 2D DD 51 )
11+
.ver 2:1:0:0
12+
}
13+
.assembly assembly
14+
{
15+
.custom instance void [FSharp.Core]Microsoft.FSharp.Core.FSharpInterfaceDataVersionAttribute::.ctor(int32,
16+
int32,
17+
int32) = ( 01 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 )
18+
19+
20+
21+
22+
.hash algorithm 0x00008004
23+
.ver 0:0:0:0
24+
}
25+
.module assembly.exe
26+
27+
.imagebase {value}
28+
.file alignment 0x00000200
29+
.stackreserve 0x00100000
30+
.subsystem 0x0003
31+
.corflags 0x00000001
32+
33+
34+
35+
36+
37+
.class public abstract auto ansi sealed assembly
38+
extends [runtime]System.Object
39+
{
40+
.custom instance void [FSharp.Core]Microsoft.FSharp.Core.CompilationMappingAttribute::.ctor(valuetype [FSharp.Core]Microsoft.FSharp.Core.SourceConstructFlags) = ( 01 00 07 00 00 00 00 00 )
41+
.method public static int32 TestFunction1() cil managed
42+
{
43+
44+
.maxstack 4
45+
.locals init (class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit> V_0)
46+
IL_0000: ldstr "Hello"
47+
IL_0005: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
48+
IL_000a: stloc.0
49+
IL_000b: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
50+
IL_0010: ldloc.0
51+
IL_0011: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
52+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
53+
IL_0016: pop
54+
IL_0017: ldstr "World"
55+
IL_001c: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
56+
IL_0021: stloc.0
57+
IL_0022: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
58+
IL_0027: ldloc.0
59+
IL_0028: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
60+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
61+
IL_002d: pop
62+
IL_002e: ldc.i4.7
63+
IL_002f: ret
64+
}
65+
66+
.method public static void TestFunction3() cil managed
67+
{
68+
69+
.maxstack 4
70+
.locals init (int32 V_0,
71+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit> V_1,
72+
class [runtime]System.Exception V_2)
73+
.try
74+
{
75+
IL_0000: nop
76+
IL_0001: call int32 assembly::TestFunction1()
77+
IL_0006: stloc.0
78+
IL_0007: ldstr "Hello"
79+
IL_000c: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
80+
IL_0011: stloc.1
81+
IL_0012: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
82+
IL_0017: ldloc.1
83+
IL_0018: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
84+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
85+
IL_001d: pop
86+
IL_001e: leave.s IL_003f
87+
88+
}
89+
catch [runtime]System.Object
90+
{
91+
IL_0020: castclass [runtime]System.Exception
92+
IL_0025: stloc.2
93+
IL_0026: ldstr "World"
94+
IL_002b: newobj instance void class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`5<class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>::.ctor(string)
95+
IL_0030: stloc.1
96+
IL_0031: call class [netstandard]System.IO.TextWriter [netstandard]System.Console::get_Out()
97+
IL_0036: ldloc.1
98+
IL_0037: call !!0 [FSharp.Core]Microsoft.FSharp.Core.PrintfModule::PrintFormatLineToTextWriter<class [FSharp.Core]Microsoft.FSharp.Core.Unit>(class [runtime]System.IO.TextWriter,
99+
class [FSharp.Core]Microsoft.FSharp.Core.PrintfFormat`4<!!0,class [runtime]System.IO.TextWriter,class [FSharp.Core]Microsoft.FSharp.Core.Unit,class [FSharp.Core]Microsoft.FSharp.Core.Unit>)
100+
IL_003c: pop
101+
IL_003d: leave.s IL_003f
102+
103+
}
104+
IL_003f: ret
105+
}
106+
107+
}
108+
109+
.class private abstract auto ansi sealed '<StartupCode$assembly>'.$assembly
110+
extends [runtime]System.Object
111+
{
112+
.method public static void main@() cil managed
113+
{
114+
.entrypoint
115+
116+
.maxstack 8
117+
IL_0000: ret
118+
}
119+
120+
}
121+
122+
123+
124+
125+
126+

0 commit comments

Comments
 (0)