#if!FX_NO_PDB_READER

| None-> None

| Some pdbpath->

letpev= pefile.GetView()

letpeSignaturePhysLoc= seekReadInt32 pev0x3c

#if FX_NO_PDB_READER

letpdb= ignorepdbPath; None

letpdb= ignorepdbDirPath; None

if runningOnMonothen

None

getPdbReaderpdbPath fileName

getPdbReaderpdbDirPath fileName

letpeinfo=(subsys,(subsysMajor, subsysMinor), useHighEnthropyVA, ilOnly, only32, is32bitpreferred, only64, platform, isDll, alignVirt, alignPhys, imageBaseReal)

(metadataPhysLoc, metadataSize, peinfo, pectxt, pev, pdb)

let(metadataPhysLoc,_metadataSize,peinfo,pectxt,pev,pdb)= openPEFileReader(fileName, pefile,pdbPath)

let(metadataPhysLoc,_metadataSize,peinfo,pectxt,pev,pdb)= openPEFileReader(fileName, pefile,pdbDirPath)

letilModule,ilAssemblyRefs= openMetadataReader(fileName, pefile, metadataPhysLoc, peinfo, pectxt, pev, Some pectxt, reduceMemoryUsage, ilGlobals)

ilModule, ilAssemblyRefs, pdb

typeReduceMemoryFlag= Yes| No

ilGlobals:ILGlobals

reduceMemoryUsage:ReduceMemoryFlag

metadataOnly:MetadataOnlyFlag

letpefile= ByteFile(fileName, bytes):> BinaryFile

letilModule,ilAssemblyRefs,pdb= openPE(fileName, pefile, opts.pdbPath,(opts.reduceMemoryUsage= ReduceMemoryFlag.Yes), opts.ilGlobals)

letilModule,ilAssemblyRefs,pdb= openPE(fileName, pefile, opts.pdbDirPath,(opts.reduceMemoryUsage= ReduceMemoryFlag.Yes), opts.ilGlobals)

new ILModuleReader(ilModule, ilAssemblyRefs,(fun()-> ClosePdbReader pdb))

letfullPath= FileSystem.GetFullPathShim(fileName)

letwriteTime= FileSystem.GetLastWriteTimeShim(fileName)

letkey= ILModuleReaderCacheKey(fullPath, writeTime, opts.ilGlobals.primaryAssemblyScopeRef, opts.pdbPath.IsSome, opts.reduceMemoryUsage, opts.metadataOnly)

letkey= ILModuleReaderCacheKey(fullPath, writeTime, opts.ilGlobals.primaryAssemblyScopeRef, opts.pdbDirPath.IsSome, opts.reduceMemoryUsage, opts.metadataOnly)

key,true

with exn->

System.Diagnostics.Debug.Assert(false, sprintf"Failed to compute key in OpenILModuleReader cache for '%s'. Falling back to uncached. Error =%s" fileName(exn.ToString()))

if keyOkthen

if opts.pdbPath.IsSomethen None// can't used a cached entry when reading PDBs, since it makes the returned object IDisposable

if opts.pdbDirPath.IsSomethen None// can't used a cached entry when reading PDBs, since it makes the returned object IDisposable

else ilModuleReaderCacheLock.AcquireLock(fun ltok-> ilModuleReaderCache.TryGet(ltok, key))

None

letreduceMemoryUsage=(opts.reduceMemoryUsage= ReduceMemoryFlag.Yes)

letmetadataOnly=(opts.metadataOnly= MetadataOnlyFlag.Yes)

if reduceMemoryUsage&& opts.pdbPath.IsNonethen

if reduceMemoryUsage&& opts.pdbDirPath.IsNonethen

letdisposer={new IDisposablewithmember__.Dispose()=()}

disposer, pefile

letilModule,ilAssemblyRefs,pdb= openPE(fullPath, pefile, opts.pdbPath, reduceMemoryUsage, opts.ilGlobals)

