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
273
273
274
274
(* Blocking API *)
275
275
276
- let mysql_free_result = foreign " mysql_free_result"
277
- (res @-> returning void)
278
-
279
276
let mysql_real_connect = foreign " mysql_real_connect"
280
277
(mysql @-> ptr_opt char @-> ptr_opt char @->
281
278
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
644
644
let raw = stmt.Common.Stmt. raw in
645
645
let start = handle_free (B. mysql_stmt_free_result_start raw) in
646
646
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
648
647
nonblocking stmt.Common.Stmt. mariadb (start, cont)
649
648
650
649
let reset stmt =
You can’t perform that action at this time.
0 commit comments