예제 #1
0
파일: 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
0
파일: 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);
}