Skip to content

Commit d18e934

Browse files
edgarfgpedgarfgp
authored
Merge branch 'main' into attr-targets-opt-in-warning
2 parents 40b8196 + ff1ca8a commit d18e934

File tree

13 files changed

+182
-21
lines changed

13 files changed

+182
-21
lines changed

‎.github/workflows/add_to_project.yml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ permissions:
1616

1717
jobs:
1818
cleanup_old_runs:
19-
runs-on: ubuntu-20.04
19+
runs-on: ubuntu-latest
2020
if: github.event_name != 'pull_request_target'
2121
permissions:
2222
actions: write

‎docs/release-notes/.FSharp.Compiler.Service/10.0.100.md

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,3 +4,5 @@
44
### Fixed
55

66
* Allow `let!` and `use!` type annotations without requiring parentheses ([PR #18508](https://github.com/dotnet/fsharp/pull/18508))
7+
* Fix find all references for F# exceptions ([PR #18565](https://github.com/dotnet/fsharp/pull/18565))
8+
* Shorthand lambda: fix completion for chained calls and analysis for unfinished expression ([PR #18560](https://github.com/dotnet/fsharp/pull/18560))

‎eng/Version.Details.xml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -31,9 +31,9 @@
3131
</Dependency>
3232
</ProductDependencies>
3333
<ToolsetDependencies>
34-
<Dependency Name="Microsoft.DotNet.Arcade.Sdk" Version="9.0.0-beta.25263.5">
34+
<Dependency Name="Microsoft.DotNet.Arcade.Sdk" Version="9.0.0-beta.25266.2">
3535
<Uri>https://github.com/dotnet/arcade</Uri>
36-
<Sha>93823d49ca01742464ad1c0b49ea940e693b1be3</Sha>
36+
<Sha>c62eeb5b5432f9eaa034fbd641ccd9fd0d928fb3</Sha>
3737
</Dependency>
3838
<Dependency Name="optimization.windows_nt-x64.MIBC.Runtime" Version="1.0.0-prerelease.24462.2">
3939
<Uri>https://dev.azure.com/dnceng/internal/_git/dotnet-optimization</Uri>

‎eng/Versions.props

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,7 @@
3737
<FSharpLibrariesChangelogVersion>$(FSMajorVersion).$(FSMinorVersion).$(FSBuildVersion)</FSharpLibrariesChangelogVersion>
3838
<!-- -->
3939
<!-- The current published nuget package -->
40-
<FSharpCoreShippedPackageVersionValue>9.0.201</FSharpCoreShippedPackageVersionValue>
40+
<FSharpCoreShippedPackageVersionValue>9.0.300</FSharpCoreShippedPackageVersionValue>
4141
<!-- -->
4242
<!-- The pattern for specifying the preview package -->
4343
<FSharpCorePreviewPackageVersionValue>$(FSCorePackageVersionValue)-$(PreReleaseVersionLabel).*</FSharpCorePreviewPackageVersionValue>
@@ -52,8 +52,8 @@
5252
</PropertyGroup>
5353
<PropertyGroup>
5454
<!-- These have to be in sync with latest release branch -->
55-
<VSMajorVersion>17</VSMajorVersion>
56-
<VSMinorVersion>14</VSMinorVersion>
55+
<VSMajorVersion>18</VSMajorVersion>
56+
<VSMinorVersion>0</VSMinorVersion>
5757
<VSGeneralVersion>$(VSMajorVersion).0</VSGeneralVersion>
5858
<VSAssemblyVersionPrefix>$(VSMajorVersion).$(VSMinorVersion).0</VSAssemblyVersionPrefix>
5959
<VSAssemblyVersion>$(VSAssemblyVersionPrefix).0</VSAssemblyVersion>

‎global.json

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@
1717
"perl": "5.38.2.2"
1818
},
1919
"msbuild-sdks": {
20-
"Microsoft.DotNet.Arcade.Sdk": "9.0.0-beta.25263.5",
20+
"Microsoft.DotNet.Arcade.Sdk": "9.0.0-beta.25266.2",
2121
"Microsoft.DotNet.Helix.Sdk": "8.0.0-beta.23255.2"
2222
}
2323
}

‎src/Compiler/Service/ServiceParsedInputOps.fs

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -320,6 +320,13 @@ module ParsedInput =
320320
let _, r = CheckLongIdent longIdent
321321
Some r
322322

323+
| SynExpr.DotLambda(SynExpr.LongIdent _, range, _) -> Some range
324+
| SynExpr.DotLambda(synExpr, range, _) ->
325+
let result = traverseSynExpr synExpr
326+
327+
result
328+
|> Option.map (fun r -> if posEq r.Start synExpr.Range.Start then range else r)
329+
323330
| SynExpr.DotGet(synExpr, _dotm, lid, _) ->
324331
let (SynLongIdent(longIdent, _, _)) = lid
325332

‎src/Compiler/Symbols/Symbols.fs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -360,7 +360,8 @@ type FSharpEntity(cenv: SymbolEnv, entity: EntityRef, tyargs: TType list) =
360360
inherit FSharpSymbol(cenv,
361361
(fun () ->
362362
checkEntityIsResolved entity
363-
if entity.IsModuleOrNamespace then Item.ModuleOrNamespaces [entity]
363+
if entity.IsModuleOrNamespace then Item.ModuleOrNamespaces [entity]
364+
elif entity.IsFSharpException then Item.ExnCase entity
364365
else Item.UnqualifiedType [entity]),
365366
(fun _this thisCcu2 ad ->
366367
checkForCrossProjectAccessibility cenv.g.ilg (thisCcu2, ad) (cenv.thisCcu, getApproxFSharpAccessibilityOfEntity entity))

‎src/Compiler/SyntaxTree/SyntaxTreeOps.fs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -103,6 +103,8 @@ let rec pushUnaryArg expr arg =
103103
SynExpr.TypeApp(innerExpr, mLess, tyargs, mCommas, mGreater, mTypars, m)
104104
| SynExpr.ArbitraryAfterError(_, m) when m.Start = m.End ->
105105
SynExpr.DiscardAfterMissingQualificationAfterDot(SynExpr.Ident arg, m.StartRange, unionRanges arg.idRange m)
106+
| SynExpr.DiscardAfterMissingQualificationAfterDot(synExpr, dotRange, m) ->
107+
SynExpr.DiscardAfterMissingQualificationAfterDot(pushUnaryArg synExpr arg, dotRange, unionRanges arg.idRange m)
106108
| _ ->
107109
errorR (Error(FSComp.SR.tcDotLambdaAtNotSupportedExpression (), expr.Range))
108110
expr

‎tests/FSharp.Compiler.ComponentTests/FSharpChecker/FindReferences.fs

Lines changed: 27 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -265,6 +265,33 @@ val myFunc2: param: int -> int
265265
])
266266
}
267267

