wip

Author: majocha

src/Compiler/Utilities/Caches.fs

@@ -101,7 +101,7 @@ module CacheOptions =
         {
             CacheOptions.TotalCapacity = 1024
             CacheOptions.HeadroomPercentage = 50
-            CacheOptions.EvictionMode = EvictionMode.MailboxProcessor
+            CacheOptions.EvictionMode = EvictionMode.Immediate // EvictionMode.MailboxProcessor
             CacheOptions.Comparer = HashIdentity.Structural
         }
 

tests/FSharp.Test.Utilities/XunitHelpers.fs

@@ -205,10 +205,10 @@ module OneTimeSetup =
         AssemblyResolver.addResolver ()
 
         // Increase worker threads to mitigate temporary starvation from many caches with MailboxProcessors
-        let workers, iocp = ThreadPool.GetMinThreads()
-        let target = max workers (Environment.ProcessorCount * 4)
-        if target > workers then
-            ThreadPool.SetMinThreads(target, iocp) |> ignore
+        //let workers, iocp = ThreadPool.GetMinThreads()
+        //let target = max workers (Environment.ProcessorCount * 4)
+        //if target > workers then
+        //    ThreadPool.SetMinThreads(target, iocp) |> ignore
     #endif
         log "Installing TestConsole redirection"
         TestConsole.install()