未验证 提交 8cf07544 编写于 作者: D Don Syme 提交者: GitHub

fix metadata failure due to double integration of signature (#14189)

* fix metadata failure due to double duplication

* fix metadata failure due to double duplication
上级 20ad203e
......@@ -1159,26 +1159,6 @@ let AddCheckResultsToTcState
ccuSigForFile, tcState
let AddDummyCheckResultsToTcState
(
tcGlobals,
amap,
qualName: QualifiedNameOfFile,
prefixPathOpt,
tcSink,
tcState: TcState,
tcStateForImplFile: TcState,
rootSig
) =
let hadSig = true
let emptyImplFile = CreateEmptyDummyImplFile qualName rootSig
let tcEnvAtEnd = tcStateForImplFile.TcEnvFromImpls
let ccuSigForFile, tcState =
AddCheckResultsToTcState (tcGlobals, amap, hadSig, prefixPathOpt, tcSink, tcState.tcsTcImplEnv, qualName, rootSig) tcState
(tcEnvAtEnd, EmptyTopAttrs, Some emptyImplFile, ccuSigForFile), tcState
/// Typecheck a single file (or interactive entry into F# Interactive)
let CheckOneInputAux
(
......@@ -1347,18 +1327,10 @@ let CheckOneInput
match partialResult with
| Choice1Of2 result -> return result, tcState
| Choice2Of2 (amap, _conditionalDefines, rootSig, _priorErrors, file, tcStateForImplFile, _ccuSigForFile) ->
return
AddDummyCheckResultsToTcState(
tcGlobals,
amap,
file.QualifiedName,
prefixPathOpt,
tcSink,
tcState,
tcStateForImplFile,
rootSig
)
| Choice2Of2 (_amap, _conditionalDefines, rootSig, _priorErrors, file, tcStateForImplFile, ccuSigForFile) ->
let emptyImplFile = CreateEmptyDummyImplFile file.QualifiedName rootSig
let tcEnvAtEnd = tcStateForImplFile.TcEnvFromImpls
return (tcEnvAtEnd, EmptyTopAttrs, Some emptyImplFile, ccuSigForFile), tcState
}
// Within a file, equip loggers to locally filter w.r.t. scope pragmas in each input
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册