letilModule,ilAssemblyRefs,pdb= openPE(fullPath, pefile, opts.pdbDirPath, reduceMemoryUsage, opts.ilGlobals)

letilModuleReader=new ILModuleReader(ilModule, ilAssemblyRefs,(fun()-> ClosePdbReader pdb))

if keyOk&& opts.pdbPath.IsNonethen

if keyOk&& opts.pdbDirPath.IsNonethen

ilModuleReaderCacheLock.AcquireLock(fun ltok-> ilModuleReaderCache.Put(ltok, key, ilModuleReader))

ilModuleReader

typeinternalReduceMemoryFlag= Yes| No

ilGlobals:ILGlobals

ri, fileNameOfPath ri, ILResourceAccess.Public

{ ilGlobals= ilGlobals

metadataOnly= MetadataOnlyFlag.Yes

reduceMemoryUsage= reduceMemoryUsage

tryGetMetadataSnapshot= tryGetMetadataSnapshot}

| Some aref-> aref

| None->

{pdbPath=None

{pdbDirPath=None

ilGlobals= EcmaMscorlibILGlobals

reduceMemoryUsage= reduceMemoryUsage

metadataOnly= MetadataOnlyFlag.Yes

{ ilGlobals= g.ilg

reduceMemoryUsage= tcConfig.reduceMemoryUsage

pdbPath= None

pdbDirPath= None

metadataOnly= MetadataOnlyFlag.Yes

tryGetMetadataSnapshot= tcConfig.tryGetMetadataSnapshot}

letreader= OpenILModuleReaderFromBytes fileName bytes opts

CheckDisposed()

lettcConfig= tcConfigP.Get(ctok)

if tcConfig.openDebugInformationForLaterStaticLinkingthen

letpdbDir=(try Filename.directoryName filenamewith_->".")

letpdbFile=(try Filename.chopExtension filenamewith_-> filename)+".pdb"

if FileSystem.SafeExists pdbFilethen

letpdbDir=try Filename.directoryName filenamewith_->"."

letpdbFile=(try Filename.chopExtension filenamewith_-> filename)+".pdb"

if FileSystem.SafeExists(pdbFile)then

if verbosethen dprintf"reading PDB file%s from directory%s\n" pdbFile pdbDir

Some pdbDir

None

None

None

letilILBinaryReader= OpenILBinary(filename, tcConfig.reduceMemoryUsage, ilGlobalsOpt,pdbPathOption, tcConfig.shadowCopyReferences, tcConfig.tryGetMetadataSnapshot)

letilILBinaryReader= OpenILBinary(filename, tcConfig.reduceMemoryUsage, ilGlobalsOpt,pdbDirPath, tcConfig.shadowCopyReferences, tcConfig.tryGetMetadataSnapshot)

tcImports.AttachDisposeAction(fun _->(ilILBinaryReader:> IDisposable).Dispose())

ilILBinaryReader.ILModuleDef, ilILBinaryReader.ILAssemblyRefs

with e->

reduceMemoryUsage= tcConfig.reduceMemoryUsage

metadataOnly= MetadataOnlyFlag.No

tryGetMetadataSnapshot=(fun _-> None)

pdbPath= None}

pdbDirPath= None}

ILBinaryReader.OpenILModuleReader mscorlib40 opts

lettdefs1= ilxMainModule.TypeDefs.AsList|> List.filter(fun td->not(MainModuleBuilder.injectedCompatTypes.Contains(td.Name)))

letfileName= dllInfo.FileName

if tcConfig.openDebugInformationForLaterStaticLinkingthen

{ ilGlobals= ilGlobals

metadataOnly= MetadataOnlyFlag.No// turn this off here as we need the actual IL code

reduceMemoryUsage= tcConfig.reduceMemoryUsage

tryGetMetadataSnapshot=(fun _-> None)}

letreader= ILBinaryReader.OpenILModuleReader dllInfo.FileName opts