feat(link): drive output names and link flags from the object format

This commit is contained in:
sneeker committed 2022-07-18 07:56:15 +00:00
1 parent 7ef31a5ded
commit 1638968aba
4 files changed
+71 -17

No files matched your search

+7 -4
View File
@@ -8,13 +8,16 @@ let dest_dir p = function
let plan p =
let from_targets =
List.filter_map
List.concat_map
(fun (t : target) ->
match t.install with
| None -> None
| None -> []
| Some where ->
let src = Build.out_of p t in
Some (src, Filename.concat (dest_dir p where) (Filename.basename src)))
(* An import library is half of the shared library it belongs to,
so it travels with it. *)
List.map
(fun src -> (src, Filename.concat (dest_dir p where) (Filename.basename src)))
(Build.out_of p t :: Option.to_list (Build.implib_of p t)))
p.targets
in
let from_blocks =