268+
module Exceptions =
269+
let project() = SyntheticProject.Create(
270+
{ sourceFile "First" [] with ExtraSource = "exception MyException of string" },
271+
{ sourceFile "Second" [] with ExtraSource = """
272+
open ModuleFirst
273+
let foo x = raise (MyException "foo")""" })
274+
275+
[<Fact>]
276+
let ``We find exception from definition`` () =
277+
project().Workflow {
278+
placeCursor "First" 6 21 "exception MyException of string" ["MyException"]
279+
findAllReferences (expectToFind [
280+
"FileFirst.fs", 6, 10, 21
281+
"FileSecond.fs", 8, 19, 30
282+
])
283+
}
284+
285+
[<Fact>]
286+
let ``We find exception from usage`` () =
287+
project().Workflow {
288+
placeCursor "Second" 8 30 "raise (MyException \"foo\")" ["MyException"]
289+
findAllReferences (expectToFind [
290+
"FileFirst.fs", 6, 10, 21
291+
"FileSecond.fs", 8, 19, 30
292+
])
293+
}
294+
268295
module Attributes =
269296

270297
let project() = SyntheticProject.Create(

‎tests/FSharp.Compiler.ComponentTests/Language/DotLambdaTests.fs

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -105,6 +105,17 @@ let myFunction (x:MyRecord) = x |> _.DoStuff 1 2 3"""
105105
Error 72, Line 4, Col 36, Line 4, Col 45, "Lookup on object of indeterminate type based on information prior to this program point. A type annotation may be needed prior to this program point to constrain the type of the object. This may allow the lookup to be resolved."
106106
]
107107

108+
[<Fact>]
109+
let ``Underscore Dot Lambda - Missing qualification after dot`` () =
110+
Fsx """
111+
"" |> _.Length. """
112+
|> withLangVersion80
113+
|> typecheck
114+
|> shouldFail
115+
|> withDiagnostics [
116+
Error 599, Line 2, Col 15, Line 2, Col 16, "Missing qualification after '.'"
117+
]
118+
108119
[<Fact>]
109120
let ``Underscore Dot Length on string`` () =
110121
Fsx """

‎tests/FSharp.Compiler.Service.Tests/CompletionTests.fs

Lines changed: 120 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -78,29 +78,140 @@ let record = { Field = 1 }
7878
assertHasItemWithNames ["Field"; "record"] info
7979

8080
[<Fact>]
81-
let ``Underscore dot lambda - completion`` () =
81+
let ``Underscore dot lambda - completion 01`` () =
8282
let info = getCompletionInfo """
83-
let myFancyFunc (x:string) =
84-
x
85-
|> _.Len{caret}"""
83+
"" |> _.Len{caret}"""
84+
85+
assertHasItemWithNames ["Length"] info
86+
87+
[<Fact>]
88+
let ``Underscore dot lambda - completion 02`` () =
89+
let info = getCompletionInfo """
90+
System.DateTime.Now |> _.TimeOfDay.Mill{caret}"""
91+
92+
assertHasItemWithNames ["Milliseconds"] info
93+
94+
[<Fact>]
95+
let ``Underscore dot lambda - completion 03`` () =
96+
let info = getCompletionInfo """
97+
"" |> _.ToString().Len{caret}"""
98+
99+
assertHasItemWithNames ["Length"] info
100+
101+
[<Fact>]
102+
let ``Underscore dot lambda - completion 04`` () =
103+
let info = getCompletionInfo """
104+
"" |> _.Len{caret}gth.ToString()"""
105+
106+
assertHasItemWithNames ["Length"] info
107+
108+
[<Fact>]
109+
let ``Underscore dot lambda - completion 05`` () =
110+
let info = getCompletionInfo """
111+
"" |> _.Length.ToString().Chars("".Len{caret})"""
112+
86113
assertHasItemWithNames ["Length"] info
87114

88115
[<Fact>]
89-
let ``Underscore dot lambda - method completion`` () =
116+
let ``Underscore dot lambda - completion 06`` () =
117+
let info = getCompletionInfo """
118+
"" |> _.Chars(System.DateTime.UtcNow.Tic{caret}).ToString()"""
119+
120+
assertHasItemWithNames ["Ticks"] info
121+
122+
[<Fact>]
123+
let ``Underscore dot lambda - completion 07`` () =
124+
let info = getCompletionInfo """
125+
"" |> _.Length.ToString().Len{caret}"""
126+
127+
assertHasItemWithNames ["Length"] info
128+
129+
[<Fact>]
130+
let ``Underscore dot lambda - completion 08`` () =
131+
let info = getCompletionInfo """
132+
System.DateTime.Now |> _.TimeOfDay
133+
.Mill{caret}"""
134+
135+
assertHasItemWithNames ["Milliseconds"] info
136+
137+
[<Fact>]
138+
let ``Underscore dot lambda - completion 09`` () =
139+
let info = getCompletionInfo """
140+
"" |> _.Length.ToSt{caret}.Length"""
141+
142+
assertHasItemWithNames ["ToString"] info
143+
144+
[<Fact>]
145+
let ``Underscore dot lambda - completion 10`` () =
146+
let info = getCompletionInfo """
147+
"" |> _.Chars(0).ToStr{caret}.Length"""
148+
149+
assertHasItemWithNames ["ToString"] info
150+
151+
[<Fact>]
152+
let ``Underscore dot lambda - completion 11`` () =
153+
let info = getCompletionInfo """
154+
open System.Linq
155+
156+
[[""]] |> _.Select(_.Head.ToL{caret})"""
157+
158+
assertHasItemWithNames ["ToLower"] info
159+
160+
[<Fact>]
161+
let ``Underscore dot lambda - completion 12`` () =
162+
let info = getCompletionInfo """
163+
open System.Linq
164+
165+
[[[""]]] |> _.Head.Select(_.Head.ToL{caret})"""
166+
167+
assertHasItemWithNames ["ToLower"] info
168+
169+
[<Fact>]
170+
let ``Underscore dot lambda - completion 13`` () =
90171
let info = getCompletionInfo """
91-
let myFancyFunc (x:string) =
92-
x
172+
let myFancyFunc (x:string) =
173+
x
93174
|> _.ToL{caret}"""
94175
assertHasItemWithNames ["ToLower"] info
95176

96177
[<Fact>]
97-
let ``Underscore dot lambda - No prefix`` () =
178+
let ``Underscore dot lambda - completion 14`` () =
179+
let info = getCompletionInfo """
180+
let myFancyFunc (x:System.DateTime) =
181+
x
182+
|> _.TimeOfDay.Mill{caret}
183+
|> id"""
184+
assertHasItemWithNames ["Milliseconds"] info
185+
186+
[<Fact>]
187+
let ``Underscore dot lambda - completion 15`` () =
188+
let info = getCompletionInfo """
189+
let _a = 5
190+
"" |> _{caret}.Length.ToString() """
191+
assertHasItemWithNames ["_a"] info
192+
193+
[<Fact>]
194+
let ``Underscore dot lambda - No prefix 01`` () =
98195
let info = getCompletionInfo """
99196
let s = ""
100-
[s] |> List.map _.{caret}
197+
[s] |> List.map _.{caret}
101198
"""
102199
assertHasItemWithNames ["Length"] info
103200

201+
[<Fact>]
202+
let ``Underscore dot lambda - No prefix 02`` () =
203+
let info = getCompletionInfo """
204+
System.DateTime.Now |> _.TimeOfDay.{caret}"""
205+
206+
assertHasItemWithNames ["Milliseconds"] info
207+
208+
[<Fact>]
209+
let ``Underscore dot lambda - No prefix 03`` () =
210+
let info = getCompletionInfo """
211+
"" |> _.Length.ToString().{caret}"""
212+
213+
assertHasItemWithNames ["Length"] info
214+
104215
[<Fact>]
105216
let ``Type decl - Record - Field type 01`` () =
106217
let info = getCompletionInfo """

‎tests/ILVerify/ilverify_FSharp.Compiler.Service_Debug_netstandard2.0.bsl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -34,13 +34,13 @@
3434
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$FSharpCheckerResults+dataTipOfReferences@2225::Invoke([FSharp.Core]Microsoft.FSharp.Core.Unit)][offset 0x00000084][found Char] Unexpected type on the stack.
3535
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.AssemblyContent+traverseMemberFunctionAndValues@176::Invoke([FSharp.Compiler.Service]FSharp.Compiler.Symbols.FSharpMemberOrFunctionOrValue)][offset 0x00000059][found Char] Unexpected type on the stack.
3636
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.AssemblyContent+traverseEntity@218::GenerateNext([S.P.CoreLib]System.Collections.Generic.IEnumerable`1<FSharp.Compiler.EditorServices.AssemblySymbol>&)][offset 0x000000DA][found Char] Unexpected type on the stack.
37-
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.ParsedInput+visitor@1424-6::VisitExpr([FSharp.Core]Microsoft.FSharp.Collections.FSharpList`1<FSharp.Compiler.Syntax.SyntaxNode>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Compiler.Service]FSharp.Compiler.Syntax.SynExpr)][offset 0x00000605][found Char] Unexpected type on the stack.
37+
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.ParsedInput+visitor@1431-6::VisitExpr([FSharp.Core]Microsoft.FSharp.Collections.FSharpList`1<FSharp.Compiler.Syntax.SyntaxNode>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Compiler.Service]FSharp.Compiler.Syntax.SynExpr)][offset 0x00000605][found Char] Unexpected type on the stack.
3838
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-509::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x00000032][found Char] Unexpected type on the stack.
3939
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-509::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x0000003B][found Char] Unexpected type on the stack.
4040
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-509::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x00000082][found Char] Unexpected type on the stack.
4141
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-509::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x0000008B][found Char] Unexpected type on the stack.
4242
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-509::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x00000094][found Char] Unexpected type on the stack.
43-
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$Symbols+fullName@2495-1::Invoke([FSharp.Core]Microsoft.FSharp.Core.Unit)][offset 0x00000015][found Char] Unexpected type on the stack.
43+
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$Symbols+fullName@2496-1::Invoke([FSharp.Core]Microsoft.FSharp.Core.Unit)][offset 0x00000015][found Char] Unexpected type on the stack.
4444
[IL]: Error [StackUnexpected]: : FSharp.Compiler.CreateILModule+MainModuleBuilder::ConvertProductVersionToILVersionInfo(string)][offset 0x00000011][found Char] Unexpected type on the stack.
4545
[IL]: Error [StackUnexpected]: : FSharp.Compiler.StaticLinking+TypeForwarding::followTypeForwardForILTypeRef([FSharp.Compiler.Service]FSharp.Compiler.AbstractIL.IL+ILTypeRef)][offset 0x00000010][found Char] Unexpected type on the stack.
4646
[IL]: Error [StackUnexpected]: : FSharp.Compiler.CompilerOptions::getCompilerOption([FSharp.Compiler.Service]FSharp.Compiler.CompilerOptions+CompilerOption, [FSharp.Core]Microsoft.FSharp.Core.FSharpOption`1<int32>)][offset 0x000000E6][found Char] Unexpected type on the stack.

