changes

Author: safesparrow

tests/FSharp.Compiler.Service.Tests2/GraphProcessing.fs

@@ -128,6 +128,7 @@ let processGraph<'Item, 'State, 'Result when 'Item : equality>
             |> lookupMany
             |> Array.filter (fun x -> 
                 let pdc =
+                    // TODO Not ideal, better ways most likely exist
                     lock x (fun () ->
                         x.ProcessedDepsCount <- x.ProcessedDepsCount + 1
                         x.ProcessedDepsCount
@@ -136,8 +137,9 @@ let processGraph<'Item, 'State, 'Result when 'Item : equality>
             )
         unblocked
 
+    
     use cts = new CancellationTokenSource()
-     
+    
     Parallel.processInParallel
         leaves
         work

tests/FSharp.Compiler.Service.Tests2/ParallelTypeChecking.fs

@@ -6,6 +6,7 @@ open FSharp.Compiler.Service.Tests.Types
 type FileGraph = Graph<File>
 
 let calcFileGraph (files : SourceFiles) : FileGraph =
+    // TODO Use DepResolving.fs
     failwith ""
 
 // TODO Use real things
@@ -18,7 +19,7 @@ let typeCheckFile (file : File) (state : State) : SingleResult
     file.Idx.Idx
 
 // TODO Use the real thing
-let folder (state : string) (result : int) =
+let folder (state : State) (result : SingleResult) =
     $"{state}+{result}"
 
 // TODO We probably need to return partial results as well

tests/FSharp.Compiler.Service.Tests2/Tests/RunCompiler.fs

@@ -5,6 +5,7 @@ open FSharp.Compiler.Service.Tests.Graph
 open NUnit.Framework
 
 [<Test>]
+[<Explicit>]
 let runCompiler () =
     let args =
         System.IO.File.ReadAllLines(@"C:\projekty\fsharp\heuristic\tests\FSharp.Compiler.Service.Tests2\args.txt") |> Array.skip 1

tests/FSharp.Compiler.Service.Tests2/Tests/TestASTVisit.fs

@@ -39,7 +39,6 @@ let ``Top level stuff extraction`` () =
     let parseResults = 
         getParseResults
             """
-
 module A1 = let a = 3
 module A2 = let a = 3
 module A3 = let a = 3
@@ -70,12 +69,13 @@ module B =
             Y : A4.Y
         }
 
-let c = A4.a
-let d = A4.A1.a
-open A4
-let e = A1.a
-open A1
-let f = a
+module LetBindings =
+    let c = A4.a
+    let d = A4.A1.a
+    open A4
+    let e = A1.a
+    open A1
+    let f = a
 """
 
     let stuff = findModuleAndTypeRefs parseResults

tests/FSharp.Compiler.Service.Tests2/Utils.fs

@@ -14,4 +14,4 @@ type FileIdx =
     with
         member this.Idx = match this with FileIdx idx -> idx
         override this.ToString() = this.Idx.ToString()
-        static member make (idx : int) = FileIdx idx 
+        static member make (idx : int) = FileIdx idx