From ef7323430b4c1aa46c5c55a33e8b96279145de45 Mon Sep 17 00:00:00 2001 From: Don Syme Date: Tue, 1 Dec 2015 18:31:41 +0000 Subject: [PATCH 1/2] fix overflow --- src/fsharp/CompileOps.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fsharp/CompileOps.fs b/src/fsharp/CompileOps.fs index d1c92bc636..8bc90e2856 100755 --- a/src/fsharp/CompileOps.fs +++ b/src/fsharp/CompileOps.fs @@ -4260,7 +4260,7 @@ type TcImports(tcConfigP:TcConfigProvider, initialResolutions:TcAssemblyResoluti if tcImports.IsAlreadyRegistered ilShortAssemName then let dllinfo = tcImports.FindDllInfo(m,ilShortAssemName) - let phase2() = [tcImports.FindCcuInfo(m,ilShortAssemName,lookupOnly=false)] + let phase2() = [tcImports.FindCcuInfo(m,ilShortAssemName,lookupOnly=true)] dllinfo,phase2 else let dllinfo = {RawMetadata=assemblyData From 868070151c0c0aff23eb24d27242049d039d6b17 Mon Sep 17 00:00:00 2001 From: Don Syme Date: Wed, 2 Dec 2015 00:37:18 +0000 Subject: [PATCH 2/2] Update CompileOps.fs --- src/fsharp/CompileOps.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fsharp/CompileOps.fs b/src/fsharp/CompileOps.fs index 8bc90e2856..082924e3b3 100755 --- a/src/fsharp/CompileOps.fs +++ b/src/fsharp/CompileOps.fs @@ -4260,7 +4260,7 @@ type TcImports(tcConfigP:TcConfigProvider, initialResolutions:TcAssemblyResoluti if tcImports.IsAlreadyRegistered ilShortAssemName then let dllinfo = tcImports.FindDllInfo(m,ilShortAssemName) - let phase2() = [tcImports.FindCcuInfo(m,ilShortAssemName,lookupOnly=true)] + let phase2() = [tcImports.FindCcuInfo(m,ilShortAssemName,lookupOnly=true)] dllinfo,phase2 else let dllinfo = {RawMetadata=assemblyData