‎tests/ILVerify/ilverify_FSharp.Compiler.Service_Release_netstandard2.0.bsl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -33,13 +33,13 @@
3333
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$FSharpCheckerResults+GetReferenceResolutionStructuredToolTipText@2225::Invoke([FSharp.Core]Microsoft.FSharp.Core.Unit)][offset 0x00000076][found Char] Unexpected type on the stack.
3434
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.AssemblyContent+traverseMemberFunctionAndValues@176::Invoke([FSharp.Compiler.Service]FSharp.Compiler.Symbols.FSharpMemberOrFunctionOrValue)][offset 0x0000002B][found Char] Unexpected type on the stack.
3535
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.AssemblyContent+traverseEntity@218::GenerateNext([S.P.CoreLib]System.Collections.Generic.IEnumerable`1<FSharp.Compiler.EditorServices.AssemblySymbol>&)][offset 0x000000BB][found Char] Unexpected type on the stack.
36-
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.ParsedInput+visitor@1424-11::VisitExpr([FSharp.Core]Microsoft.FSharp.Collections.FSharpList`1<FSharp.Compiler.Syntax.SyntaxNode>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Compiler.Service]FSharp.Compiler.Syntax.SynExpr)][offset 0x00000620][found Char] Unexpected type on the stack.
36+
[IL]: Error [StackUnexpected]: : FSharp.Compiler.EditorServices.ParsedInput+visitor@1431-11::VisitExpr([FSharp.Core]Microsoft.FSharp.Collections.FSharpList`1<FSharp.Compiler.Syntax.SyntaxNode>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<FSharp.Compiler.Syntax.SynExpr,Microsoft.FSharp.Core.FSharpOption`1<FSharp.Compiler.EditorServices.CompletionContext>>, [FSharp.Compiler.Service]FSharp.Compiler.Syntax.SynExpr)][offset 0x00000620][found Char] Unexpected type on the stack.
3737
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-530::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x00000032][found Char] Unexpected type on the stack.
3838
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-530::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x0000003B][found Char] Unexpected type on the stack.
3939
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-530::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x00000064][found Char] Unexpected type on the stack.
4040
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-530::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x0000006D][found Char] Unexpected type on the stack.
4141
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$ServiceLexing+clo@922-530::Invoke([FSharp.Core]Microsoft.FSharp.Core.FSharpFunc`2<System.Tuple`3<FSharp.Compiler.Parser+token,int32,int32>,Microsoft.FSharp.Core.Unit>)][offset 0x00000076][found Char] Unexpected type on the stack.
42-
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$Symbols+fullName@2495-3::Invoke([FSharp.Core]Microsoft.FSharp.Core.Unit)][offset 0x00000030][found Char] Unexpected type on the stack.
42+
[IL]: Error [StackUnexpected]: : <StartupCode$FSharp-Compiler-Service>.$Symbols+fullName@2496-3::Invoke([FSharp.Core]Microsoft.FSharp.Core.Unit)][offset 0x00000030][found Char] Unexpected type on the stack.
4343
[IL]: Error [StackUnexpected]: : FSharp.Compiler.Driver+ProcessCommandLineFlags@286-1::Invoke(string)][offset 0x0000000B][found Char] Unexpected type on the stack.
4444
[IL]: Error [StackUnexpected]: : FSharp.Compiler.Driver+ProcessCommandLineFlags@286-1::Invoke(string)][offset 0x00000014][found Char] Unexpected type on the stack.
4545
[IL]: Error [StackUnexpected]: : FSharp.Compiler.CreateILModule+MainModuleBuilder::ConvertProductVersionToILVersionInfo(string)][offset 0x00000010][found Char] Unexpected type on the stack.

0 commit comments

Comments
 (0)