No inlining for FSharp.Core

Author: ncave

fcs/fcs-fable/test/Platform.fs

@@ -1,7 +1,5 @@
 module Fable.Compiler.Platform
 
-let __dirname = "."
-
 #if DOTNET_FILE_SYSTEM && !FABLE_COMPILER
 
 open System.IO

fcs/fcs-fable/test/ProjectParser.fs

@@ -112,7 +112,7 @@ let parseProjectFile projectPath =
         |> Seq.toArray
 
     // replace some variables
-    let projectText = projectText.Replace(@"$(MSBuildProjectDirectory)", __dirname)
+    let projectText = projectText.Replace(@"$(MSBuildProjectDirectory)", ".")
     let m = Regex.Match(projectText, @"<FSharpSourcesRoot[^>]*>([^<]*)<\/FSharpSourcesRoot[^>]*>")
     let sourcesRoot = if m.Success then m.Groups.[1].Value.Replace("\\", "/") else ""
     let projectText = projectText.Replace(@"$(FSharpSourcesRoot)", sourcesRoot)

src/fsharp/Optimizer.fs

@@ -552,6 +552,11 @@ let TryGetInfoForNonLocalEntityRef env (nleref: NonLocalEntityRef) =
 let GetInfoForNonLocalVal cenv env (vref:ValRef) =
     if vref.IsDispatchSlot then 
         UnknownValInfo
+#if FABLE_COMPILER
+    // no inlining for FSharp.Core
+    elif vref.ToString().Contains("FSharp.Core.") then 
+        UnknownValInfo
+#endif
     // REVIEW: optionally turn x-module on/off on per-module basis  or  
     elif  cenv.settings.crossModuleOpt () || vref.MustInline then 
         match TryGetInfoForNonLocalEntityRef env vref.nlr.EnclosingEntity.nlr with
@@ -2425,7 +2430,12 @@ and OptimizeVal cenv env expr (v:ValRef, m) =
            e, AddValEqualityInfo cenv.g m v einfo 
 
     | None -> 
-       if v.MustInline  then error(Error(FSComp.SR.optFailedToInlineValue(v.DisplayName), m))
+       if v.MustInline 
+#if FABLE_COMPILER
+            // no inlining for FSharp.Core
+            && not (v.ToString().Contains("FSharp.Core."))
+#endif
+       then error(Error(FSComp.SR.optFailedToInlineValue(v.DisplayName), m))
        expr, (AddValEqualityInfo cenv.g m v 
                     { Info=valInfoForVal.ValExprInfo 
                       HasEffect=false