update proto ()

dsyme · Apr 10, 2015 · 93d94c9 · 93d94c9
1 parent 77fa7ac
commit 93d94c9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/fsharp/Optimizer.fs b/src/fsharp/Optimizer.fs
@@ -3052,7 +3052,9 @@ and OptimizeBinding cenv isRec env (TBind(v,e,spBind)) =
             else einfo 
         if v.MustInline  && IsPartialExprVal einfo.Info then 
             errorR(InternalError("the mustinline value '"^v.LogicalName^"' was not inferred to have a known value",v.Range));
+#if DEBUG
         if verboseOptimizations then dprintf "val %s gets opt info %s\n" (showL(valL v)) (showL(exprValueInfoL cenv.g einfo.Info));
+#endif
 
         let env = BindInternalLocalVal cenv v (mkValInfo einfo v) env 
         (TBind(v,repr',spBind), einfo), env