Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commite2ea101

Browse files
committed
fix build of coreclr
1 parentbcbde2c commite2ea101

File tree

2 files changed

+8
-1
lines changed

2 files changed

+8
-1
lines changed

‎src/fsharp/CompileOps.fs‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2809,7 +2809,11 @@ type TcConfig private (data : TcConfigBuilder,validate:bool) =
28092809
yield tcConfig.MakePathAbsolute x
28102810

28112811
| None->
2812+
#if FSI_TODO_NETCORE// there is no really good notion of runtime directory on .NETCore
2813+
letruntimeRoot= Path.GetDirectoryName(typeof<System.Object>.Assembly.Location)
2814+
#else
28122815
letruntimeRoot= System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory()
2816+
#endif
28132817
letruntimeRootWithoutSlash= runtimeRoot.TrimEnd('/','\\')
28142818
letruntimeRootFacades= Path.Combine(runtimeRootWithoutSlash,"Facades")
28152819
letruntimeRootWPF= Path.Combine(runtimeRootWithoutSlash,"WPF")
@@ -2826,6 +2830,7 @@ type TcConfig private (data : TcConfigBuilder,validate:bool) =
28262830
yield runtimeRootWPF// PresentationCore.dll is in C:\Windows\Microsoft.NET\Framework\v4.0.30319\WPF
28272831

28282832
| ResolutionEnvironment.EditingOrCompilation_->
2833+
#if ENABLE_MONO_SUPPORT
28292834
if runningOnMonothen
28302835
// Default compilation-time references on Mono
28312836
//
@@ -2844,6 +2849,7 @@ type TcConfig private (data : TcConfigBuilder,validate:bool) =
28442849
if Directory.Exists(runtimeRootApiFacades)then
28452850
yield runtimeRootApiFacades
28462851
else
2852+
#endif
28472853
// Default compilation-time references on .NET Framework
28482854
//
28492855
// This is the normal case for "fsc.exe a.fs". We refer to the reference assemblies folder.

‎src/fsharp/fsi/fsi.fs‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,6 +48,7 @@ open Microsoft.FSharp.Compiler.Tast
4848
openMicrosoft.FSharp.Compiler.Tastops
4949
openMicrosoft.FSharp.Compiler.TcGlobals
5050
openMicrosoft.FSharp.Compiler.SourceCodeServices
51+
openMicrosoft.FSharp.Compiler.ReferenceResolver
5152

5253
openInternal.Utilities
5354
openInternal.Utilities.Collections
@@ -2459,7 +2460,7 @@ type FsiEvaluationSession (fsi: FsiEvaluationSessionHostConfig, argv:string[], i
24592460

24602461
lettcConfigB= TcConfigBuilder.CreateNew(legacyReferenceResolver, defaultFSharpBinariesDir=defaultFSharpBinariesDir, optimizeForMemory=true, implicitIncludeDir=currentDirectory, isInteractive=true, isInvalidationSupported=false, defaultCopyFSharpCore=false)
24612462
lettcConfigP= TcConfigProvider.BasedOnMutableBuilder(tcConfigB)
2462-
do tcConfigB.resolutionEnvironment<-ReferenceResolver.ResolutionEnvironment.CompilationAndEvaluation// See Bug 3608
2463+
do tcConfigB.resolutionEnvironment<- ResolutionEnvironment.CompilationAndEvaluation// See Bug 3608
24632464
do tcConfigB.useFsiAuxLib<- fsi.UseFsiAuxLib
24642465

24652466
#if FSI_TODO_NETCORE

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp