From d23112021cd3a8e4caed49435764a2328025dd00 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Wed, 7 Mar 2018 14:59:04 +0100
Subject: Use binary output.

This should avoid problems when newlines are used in string
constants etc.
Bug 23172
---
 powerpc/AsmToJSON.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'powerpc/AsmToJSON.ml')

diff --git a/powerpc/AsmToJSON.ml b/powerpc/AsmToJSON.ml
index 7c4c8f8a..eaa4c48b 100644
--- a/powerpc/AsmToJSON.ml
+++ b/powerpc/AsmToJSON.ml
@@ -378,7 +378,7 @@ let print_if prog sourcename =
   | None -> ()
   | Some f ->
     let f = Filename.concat !sdump_folder f in
-    let oc = open_out f in
+    let oc = open_out_bin f in
     pp_ast (formatter_of_out_channel oc) pp_instructions prog sourcename;
     close_out oc
 
-- 
cgit