From 1597b61df946ffd9ebe57ca63e3424aee499ae6c Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 2 Aug 2018 15:28:47 +0200 Subject: [PATCH] Move 4.03 minium version check for opaque to top level Signed-off-by: Rudi Grinberg --- src/gen_rules.ml | 2 +- src/module_compilation.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gen_rules.ml b/src/gen_rules.ml index 43fe88a8..b5478a47 100644 --- a/src/gen_rules.ml +++ b/src/gen_rules.ml @@ -17,7 +17,7 @@ module Gen(P : Install_rules.Params) = struct let sctx = P.sctx let ctx = SC.context sctx - let opaque = ctx.profile = "dev" + let opaque = ctx.profile = "dev" && ctx.version >= (4, 03, 0) (* +-----------------------------------------------------------------+ | Library stuff | diff --git a/src/module_compilation.ml b/src/module_compilation.ml index c2409190..6d6e2b0f 100644 --- a/src/module_compilation.ml +++ b/src/module_compilation.ml @@ -58,7 +58,7 @@ let build_cm cctx ?sandbox ?(dynlink=true) ~dep_graphs ~cm_kind (m : Module.t) = | Cmi | Cmo -> other_targets in let dep_graph = Ml_kind.Dict.get dep_graphs ml_kind in - let opaque = CC.opaque cctx && ctx.version >= (4, 03, 0) in + let opaque = CC.opaque cctx in let other_cm_files = Build.dyn_paths (Ocamldep.Dep_graph.deps_of dep_graph m >>^ fun deps ->