X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=myocamlbuild.ml;fp=myocamlbuild.ml;h=9c90feb6f332b5f435c433525c8ec2b78e5dba1e;hb=7fc2ae2efb908864540e14e049c7dc7ed68311c1;hp=3e14dfaae827d57b25a326ba8bb49aedd40bbfeb;hpb=d8e8a2b5c08a980a440d9fc9f3ea27af7711b524;p=SXSI%2Fxpathcomp.git

diff --git a/myocamlbuild.ml b/myocamlbuild.ml
index 3e14dfa..9c90feb 100644
--- a/myocamlbuild.ml
+++ b/myocamlbuild.ml
@@ -9,9 +9,8 @@ let print_list l =
 let _A x = A x
 let _S ?(extra=N) l = S (List.map (fun e -> (S [extra; _A e] )) l)
 ;;
-
+let cxx_flags_for_ml = [ _S ~extra:(_A "-ccopt") cxx_flags ]
 let cxx_flags = ref [ _S cxx_flags ]
-
 let project_dirs = [ src_path; include_path ]
 let cxx_include_flags = _S cxx_includes
 let cxx_link_flags = ref  [ _S cxx_lpaths; _S cxx_libs]
@@ -148,10 +147,10 @@ let () = dispatch begin
 			    S (ppopt !pp_macro_options) ])
       in
       flag [ "ocaml"; "ocamldep"] syntax_flags;
-      flag [ "ocaml"; "compile" ] (S[ A "-cc"; A cxx_cmd; syntax_flags; S !compile_flags ]);
+      flag [ "ocaml"; "compile" ] (S[ A "-cc"; A cxx_cmd; S cxx_flags_for_ml ;  syntax_flags; S !compile_flags ]);
       flag [ "ocaml"; "native"; "compile" ] (S !native_compile_flags);
       flag [ "ocaml"; "link" ]
-	(S [ S link_flags ; A "-cc"; A cxx_cmd; A "-cclib" ;
+	(S [ S link_flags ; A "-cc"; A cxx_cmd; S cxx_flags_for_ml; A "-cclib" ;
 	     Quote (S [ _S cstub_lib;  S !cxx_link_flags]) ]);
       flag [ "ocaml"; "byte"; "link" ] (_S !byte_link_flags);
       flag [ "ocaml"; "native"; "link" ] (_S !native_link_flags);