浏览代码

[php] avoid warning

Simon Krajewski 7 年之前
父节点
当前提交
5f0a4d86bc
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/generators/genphp7.ml

+ 2 - 2
src/generators/genphp7.ml

@@ -53,8 +53,8 @@ let write_resource dir name data =
 let copy_file src dst =
 let copy_file src dst =
 	let buffer_size = 8192 in
 	let buffer_size = 8192 in
 	let buffer = String.create buffer_size in
 	let buffer = String.create buffer_size in
-	let fd_in = Unix.openfile src [O_RDONLY] 0 in
-	let fd_out = Unix.openfile dst [O_WRONLY; O_CREAT; O_TRUNC] 0o644 in
+	let fd_in = Unix.openfile src [Unix.O_RDONLY] 0 in
+	let fd_out = Unix.openfile dst [Unix.O_WRONLY; Unix.O_CREAT; Unix.O_TRUNC] 0o644 in
 	let rec copy_loop () =
 	let rec copy_loop () =
 		match Unix.read fd_in buffer 0 buffer_size with
 		match Unix.read fd_in buffer 0 buffer_size with
 			|  0 -> ()
 			|  0 -> ()