Skip to content

Commit 8cf0754

Browse files
authored
fix metadata failure due to double integration of signature (#14189)
* fix metadata failure due to double duplication * fix metadata failure due to double duplication
1 parent 20ad203 commit 8cf0754

File tree

1 file changed

+4
-32
lines changed

1 file changed

+4
-32
lines changed

src/Compiler/Driver/ParseAndCheckInputs.fs

Lines changed: 4 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -1159,26 +1159,6 @@ let AddCheckResultsToTcState
11591159

11601160
ccuSigForFile, tcState
11611161

1162-
let AddDummyCheckResultsToTcState
1163-
(
1164-
tcGlobals,
1165-
amap,
1166-
qualName: QualifiedNameOfFile,
1167-
prefixPathOpt,
1168-
tcSink,
1169-
tcState: TcState,
1170-
tcStateForImplFile: TcState,
1171-
rootSig
1172-
) =
1173-
let hadSig = true
1174-
let emptyImplFile = CreateEmptyDummyImplFile qualName rootSig
1175-
let tcEnvAtEnd = tcStateForImplFile.TcEnvFromImpls
1176-
1177-
let ccuSigForFile, tcState =
1178-
AddCheckResultsToTcState (tcGlobals, amap, hadSig, prefixPathOpt, tcSink, tcState.tcsTcImplEnv, qualName, rootSig) tcState
1179-
1180-
(tcEnvAtEnd, EmptyTopAttrs, Some emptyImplFile, ccuSigForFile), tcState
1181-
11821162
/// Typecheck a single file (or interactive entry into F# Interactive)
11831163
let CheckOneInputAux
11841164
(
@@ -1347,18 +1327,10 @@ let CheckOneInput
13471327

13481328
match partialResult with
13491329
| Choice1Of2 result -> return result, tcState
1350-
| Choice2Of2 (amap, _conditionalDefines, rootSig, _priorErrors, file, tcStateForImplFile, _ccuSigForFile) ->
1351-
return
1352-
AddDummyCheckResultsToTcState(
1353-
tcGlobals,
1354-
amap,
1355-
file.QualifiedName,
1356-
prefixPathOpt,
1357-
tcSink,
1358-
tcState,
1359-
tcStateForImplFile,
1360-
rootSig
1361-
)
1330+
| Choice2Of2 (_amap, _conditionalDefines, rootSig, _priorErrors, file, tcStateForImplFile, ccuSigForFile) ->
1331+
let emptyImplFile = CreateEmptyDummyImplFile file.QualifiedName rootSig
1332+
let tcEnvAtEnd = tcStateForImplFile.TcEnvFromImpls
1333+
return (tcEnvAtEnd, EmptyTopAttrs, Some emptyImplFile, ccuSigForFile), tcState
13621334
}
13631335

13641336
// Within a file, equip loggers to locally filter w.r.t. scope pragmas in each input

0 commit comments

Comments
 (0)