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

Ensure executables also depend on archive files 

Signed-off-by: David Allsopp <david.allsopp@metastack.com>
This commit is contained in:
David Allsopp 2017-08-26 15:18:53 +01:00 committed by Rudi Grinberg
parent da240468d0
commit 6a3c51c358
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/gen_rules.ml
View File

@ -450,11 +450,18 @@ module Gen(P : Params) = struct
~mode
[String.capitalize_ascii name]))
in
let objs (_, cm) =
let objs (libs, cm) =
if mode = Mode.Byte then
[]
else
List.map ~f:(Path.change_extension ~ext:ctx.ext_obj) cm
let libs =
let f = function
| Lib.Internal (dir, lib) -> Some (Path.relative dir (lib.name ^ ctx.ext_lib))
| External _ -> None
in
List.filter_map ~f libs
in
libs @ List.map ~f:(Path.change_extension ~ext:ctx.ext_obj) cm
in
SC.add_rule sctx
((libs_and_cm >>> Build.dyn_paths (Build.arr objs))