summaryrefslogtreecommitdiff
path: root/utils/ccomp.ml
diff options
context:
space:
mode:
authorDamien Doligez <damien.doligez@inria.fr>2017-09-17 16:43:49 +0200
committerDamien Doligez <damien.doligez@inria.fr>2017-09-17 16:46:08 +0200
commit535390f8f0b6d40f130ebcb7f804ecd6804f6cac (patch)
tree718a4e8ad3a8969a867f8d6a23fe1460f6daa7fe /utils/ccomp.ml
parent712505d3ebeb94855fcce758b1b15c53c05d84b1 (diff)
downloadocaml-535390f8f0b6d40f130ebcb7f804ecd6804f6cac.tar.gz
Fix output-complete-obj for MSVC:
- bug in ccomp.ml - bug in test Makefile - disable testing bytecode on MSVC: AFAICT this never worked.
Diffstat (limited to 'utils/ccomp.ml')
-rw-r--r--utils/ccomp.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/ccomp.ml b/utils/ccomp.ml
index 204a6de5e9..3f186b3bb0 100644
--- a/utils/ccomp.ml
+++ b/utils/ccomp.ml
@@ -87,7 +87,9 @@ let compile_file ?output ?(opt="") name =
then (Config.ocamlopt_cflags, Config.ocamlopt_cppflags)
else (Config.ocamlc_cflags, Config.ocamlc_cppflags) in
(String.concat " " [Config.c_compiler; cflags; cppflags]))
- (match output with | None -> "" | Some o -> Printf.sprintf "%s %s" Config.c_output_obj o)
+ (match output with
+ | None -> ""
+ | Some o -> Printf.sprintf "%s%s" Config.c_output_obj o)
opt
(if !Clflags.debug && Config.ccomp_type <> "msvc" then "-g" else "")
(String.concat " " (List.rev !Clflags.all_ccopts))