File tree Expand file tree Collapse file tree 2 files changed +0
-4
lines changed Expand file tree Collapse file tree 2 files changed +0
-4
lines changed Original file line number Diff line number Diff line change @@ -273,9 +273,6 @@ module Bindings (F : Cstubs.FOREIGN) = struct
273273
274274 (* Blocking API *)
275275
276- let mysql_free_result = foreign " mysql_free_result"
277- (res @-> returning void)
278-
279276 let mysql_real_connect = foreign " mysql_real_connect"
280277 (mysql @-> ptr_opt char @-> ptr_opt char @->
281278 ptr_opt char @-> ptr_opt char @-> uint @-> ptr_opt char @-> ulong @->
Original file line number Diff line number Diff line change @@ -644,7 +644,6 @@ module Make (W : Wait) : S with type 'a future = 'a W.IO.future = struct
644644 let raw = stmt.Common.Stmt. raw in
645645 let start = handle_free (B. mysql_stmt_free_result_start raw) in
646646 let cont s = handle_free (B. mysql_stmt_free_result_cont raw s) in
647- let () = match stmt.Common.Stmt. meta with None -> () | Some { res; _ } -> B. mysql_free_result res in
648647 nonblocking stmt.Common.Stmt. mariadb (start, cont)
649648
650649 let reset stmt =
You can’t perform that action at this time.
0 commit comments