tests+xlf

Author: KevinRansom

src/Compiler/Driver/CompilerConfig.fs

@@ -458,6 +458,7 @@ type TcConfigBuilder =
         mutable metadataVersion: string option
         mutable standalone: bool
         mutable extraStaticLinkRoots: string list
+        mutable compressMetadata: bool
         mutable noSignatureData: bool
         mutable onlyEssentialOptimizationData: bool
         mutable useOptimizationDataFile: bool
@@ -682,6 +683,7 @@ type TcConfigBuilder =
             metadataVersion = None
             standalone = false
             extraStaticLinkRoots = []
+            compressMetadata = false
             noSignatureData = false
             onlyEssentialOptimizationData = false
             useOptimizationDataFile = false
@@ -1230,6 +1232,7 @@ type TcConfig private (data: TcConfigBuilder, validate: bool) =
     member _.metadataVersion = data.metadataVersion
     member _.standalone = data.standalone
     member _.extraStaticLinkRoots = data.extraStaticLinkRoots
+    member _.compressMetadata = data.compressMetadata
     member _.noSignatureData = data.noSignatureData
     member _.onlyEssentialOptimizationData = data.onlyEssentialOptimizationData
     member _.useOptimizationDataFile = data.useOptimizationDataFile

src/Compiler/Driver/CompilerConfig.fsi

@@ -331,6 +331,8 @@ type TcConfigBuilder =
 
         mutable extraStaticLinkRoots: string list
 
+        mutable compressMetadata: bool
+
         mutable noSignatureData: bool
 
         mutable onlyEssentialOptimizationData: bool
@@ -647,6 +649,8 @@ type TcConfig =
 
     member extraStaticLinkRoots: string list
 
+    member compressMetadata: bool
+
     member noSignatureData: bool
 
     member onlyEssentialOptimizationData: bool

src/Compiler/Driver/CompilerImports.fs

