소스 검색

[jvm] open .class output in binary mode

closes #10770
Simon Krajewski 3 년 전
부모
커밋
d9a5626629
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      src/generators/genjvm.ml

+ 1 - 1
src/generators/genjvm.ml

@@ -130,7 +130,7 @@ class file_output
 	method add_entry (content : string) (name : string) =
 		let path = base_path ^ name in
 		Path.mkdir_from_path path;
-		let ch = open_out path in
+		let ch = open_out_bin path in
 		output_string ch content;
 		close_out ch