matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use dedicated compilation context for deprecated modules 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-08-29 20:20:07 +03:00
parent d0b937c25e
commit 8acca614da
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/compilation_context.ml
View File

@ -106,5 +106,10 @@ let for_alias_module t =
; alias_module = None
}
let set_modules t modules =
{ t with modules }
let for_deprecated t modules =
{ t with
flags = Ocaml_flags.default ~profile:(SC.profile t.super_context)
; includes = Includes.empty
; alias_module = None
; modules
}

2
src/compilation_context.mli
View File

@ -49,4 +49,4 @@ val preprocessing : t -> Preprocessing.t
val no_keep_locs : t -> bool
val opaque : t -> bool
val set_modules : t -> Module.t Module.Name.Map.t -> t
val for_deprecated : t -> Module.t Module.Name.Map.t -> t

2
src/lib_rules.ml
View File

@ -147,7 +147,7 @@ module Gen (P : Install_rules.Params) = struct
);
let dep_graphs =
Ocamldep.Dep_graphs.deprecated ~modules ~deprecated in
let cctx = Compilation_context.set_modules cctx deprecated in
let cctx = Compilation_context.for_deprecated cctx deprecated in
Module_compilation.build_modules cctx ~js_of_ocaml ~dynlink ~dep_graphs
let build_c_file (lib : Library.t) ~scope ~dir ~includes (src, dst) =