update proto (4)

dsyme · Apr 10, 2015 · 4f73a2b · 4f73a2b
1 parent 5430936
commit 4f73a2b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fsharp/Optimizer.fs b/src/fsharp/Optimizer.fs
@@ -494,10 +494,10 @@ let BindTypeVarsToUnknown (tps:Typar list) env =
                 tp.Data.typar_id <- ident (nm,tp.Range));      
     List.fold (fun sofar arg -> BindTypeVar arg UnknownTypeValue sofar) env tps 
 
-let BindCcu (ccu:Tast.CcuThunk) mval env (cenv:cenv) = 
+let BindCcu (ccu:Tast.CcuThunk) mval env (g:TcGlobals) = 
 #if DEBUG
     if verboseOptimizationInfo then 
-        dprintf "*** Reloading optimization data for assembly %s, info = \n%s\n" ccu.AssemblyName (showL (Layout.squashTo 192 (moduleInfoL cenv mval)));  
+        dprintf "*** Reloading optimization data for assembly %s, info = \n%s\n" ccu.AssemblyName (showL (Layout.squashTo 192 (moduleInfoL g mval)));  
 #endif
 
     { env with globalModuleInfos=env.globalModuleInfos.Add(ccu.AssemblyName,mval)  }