Skip to content

Commit ef9d1aa

Browse files
authored
#if out a couple of unused variables (#14780)
* #if out a couple of unused variables * fantomas
1 parent 52bfa8c commit ef9d1aa

File tree

2 files changed

+6
-0
lines changed

2 files changed

+6
-0
lines changed

src/Compiler/Driver/StaticLinking.fs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -98,7 +98,9 @@ type TypeForwarding(tcImports: TcImports) =
9898

9999
member _.TypeForwardILTypeRef tref = typeForwardILTypeRef tref
100100

101+
#if !NO_TYPEPROVIDERS
101102
let debugStaticLinking = isEnvVarSet "FSHARP_DEBUG_STATIC_LINKING"
103+
#endif
102104

103105
let StaticLinkILModules
104106
(
@@ -419,6 +421,7 @@ let FindDependentILModulesForStaticLinking (ctok, tcConfig: TcConfig, tcImports:
419421
(n.ccu, n.data)
420422
]
421423

424+
#if !NO_TYPEPROVIDERS
422425
// Add all provider-generated assemblies into the static linking set
423426
let FindProviderGeneratedILModules (ctok, tcImports: TcImports, providerGeneratedAssemblies: (ImportedBinary * _) list) =
424427
[
@@ -442,6 +445,7 @@ let FindProviderGeneratedILModules (ctok, tcImports: TcImports, providerGenerate
442445
(ccu, dllInfo.ILScopeRef, modul), (ilAssemRef.Name, provAssemStaticLinkInfo)
443446
| None -> ()
444447
]
448+
#endif
445449

446450
/// Split the list into left, middle and right parts at the first element satisfying 'p'. If no element matches return
447451
/// 'None' for the middle part.

src/Compiler/TypedTree/TypedTreePickle.fs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,9 @@ open FSharp.Compiler.TypedTreeBasics
2929
open FSharp.Compiler.TypedTreeOps
3030
open FSharp.Compiler.TcGlobals
3131

32+
#if !NO_TYPEPROVIDERS
3233
let verbose = false
34+
#endif
3335

3436
let ffailwith fileName str =
3537
let msg = FSComp.SR.pickleErrorReadingWritingMetadata(fileName, str)

0 commit comments

Comments
 (0)