MS linker expects /libpath:DIR, not -LDIR. Avoids warning when -pack'…

…ing.
ocaml · Dec 11, 2015 · 44b8b51 · 44b8b51
1 parent 87f92ab
commit 44b8b51
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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