#if out a couple of unused variables (#14780)

* #if out a couple of unused variables * fantomas
dotnet · Feb 22, 2023 · ef9d1aa · ef9d1aa
1 parent 52bfa8c
commit ef9d1aa
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/Compiler/Driver/StaticLinking.fs b/src/Compiler/Driver/StaticLinking.fs
@@ -98,7 +98,9 @@ type TypeForwarding(tcImports: TcImports) =
 
     member _.TypeForwardILTypeRef tref = typeForwardILTypeRef tref
 
+#if !NO_TYPEPROVIDERS
 let debugStaticLinking = isEnvVarSet "FSHARP_DEBUG_STATIC_LINKING"
+#endif
 
 let StaticLinkILModules
     (
@@ -419,6 +421,7 @@ let FindDependentILModulesForStaticLinking (ctok, tcConfig: TcConfig, tcImports:
                     (n.ccu, n.data)
         ]
 
+#if !NO_TYPEPROVIDERS
 // Add all provider-generated assemblies into the static linking set
 let FindProviderGeneratedILModules (ctok, tcImports: TcImports, providerGeneratedAssemblies: (ImportedBinary * _) list) =
     [
@@ -442,6 +445,7 @@ let FindProviderGeneratedILModules (ctok, tcImports: TcImports, providerGenerate
                 (ccu, dllInfo.ILScopeRef, modul), (ilAssemRef.Name, provAssemStaticLinkInfo)
             | None -> ()
     ]
+#endif
 
 /// Split the list into left, middle and right parts at the first element satisfying 'p'. If no element matches return
 /// 'None' for the middle part.

diff --git a/src/Compiler/TypedTree/TypedTreePickle.fs b/src/Compiler/TypedTree/TypedTreePickle.fs
@@ -29,7 +29,9 @@ open FSharp.Compiler.TypedTreeBasics
 open FSharp.Compiler.TypedTreeOps
 open FSharp.Compiler.TcGlobals
 
+#if !NO_TYPEPROVIDERS
 let verbose = false
+#endif
 
 let ffailwith fileName str =
     let msg = FSComp.SR.pickleErrorReadingWritingMetadata(fileName, str)