Use different flags for MSVC

Signed-off-by: Ulysse Gérard <[email protected]>
ocaml · Dec 3, 2020 · c01df9c · c01df9c
1 parent 5746ebd
commit c01df9c
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/dune_rules/cxx_rules.ml b/src/dune_rules/cxx_rules.ml
@@ -28,12 +28,17 @@ let rules ~sctx ~dir =
   (* let tmp = Path.External.of_string (Filename.get_temp_dir_name ()) in *)
   let header_file = Path.Build.relative dir "header_check.h" in
   let write_test_file = Action.write_file header_file header_file_content in
+  let args =
+    let open Command.Args in
+    ( match Ocaml_config.ccomp_type ocfg with
+    | Msvc -> [ A "/EP" ]
+    | Other _ -> [ A "-E"; A "-P" ] )
+    @ [ A Path.(to_absolute_filename (build header_file)) ]
+  in
   let action =
     let open Build.With_targets.O in
     let+ run_preprocessor =
-      Command.run ~dir:(Path.build dir) ~stdout_to:file prog
-        Command.Args.
-          [ A "-EP"; A Path.(to_absolute_filename (build header_file)) ]
+      Command.run ~dir:(Path.build dir) ~stdout_to:file prog args
     in
     Action.progn [ write_test_file; run_preprocessor ]
   in