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

Commit8e0928d

Browse files
auduchinokKevinRansom
authored andcommitted
Remove repeating arguments processing in IncrementalBuilder creation (#4124)
1 parent1e7037c commit8e0928d

File tree

1 file changed

+1
-12
lines changed

1 file changed

+1
-12
lines changed

‎src/fsharp/service/IncrementalBuild.fs‎

Lines changed: 1 addition & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1698,7 +1698,6 @@ type IncrementalBuilder(tcGlobals, frameworkTcImports, nonFrameworkAssemblyInput
16981698
/// CreateIncrementalBuilder (for background type checking). Note that fsc.fs also
16991699
/// creates an incremental builder used by the command line compiler.
17001700
static memberTryCreateBackgroundBuilderForProjectOptions(ctok,legacyReferenceResolver,defaultFSharpBinariesDir,frameworkTcImportsCache:FrameworkImportsCache,loadClosureOpt:LoadClosure option,sourceFiles:string list,commandLineArgs:string list,projectReferences,projectDirectory,useScriptResolutionRules,keepAssemblyContents,keepAllBackgroundResolutions,maxTimeShareMilliseconds)=
1701-
lettargetProfileSwitch="--targetprofile:"
17021701
letuseSimpleResolutionSwitch="--simpleresolution"
17031702

17041703
cancellable{
@@ -1741,22 +1740,12 @@ type IncrementalBuilder(tcGlobals, frameworkTcImports, nonFrameworkAssemblyInput
17411740
#else
17421741
tcConfigB.useSimpleResolution<-(getSwitchValue useSimpleResolutionSwitch)|> Option.isSome
17431742
#endif
1744-
match(getSwitchValue targetProfileSwitch)with
1745-
| Some v->
1746-
let_s= v
1747-
CompileOptions.SetTargetProfile tcConfigB v
1748-
| None->()
1749-
17501743
// Apply command-line arguments and collect more source files if they are in the arguments
17511744
letsourceFilesNew= ApplyCommandLineArgs(tcConfigB, sourceFiles, commandLineArgs)
17521745

17531746
// Never open PDB files for the language service, even if --standalone is specified
17541747
tcConfigB.openDebugInformationForLaterStaticLinking<-false
1755-
match commandLineArgs|> Seq.tryFind(fun s-> s.StartsWith(targetProfileSwitch))with
1756-
| Some arg->
1757-
letprofile= arg.Substring(targetProfileSwitch.Length)
1758-
CompileOptions.SetTargetProfile tcConfigB profile
1759-
|_->()
1748+
17601749
tcConfigB, sourceFilesNew
17611750

17621751
match loadClosureOptwith

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp