Skip to content

Commit

Permalink
update to fix build
Browse files Browse the repository at this point in the history
  • Loading branch information
dsyme committed Apr 10, 2015
1 parent 4f73a2b commit dd886be
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/fsharp/Optimizer.fs
Original file line number Diff line number Diff line change
Expand Up @@ -498,6 +498,8 @@ 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 g mval)));
#else
ignore g
#endif

{ env with globalModuleInfos=env.globalModuleInfos.Add(ccu.AssemblyName,mval) }
Expand Down Expand Up @@ -1204,6 +1206,8 @@ let AbstractAndRemapModulInfo msg g m (repackage,hidden) info =
let mrpi = mkRepackageRemapping repackage
#if DEBUG
if verboseOptimizationInfo then dprintf "%s - %a - Optimization data prior to trim: \n%s\n" msg outputRange m (Layout.showL (Layout.squashTo 192 (moduleInfoL g info)));
#else
ignore (msg,m)
#endif
let info = info |> AbstractLazyModulInfoByHiding false hidden
#if DEBUG
Expand Down

0 comments on commit dd886be

Please sign in to comment.