Source file picos_thread.ml

1
2
3
4
5
# 1 "lib/picos_thread/picos_thread.posix.ml"
let main_thread = Thread.id (Thread.self ())
let is_main_thread () = Thread.id (Thread.self ()) = main_thread

module TLS = Tls