summaryrefslogtreecommitdiff
path: root/utils/ccomp.ml
diff options
context:
space:
mode:
authorNicolás Ojeda Bär <n.oje.bar@gmail.com>2019-08-14 12:38:12 +0200
committerNicolás Ojeda Bär <n.oje.bar@gmail.com>2019-08-17 00:08:03 +0200
commite2794180a1e3d25073ab016976017ec024b944a6 (patch)
tree8f1adc0075a53a89fec7ae6a2a179b46f2a00b97 /utils/ccomp.ml
parenta2d15b26d14847596d0982e294be89e18c663549 (diff)
downloadocaml-e2794180a1e3d25073ab016976017ec024b944a6.tar.gz
Fix missing newlines when buffering MSVC output
Diffstat (limited to 'utils/ccomp.ml')
-rw-r--r--utils/ccomp.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/ccomp.ml b/utils/ccomp.ml
index 649faf380a..3593ef1570 100644
--- a/utils/ccomp.ml
+++ b/utils/ccomp.ml
@@ -58,9 +58,9 @@ let display_msvc_output file name =
try
let first = input_line c in
if first <> Filename.basename name then
- print_string first;
+ print_endline first;
while true do
- print_string (input_line c)
+ print_endline (input_line c)
done
with _ ->
close_in c;