2
0
Эх сурвалжийг харах

save in binary mode (\n instead of \r\n on windows)

Nicolas Cannasse 15 жил өмнө
parent
commit
6f1d8a0d02
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -760,7 +760,7 @@ let generate com =
 		newline ctx;
 	) (List.rev ctx.inits);
 	List.iter (generate_static ctx) (List.rev ctx.statics);
-	let ch = open_out com.file in
+	let ch = open_out_bin com.file in
 	output_string ch (Buffer.contents ctx.buf);
 	close_out ch;
 	t()