C++ (Cpp) caml_io_mutex_unlock示例

示例#1

文件： win32.c 项目： OpenXT/ocaml

static void caml_io_mutex_unlock_exn(void)
{
  struct channel * chan = TlsGetValue(last_channel_locked_key);
  if (chan != NULL) caml_io_mutex_unlock(chan);
}

示例#2

文件： st_stubs.c 项目： avsm/ocaml-ppa

static void caml_io_mutex_unlock_exn(void)
{
  struct channel * chan = st_tls_get(last_channel_locked_key);
  if (chan != NULL) caml_io_mutex_unlock(chan);
}