Source file `srt_stubs_locked.ml`

1
2
3
4
5
6
7
8
9
10
11
open Ctypes

module Def (F : Cstubs.FOREIGN) = struct
  open F

  let memcpy =
    foreign "memcpy" (ocaml_bytes @-> ptr char @-> int @-> returning void)

  let memcpy_str =
    foreign "memcpy" (ptr char @-> ocaml_string @-> int @-> returning void)
end