@@ -154,13 +154,12 @@ let WriteSignatureData (tcConfig: TcConfig, tcGlobals, exportRemapping, ccu: Ccu
     // For historical reasons, we use a different resource name for FSharp.Core, so older F# compilers
     // don't complain when they see the resource.
     let rName, compress =
-        match tcConfig.signatureData with
-        | SignatureDataOptions.Compress -> FSharpSignatureCompressDataResourceName, true
-        | _ ->
-            if ccu.AssemblyName = getFSharpCoreLibraryName then
-                FSharpSignatureDataResourceName2, false
-            else
-                FSharpSignatureDataResourceName, false
+        if tcConfig.compressMetadata then
+            FSharpSignatureCompressDataResourceName, true
+        elif ccu.AssemblyName = getFSharpCoreLibraryName then
+            FSharpSignatureDataResourceName2, false
+        else
+            FSharpSignatureDataResourceName, false
 
     let includeDir =
         if String.IsNullOrEmpty tcConfig.implicitIncludeDir then
@@ -191,13 +190,12 @@ let WriteOptimizationData (tcConfig: TcConfig, tcGlobals, fileName, inMem, ccu:
     // For historical reasons, we use a different resource name for FSharp.Core, so older F# compilers
     // don't complain when they see the resource.
     let rName, compress =
-        match tcConfig.optimizationData with
-        | OptimizationDataOptions.Compress -> FSharpOptimizationCompressDataResourceName, true
-        | _ ->
-            if ccu.AssemblyName = getFSharpCoreLibraryName then
-                FSharpOptimizationDataResourceName2, false
-            else
-                FSharpOptimizationDataResourceName, false
+        if tcConfig.compressMetadata then
+            FSharpOptimizationCompressDataResourceName, true
+        elif ccu.AssemblyName = getFSharpCoreLibraryName then
+            FSharpOptimizationDataResourceName2, false
+        else
+            FSharpOptimizationDataResourceName, false
 
     PickleToResource inMem fileName tcGlobals compress ccu (rName + ccu.AssemblyName) Optimizer.p_CcuOptimizationInfo modulInfo
 
@@ -220,7 +218,7 @@ let EncodeOptimizationData (tcGlobals, tcConfig: TcConfig, outfile, exportRemapp
         let data = map2Of2 (Optimizer.RemapOptimizationInfo tcGlobals exportRemapping) data
 
         let ccu, optData =
-            if tcConfig.optimizationData = OptimizationDataOptions.None then
+            if tcConfig.onlyEssentialOptimizationData then
                 map2Of2 Optimizer.AbstractOptimizationInfoToEssentials data
             else
                 data

src/Compiler/Driver/CompilerOptions.fs

@@ -922,6 +922,14 @@ let outputFileFlagsFsc (tcConfigB: TcConfigBuilder) =
             Some(FSComp.SR.optsPlatform ())
         )
 
+        CompilerOption(
+            "compressmetadata",
+            tagNone,
+            OptionUnit(fun () -> tcConfigB.compressMetadata <- false),
+            None,
+            Some(FSComp.SR.optsCompressMetadata ())
+        )
+
         CompilerOption(
             "nooptimizationdata",
             tagNone,

src/Compiler/FSComp.txt

@@ -847,6 +847,7 @@ optsPublicSign,"Public-sign the assembly using only the public portion of the st
 optsWriteXml,"Write the xmldoc of the assembly to the given file"
 optsStrongKeyFile,"Specify a strong name key file"
 optsStrongKeyContainer,"Specify a strong name key container"
+optsCompressMetadata,"Compress interface and optimization data files"
 optsPlatform,"Limit which platforms this code can run on: x86, x64, Arm, Arm64, Itanium, anycpu32bitpreferred, or anycpu. The default is anycpu."
 optsNoOpt,"Only include optimization information essential for implementing inlined constructs. Inhibits cross-module inlining but improves binary compatibility."
 optsNoInterface,"Don't add a resource to the generated assembly containing F#-specific metadata"

src/Compiler/xlf/FSComp.txt.cs.xlf

@@ -472,6 +472,11 @@
         <target state="translated">Vymazat mezipaměť výsledků správce balíčků</target>
         <note />
       </trans-unit>
+      <trans-unit id="optsCompressMetadata">
+        <source>Compress interface and optimization data files</source>
+        <target state="new">Compress interface and optimization data files</target>
+        <note />
+      </trans-unit>
       <trans-unit id="optsInvalidRefAssembly">
         <source>Invalid use of emitting a reference assembly, do not use '--staticlink', or '--refonly' and '--refout' together.</source>
         <target state="translated">Neplatné použití generování referenčního sestavení, nepoužívejte --staticlink ani --refonly a --refout společně.</target>

src/Compiler/xlf/FSComp.txt.de.xlf

@@ -472,6 +472,11 @@
         <target state="translated">Löschen Sie den Ergebniscache des Paketmanagers</target>
         <note />
       </trans-unit>
+      <trans-unit id="optsCompressMetadata">
+        <source>Compress interface and optimization data files</source>
+        <target state="new">Compress interface and optimization data files</target>
+        <note />
+      </trans-unit>
       <trans-unit id="optsInvalidRefAssembly">
         <source>Invalid use of emitting a reference assembly, do not use '--staticlink', or '--refonly' and '--refout' together.</source>
         <target state="translated">Ungültige Verwendung der Ausgabe einer Referenzassembly. Verwenden Sie nicht "--staticlink" oder "--refonly" und "--refout" zusammen.</target>

src/Compiler/xlf/FSComp.txt.es.xlf

@@ -472,6 +472,11 @@
         <target state="translated">Borrar la caché de resultados del administrador de paquetes</target>
         <note />
       </trans-unit>
+      <trans-unit id="optsCompressMetadata">
+        <source>Compress interface and optimization data files</source>
+        <target state="new">Compress interface and optimization data files</target>
+        <note />
+      </trans-unit>
       <trans-unit id="optsInvalidRefAssembly">
         <source>Invalid use of emitting a reference assembly, do not use '--staticlink', or '--refonly' and '--refout' together.</source>
         <target state="translated">Uso no válido de emitir un ensamblado de referencia, no use "--staticlink', or '--refonly' and '--refout" de forma conjunta.</target>

src/Compiler/xlf/FSComp.txt.fr.xlf

@@ -472,6 +472,11 @@
         <target state="translated">Effacer le cache des résultats du Gestionnaire de package</target>
         <note />
       </trans-unit>
+      <trans-unit id="optsCompressMetadata">
+        <source>Compress interface and optimization data files</source>
+        <target state="new">Compress interface and optimization data files</target>
+        <note />
+      </trans-unit>
       <trans-unit id="optsInvalidRefAssembly">
         <source>Invalid use of emitting a reference assembly, do not use '--staticlink', or '--refonly' and '--refout' together.</source>
         <target state="translated">Utilisation non valide de l’émission d’un assembly de référence. N’utilisez pas '--staticlink' ni '--refonly' et '--refout' ensemble.</target>

src/Compiler/xlf/FSComp.txt.it.xlf

@@ -472,6 +472,11 @@
         <target state="translated">Cancellare la cache dei risultati di Gestione pacchetti</target>
         <note />
       </trans-unit>
+      <trans-unit id="optsCompressMetadata">
+        <source>Compress interface and optimization data files</source>
+        <target state="new">Compress interface and optimization data files</target>
+        <note />
+      </trans-unit>
       <trans-unit id="optsInvalidRefAssembly">
         <source>Invalid use of emitting a reference assembly, do not use '--staticlink', or '--refonly' and '--refout' together.</source>
         <target state="translated">Utilizzo non valido della creazione di un assembly di riferimento. Non usare insieme '--staticlink' o '--refonly' e '--refout'.</target>