diff options
author | alainfrisch <alain@frisch.fr> | 2015-12-11 11:14:31 +0100 |
---|---|---|
committer | alainfrisch <alain@frisch.fr> | 2015-12-11 11:14:31 +0100 |
commit | 44b8b51390c17fe9c71d313aca2f5552d24c35c6 (patch) | |
tree | 373d7b3e65bc9bcdf720c28b766052e526c414b4 /utils/ccomp.ml | |
parent | 87f92ab0fbff400f06f6ce0d05f8534fb0766a01 (diff) | |
download | ocaml-44b8b51390c17fe9c71d313aca2f5552d24c35c6.tar.gz |
MS linker expects /libpath:DIR, not -LDIR. Avoids warning when -pack'ing.
Diffstat (limited to 'utils/ccomp.ml')
-rw-r--r-- | utils/ccomp.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/utils/ccomp.ml b/utils/ccomp.ml index a897ddc0d9..c89fecabd7 100644 --- a/utils/ccomp.ml +++ b/utils/ccomp.ml @@ -112,10 +112,15 @@ let remove_Wl cclibs = let call_linker mode output_name files extra = let cmd = if mode = Partial then + let l_prefix = + match Config.ccomp_type with + | "msvc" -> "/libpath:" + | _ -> "-L" + in Printf.sprintf "%s%s %s %s %s" Config.native_pack_linker (Filename.quote output_name) - (quote_prefixed "-L" !Config.load_path) + (quote_prefixed l_prefix !Config.load_path) (quote_files (remove_Wl files)) extra else |