ref: 96641430b332facfacc55f6060d0425886f35697
dir: /lib/thread/futex+openbsd:6.2.myr/
use sys use "atomic" use "common" pkg thread = type ftxtag = uint32 impl atomic ftxtag const ftxwait : (uaddr : ftxtag#, val : ftxtag, timeout : sys.timespec# -> int) const ftxwake : (uaddr : ftxtag# -> int) const ftxwakeall : (uaddr : ftxtag# -> int) ;; const ftxwait = {uaddr, val, timeout -> sys.futex((uaddr : uint32#), sys.Futexwait, (val : int), timeout, Zptr) } const ftxwake = {uaddr -> sys.futex((uaddr : uint32#), sys.Futexwake, 1, Zptr, Zptr) } const ftxwakeall = {uaddr -> sys.futex((uaddr : uint32#), sys.Futexwake, 0x7fffffff, Zptr, Zptr) } impl atomic ftxtag = xget = {p; -> (xget32((p : uint32#)) : ftxtag)} xset = {p, v; xset32((p : uint32#), (v : uint32))} xadd = {p, v; -> (xadd32((p : uint32#), (v : uint32)) : ftxtag)} xcas = {p, old, new; -> (xcas32((p : uint32#), (old : uint32), (new : uint32)) : ftxtag)} xchg = {p, v; -> (xchg32((p : uint32#), (v : uint32)) : ftxtag)} ;;