fix regression in unit test

Author: dsyme

src/fsharp/fsc.fs

@@ -246,7 +246,7 @@ let AdjustForScriptCompile(tcConfigB:TcConfigBuilder,commandLineSourceFiles,lexR
 
     List.rev !allSources
 
-let ProcessCommandLineFlags (tcConfigB: TcConfigBuilder, argv) =
+let ProcessCommandLineFlags (tcConfigB: TcConfigBuilder, setProcessThreadLocals, lcidFromCodePage, argv) =
     let inputFilesRef   = ref ([] : string list)
     let collect name = 
         let lower = String.lowercase name
@@ -261,6 +261,13 @@ let ProcessCommandLineFlags (tcConfigB: TcConfigBuilder, argv) =
     ParseCompilerOptions (collect, GetCoreFscCompilerOptions tcConfigB, List.tail (PostProcessCompilerArgs abbrevArgs argv))
     let inputFiles = List.rev !inputFilesRef
 
+    // Check if we have a codepage from the console
+    match tcConfigB.lcid with
+    | Some _ -> ()
+    | None -> tcConfigB.lcid <- lcidFromCodePage
+
+    setProcessThreadLocals(tcConfigB)
+
     (* step - get dll references *)
     let dllFiles,sourceFiles = List.partition Filename.isDll inputFiles
     match dllFiles with
@@ -311,17 +318,10 @@ let GetTcImportsFromCommandLine
         // The ParseCompilerOptions function calls imperative function to process "real" args
         // Rather than start processing, just collect names, then process them. 
         try 
-            let sourceFiles = ProcessCommandLineFlags (tcConfigB, argv)
+            let sourceFiles = ProcessCommandLineFlags (tcConfigB, setProcessThreadLocals, lcidFromCodePage, argv)
 
             let sourceFiles = AdjustForScriptCompile(tcConfigB,sourceFiles,lexResourceManager)                     
 
-            // Check if we have a codepage from the console
-            match tcConfigB.lcid with
-            | Some _ -> ()
-            | None -> tcConfigB.lcid <- lcidFromCodePage
-
-            setProcessThreadLocals(tcConfigB)
-
             sourceFiles
 
         with e -> 

src/fsharp/fsc.fsi

@@ -30,7 +30,7 @@ type ILResource with
     member internal Bytes : byte[]
 
 /// Proccess the given set of command line arguments
-val internal ProcessCommandLineFlags : TcConfigBuilder * argv:string[] -> string list
+val internal ProcessCommandLineFlags : TcConfigBuilder * setProcessThreadLocals:(TcConfigBuilder -> unit) * lcidFromCodePage : int option * argv:string[] -> string list
 
 //---------------------------------------------------------------------------
 // The entry point used by fsc.exe