Updated FCS to .NET/F# 9.0

Author: ncave

lib/fcs/FSharp.Compiler.Service.deps.json

@@ -1192,16 +1192,17 @@ let private compilationCycle (state: State) (changes: ISet<string>) =
 
                             Log.always ("Generating assembly...")
 
-                            let! (diagnostics, exitCode), ms =
+                            let! (diagnostics, result), ms =
                                 Performance.measureAsync <| fun _ -> fableCompiler.CompileToFile(dllPath)
 
                             Log.always ($"Assembly generated in {ms}ms")
 
-                            if exitCode <> 0 then
+                            match result with
+                            | Some ex ->
                                 getFSharpDiagnostics diagnostics |> logErrors cliArgs.RootDir
-
-                                return exitCode
-                            else
+                                Log.error (ex.Message)
+                                return 1
+                            | None ->
                                 Log.always ($"Saving precompiled info...")
                                 let! fableProj = fableCompiler.GetFableProject()
 

lib/fcs/FSharp.Compiler.Service.dll

@@ -342,6 +342,8 @@ let emitFormat (com: ICompiler) r t (args: Expr list) macro =
         | [ StringTempl(fmt, args); Value(NewArray(ArrayValues restArgs, _, _), _) ] ->
             (emitRawString fmt) :: args @ restArgs
         | (StringTempl(fmt, args)) :: restArgs -> (emitRawString fmt) :: args @ restArgs
+        | [ ExprTypeAs(String, str); Value(NewArray(ArrayValues restArgs, _, _), _) ] ->
+            (emitRawString "{0}") :: str :: restArgs
         | _ -> (emitRawString "{0}") :: args
 
     let unboxedArgs = args |> FSharp2Fable.Util.unboxBoxedArgs

lib/fcs/FSharp.Compiler.Service.xml

@@ -28,7 +28,7 @@ type internal FSharpSource =
     abstract TimeStamp: DateTime
 
     /// Gets the internal text container. Text may be on-disk, in a stream, or a source text.
-    abstract internal GetTextContainer: unit -> Async<TextContainer>
+    abstract GetTextContainer: unit -> Async<TextContainer>
 
 #if !FABLE_COMPILER
     /// Creates a FSharpSource from disk. Only used internally.