FSharpSymbol.ImplementationLocation points to definition in FSI file across multiple projects

[vasily-kirichenko]

File1.fsi

namespace Lib2
type TypeWithSignature = 
    { Field1: int }

File1.fs

namespace Lib2
type TypeWithSignature = 
    { Field1: int }

Library1.fs in different project

open Lib2
let x = { Field1 = 1 }

FSharpSymbolUse.Symbol for Field1 in Library1.fs has identical DeclarationLocation, ImplementationLocation and SignatureLocation:

This bug makes it very hard to implement this VFPT feature: fsprojects-archive/zzarchive-VisualFSharpPowerTools#1351

[7sharp9]

Yeah Ive got annoyed by that at times, jumping to the fsi is annoying

[dsyme]

Added a fix - next time you could probably have got this one :)

[vasily-kirichenko]

I tried #548 and the bug is still here:

[dsyme]

Ah, I hadn't tried the multi-project case. Well, the PR fixed a real bug in any case :)

The cross-project case may not be that easily fixable, since the F# metadata propagated between projects has only space for one range, see https://github.com/fsharp/FSharp.Compiler.Service/blob/master/src/fsharp/TastPickle.fs#L1975 for example.

When compiling a set of related projects using FCS in a single multi-project graph it's possible that we can propagate the extra information in a lookaside table of some kind.

[vasily-kirichenko]

It does not work for all cases even within single project.

Symbol returned in fs file (ok):

Symbol returned for the same symbol in fsi file (wrong):

[dsyme]

Thanks

I believe it works correctly for results from whole project analysis using ParseAndCheckProject - at least that is under test and appears to work.

I assume the above signature symbols are just from checking a single signature file using ParseAndCheckFileInProject? That case is also tricky, since as things are done now the corresponding matching implementation file is not checked for the single file, so the matching implementation location is not even known. I'm not sure what to do about this, it feels like it needs an API addition.

The locations should be correct for results from GetBackgroundCheckResultsForFileInProject if you first ask for the results for the implementation file, and then the signature file.

[vasily-kirichenko]

Thanks.
OK, I wrote this code:

let (|SignatureFile|_|) file = 
    if Path.GetExtension file = ".fsi" then
        let implFile = Path.ChangeExtension(file, ".fs")
        if File.Exists implFile then Some implFile else None
    else None

let! results = 
    match currentFile with
    // it's signature file and the impl file presents
    | SignatureFile implementationFile ->
        async {
            let source = 
                openDocumentsTracker.TryGetDocumentText implementationFile 
                |> Option.getOrTry (fun _ -> File.ReadAllText implemen
            // check impl file
            let! _ = instance.ParseAndCheckFileInProject(opts, implementationFile, source, stale)
            // check sig file
            let! _ = instance.ParseAndCheckFileInProject(opts, currentFile, source, stale)
            // get background check results for sig file
            return! instance.GetBackgroundCheckResultsForFileInProject(opts, currentFile)
        }
    // this is how it previously works
    | _ -> instance.ParseAndCheckFileInProject(opts, currentFile, source, stale) 
    |> liftAsync

When I try results.GetSymbolUseAtLocation, it returns None. However, results.GetAllUsesOfAllSymbolsInFile returns the proper symbol use:

Maybe GetSymbolUseAtLocation uses ImplementationLocation hence None?